frmadmin.frm

学生成绩管理系统,用vb编写,可以自行修改传播

Private Function textctnameshow(mno) As String
Set db = OpenDatabase(dataname)
Set rs = db.OpenRecordset("teacher")
On Error GoTo quit

rs.MoveFirst
Do While Not rs.EOF And rs.Fields("tno") <> mno
rs.MoveNext
Loop
textctnameshow = rs.Fields("tname")
rs.Close
db.Close
quit:
End Function





Private Sub add3_Click()
On Error Resume Next
If add3.Caption = "新增" Then
add3.Caption = "确认"

delt3.Enabled = False
alter3.Enabled = False
find3.Enabled = False
cancel3.Enabled = True
first3.Enabled = False
prev3.Enabled = False
next3.Enabled = False
last3.Enabled = False
textxsno.Visible = False
Textxcno.Visible = False
snoCombox.Visible = True
cnoCombox.Visible = True

Data3.Recordset.AddNew
snoCombox.SetFocus

Call snocomboxshow
Call cnocomboxshow
Else

If textxsno = "" Or Textxcno = "" Or grade = "" Or Len(grade) > 3 Then
MsgBox "新增记录填写不完整" + Chr(13) + Chr(10) + "或成绩输入错误！", vbExclamation + vbOKOnly, "提示"

Else
add3.Caption = "新增"
add3.Enabled = True
delt3.Enabled = True
alter3.Enabled = True
find3.Enabled = True

first3.Enabled = True
prev3.Enabled = True
next3.Enabled = True
last3.Enabled = True
snoCombox.Visible = False
cnoCombox.Visible = False

Data3.Recordset.Update
Data3.Refresh
End If

End If
End Sub
Private Sub alter3_Click()
On Error Resume Next
If alter3.Caption = "修改" Then
alter3.Caption = "确认"
add3.Enabled = False
delt3.Enabled = False
find3.Enabled = False
cancel3.Enabled = True
Data3.Recordset.Edit
tno.SetFocus
Else
alter3.Caption = "修改"
Data3.Recordset.Update
Data3.Refresh
add3.Enabled = True
delt3.Enabled = True
find3.Enabled = True
End If
End Sub
Private Sub cancel3_Click()
On Error Resume Next
add3.Caption = "新增": alter3.Caption = "修改"
add3.Enabled = True: alter3.Enabled = True
delt3.Enabled = True
find3.Enabled = True
cancel3.Enabled = False

first3.Enabled = True
prev3.Enabled = True
next3.Enabled = True
last3.Enabled = True
textxsno.Visible = True
Textxcno.Visible = True
snoCombox.Visible = False
cnoCombox.Visible = False

Data3.UpdateControls
Data3.Recordset.MoveFirst
End Sub

Private Sub delt3_Click()
On Error Resume Next
add3.Enabled = False
alter3.Enabled = False
find3.Enabled = False
j = MsgBox("你确认要删除？", vbExclamation + vbOKCancel, "确认窗口")
If j = 1 Then
Data3.Recordset.delete
Data3.Recordset.MoveNext
If Data3.Recordset.EOF Then Data3.Recordset.MoveLast
Data3.Refresh
add3.Enabled = True
delt3.Enabled = True
alter3.Enabled = True
find3.Enabled = True
ElseIf j = 2 Then
add3.Enabled = True
delt3.Enabled = True
alter3.Enabled = True
find3.Enabled = True
End If
End Sub
Private Sub find3_Click()
mno = InputBox("请输入学生学号" + Chr(13) + Chr(10) + "然后单击确定：", "查找窗口 ")
Data3.Recordset.FindFirst "sno='" & mno & "'"
If Data3.Recordset.NoMatch Then MsgBox "无此学生选课" + Chr(13) + Chr(10) + "或取消了此次操作", vbExclamation, "提示"
End Sub
Private Sub first3_Click()
Data3.Recordset.MoveFirst
End Sub
Private Sub last3_Click()
Data3.Recordset.MoveLast
End Sub
Private Sub next3_Click()
Data3.Recordset.MoveNext
If Data3.Recordset.EOF Then Data3.Recordset.MoveLast
End Sub
Private Sub prev3_Click()
Data3.Recordset.MovePrevious
If Data3.Recordset.BOF Then Data3.Recordset.MoveFirst
End Sub
Private Function snocomboxshow()
Set db = OpenDatabase(dataname)
Set rs = db.OpenRecordset("stu")
snoCombox.Clear
rs.MoveFirst
Do While Not rs.EOF
snoCombox.AddItem (rs.Fields("sno") + Chr(32) + rs.Fields("sname"))
rs.MoveNext
Loop
rs.Close
db.Close
End Function
Private Function cnocomboxshow()
Set db = OpenDatabase(dataname)
Set rs = db.OpenRecordset("course")
cnoCombox.Clear
rs.MoveFirst
Do While Not rs.EOF
cnoCombox.AddItem (rs.Fields("cno") + Chr(32) + rs.Fields("cname"))
rs.MoveNext
Loop
rs.Close
db.Close
End Function
Private Sub snoCombox_click()
textxsno = Left$(snoCombox.Text, 5)
textxsname = Mid(snoCombox.Text, 7)
snoCombox.Visible = False
textxsno.Visible = True
End Sub
Private Sub cnoCombox_click()
Textxcno = Left$(cnoCombox.Text, 3)
textxcname = Mid(cnoCombox.Text, 5)
cnoCombox.Visible = False
Textxcno.Visible = True
End Sub
Private Function searchercourse(mno) As Integer
Dim rs As Recordset
Set db = OpenDatabase(dataname)
Set rs = db.OpenRecordset("course")
rs.MoveFirst
a = rs.Fields("cno")
Do While Not rs.EOF And (rs.Fields("cno").Value <> mno)
rs.MoveNext
Loop
If rs.EOF Then
searchercourse = 0
Else: searchercourse = 1
End If
End Function
Private Sub Textxcno_Change()
textxcname = textxcnameshow(Textxcno)
End Sub

Private Sub textxsno_Change()
textxsname = textxsnameshow(textxsno)
End Sub

Private Function textxsnameshow(mno) As String
Set db = OpenDatabase(dataname)
Set rs = db.OpenRecordset("stu")
On Error GoTo quit
rs.MoveFirst
Do While Not rs.EOF And rs.Fields("sno") <> mno
rs.MoveNext
Loop
textxsnameshow = rs.Fields("sname")
rs.Close
db.Close
quit:
End Function

Private Function textxcnameshow(mno) As String
Set db = OpenDatabase(dataname)
Set rs = db.OpenRecordset("course")
On Error GoTo quit
rs.MoveFirst
Do While Not rs.EOF And rs.Fields("cno") <> mno
rs.MoveNext
Loop
textxcnameshow = rs.Fields("cname")
rs.Close
db.Close
quit:
End Function




Private Sub add4_Click()
On Error Resume Next
If add4.Caption = "新增" Then
add4.Caption = "确认"
delt4.Enabled = False
alter4.Enabled = False
find4.Enabled = False
cancel4.Enabled = True
first4.Enabled = False
prev4.Enabled = False
next4.Enabled = False
last4.Enabled = False

Data4.Recordset.AddNew
tno.SetFocus
Else

If texttno = "" Or texttname = "" Then
MsgBox "新增记录填写不完整！", vbExclamation + vbOKOnly, "提示"

Else
add4.Caption = "新增"
add4.Enabled = True
delt4.Enabled = True
alter4.Enabled = True
find3.Enabled = True
Data4.Recordset.Update
Data4.Refresh
End If

End If
End Sub
Private Sub alter4_Click()
On Error Resume Next
If alter4.Caption = "修改" Then
alter4.Caption = "确认"
add4.Enabled = False
delt4.Enabled = False
find4.Enabled = False
cancel4.Enabled = True
Data4.Recordset.Edit
tno.SetFocus
Else
alter4.Caption = "修改"
Data4.Recordset.Update
Data4.Refresh
add4.Enabled = True
delt4.Enabled = True
find4.Enabled = True
End If
End Sub
Private Sub cancel4_Click()
On Error Resume Next
add4.Caption = "新增": alter4.Caption = "修改"
add4.Enabled = True: alter4.Enabled = True
delt4.Enabled = True
find4.Enabled = True
cancel4.Enabled = False
first4.Enabled = True
prev4.Enabled = True
next4.Enabled = True
last4.Enabled = True

Data4.UpdateControls
Data4.Recordset.MoveFirst
End Sub

Private Sub delt4_Click()
On Error Resume Next
add4.Enabled = False
alter4.Enabled = False
find4.Enabled = False
j = MsgBox("你确认要删除？", vbExclamation + vbOKCancel, "确认窗口")

If j = 1 Then
If searchertno(texttno) = 1 Then
add4.Enabled = True
delt4.Enabled = True
alter4.Enabled = True
find4.Enabled = True
cancel4.Enabled = False
Data4.UpdateControls
Data4.Recordset.MoveFirst
Exit Sub
End If
Data4.Recordset.delete
Data4.Recordset.MoveNext
If Data4.Recordset.EOF Then Data4.Recordset.MoveLast
Data4.Refresh
add4.Enabled = True
delt4.Enabled = True
alter4.Enabled = True
find4.Enabled = True
cancel4.Enabled = False
ElseIf j = 2 Then
add4.Enabled = True
delt4.Enabled = True
alter4.Enabled = True
find4.Enabled = True
End If


End Sub

Private Sub find4_Click()
mno = InputBox("请输入教师编号" + Chr(13) + Chr(10) + "然后单击确定：", "查找窗口 ")
Data4.Recordset.FindFirst "tno='" & mno & "'"
If Data4.Recordset.NoMatch Then MsgBox "无此教师编号" + Chr(13) + Chr(10) + "或取消了此次操作", vbExclamation, "提示"
End Sub
Private Sub first4_Click()
Data4.Recordset.MoveFirst
End Sub
Private Sub last4_Click()
Data4.Recordset.MoveLast
End Sub
Private Sub next4_Click()
Data4.Recordset.MoveNext
If Data4.Recordset.EOF Then Data4.Recordset.MoveLast
End Sub
Private Sub prev4_Click()
Data4.Recordset.MovePrevious
If Data4.Recordset.BOF Then Data4.Recordset.MoveFirst
End Sub

Private Function searchertno(mno) As Integer
Data2.Recordset.FindFirst "tno='" & mno & "'"
If Data2.Recordset.NoMatch = False Then
MsgBox "此教师教有课程" + Chr(13) + Chr(10) + "不能删除此教师！", vbExclamation + vbOKOnly, "提示"
searcherteacher = 1
End If
Dim rs As Recordset
Set db = OpenDatabase(dataname)
Set rs = db.OpenRecordset("course")
rs.MoveFirst
Do While Not rs.EOF And rs.Fields("cno") <> mno
rs.MoveNext
Loop
If rs.EOF Then
searcherteacher = 1
Else: searcherteacher = 0
End If

End Function