教学计划统一管理界面.frm

VB做的排课

Private Sub Command3_Click()
    

    Label6.Caption = "正在进行数据处理，请稍等！"
    
    
    If rst.RecordCount() <> 0 Then
        rst.MoveFirst
        Do Until rst.EOF()
            rst1.AddNew
            rst1.Fields("courseid") = rst.Fields("courseID")
            rst1.Fields("teacherID") = rst.Fields("teacherID")
            rst1.Fields("weeknum") = rst.Fields("weeknum")
            rst1.Fields("classid") = rst.Fields("classid")
            rst1.Fields("coursenum") = rst.Fields("coursenum")
            rst1.Update
            rst.MoveNext
        Loop
      End If
    Label6.Caption = "数据处理理完成！"
End Sub

Private Sub Command4_Click()
    strSQL = "SELECT * FROM bteachplantemp"
    strSQL1 = "SELEST * FROM bteachplant"
    Label10.Caption = "正在进行数据处理，请稍等！"
    
    If rst.RecordCount() <> 0 Then
      rst.MoveFirst
      Do Until rst.EOF
        rst.Delete
        rst.MoveNext
      Loop
    End If
    
    
    
    If rst1.RecordCount() <> 0 Then
      rst1.MoveFirst
      Do Until rst1.EOF
        rst1.Delete
        rst1.MoveNext
      Loop
    End If

    Label10.Caption = "数据处理完成！"
End Sub

Private Sub Command5_Click()
clearfield
Txtcourseid.SetFocus
Adodcteachplan.Refresh
End Sub

Private Sub Form_Load()
    strSQL = "SELECT * FROM bteachplantemp"
    strSQL1 = "SELECT * FROM bteachplan"
    ConenctToDatabase
    rst.Open strSQL, db, adOpenKeyset, adLockOptimistic
    rst1.Open strSQL1, db, adOpenKeyset, adLockOptimistic
    If rst.RecordCount() <> 0 Then
       showbutton
       rst.MoveFirst
       Txtcourseid.Text = rst.Fields("CourseID")
       txtteacherid.Text = rst.Fields("teacherID")
       Txtweeknum.Text = rst.Fields("weeknum")
       Txtclassid.Text = rst.Fields("classid")
       
       Cmbtotal.Text = rst.Fields("Coursenum")

    Else
        hidebutton
        clearfield
    End If
    Cmbgradeid.AddItem Year(Date)
    Cmbgradeid.AddItem Year(Date) - 1
    Cmbtotal.AddItem 60
    Cmbtotal.AddItem 40
    Cmbtotal.AddItem 20
    Cmbtotal.AddItem 10
    
'    Cmbegintime.AddItem 1
 '   Cmbegintime.AddItem 11
'    Cmbendtime.AddItem 10
 '   Cmbendtime.AddItem 13
 '   Cmbendtime.AddItem 16
 '   Cmbendtime.AddItem 18
 '   Cmbendtime.AddItem 20
    
    

    
    DataGridcourse.Visible = False
    DataGridteacher.Visible = False
    DataGridclass.Visible = False

    Label6.Caption = "点击<导入教学计划>按钮可以将教学计划导入系统"
     Label10.Caption = "点击<删除教学计划>按钮可以将教学计划库清空"
End Sub








Private Sub Cmddelete_Click()
    
 
    rst.Delete
    rst.Requery
    
    If rst.RecordCount() = 0 Then
       
       clearfield
       hidebutton
       Txtcourseid.SetFocus
       Adodcteachplan.Refresh
       MsgBox "数据库中已经没有记录了！"
       Exit Sub
    End If
    
       
       
    rst.MoveNext
    If rst.EOF = True Then
        rst.MoveLast
    End If
    
    filltext
       

    

    Adodcteachplan.Refresh
    
End Sub




Private Sub Cmdexit_Click()
    db.Close
    Unload Me
    frmmain.Show vbModal
    
End Sub


Private Sub cmdfirst_Click()
    rst.MoveFirst
    filltext
End Sub

Private Sub Cmdlast_Click()
    rst.MoveLast
    filltext
End Sub



Private Sub Cmdnext_Click()
    rst.MoveNext
    If rst.EOF Then
      MsgBox "这是最后一个记录了！"
      rst.MoveLast
    End If
    filltext
End Sub

Private Sub Cmdprevious_Click()
    rst.MovePrevious
    If rst.BOF Then
        MsgBox "这是第一个记录了!"
        rst.MoveFirst
    End If
    filltext
End Sub






    Private Sub Cmdadd_Click()
    Dim strtempsql As String
    strtempsql = "SELECT courseid FROM bteachplantemp"

    temp.Open strtempsql, db, adOpenKeyset, adLockOptimistic
   
   temp.Filter = "courseid='" & Txtcourseid.Text & "'"
   
   If temp.RecordCount <> 0 Then
      MsgBox ("这个专业本课程已存在，您输入的信息不能被保存！")
      temp.Close
      
      Exit Sub
   End If
   temp.Close
   If rst.RecordCount() <> 0 Then
      rst.MoveLast
   End If
   rst.AddNew
   fillrecord
   rst.Update
   rst.Requery
   Txtcourseid.SetFocus
   Adodcteachplan.Refresh

  
   If rst.RecordCount() <> 0 Then
   showbutton
   End If
   
 End Sub




Private Sub DataGrid1_Click()
    rst.Requery
    If rst.RecordCount() = 0 Then
        Exit Sub
    End If
    
    Txtcourseid.Text = DataGrid1.Columns(0).Text
    
    txtteacherid.Text = DataGrid1.Columns(1).Text
    Txtweeknum.Text = DataGrid1.Columns(2).Text
    Cmbtotal.Text = DataGrid1.Columns(3).Text
    Txtclassid.Text = DataGrid1.Columns(4).Text
    Cmbegintime.Visible = False
    Cmbendtime.Visible = False
    
End Sub

Private Sub DataGridclass_Click()
    DataGridclass.Refresh
    If DataGridclass.Columns(0).Text = "" Then
    
        Exit Sub
    End If
    
    Txtclassid.Text = DataGridclass.Text
End Sub

Private Sub DataGridcourse_Click()
    Txtcourseid.Text = DataGridcourse.Text
End Sub


Private Sub DataGridteacher_Click()
    txtteacherid.Text = DataGridteacher.Text
End Sub


Public Sub filltext()
     



    Txtclassid.Text = rst.Fields("classid")
  
    Txtweeknum = rst.Fields("weeknum")
    Txtcourseid.Text = rst.Fields("courseid")
    Cmbtotal.Text = rst.Fields("coursenum")
  


    txtteacherid.Text = rst.Fields("teacherid")
      
End Sub

Public Sub clearfield()
    Txtcourseid.Text = ""
    txtteacherid.Text = ""
    Txtclassid.Text = ""
    Txtweeknum.Text = ""
    Cmbtotal.Text = ""
    Cmbegintime.Text = ""
    Cmbendtime.Text = ""
    
   
End Sub



Public Sub hidebutton()
     Cmddelete.Enabled = False
     Cmdnext.Enabled = False
     cmdfirst.Enabled = False
     Cmdlast.Enabled = False
     
     Cmdprevious.Enabled = False
End Sub

Public Sub showbutton()
     Cmddelete.Enabled = True
     Cmdnext.Enabled = True
     cmdfirst.Enabled = True
     Cmdlast.Enabled = True
     
     Cmdprevious.Enabled = True
End Sub

Public Sub fillrecord()
    If Txtclassid.Text = "" Then
        MsgBox "请输入班级编号！"
        Exit Sub
    
    Else
        rst.Fields("classid") = Txtclassid.Text
    End If
   
    If txtteacherid.Text = "" Then
        MsgBox "请输入教师编号！"
        Exit Sub
    Else
        rst.Fields("teacherid") = txtteacherid.Text
    End If
   
    If Txtcourseid.Text = "" Then
        MsgBox "请输入课程编号！"
        Exit Sub
    Else
        rst.Fields("courseid") = Txtcourseid.Text
    End If
    
    If Cmbtotal = "" Then
        MsgBox "请输入总学时！"
        Exit Sub
    Else
        rst.Fields("coursenum") = Cmbtotal.Text
    End If
        
    
   If Txtweeknum = "" Then
        MsgBox "请输入周学时！"
        Exit Sub
    Else
        rst.Fields("weeknum") = Txtweeknum.Text
    End If
    
  ' rst.Fields("begintime") = Cmbegintime.Text
    ' rst.Fields("endtime") = Cmbendtime.Text
   
   DataGridteacher.Visible = False
   DataGridcourse.Visible = False
   DataGridclass.Visible = False
   
   
End Sub




Private Sub Txtclassid_Click()
adodclass.RecordSource = "select classid,classname from bclass"
adodclass.Refresh

DataGridteacher.Visible = False

DataGridcourse.Visible = False
DataGridclass.Visible = True
End Sub

Private Sub Txtclassid_GotFocus()

DataGridteacher.Visible = False

DataGridcourse.Visible = False
DataGridclass.Visible = True
End Sub

Private Sub Txtcourseid_GotFocus()

DataGridclass.Visible = False
DataGridteacher.Visible = False
DataGridcourse.Visible = True

End Sub



Private Sub txtteacherid_Click()
DataGridcourse.Visible = False
DataGridclass.Visible = False

DataGridteacher.Visible = True

End Sub