数据库技术之学生成绩管理系统程序设计

1、数据库技术之学生成绩管理系统程序设计12020 年 4 月 19 日文档仅供参考课程设计程序附录用户登陆窗口代码:Dim username As String, userpass As StringPrivate Sub Command1_Click()Adodc1.Recordset.MoveFirstAdodc1.Recordset.Find (userID= & Text1 & )If Adodc1.Recordset.EOF ThenMsgBox 无此用户 , 请重新输入 !Exit SubElseabc = Adodc1.Recordset.Fields(1)If Text2 = T

2、rim(abc) ThenMsgBox 欢迎使用本系统, 点击进入 !, vbOKOnly, 登陆 Me.HideForm2.ShowElse02020 年 4 月 19 日文档仅供参考MsgBox 用户名或密码不正确, 请重新输入 !Text1 = Text2 = Exit SubEnd IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub添加记录代码 :Private Sub Command1_Click()Adodc1.Recordset.AddNewText1 = InputBox(请输入学生学号, 添加学号 )Text2 = In

3、putBox(请输入学生姓名, 添加姓名 )Text3 = InputBox(请输入学生性别, 添加性别 )Text4 = InputBox(请输入学生年龄, 添加年龄 )If Not IsNumeric(Text4) ThenMsgBox 请输入数值 Text4.SetFocus12020 年 4 月 19 日文档仅供参考End IfText5 = InputBox(请输入学生系别, 添加系别 )resu = MsgBox(确认添加到数据库, vbOKCancel, 确认添加 )If resu = vbOK ThenAdodc1.Recordset.UpdateElseAdodc1.Reco

4、rdset.DeleteEnd IfEnd SubPrivate Sub Command2_Click()Me.HideForm2.ShowEnd Sub学生查询代码 :Private Sub Command1_Click()If Text1 = ThenMsgBox 请输入查询条件Text1.SetFocusEnd IfIf Option1.Value = True ThenAdodc1.Recordset.Find (sno= & Text1 & )If Adodc1.Recordset.EOF Then MsgBox 没有该学生 22020 年 4 月 19 日文档仅供参考ElseIf

5、Option2.Value = True Then Adodc1.Recordset.Find (sname= & Text1 & )If Adodc1.Recordset.EOF Then MsgBox 没有该学生 End IfEnd SubPrivate Sub Option1_Click()Text2 = Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Option2_Click()Text1 = Adodc1.Recordset.MoveFirstEnd Sub成绩查询代码 :Private Sub Command1_Click()If Text4 = ThenMsgBox 请输入查询的学号Text4.SetFocusEnd IfAdodc1.Reco