4.3数据库连接方法
用ADODC部件使Microsoft Access 2003与Visual Basic 6.0(SP6)连接。
5软件详细开发
登录系统,主要编写管理员登录主界面的程序
Private Sub Command1_Click()
Dim a As String, b As String
a = Trim(Text1.Text)
b = Trim(Text2.Text)
Adodc1.RecordSource = "select * from 管理员 where 管理员='" & a & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "该管理员不存在!", 48
Text1.Text = ""
Text1.SetFocus
Else
Adodc1.Recordset.Find "密码= '" & b & "'"
If Adodc1.Recordset.EOF = True Then
MsgBox "密码错误!", 48
Text2.Text = ""
Text2.SetFocus
Else
MsgBox "欢迎进入理工大学学籍管理系统!", 48
学籍管理系统.Show
Unload Me
End If
End If
End Sub
Private Sub Command2_Click()
End
End Sub
增加学生界面,增加学生的主要信息和辅助信息
Private Sub Command1_Click()
Adodc1.Recordset.MoveLast
Adodc1.Recordset.AddNew
End Sub
Private Sub Command4_Click()
学籍管理系统.Show
Unload Me
End Sub
删除学生界面,删除已经毕业或退学的学生的信息
Private Sub Command1_Click()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
End Sub
Private Sub Command2_Click()
学籍管理系统.Show
Unload Me
End Sub
修改学生信息界面,主要对学生的辅助信息进行修改,即对成绩的修改
Private Sub Command1_Click()
Adodc1.Recordset.Update
End Sub
Private Sub Command4_Click()
学籍管理系统.Show
Unload Me
End Sub
按学生学号查询界面,在只知道学生学号的情况下,对学生的信息进行查询
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 学生信息 where 学号='" & DataCombo1.Text & "'"
Adodc1.Refresh
End Sub
Private Sub Command2_Click()
学籍管理系统.Show
Unload Me
End Sub
按学生姓名查询界面,在只知道学生姓名的情况下,对学生的信息进行查询
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 学生信息 where 姓名='" & DataCombo1.Text & "'"
Adodc1.Refresh
End Sub
Private Sub Command2_Click()
学籍管理系统.Show
Unload Me
End Sub
按学生家庭地址查询界面,在只知道学生家庭地址的情况下,对学生的信息进行查询
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 学生信息 where 家庭地址='" & DataCombo1.Text & "'"
Adodc1.Refresh
End Sub
Private Sub Command2_Click()
学籍管理系统.Show
Unload Me
End Sub
管理员设置界面,添加、修改、查询和删除管理员
Private Sub Command1_Click()
Adodc1.Recordset.MoveLast
Adodc1.Recordset.AddNew
End Sub
Private Sub Command2_Click()
s = Trim(InputBox("请输入要查找的管理员名称", "查找"))
bm = "管理员='" & s & "'"
Adodc1.Recordset.Find bm
If Adodc1.Recordset.EOF = True Then
MsgBox "找不到管理员名称为" & s & "的管理员!"
Adodc1.Recordset.MoveFirst
End If
End Sub
Private Sub Command3_Click()
Adodc1.Recordset.Update
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
End Sub
Private Sub Command5_Click()
学籍管理系统.Show
Unload Me
End Sub