📄 frmxxkc.frm

📁 网上教务管理系统包括（教师
💻 FRM
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
          Combo3.AddItem reczd.Fields(I).Name
        Next I
End If


'COMBO3.IntegralHeight=False
End Sub

Private Sub Combo3_Click()

Dim dstu As Database
Dim dxh As Recordset
Dim sqlxh As String
Dim lenth1, lenth2 As Integer
Set dstu = OpenDatabase(App.Path + "\database\student.mdb", True, False, ";PWD=62414968;")
lenth1 = Len(Trim(Combo3.Text))
lenth2 = Len(Trim(Combo2.Text))
sqlxh = "select distinct XH from ZBQKB where XM = '" & Left(Trim(Combo3.Text), lenth1 - 2) & "' and bj= '" & Right(Trim(Combo2.Text), lenth2 - 2) & "' and yx= '" & Trim(Combo1.Text) & "'"
Set dxh = dstu.OpenRecordset(sqlxh, dbOpenDynaset)
If dxh.EOF And dxh.BOF Then
Text4.Text = ""
Else
dxh.MoveFirst
Text4.Text = dxh.Fields(0).Value
End If
If Right(Trim(Text4.Text), 2) <> Right(Trim(Combo3.Text), 2) Then MsgBox err.Description & "请检查是否班中有两个同名的学生!"
'End If
dxh.Close
dstu.Close
End Sub

Private Sub Combo6_Click()
Dim SQLBJ As String
Dim RECBJ As Recordset
Dim I As Integer
Combo7.Clear
SQLBJ = "SELECT DISTINCT BANJMC FROM BANJGL WHERE YX='" + Trim(Combo6.Text) + "'"
Set RECBJ = DAT.OpenRecordset(SQLBJ, dbOpenSnapshot)
If Not RECBJ.BOF Then RECBJ.MoveFirst
For I = 0 To RECBJ.RecordCount - 1
Combo7.AddItem RECBJ.Fields(0)
If Not RECBJ.EOF Then RECBJ.MoveNext
Next I
End Sub

Private Sub Combo7_Click()
Dim sqlzd As String
Dim reczd As Recordset
Combo8.Clear

If Not IsNull(Combo7.ListIndex) Then
     sqlzd = "select * from " + Trim(Combo7.Text) + ""
     Set reczd = Nothing
        Set reczd = DAT.OpenRecordset(sqlzd, dbOpenDynaset)
        For I = 4 To reczd.Fields.Count - 1
          Combo8.AddItem reczd.Fields(I).Name
        Next I
End If
End Sub

Private Sub Combo8_Click()
On Error GoTo err
Dim dstu As Database
Dim dxh As Recordset
Dim sqlxh As String
Dim lenth1, lenth2 As Integer
Set dstu = OpenDatabase(App.Path + "\database\student.mdb", True, False, ";PWD=62414968;")
lenth1 = Len(Trim(Combo8.Text))
lenth2 = Len(Trim(Combo7.Text))
sqlxh = "select distinct XH from ZBQKB where XM = '" & Left(Trim(Combo8.Text), lenth1 - 2) & "' and bj= '" & Right(Trim(Combo7.Text), lenth2 - 2) & "' and yx= '" & Trim(Combo6.Text) & "'"
Set dxh = dstu.OpenRecordset(sqlxh, dbOpenDynaset)
If Not dxh.EOF And dxh.BOF Then dxh.MoveFirst
Text5.Text = dxh.Fields(0).Value
If Right(Trim(Text5.Text), 2) <> Right(Trim(Combo8.Text), 2) Then MsgBox err.Description & "请检查是否班中有两个同名的学生!"
'End If
dxh.Close
dstu.Close
Exit Sub
err:
MsgBox err.Description
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Command10_Click()
With Data1.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast
End With
End Sub

Private Sub Command11_Click()
Dim SQLYX As String
Dim RECYX As Recordset
Dim I As Integer
Data1.Recordset.AddNew
BADDNEW = True
Combo6.Clear
Combo7.Clear
Combo8.Clear
Set DAT = OpenDatabase(App.Path + "\DATABASE\MARK.MDB", , False)
SQLYX = "SELECT DISTINCT YX FROM BANJGL "
Set RECYX = DAT.OpenRecordset(SQLYX, dbOpenSnapshot)
If Not RECYX.BOF Then RECYX.MoveFirst
For I = 0 To RECYX.RecordCount - 1
Combo6.AddItem RECYX.Fields(0).Value
If Not RECYX.EOF Then RECYX.MoveNext
Next I
Combo7.Text = ""
Combo8.Text = ""
Combo5.Text = ""
Text8.Text = ""
Text7.Text = ""
Text6.Text = ""
Command10.Enabled = False
Command9.Enabled = False
Command7.Caption = "取消"
Command8.Enabled = True
Command13.Enabled = False
Command14.Enabled = False
Command15.Enabled = False
Command16.Enabled = False

End Sub

Private Sub Command12_Click()
Unload Me
End Sub

Private Sub Command13_Click()
Data1.Recordset.MoveFirst
End Sub

Private Sub Command14_Click()
Data1.Recordset.MoveLast
End Sub

Private Sub Command15_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst
End Sub

Private Sub Command16_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Data1.Recordset.MoveLast
End Sub

Private Sub Command2_Click()
Dim SQLYX As String
Dim RECYX As Recordset
Dim I As Integer
Data1.Recordset.AddNew
BADDNEW = True
Combo1.Clear
Combo2.Clear
Combo3.Clear
Set DAT = OpenDatabase(App.Path + "\DATABASE\MARK.MDB", , False)
SQLYX = "SELECT DISTINCT YX FROM BANJGL "
Set RECYX = DAT.OpenRecordset(SQLYX, dbOpenSnapshot)
If Not RECYX.BOF Then RECYX.MoveFirst
For I = 0 To RECYX.RecordCount - 1
Combo1.AddItem RECYX.Fields(0).Value
If Not RECYX.EOF Then RECYX.MoveNext
Next I
Combo2.Text = ""
Combo3.Text = ""
Combo4.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Command3.Enabled = False
Command4.Enabled = False
Command6.Caption = "取消"
Command5.Enabled = True
Command13.Enabled = False
Command14.Enabled = False
Command15.Enabled = False
Command16.Enabled = False

'Command5.Caption = "取消"
'Data1.Recordset.MoveLast

End Sub

Private Sub Command3_Click()
'Data1.Recordset.Delete
With Data1.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast
End With

End Sub

Private Sub Command4_Click()
BADDNEW = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command6.Caption = "取消"
Command5.Enabled = True
Data1.Recordset.Edit
End Sub

Private Sub Command5_Click()
On Error GoTo err
If BADDNEW = True Then
If Combo1.Text = "" And Combo2.Text = "" And Combo3.Text = "" Then MsgBox "记录不能为空,请再次输入": Exit Sub: Combo1.SetFocus
Data1.Recordset.Update
Data1.Refresh
DBGrid1.Refresh
Command3.Enabled = True
Command4.Enabled = True
Command6.Caption = "定位"
Command5.Enabled = False
Command13.Enabled = True
Command14.Enabled = True
Command15.Enabled = True
Command16.Enabled = True
If MsgBox("数据已经保存，再输入下一数据？", vbQuestion + vbYesNo) = vbNo Then
Exit Sub
Else
Call Command2_Click
End If
Else
If MsgBox("确信要修改此条记录？", vbQuestion + vbYesNo) = vbNo Then
Exit Sub
Else
Data1.Recordset.Update
Data1.Refresh
DBGrid1.Refresh
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command6.Caption = "定位"
Command5.Enabled = False



End If


End If

Exit Sub
err:
MsgBox err.Description & "请检查是否数据有误"
End Sub

Private Sub Command6_Click()
Select Case Command6.Caption
Case "定位"
Dim AA As String
AA = InputBox("请输入学号以进行准确定位", "记录定位")
If AA = "" Then
Exit Sub
Else
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst "学号 like " & AA
End If
Case "取消"
If BADDNEW = True Then
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command6.Caption = "定位"
Command5.Enabled = False
Command13.Enabled = True
Command14.Enabled = True
Command15.Enabled = True
Command16.Enabled = True
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
Else
'Data1.Recordset.Update
Data1.Recordset.CancelUpdate
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command6.Caption = "定位"
Command5.Enabled = False
End If
End Select
End Sub

Private Sub Command7_Click()
Select Case Command7.Caption
Case "定位"
Dim AA As String
AA = InputBox("请输入学号以进行准确定位", "记录定位")
If AA = "" Then
Exit Sub
Else
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst "学号 like " & AA
End If
Case "取消"
If BADDNEW = True Then
Command11.Enabled = True
Command10.Enabled = True
Command9.Enabled = True
Command13.Enabled = True
Command14.Enabled = True
Command15.Enabled = True
Command16.Enabled = True

Command7.Caption = "定位"
Command8.Enabled = False
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
Else
'Data1.Recordset.Update
Data1.Recordset.CancelUpdate
Command11.Enabled = True
Command10.Enabled = True
Command9.Enabled = True
Command7.Caption = "定位"
Command8.Enabled = False
End If
End Select
End Sub

Private Sub Command8_Click()

'If IsNull(Text6.Text) Then MsgBox "学分栏数据输入有误,请重新输入!": Text6.Text = "": Exit Sub: Text6.SetFocus
'If IsNull(Text8.Text) Then MsgBox "成绩栏数据输入有误,请重新输入!": Text8.Text = "": Exit Sub: Text8.SetFocus
On Error GoTo err
If BADDNEW = True Then
If Combo6.Text = "" And Combo7.Text = "" And Combo8.Text = "" Then MsgBox "记录不能为空,请再次输入": Exit Sub: Combo1.SetFocus
Data1.Recordset.Update
Data1.Refresh
DBGrid1.Refresh
Command10.Enabled = True
Command9.Enabled = True
Command7.Caption = "定位"
Command8.Enabled = False
Command13.Enabled = True
Command14.Enabled = True
Command15.Enabled = True
Command16.Enabled = True
BADDNEW = False
If MsgBox("数据已经保存，再输入下一数据？", vbQuestion + vbYesNo) = vbNo Then
Exit Sub
Else
Call Command11_Click
End If
Else
If MsgBox("确信要修改此条记录？", vbQuestion + vbYesNo) = vbNo Then
Exit Sub
Else
Data1.Recordset.Update
Data1.Refresh
DBGrid1.Refresh
Command11.Enabled = True
Command10.Enabled = True
Command9.Enabled = True
Command7.Caption = "定位"
Command8.Enabled = False



End If


End If

Exit Sub
err:
MsgBox err.Description & "请检查是否数据有误"
End Sub

Private Sub Command9_Click()
BADDNEW = False
Command11.Enabled = False
Command10.Enabled = False
Command9.Enabled = False
Command7.Caption = "取消"
Command8.Enabled = True
Data1.Recordset.Edit
End Sub

Private Sub Form_Load()
On Error GoTo err
Command5.Enabled = False
Frame1(0).Visible = True
BADDNEW = False
Frame1(1).Visible = False
 Command7.Visible = False
 Command8.Visible = False
 Command9.Visible = False
 Command10.Visible = False
 Command11.Visible = False
 Command12.Visible = False
FRAME2.Visible = True
'Frame3.Visible = False
Data1.DatabaseName = App.Path + "\DATABASE\MARK.MDB"
Data1.RecordSource = "XXKC"
Exit Sub
err:
MsgBox err.Description, vbCritical + vbOKOnly, "出错信息提示"
End Sub
Private Sub TabSp1_BeforeClick(Cancel As Integer)
Frame1(TabSp1.SelectedItem.Index - 1).Visible = False
'Select Case TabSp1.SelectedItem.Index
'Case 1
'  DBGrid2.Visible = True
'  Frame3.Visible = True
'  DBGrid1.Visible = True
'  FRAME2.Visible = False
'Case 2
'  DBGrid2.Visible = False
'  Frame3.Visible = False
'  DBGrid1.Visible = True
'  FRAME2.Visible = True
'End Select
End Sub

Private Sub TabSp1_Click()
Frame1(TabSp1.SelectedItem.Index - 1).Visible = True
Select Case TabSp1.SelectedItem.Index
Case 1
 Data1.DatabaseName = App.Path + "\database\mark.mdb"
 Data1.RecordSource = "xxkc"
 Data1.Refresh
 DBGrid1.Refresh
 Command7.Visible = False
 Command8.Visible = False
 Command9.Visible = False
 Command10.Visible = False
 Command11.Visible = False
 Command12.Visible = False
 FRAME2.Visible = True
 
Case 2
 Data1.DatabaseName = App.Path + "\database\mark.mdb"
 Data1.RecordSource = "sxwkc"
 Data1.Refresh
 DBGrid1.Refresh
 Command7.Visible = True
 Command8.Visible = True
 Command9.Visible = True
 Command10.Visible = True
 Command11.Visible = True
 Command12.Visible = True
 Command8.Enabled = False
 'FRAME2.Visible = False
Case 3
' Data1.DatabaseName = App.Path + "\database\mark.mdb"
' Data1.RecordSource = "sxwkc"
' Data1.Refresh
' DBGrid1.Refresh
End Select

End Sub
上一页 1 2 34
💿 文件大小 1810 K
👤 上传用户 foreverxiluzai
📂 所属分类教育系统应用
🏷️ 相关标签

#管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -