教学计划窗体.frm

学校排课管理系统 科目的查询

            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   375
         Left            =   480
         TabIndex        =   20
         Top             =   1240
         Width           =   2295
      End
      Begin VB.Label Label5 
         BackStyle       =   0  'Transparent
         Caption         =   "课程编号："
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   18
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   375
         Left            =   480
         TabIndex        =   19
         Top             =   3160
         Width           =   2295
      End
   End
End
Attribute VB_Name = "frmteachplan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim week As Integer
Dim temp As DAO.Recordset
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim qry As DAO.QueryDef

Private Sub Cmbcoursetype_Click()
    Txtclassid.Visible = True
    Txtmajorid.Visible = True
    Frame3.Visible = True
    DataGridteacher.Visible = False
    DataGridclass.Visible = False
    DataGridmajor.Visible = False
    DataGridcourse.Visible = False
    Adodcteachplan.Refresh
End Sub

Private Sub Cmbgradeid_Change()
    Adodcmajor.RecordSource = "select majorid,majorname from major where gradeid='" & Cmbgradeid.Text & "'"
    Adodcmajor.Refresh
End Sub

Private Sub Cmbgradeid_Click()
 If Cmbcoursetype.Text = "3" Or Cmbcoursetype.Text = "1" Then
        Txtclassid.Text = ""
        Txtmajorid.Visible = True
        Txtclassid.Visible = False
    Else
        If Cmbcoursetype.Text = "2" Then
            Txtmajorid.Visible = False
            Txtclassid.Visible = False
            Txtmajorid.Text = ""
            Txtclassid.Text = ""
         Else
            Txtclassid.Visible = True
            Txtmajorid.Visible = True
         End If
     End If
End Sub

Private Sub Cmddelete_Click()
    rst.Delete
    If rst.RecordCount() = 0 Then
       
       MsgBox "数据库中已经没有记录了！"
       clearfield
    End If
    clearfield
    Txtmajorid.Visible = True
    Txtclassid.Visible = True
    Adodcteachplan.Refresh
    
End Sub


Private Sub Cmdedit_Click()
    rst.edit
    fillrecord
    rst.Update
    
    Adodcteachplan.Refresh
End Sub

Private Sub Cmdexit_Click()
    rst.Close
    db.Close
    frmteachplan.Hide
    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()
   Set temp = db.OpenRecordset("select * from teachplan")
   temp.Filter = "majorid='" & Txtmajorid.Text & "'"
   Set temp = temp.OpenRecordset()
   temp.Filter = "courseid='" & Txtcourseid.Text & "'"
   Set temp = temp.OpenRecordset()
   If temp.RecordCount <> 0 Then
      MsgBox ("这个专业本课程已存在，您输入的信息不能被保存！")
      Exit Sub
   End If
   temp.Close
   If rst.RecordCount() <> 0 Then
      rst.MoveLast
   End If
   rst.AddNew
   fillrecord
   rst.Update
   clearfield
   Cmbcoursetype.SetFocus
   Adodcteachplan.Refresh
   Txtmajorid.Visible = True
   Txtclassid.Visible = True
   If rst.RecordCount() <> 0 Then
   showbutton
   End If
   
 End Sub


Private Sub DataGrid1_Click()
Cmbcoursetype.Text = DataGrid1.Columns(0).Text
 If Cmbcoursetype.Text = "3" Or Cmbcoursetype.Text = "1" Then
        
        Txtmajorid.Visible = True
        Txtclassid.Visible = False
    Else
        If Cmbcoursetype.Text = "2" Then
            Txtmajorid.Visible = False
            Txtclassid.Visible = False
            
         Else
            Txtclassid.Visible = True
            Txtmajorid.Visible = True
         End If
     End If
Cmbgradeid.Text = DataGrid1.Columns(1).Text
Txtmajorid.Text = DataGrid1.Columns(2).Text
Txtclassid.Text = DataGrid1.Columns(3).Text
Txtcourseid.Text = DataGrid1.Columns(4).Text
Cmbtotal.Text = DataGrid1.Columns(5).Text
Cmbegintime.Text = DataGrid1.Columns(6).Text
Cmbendtime.Text = DataGrid1.Columns(7).Text
Cmbsign.Text = DataGrid1.Columns(8).Text
Txteacherid.Text = DataGrid1.Columns(9).Text
End Sub

Private Sub DataGridclass_Click()
    Txtclassid.Text = DataGridclass.Text
End Sub

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

Private Sub DataGridmajor_Click()
    Txtmajorid.Text = DataGridmajor.Text
End Sub

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

Private Sub DataGridxbh_Click()
    
End Sub

Private Sub Form_Activate()
    Set db = DBEngine.Workspaces(0).OpenDatabase("d:\basic.mdb")
    Set rst = db.OpenRecordset("select * from teachplan")
    If rst.RecordCount() = 0 Then
        
        hidebutton
    Else
        showbutton
        
    End If
    clearfield
    Cmbcoursetype.SetFocus
    Txtmajorid.Visible = True
    Txtclassid.Visible = True
    DataGridmajor.Visible = False
    DataGridcourse.Visible = False
    DataGridteacher.Visible = False
    DataGridclass.Visible = False
    Frame3.Visible = True
                                    
End Sub



Public Sub filltext()
     
   Cmbgradeid.Text = rst.Fields("gradeid")
   If rst.Fields("majorid") = vbNullString Then
        Txtmajorid.Text = ""
   Else
        Txtmajorid.Text = rst.Fields("majorid")
   End If
   If rst.Fields("classid") = vbNullString Then
        Txtclassid.Text = ""
   Else
       Txtclassid.Text = rst.Fields("classid")
   End If
    
    Txtcourseid.Text = rst.Fields("courseid")
    Cmbtotal.Text = rst.Fields("totalhour")
   Cmbegintime.Text = rst.Fields("begintime")
   Cmbendtime.Text = rst.Fields("endtime")
    Cmbsign.Text = rst.Fields("weeksign")
    Cmbcoursetype.Text = rst.Fields("coursetype")
    Txteacherid.Text = rst.Fields("teacherid")
      
End Sub

Public Sub clearfield()
    Txtclassid.Text = ""
    Cmbgradeid.Text = ""
    Txtmajorid.Text = ""
    Txtcourseid.Text = ""
    Cmbtotal.Text = ""
    Cmbegintime.Text = ""
    Cmbendtime.Text = ""
    Cmbsign.Text = ""
    Cmbcoursetype.Text = ""
    Txteacherid.Text = ""
End Sub

Private Sub Form_Load()
    Set db = DBEngine.Workspaces(0).OpenDatabase("d:\basic.mdb")
    Set rst = db.OpenRecordset("select * from teachplan")
    If rst.RecordCount() = 0 Then
        
        hidebutton
    Else
        showbutton
   
    End If
    clearfield
    Cmbgradeid.AddItem Year(Date)
    Cmbgradeid.AddItem Year(Date) - 1
    Cmbtotal.AddItem 60
    Cmbtotal.AddItem 40
    Cmbtotal.AddItem 20
    Cmbtotal.AddItem 10
    Cmbsign.AddItem "1"
    Cmbsign.AddItem "2"
    Cmbsign.AddItem "3"
    Cmbegintime.AddItem 1
    Cmbegintime.AddItem 11
    Cmbendtime.AddItem 10
    Cmbendtime.AddItem 13
    Cmbendtime.AddItem 16
    Cmbendtime.AddItem 18
    Cmbendtime.AddItem 20
    
    
    Cmbcoursetype.AddItem "1"
    Cmbcoursetype.AddItem "2"
    Cmbcoursetype.AddItem "3"
    Cmbcoursetype.AddItem "4"
    DataGridmajor.Visible = False
    DataGridcourse.Visible = False
    DataGridteacher.Visible = False
    DataGridclass.Visible = False
    Frame3.Visible = True
    Txtmajorid.Visible = True
    Txtclassid.Visible = True
End Sub
Public Sub hidebutton()
     Cmddelete.Enabled = False
     Cmdnext.Enabled = False
     Cmdedit.Enabled = False
     cmdfirst.Enabled = False
     Cmdlast.Enabled = False
     
     Cmdprevious.Enabled = False
End Sub

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

Public Sub fillrecord()
 If Txtclassid.Text = "" Then
    rst.Fields("classid") = vbNullString
 Else
   rst.Fields("classid") = Txtclassid.Text
 End If
   rst.Fields("gradeid") = Cmbgradeid.Text
   If Txtmajorid.Text = "" Then
      rst.Fields("majorid") = vbNullString
   Else
      rst.Fields("majorid") = Txtmajorid.Text
   End If
   rst.Fields("courseid") = Txtcourseid.Text
   rst.Fields("totalhour") = Cmbtotal.Text
   rst.Fields("begintime") = Cmbegintime.Text
   rst.Fields("endtime") = Cmbendtime.Text
   rst.Fields("weeksign") = Cmbsign.Text
   week = Cmbendtime.Text - Cmbegintime.Text
   If week > 10 Then
      rst.Fields("weekhour") = Cmbtotal.Text / 20
   Else
      rst.Fields("weekhour") = Cmbtotal.Text / 10
   End If
   rst.Fields("coursetype") = Cmbcoursetype
   rst.Fields("teacherid") = Txteacherid.Text
   Frame3.Visible = True
   DataGridteacher.Visible = False
   DataGridcourse.Visible = False
   DataGridclass.Visible = False
   DataGridmajor.Visible = False
   
End Sub




Private Sub Txtclassid_Click()
Adodclass.RecordSource = "select classid,classname from class where majorid='" & Txtmajorid.Text & "'"
Adodclass.Refresh
Frame3.Visible = False
DataGridteacher.Visible = False
DataGridmajor.Visible = False
DataGridcourse.Visible = False
DataGridclass.Visible = True
End Sub

Private Sub Txtclassid_GotFocus()
Frame3.Visible = False
DataGridteacher.Visible = False
DataGridmajor.Visible = False
DataGridcourse.Visible = False
DataGridclass.Visible = True
End Sub

Private Sub Txtcourseid_GotFocus()
DataGridmajor.Visible = False
DataGridclass.Visible = False
DataGridteacher.Visible = False
DataGridcourse.Visible = True
Frame3.Visible = False
End Sub



Private Sub txteacherid_Click()
DataGridcourse.Visible = False
DataGridclass.Visible = False
DataGridmajor.Visible = False
DataGridteacher.Visible = True
Frame3.Visible = False
End Sub

Private Sub Txtmajorid_Click()
 Adodcmajor.RecordSource = "select * from major where gradeid='" & Cmbgradeid.Text & "'"
 Adodcmajor.Refresh
End Sub

Private Sub Txtmajorid_GotFocus()
Frame3.Visible = False
DataGridclass.Visible = False
DataGridteacher.Visible = False
DataGridcourse.Visible = False
DataGridmajor.Visible = True
End Sub