📄 frmadmin.frm
字号:
DataSource = "Data1"
Height = 270
Left = 3240
TabIndex = 3
Top = 440
Width = 1000
End
Begin VB.TextBox textsno
DataField = "sno"
DataSource = "Data1"
Height = 270
Left = 1200
TabIndex = 2
Top = 440
Width = 885
End
Begin VB.Label Label17
Height = 615
Left = 4800
TabIndex = 82
Top = 360
Width = 375
End
Begin VB.Label Label1
Caption = "学 号"
Height = 255
Left = 600
TabIndex = 16
Top = 495
Width = 495
End
Begin VB.Label Label2
Caption = "姓 名"
Height = 255
Left = 2640
TabIndex = 15
Top = 500
Width = 495
End
Begin VB.Label Label3
Caption = "性 别"
Height = 255
Left = 600
TabIndex = 14
Top = 960
Width = 615
End
Begin VB.Label Label4
Caption = "系 别"
Height = 255
Left = 2640
TabIndex = 13
Top = 960
Width = 615
End
End
End
End
Attribute VB_Name = "frmadmin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim dataname As String
Private Sub form_load()
dataname = App.Path & "\aaaa.mdb"
data1.DatabaseName = dataname
Data2.DatabaseName = dataname
Data3.DatabaseName = dataname
Data4.DatabaseName = dataname
End Sub
Private Sub add1_Click()
On Error Resume Next
If add1.Caption = "新增" Then
add1.Caption = "确认"
delt1.Enabled = False
alter1.Enabled = False
find1.Enabled = False
cancel1.Enabled = True
first1.Enabled = False
prev1.Enabled = False
next1.Enabled = False
last1.Enabled = False
data1.Recordset.AddNew
textsno.SetFocus
Else
If textsno = "" Or textsname = "" Or sexCombox = "" Or textsdept = "" Then
MsgBox "新增记录填写不完整！", vbExclamation + vbOKOnly, "提示"
Else
add1.Caption = "新增"
add1.Enabled = True
delt1.Enabled = True
alter1.Enabled = True
find1.Enabled = True
data1.Recordset.Update
data1.Refresh
End If
End If
End Sub
Private Sub alter1_Click()
On Error Resume Next
If alter1.Caption = "修改" Then
alter1.Caption = "确认"
add1.Enabled = False
delt1.Enabled = False
find1.Enabled = False
cancel1.Enabled = True
data1.Recordset.Edit
textsno.SetFocus
Else
alter1.Caption = "修改"
data1.Recordset.Update
data1.Refresh
add1.Enabled = True
delt1.Enabled = True
find1.Enabled = True
cancel1.Enabled = False
End If
End Sub
Private Sub cancel1_Click()
On Error Resume Next
add1.Caption = "新增": alter1.Caption = "修改"
add1.Enabled = True: alter1.Enabled = True
delt1.Enabled = True
find1.Enabled = True
cancel1.Enabled = False
first1.Enabled = True
prev1.Enabled = True
next1.Enabled = True
last1.Enabled = True
data1.UpdateControls
data1.Recordset.MoveFirst
End Sub
Private Sub delt1_Click()
add1.Enabled = False
alter1.Enabled = False
find1.Enabled = False
j = MsgBox("你将删除次学生的记录，包括选课纪录！" + Chr(13) + Chr(10) + "确认要删除？", vbExclamation + vbOKCancel, "确认窗口")
If j = 1 Then
Call delete(sno)
data1.Recordset.delete
data1.Recordset.MoveNext
If data1.Recordset.EOF Then data1.Recordset.MoveLast
data1.Refresh
add1.Enabled = True
delt1.Enabled = True
alter1.Enabled = True
find1.Enabled = True
ElseIf j = 2 Then
add1.Enabled = True
delt1.Enabled = True
alter1.Enabled = True
find1.Enabled = True
End If
End Sub
Private Sub find1_Click()
On Error Resume Next
mno = InputBox("请输入学生学号" + Chr(13) + Chr(10) + "然后单击确定：", "查找窗口")
data1.Recordset.FindFirst "sno='" & mno & "'"
If data1.Recordset.NoMatch Then MsgBox "无此学号" + Chr(13) + Chr(10) + "或取消了此次操作！", vbExclamation, "提示"
End Sub
Private Sub first1_Click()
data1.Recordset.MoveFirst
End Sub
Private Sub last1_Click()
data1.Recordset.MoveLast
End Sub
Private Sub MSFlexGrid1_Click()
Label17.Caption = MSFlexGrid1.Row
Frame2.Caption = "第 " & (MSFlexGrid1.RowSel) & " 条记录"
End Sub
Private Sub next1_Click()
data1.Recordset.MoveNext
If data1.Recordset.EOF Then data1.Recordset.MoveLast
End Sub
Private Sub prev1_Click()
data1.Recordset.MovePrevious
If data1.Recordset.BOF Then data1.Recordset.MoveFirst
End Sub
Private Function delete(mno)
On Error Resume Next
Set db = OpenDatabase(dataname)
sql = "delete * from cselect where sno='" & mno & "' "
db.Execute sql
db.Close
End Function
Private Sub add2_Click()
On Error Resume Next
If add2.Caption = "新增" Then
add2.Caption = "确认"
delt2.Enabled = False
alter2.Enabled = False
find2.Enabled = False
cancel2.Enabled = True
first2.Enabled = False
prev2.Enabled = False
next2.Enabled = False
last2.Enabled = False
textctno.Visible = False
tnoCombox.Visible = True
Data2.Recordset.AddNew
Call tnocomboxshow
textcno.SetFocus
Else
If textcno = "" Or textcname = "" Or textctno = "" Then
j = MsgBox("新增记录填写不完整！", vbExclamation + vbOKOnly, "提示")
Else
Data2.Recordset.Update
Data2.Refresh
add2.Caption = "新增"
add2.Enabled = True
delt2.Enabled = True
alter2.Enabled = True
find2.Enabled = True
cancel2.Enabled = False
first2.Enabled = True
prev2.Enabled = True
next2.Enabled = True
last2.Enabled = True
Data2.Refresh
End If
End If
End Sub
Private Sub alter2_Click()
On Error Resume Next
If alter2.Caption = "修改" Then
alter2.Caption = "确认"
add2.Enabled = False
delt2.Enabled = False
find2.Enabled = flase
cancel2.Enabled = True
Data2.Recordset.Edit
cno.Locked = True
cname.SetFocus
Else
alter2.Caption = "修改"
Data2.Recordset.Update
Data2.Refresh
add2.Enabled = True
delt2.Enabled = True
find2.Enabled = True
cno.Locked = False
cno.SetFocus
End If
End Sub
Private Sub cancel2_Click()
On Error Resume Next
add2.Caption = "新增": alter2.Caption = "修改"
add2.Enabled = True: alter2.Enabled = True
delt2.Enabled = True
find2.Enabled = True
cancel2.Enabled = False
first2.Enabled = True
prev2.Enabled = True
next2.Enabled = True
last2.Enabled = True
tnoCombox.Visible = False
textctno.Visible = True
Data2.UpdateControls
Data2.Recordset.MoveFirst
End Sub
Private Sub delt2_Click()
add2.Enabled = False
alter2.Enabled = False
find2.Enabled = False
j = MsgBox("你确认要删除？", vbExclamation + vbOKCancel, "确认窗口")
If j = 1 Then
If searchercno(textcno) = 1 Then
add2.Enabled = True
delt2.Enabled = True
alter2.Enabled = True
find2.Enabled = True
cancel2.Enabled = False
Data2.UpdateControls
Data2.Recordset.MoveFirst
Exit Sub
End If
Data2.Recordset.delete
Data2.Recordset.MoveNext
If Data2.Recordset.EOF Then Data2.Recordset.MoveLast
Data2.Refresh
add2.Enabled = True
delt2.Enabled = True
alter2.Enabled = True
find2.Enabled = True
cancel2.Enabled = False
ElseIf j = 2 Then
add2.Enabled = True
delt2.Enabled = True
alter2.Enabled = True
find2.Enabled = True
End If
End Sub
Private Sub find2_Click()
On Error Resume Next
mno = InputBox("请输入课程号" + Chr(13) + Chr(10) + "然后单击确定：", "查找窗口")
Data2.Recordset.FindFirst "cno='" & mno & "'"
If Data2.Recordset.NoMatch Then MsgBox "无此课程号" + Chr(13) + Chr(10) + "或取消了此次操作！", vbExclamation, "提示"
End Sub
Private Sub first2_Click()
Data2.Recordset.MoveFirst
End Sub
Private Sub last2_Click()
Data2.Recordset.MoveLast
End Sub
Private Sub next2_Click()
Data2.Recordset.MoveNext
If Data2.Recordset.EOF Then Data2.Recordset.MoveLast
End Sub
Private Sub pre2_Click()
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then Data2.Recordset.MoveFirst
End Sub
Private Sub prev2_Click()
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then Data2.Recordset.MoveFirst
End Sub
Private Function tnocomboxshow()
Set db = OpenDatabase(dataname)
Set rs = db.OpenRecordset("teacher")
tnoCombox.Clear
rs.MoveFirst
Do While Not rs.EOF
tnoCombox.AddItem (rs.Fields("tno") + Chr(32) + rs.Fields("tname"))
rs.MoveNext
Loop
rs.Close
db.Close
End Function
Private Sub textctno_Change()
textctname = textctnameshow(textctno)
End Sub
Private Sub tnoCombox_click()
textctno = Left$(tnoCombox.Text, 3)
textctname = Mid(tnoCombox.Text, 5)
cnoCombox.Visible = False
textctno.Visible = True
End Sub
Private Function searchercno(mno) As Integer
Data3.Recordset.FindFirst "cno='" & mno & "'"
If Data3.Recordset.NoMatch = False Then
MsgBox "有学生选择此课程" + Chr(13) + Chr(10) + "不能删除此课程！", vbExclamation + vbOKOnly, "提示"
searchercno = 1
Else: searchercno = 0
End If
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -