vbsql的源代码数据库课程设计vb开发

《vbsql的源代码数据库课程设计vb开发》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、说明：本系统是用vb+sql实现的，所以代码部分是vb的代码初始化代码PublicADOcnAsNewConnectionPublicSubMain()DimstrSQLServorAsStringstrSQLServor="Provider=SQLOLEDB」;PersistSecurityInfo=False;UserID=sa;pwd=123;InitialCatalog二课程设计;DataSource=B464DE2C74ED4C3HSetADOcn=NewConnectionADOcn.OpenstrSQLServorFrsLogin.Show1FrsMain

2、.ShowEndSub上面的代码是放在一个模块里面的，在巾工程的属性里而设置-启动对象-submain登陆模块的代码PrivateSubCommandl_Click()DimADOrsAsNewRecordsetDimstrlAsStringADOrs.ActiveConnection=ADOcnstrl="select*fromuserlwherename-u+Text1.Text+ADOrs.OpenstrlIfNotADOrs.EOFThenIfADOrsC'password")<>Text2ThenMsgBox"密码不正确"Text2.SetFocusElse

3、UnloadMeEndIfElseIfMsgBox(M用户不存在，请重新输入H,vblnformation+vbYesNo,”信息提示")=vbYesThenTextl.SetFocusElseEndEndIfEndIfEndSubPrivateSubCoinmand2_Click()IfMsgBox(n确定要退出本系统",vblnformation+vbYesNo,"信息提示")=vbYesThenUnloadMeEndElseEndIfEndSub主界面的代码PrivateSubCommand1_C1ick()FrsMain.HideFrsAdd.Show1EndS

4、ubPrivateSubCommand2_Click()FrsMain.HideFrsModify.Show1EndSubPrivateSubCommand3_Click()FrsMain.HideFrsDelete.ShowEndSubPrivateSubCommand4_Click()FrsMain.HideFrsSelect.ShowEndSubPrivateSubCommand5_Click()FrsMain.HideFrsdisplay.Show1EndSubPrivateSubCommand7_Click()EndEndSub查询模块的代码PrivateSu

5、bCommand1_Click()DimADOrsAsNewRecordsetDimstrSQLAsStringDimstrlAsStringADOrs.ActiveConnection=ADOcnIfOption1.Value=TrueThenstrSQL="select*fromstudentwhereSno='n+Textl+ADOrs.OpenstrSQLIfNotADOrs.EOFThenMSFlexGrid1.ClearMSFlexGridl.Rows=0MSFlexGridl.Cols=9strl=”学号“+vbTab+"姓名”+vbTab+“专业”+vb

6、Tab+”性别”+vbTab+咄生日期“+vbTab+”籍贯“+vbTab+”政治面目”+vbTab+”民族“+vbTab+”入学时间”MSFlexGrid1.AdditemstrlDoWhileNotADOrs.EOFstrl=ADOrs(HSnoH)+vbTab+ADOrs("Sname")+vbTab+ADOrsCSdept")+vbTab+ADOrs(HSsexn)+vbTab+CStr(ADOrs(HSbirthH))+vbTab+ADOrs(HSnativeH)+vbTab+ADOrs(nSpolin)+vbTab+ADOrs("Snation")+vbTa

7、b+CStr(ADOrs(HSenter_timeM))MSFlexGrid1.AdditemstrlADOrs.MoveNextLoopElseMsgBox”查找不到这个学号的记录“,vbOKOnly,”信息提示“Textl.SetFocusEndIfElsestrSQL="select*fromstudentwhereSname=H'+Text2+ADOrs.OpenstrSQLIfNotADOrs.EOFThenMSFlexGrid1.ClearMSFlexGrid1.Rows=0MSFlexGridl.Cols=9strl=”学号