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

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

设计

＜数据库技术＞课程设计

＜学生成绩管理系统＞程序

附录用户登陆窗口代码: Dim username As String, userpass As String Private Sub Command1_Click() Adodc1.Recordset.MoveFirst

Adodc1.Recordset.Find ("userID='" & Text1 & "'") If

Adodc1.Recordset.EOF Then

MsgBox "无此用户,请重新输入!"

Exit Sub

Else

abc = Adodc1.Recordset.Fields(1)

If Text2 = Trim(abc) Then

MsgBox "欢迎使用本系统,点击进入!", vbOKOnly, "

登陆" Me.Hide

Form2.Show

Else

MsgBox " 用户名或密码不正确, 请重新输入!"

Text1 = ""

Text2 = ""

Exit Sub

End If

End If

End Sub

Private Sub Command2_Click() End

End Sub

添加记录代码:

Private Sub Command1_Click() Adodc1.Recordset.AddNew

Text1 = InputBox(" 请输入学生学号", " 添加学号

")

Text2

= InputBox("

请输入学生姓名", " 添加姓名")

Text3

= InputBox("

请输入学生性别", " 添加性别")

Text4

= InputBox("

请输入学生年龄", " 添加年龄")

If Not IsNumeric(Text4) Then MsgBox " 请输入数值" Text4.SetFocus

End If

Text5 = InputBox(" 请输入学生系别", " 添加系别") resu = MsgBox(" 确认添加到数据库", vbOKCancel, " If resu =

确认添加") vbOK Then

Adodc1.Recordset.Update

Else

Adodc1.Recordset.Delete

End If

End Sub

Private Sub Command2_Click()

Me.Hide

Form2.Show

End Sub

学生查询代码:

Private Sub Command1_Click()

If Text1 = "" Then

MsgBox " 请输入查询条件"

Text1.SetFocus

End If

If Option1.Value = True Then

Adodc1.Recordset.Find ("sno='" & Text1 & " '")

If Adodc1.Recordset.EOF Then MsgBox " 没有该学生

ElseIf Option2.Value = True Then

Adodc1.Recordset.Find ("sname='" & Text1 & " '")

If Adodc1.Recordset.EOF Then MsgBox " 没有该学生" End If

End Sub

Private Sub Option1_Click()

Text2 = ""

Adodc1.Recordset.MoveFirst

End Sub

Private Sub Option2_Click()

Text1 = ""

Adodc1.Recordset.MoveFirst

End Sub 成绩查询代码:

Private Sub Command1_Click()

If Text4 = "" Then

MsgBox " 请输入查询的学号"

Text4.SetFocus

End If

Adodc1.Recordset.MoveFirst abcd = "Sno='" & Text4 & " '" Adodc1.Recordset.Find (abcd)

If Adodc1.Recordset.EOF Then

MsgBox " 没有该学生记录"

Text4.SetFocus

End If

End Sub

Private Sub Text4_Change()

If Len(Text4) > 0 Then

Command1.Enabled = True

Else

Command1.Enabled = False

End If

End Sub

修改记录代码:

Private Sub Adodc1_MoveComplete(ByVal adReason As

ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) Adodc1.Caption = Adodc1.Recordset.AbsolutePosition & "/"

& Adodc1.Recordset.RecordCount

End Sub

Private Sub Command1_Click(Index As Integer)

Select Case Index