form_classroomtime.frm

guan yu pai ke xi tong de ruan jian

      _Version        =   393216
   End
   Begin MSDataGridLib.DataGrid DataGrid1 
      Bindings        =   "Form_classroomtime.frx":0004
      Height          =   3015
      Left            =   0
      TabIndex        =   5
      Top             =   4920
      Width           =   9975
      _ExtentX        =   17595
      _ExtentY        =   5318
      _Version        =   393216
      BackColor       =   14737632
      HeadLines       =   1
      RowHeight       =   15
      BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ColumnCount     =   2
      BeginProperty Column00 
         DataField       =   ""
         Caption         =   ""
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column01 
         DataField       =   ""
         Caption         =   ""
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
         EndProperty
         BeginProperty Column01 
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "Form_classroomtime"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Combo3_Click()
'Adodc1.ConnectionString = Connection
'Adodc1.RecordSource = "select * from classroomtime where 课程='" & Combo3.Text & "'"
'Adodc1.Refresh
'Combo1.Clear
'Combo2.Clear
'Combo5.Clear
'With Adodc1.Recordset
'While Not .EOF And Not .BOF
 'Combo1.AddItem !教室
 'Combo2.AddItem !上课时间
 'Combo5.AddItem !教师号
'.MoveNext
'Combo1.ListIndex = 0

'Combo5.ListIndex = 0
'Combo2.ListIndex = 0
'Wend



'End With
End Sub

Private Sub Combo5_Click()

Adodc3.ConnectionString = Connection
Adodc3.RecordSource = "select * from teacher where 教师号='" & Combo5.Text & "'"
Adodc3.Refresh
With Adodc3.Recordset
 
    Text1.Text = !姓名
   

End With

End Sub

Private Sub Command1_Click()
If Combo1.Text <> "" And Combo2.Text = "" And Combo3.Text = "" Then
Combo2.Clear
Combo3.Clear

Combo5.Clear

Adodc1.ConnectionString = Connection
Adodc1.RecordSource = "select * from classroomtime where 教室='" & Combo1.Text & "'"
Adodc1.Refresh
 With Adodc1.Recordset
     While Not .EOF And Not .BOF
     Combo2.AddItem !上课时间
     Combo3.AddItem !课程
     'Combo4.AddItem !教室与时间编号
    Combo5.AddItem !教师号
    .MoveNext
    Wend
   End With
   Combo2.ListIndex = 0
Combo3.ListIndex = 0
 
Combo5.ListIndex = 0

End If

If Combo1.Text = "" And Combo2.Text <> "" And Combo3.Text = "" Then
Combo1.Clear
Combo3.Clear

Combo5.Clear
Adodc1.ConnectionString = Connection
Adodc1.RecordSource = "select * from classroomtime where 上课时间='" & Combo2.Text & "'"
Adodc1.Refresh
With Adodc1.Recordset
While Not .EOF And Not .BOF
 Combo1.AddItem !教室
 Combo3.AddItem !课程
 Combo5.AddItem !教师号
.MoveNext
Wend
 End With
Combo1.ListIndex = 0

Combo5.ListIndex = 0
Combo3.ListIndex = 0
End If

If Combo3.Text <> "" And Combo2.Text = "" And Combo1.Text = "" Then
Adodc1.ConnectionString = Connection
Adodc1.RecordSource = "select * from classroomtime where 课程='" & Combo3.Text & "'"
Adodc1.Refresh
Combo1.Clear
Combo2.Clear

Combo5.Clear
With Adodc1.Recordset
 If .EOF Or .BOF Then
 MsgBox "暂时没有为此课程安排教室和时间！", vbOKOnly + vbExclamation, "对不起！"
Else
While Not .EOF And Not .BOF
 Combo1.AddItem !教室
 Combo2.AddItem !上课时间
 Combo5.AddItem !教师号
.MoveNext
Wend

 Combo1.ListIndex = 0

Combo5.ListIndex = 0
Combo2.ListIndex = 0
'.MoveNext
End If
End With
End If

If Combo1.Text <> "" And Combo2.Text <> "" And Combo3.Text = "" Then

Combo5.Clear
Combo3.Clear
Adodc1.ConnectionString = Connection
Adodc1.RecordSource = "select * from classroomtime where 上课时间='" & Combo2.Text & "' and 教室='" & Combo1.Text & "'"
Adodc1.Refresh
With Adodc1.Recordset
If .EOF Or .BOF Then
 MsgBox "暂无次安排！", vbOKOnly + vbExclamation, "对不起！"
Else
While Not .EOF And Not .BOF
 Combo3.AddItem !课程
 Combo5.AddItem !教师号
.MoveNext
Wend
End If
 End With

'Combo5.ListIndex = 0
'Combo3.ListIndex = 0
End If




If Combo3.Text <> "" And Combo1.Text <> "" And Combo2.Text = "" Then
Combo5.Clear
Combo2.Clear
Adodc1.ConnectionString = Connection
Adodc1.RecordSource = "select * from classroomtime where 课程='" & Combo3.Text & "' and 教室='" & Combo1.Text & "'"
Adodc1.Refresh
With Adodc1.Recordset
If .EOF Or .BOF Then
 MsgBox "暂无此安排！", vbOKOnly + vbExclamation, "对不起！"
Else
While Not .EOF And Not .BOF
 Combo2.AddItem !上课时间
 Combo5.AddItem !教师号
.MoveNext
Wend
End If
 End With

'Combo5.ListIndex = 0
'Combo2.ListIndex = 0

End If
If Combo3.Text <> "" And Combo1.Text = "" And Combo2.Text <> "" Then
Combo5.Clear
Combo1.Clear
Adodc1.ConnectionString = Connection
Adodc1.RecordSource = "select * from classroomtime where 课程='" & Combo3.Text & "' and 上课时间='" & Combo2.Text & "'"
Adodc1.Refresh
With Adodc1.Recordset
If .EOF Or .BOF Then
 MsgBox "暂无此安排！", vbOKOnly + vbExclamation, "对不起！"
Else
While Not .EOF And Not .BOF
 Combo1.AddItem !教室
 Combo5.AddItem !教师号
.MoveNext
Wend
End If
 End With

'Combo5.ListIndex = 0
'Combo1.ListIndex = 0
End If
End Sub





Private Sub Command2_Click()



With Adodc1.Recordset


If .EOF Or .BOF Then
MsgBox "请选择删除的记录！", vbOKOnly + vbExclamation, "警告！"
Else
.Delete
.MoveNext
End If

End With

End Sub

Private Sub Command3_Click()
Combo1.Clear
Combo2.Clear
Combo3.Clear
Text1.Text = ""
Combo5.Clear
Adodc1.ConnectionString = Connection
Adodc1.RecordSource = "select * from classroomtime order by 教室与时间编号"
Adodc1.Refresh
 With Adodc1.Recordset
    While Not .EOF And Not .BOF
    Combo1.AddItem !教室
    Combo2.AddItem !上课时间
   
      
      .MoveNext
    Wend
    End With


  
 Adodc2.ConnectionString = Connection
Adodc2.RecordSource = "select * from subject"
Adodc2.Refresh
  With Adodc2.Recordset
    While Not .EOF And Not .BOF
    Combo3.AddItem !课程
    .MoveNext
    Wend
    End With
    
 
 Adodc3.ConnectionString = Connection
Adodc3.RecordSource = "select * from teacher"
Adodc3.Refresh
  With Adodc3.Recordset
    While Not .EOF And Not .BOF
    Combo5.AddItem !教师号
    .MoveNext
    Wend
    End With
    



End Sub

Private Sub Command4_Click()
Dim i
Adodc1.ConnectionString = Connection
Adodc1.RecordSource = "select * from classroomtime order by 教室与时间编号 "
Adodc1.Refresh
With Adodc1.Recordset
.MoveLast
i = !教室与时间编号 + 1
End With
With Adodc1.Recordset
If Combo3.Text <> "" And Combo2.Text <> "" And Combo1.Text <> "" And Combo5.Text <> "" Then
Adodc1.ConnectionString = Connection
Adodc1.RecordSource = "select * from classroomtime where 教室='" & Combo1.Text & "'and 上课时间='" & Combo2.Text & "'  "
Adodc1.Refresh
With Adodc1.Recordset

If .EOF Or .BOF Then
Adodc1.ConnectionString = Connection
Adodc1.RecordSource = "select * from classroomtime where 教师号='" & Combo5.Text & "'and 上课时间='" & Combo2.Text & "'  "
Adodc1.Refresh
With Adodc1.Recordset
If .EOF Or .BOF Then
 .AddNew
!教室 = Combo1.Text
!上课时间 = Combo2.Text
!课程 = Combo3.Text
!教室与时间编号 = i
!教师号 = Combo5.Text
.Update
'.MoveNext
Else
MsgBox "此教师在此时间段内已有课程安排！", vbOKOnly + vbExclamation, "对不起！"
End If
End With
Else
'With Adodc1.Recordset


.MoveNext
MsgBox "此教室和时间已安排了课程或！", vbOKOnly + vbExclamation, "对不起！"
End If
End With

Else

MsgBox "每个空都要添的！", vbOKOnly + vbExclamation, "对不起！"
End If
End With
End Sub

Private Sub Command5_Click()
Unload Me
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = Connection
Adodc1.RecordSource = "select * from classroomtime order by 教室与时间编号"
Adodc1.Refresh
 With Adodc1.Recordset
    While Not .EOF And Not .BOF
    Combo1.AddItem !教室
    Combo2.AddItem !上课时间
  
    .MoveNext
    Wend
    End With


  
 Adodc2.ConnectionString = Connection
Adodc2.RecordSource = "select * from subject"
Adodc2.Refresh
  With Adodc2.Recordset
    While Not .EOF And Not .BOF
    Combo3.AddItem !课程
    .MoveNext
    Wend
    End With
    
 
 Adodc3.ConnectionString = Connection
Adodc3.RecordSource = "select * from teacher"
Adodc3.Refresh
  With Adodc3.Recordset
    While Not .EOF And Not .BOF
    Combo5.AddItem !教师号
    
    .MoveNext
    Wend
    End With
    
End Sub