DimrsAsNewADODB.RecordsetdimcnnAsNewADODB.ConnectionPrivateSubCommand1_Click()DimstrsqlAsStringSetrs=NothingSetcnn=Nothingcnn.ConnectionString=\"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=\"PersistSecurityInfo=False\"cnn.OpenIfText1.Text=\"\"ThenMsgBox\"请输入用户名!\",vbCriticalvbOKOnly,\"提示\"Text1.SetFocusEndIfstrsql=\"select*fromuserswhereusername=\'\"defds123Trim(Text1.Text)defds123\"\'\"rs.CursorLocation=adUseClientrs.Openstrsql,cnn,adOpenStatic,adLockOptimisticIfText2.Text=rs.Fields(\"password\")ThenMDIForm1.ShowUnloadMeElseMsgBox(\"用户名或者密码不正确!\"),vbCriticalvbOKOnly,\"提示\"EndIfEndSub够详细了吧,呵呵,给分吧采纳我的阿!可以选择,2011/10/1320:18:48赞同 |