frmcongdu.frm

网上教务管理系统 包括（教师

            Left            =   4830
            TabIndex        =   10
            Top             =   210
            Width           =   1155
         End
         Begin VB.Label Label1 
            Caption         =   "试读是否合格:"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   315
            Index           =   8
            Left            =   4830
            TabIndex        =   9
            Top             =   900
            Width           =   1845
         End
      End
   End
   Begin MSDBGrid.DBGrid DBGrid1 
      Bindings        =   "FRMCONGDU.frx":054C
      Height          =   3195
      Left            =   60
      OleObjectBlob   =   "FRMCONGDU.frx":055C
      TabIndex        =   1
      Top             =   3210
      Width           =   9375
   End
   Begin VB.Frame Frame2 
      Height          =   3225
      Left            =   7950
      TabIndex        =   0
      Top             =   -60
      Width           =   1455
      Begin VB.CommandButton Command10 
         Caption         =   "下条"
         Height          =   315
         Left            =   210
         TabIndex        =   30
         Top             =   2550
         Width           =   1125
      End
      Begin VB.CommandButton Command9 
         Caption         =   "上条"
         Height          =   315
         Left            =   210
         TabIndex        =   29
         Top             =   2250
         Width           =   1125
      End
      Begin VB.CommandButton Command8 
         Caption         =   "末条"
         Height          =   315
         Left            =   210
         TabIndex        =   28
         Top             =   1950
         Width           =   1125
      End
      Begin VB.CommandButton Command7 
         Caption         =   "首条"
         Height          =   315
         Left            =   210
         TabIndex        =   27
         Top             =   1650
         Width           =   1125
      End
      Begin VB.Data Data1 
         Appearance      =   0  'Flat
         Caption         =   "Data1"
         Connect         =   "Access"
         DatabaseName    =   ""
         DefaultCursorType=   0  'DefaultCursor
         DefaultType     =   2  'UseODBC
         Exclusive       =   0   'False
         Height          =   315
         Left            =   -960
         Options         =   0
         ReadOnly        =   0   'False
         RecordsetType   =   1  'Dynaset
         RecordSource    =   ""
         Top             =   660
         Visible         =   0   'False
         Width           =   1140
      End
      Begin VB.CommandButton Command5 
         Caption         =   "定位"
         Height          =   315
         Left            =   210
         TabIndex        =   22
         Top             =   1350
         Width           =   1125
      End
      Begin VB.CommandButton Command4 
         Caption         =   "保存"
         Height          =   315
         Left            =   210
         TabIndex        =   21
         Top             =   1050
         Width           =   1125
      End
      Begin VB.CommandButton Command3 
         Caption         =   "修改"
         Height          =   315
         Left            =   210
         TabIndex        =   20
         Top             =   750
         Width           =   1125
      End
      Begin VB.CommandButton Command2 
         Caption         =   "删除"
         Height          =   315
         Left            =   210
         TabIndex        =   19
         Top             =   450
         Width           =   1125
      End
      Begin VB.CommandButton Command1 
         Caption         =   "添加"
         Height          =   315
         Left            =   210
         TabIndex        =   18
         Top             =   150
         Width           =   1125
      End
      Begin VB.CommandButton Command6 
         Caption         =   "退出"
         Height          =   315
         Left            =   210
         TabIndex        =   17
         Top             =   2859
         Width           =   1125
      End
   End
End
Attribute VB_Name = "FRMCONGDU"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim baddnew As Boolean
Dim datcongdu, datstud As Database
Private Sub Combo1_Click()
Dim SQLBJ, sqlxh As String
Dim RECBJ, recxh As Recordset
Dim I As Integer
On Error GoTo err
Combo3.Clear
Combo4.Clear
SQLBJ = "SELECT DISTINCT BANJMC FROM BANJGL WHERE YX='" + Trim(Combo1.Text) + "'"
Set RECBJ = datcongdu.OpenRecordset(SQLBJ, dbOpenSnapshot)
If Not RECBJ.BOF Then RECBJ.MoveFirst
For I = 0 To RECBJ.RecordCount - 1
Combo3.AddItem RECBJ.Fields(0)
Combo4.AddItem RECBJ.Fields(0)
If Not RECBJ.EOF Then RECBJ.MoveNext
Next I
RECBJ.Close

Set datstud = OpenDatabase(App.Path + "\database\student.mdb", False, False, ";PWD=62414968;")
sqlxh = "select distinct xh from zbqkb where yx like '" & Trim(Combo1.Text) & "'"
Set recxh = datstud.OpenRecordset(sqlxh, dbOpenDynaset)
If Not recxh.BOF And recxh.EOF Then recxh.MoveFirst
For I = 0 To recxh.RecordCount - 1
Combo2.AddItem recxh.Fields(0).Value
recxh.MoveNext
Next I
'End If
recxh.Close




Exit Sub
err:
MsgBox err.Description, vbCritical, "出错提示"
End Sub

Private Sub Combo2_Click()
Dim sqlxm As String
Dim recxm As Recordset
On Error Resume Next
Text1.Text = ""
'Set datstud = OpenDatabase(App.Path + "\database\student.mdb", False, False, ";PWD=62414968;")
sqlxm = "select distinct xm from zbqkb where xh= '" & Trim(Combo2.Text) & "'"
Set recxm = datstud.OpenRecordset(sqlxm, dbOpenDynaset)
If Not recxm.EOF And recxm.BOF Then recxm.MoveFirst
Text1.Text = recxm.Fields(0).Value
recxm.Close
datstud.Close

End Sub

Private Sub Command1_Click()
Dim SQLYX As String
Dim RECYX As Recordset
Dim I As Integer
Data1.Recordset.AddNew
baddnew = True
Combo1.Clear
Combo2.Clear
Combo3.Clear
Combo4.Clear
Text1.Text = ""
Text2.Text = ""
Set datcongdu = OpenDatabase(App.Path + "\DATABASE\MARK.MDB", , False)
SQLYX = "SELECT DISTINCT YX FROM BANJGL "
Set RECYX = datcongdu.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

Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command5.Caption = "取消"
Command4.Enabled = True
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False

End Sub

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

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

Private Sub Command3_Click()
baddnew = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command5.Caption = "取消"
Command4.Enabled = True
Data1.Recordset.Edit
End Sub

Private Sub Command4_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

If MsgBox("数据已经保存，再输入下一数据？", vbQuestion + vbYesNo) = vbNo Then
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command5.Caption = "定位"
Command4.Enabled = False
Command7.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = True
baddnew = False
Exit Sub
Else
Call Command1_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 Command5_Click()
Select Case Command5.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
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command5.Caption = "定位"
Command4.Enabled = False
Command7.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = True
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
Else
'Data1.Recordset.Update
Data1.Recordset.CancelUpdate
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command5.Caption = "定位"
Command4.Enabled = False
End If
End Select
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

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

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

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

End Sub

Private Sub Form_Activate()
SSTab1.Tab = 0
SSTab1.SetFocus
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path + "\database\mark.mdb"
Data1.RecordSource = "chongdu"
Command4.Enabled = False

End Sub