frmcourse.frm

课程管理系统 适用于教师

         Caption         =   "修改"
      End
      Begin VB.Menu Spt4 
         Caption         =   "-"
      End
      Begin VB.Menu MnuRefresh 
         Caption         =   "刷新"
      End
   End
   Begin VB.Menu MnuWindow 
      Caption         =   "窗口"
      Begin VB.Menu MnuDepartment 
         Caption         =   "系"
      End
      Begin VB.Menu MnuTeacher 
         Caption         =   "教师"
      End
      Begin VB.Menu MnuStudent 
         Caption         =   "学生"
      End
   End
End
Attribute VB_Name = "FrmCourse"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Option Explicit
Private rs As Recordset
Private ix As Index
'Private rs_s As Recordset

Private Function SaveRecord()
    rs.Fields("附注").Value = Me.TextAnotation.Text + ""
   rs.Fields("节编号").Value = Me.TextClass.Text + ""
   rs.Fields("学分").Value = Me.TextCredit.Text + ""
    rs.Fields("课程名称").Value = Me.TextName.Text + ""
   rs.Fields("地点").Value = Me.TextPlace.Text + ""
   rs.Fields("学期").Value = Me.TextTerm.Text + ""
    rs.Fields("天数与时数").Value = Me.TextTime.Text + ""
    rs.Fields("学年").Value = Me.TextYear.Text + ""
     rs.Fields("系(部门)ID").Value = Me.TextDepartment.Text + ""
    rs.Fields("教师ID").Value = Me.TextTeacher.Text + ""
End Function


Private Sub cmdAdd_Click()
On Error GoTo errhandle:
'rs.Edit
rs.AddNew

Call SaveRecord

    rs.Fields("课程ID").Value = "" + Me.TextID.Text
rs.Update
rs.MoveLast
Call RefreshRecord
Exit Sub
errhandle:
MsgBox Err.Description
End Sub

Private Sub CmdAssignment_Click()
Load FrmAssignment
FrmAssignment.Show
End Sub

Private Sub CmdDelete_Click()
On Error GoTo errhandle:
rs.Delete
CmdNext_Click
Call RefreshRecord
Exit Sub
errhandle:
MsgBox Err.Description
End Sub

Private Sub CmdDepartment_Click()
Load FrmDepartment
FrmDepartment.Show
End Sub

Private Sub CmdEdit_Click()
On Error GoTo errhandle:
rs.Edit
Call SaveRecord
    
rs.Update
Exit Sub
errhandle:
MsgBox Err.Description
End Sub

Private Sub CmdFirst_Click()
rs.MoveFirst
Call RefreshRecord
End Sub

Private Sub CmdIndex_Click()
rs.Index = Me.ComboIndex.Text
rs.Seek Me.ComboOper.Text, Me.TextPara.Text
If rs.Nomatch Then
    MsgBox "没有找到符合条件的记录!"
Else
    Call RefreshRecord
End If
End Sub

Private Sub CmdLast_Click()
rs.MoveLast
    Call RefreshRecord
End Sub

Private Sub CmdMove_Click()
On Error GoTo errhandle:
If Option2.Value = True Then
    rs.Move CInt(Me.TextStep.Text)
    Call RefreshRecord
Else
    rs.Move -CInt(Me.TextStep.Text)
    Call RefreshRecord
End If
Exit Sub
errhandle:
    MsgBox Err.Description
End Sub

Private Sub CmdNext_Click()
On Error GoTo errhandle:
Dim st As String
rs.MoveNext
    Call RefreshRecord
'    st = Me.TextID.Text
'    Set rs_s = db.OpenRecordset("SELECT 课程ID,学生ID FROM 学生和课程 WHERE 课程ID=2")
'    For i = 0 To rs_s.RecordCount - 1
'        Me.ListStudent.AddItem rs_s.Fields("学生ID")
'    Next
'    rs_s.Close
'    Set rs_s = Nothing
Exit Sub
errhandle:
    MsgBox Err.Description
End Sub

Private Sub CmdPrevious_Click()
On Error GoTo errhandle:
    rs.MovePrevious
    Call RefreshRecord
    Exit Sub
errhandle:
    MsgBox Err.Description
End Sub

Private Sub CmdRefresh_Click()
Call RefreshRecord
End Sub

Private Sub CmdStudent_Click()
CourseID = Me.TextID.Text
Load FrmStudent
FrmStudent.Show
End Sub

Private Sub CmdTeacher_Click()
Load FrmTeacher
FrmTeacher.Show
End Sub

Private Sub DBGCourse_Click()

End Sub

Private Sub Form_Load()
On Error GoTo errhandle:
'If FlagOpen Then
    Me.CommonDialog1.ShowOpen
    Set db = OpenDatabase(Me.CommonDialog1.FileName)
    Me.StatusBar1.Panels(1).Text = Left(Me.CommonDialog1.FileName, Len(Me.CommonDialog1.FileName) - Len(Me.CommonDialog1.FileTitle))
    Me.StatusBar1.Panels(2).Text = Me.CommonDialog1.FileTitle
    Set rs = db.OpenRecordset("课程")
    rs.MoveFirst
    Do Until rs.EOF
    rs.MoveNext
    Loop
    'For i = 0 To rs.Fields.Count - 1
    '    Me.ComboField.AddItem rs.Fields(i).Name
    'Next

    'Me.ComboField.ListIndex = 0
    rs.MoveFirst
    Call RefreshRecord
    Me.Option1.Value = False
    Me.Option2.Value = True
    For i = 0 To db.TableDefs("课程").Indexes.Count - 1
        Me.ComboIndex.AddItem db.TableDefs("课程").Indexes(i).Name
    Next
       
    With Me.ComboOper
        .AddItem "="
        .AddItem ">"
        .AddItem "<"
        .AddItem ">="
        .AddItem "<="
    End With
Exit Sub
'End If
errhandle:
    MsgBox Err.Description
End Sub
 Private Function RefreshRecord()
 If rs.BOF Then rs.MoveFirst
 If rs.EOF Then rs.MoveLast
    Me.TextAnotation.Text = rs.Fields("附注").Value & " "
    Me.TextClass.Text = rs.Fields("节编号").Value & ""
    Me.TextCredit.Text = rs.Fields("学分").Value & ""
    Me.TextID.Text = rs.Fields("课程ID").Value & ""
    Me.TextName.Text = rs.Fields("课程名称").Value & ""
    Me.TextPlace.Text = rs.Fields("地点").Value & ""
    Me.TextTerm.Text = rs.Fields("学期").Value & ""
    Me.TextTime.Text = rs.Fields("天数与时数").Value & ""
    Me.TextYear.Text = rs.Fields("学年").Value & ""
    Me.TextDepartment.Text = rs.Fields("系(部门)ID").Value & ""
    Me.TextTeacher.Text = rs.Fields("教师ID").Value & ""
End Function

Private Sub Label12_Click()

End Sub

Private Sub Record_Click()

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Load frmMain
frmMain.Show
End Sub

Private Sub MnuAdd_Click()
cmdAdd_Click
End Sub

Private Sub MnuChangePassword_Click()
Load FrmPassword
FrmPassword.Show
End Sub

Private Sub MnuDelete_Click()
CmdDelete_Click
End Sub

Private Sub MnuDepartment_Click()
CmdDepartment_Click
End Sub

Private Sub MnuEdit_Click()
CmdEdit_Click
End Sub

Private Sub mnuExit_Click()
Me.Visible = False
Unload Me
Unload FrmDepartment
Unload FrmStudent
Unload FrmTeacher
Load frmMain
frmMain.Show
End Sub

Private Sub MnuFirst_Click()
CmdFirst_Click
End Sub

Private Sub MnuLast_Click()
CmdLast_Click
End Sub

Private Sub MnuNext_Click()
CmdNext_Click
End Sub

Private Sub MnuPrevious_Click()
CmdPrevious_Click
End Sub

Private Sub MnuRefresh_Click()
CmdRefresh_Click
End Sub

Private Sub MnuRestart_Click()
Me.Visible = False
Unload Me
Unload FrmDepartment
Unload FrmStudent
Unload FrmTeacher
Load FrmLogin
FrmLogin.Show
End Sub

Private Sub MnuSeek_Click()
CmdIndex_Click
End Sub

Private Sub MnuStep_Click()
CmdMove_Click
End Sub

Private Sub MnuStudent_Click()
CmdStudent_Click
End Sub

Private Sub MnuTeacher_Click()
CmdTeacher_Click
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
    Case "First"
        CmdFirst_Click
    Case "Pre"
        CmdPrevious_Click
    Case "Next"
        CmdNext_Click
    Case "Last"
        CmdLast_Click
    Case "Key"
        MnuRestart_Click
    Case "Lock"
        MnuChangePassword_Click
    Case "Add"
        cmdAdd_Click
    Case "Del"
        CmdDelete_Click
    Case "Edit"
        CmdEdit_Click
    Case "Refresh"
        CmdRefresh_Click
    Case "Stud"
        CmdStudent_Click
    Case "Teac"
        CmdTeacher_Click
    Case "Depart"
        CmdDepartment_Click
End Select
End Sub