frmsetlesson.frm

用VB实现的一个学生管理系统

'老师星期四下午
If Command3(7).Enabled = True Then
SQL = ""
SQL = "Select * From 时间表 Where 教师='" & Trim(cobteacher1(7).Text) & "' and 星期='" & Label4.Caption & "' and 上下午='" & Label7.Caption & "'"
Set adoRS = adoCon.Execute(SQL)
If Not adoRS.EOF Then
   MsgBox "教师" & Trim(cobteacher1(7).Text) & "星期四下午已经有课，请安排其他老师！", vbOKOnly + vbExclamation, "系统提示"
  
   Exit Sub
End If
End If

'老师星期五上午
If Command3(8).Enabled = True Then
SQL = ""
SQL = "Select * From 时间表 Where 教师='" & Trim(cobteacher1(8).Text) & "' and 星期='" & Label5.Caption & "' and 上下午='" & Label6.Caption & "'"
Set adoRS = adoCon.Execute(SQL)
If Not adoRS.EOF Then
   MsgBox "教师" & Trim(cobteacher1(8).Text) & "星期五上午已经有课，请安排其他老师！", vbOKOnly + vbExclamation, "系统提示"
  
   Exit Sub
End If
End If


'老师星期五下午
If Command3(9).Enabled = True Then
SQL = ""
SQL = "Select * From 时间表 Where 教师='" & Trim(cobteacher1(9).Text) & "' and 星期='" & Label5.Caption & "' and 上下午='" & Label7.Caption & "'"
Set adoRS = adoCon.Execute(SQL)
If Not adoRS.EOF Then
   MsgBox "教师" & Trim(cobteacher1(9).Text) & "星期五下午已经有课，请安排其他老师！", vbOKOnly + vbExclamation, "系统提示"
  
   Exit Sub
End If
End If

If Command3(0).Enabled = False And Command3(1).Enabled = False And Command3(2).Enabled = False And Command3(3).Enabled = False And Command3(4).Enabled = False And Command3(5).Enabled = False And Command3(6).Enabled = False And Command3(7).Enabled = False And Command3(8).Enabled = False And Command3(9).Enabled = False Then
MsgBox "时间表不能为空，请重新输入！"
Exit Sub
End If

'星期一上午
If Command3(0).Enabled = True Then
SQL = ""
SQL = "Insert Into 时间表 "
SQL = SQL & " Values('" & coblesson1(0).Text & "'"
SQL = SQL & ",'" & frmset.mm & "'"
SQL = SQL & ",'" & cobteacher1(0).Text & "'"
SQL = SQL & ",'" & cobaddress1(0).Text & "'"
SQL = SQL & ",'" & cobtest1(0).Text & "'"
SQL = SQL & ",'" & Label1.Caption & "'"
SQL = SQL & ",'" & Label6.Caption & "')"
adoCon.Execute (SQL)

Else
SQL = ""
SQL = "Insert Into 时间表 "
SQL = SQL & " Values('" & "无课" & "'"
SQL = SQL & ",'" & frmset.mm & "'"
SQL = SQL & ",'" & cobteacher1(0).Text & "'"
SQL = SQL & ",'" & cobaddress1(0).Text & "'"
SQL = SQL & ",'" & cobtest1(0).Text & "'"
SQL = SQL & ",'" & Label1.Caption & "'"
SQL = SQL & ",'" & Label6.Caption & "')"
adoCon.Execute (SQL)
End If
'星期一下午
If Command3(1).Enabled = True Then
SQL = ""
SQL = "Insert Into 时间表 "
SQL = SQL & " Values('" & coblesson1(1).Text & "'"
SQL = SQL & ",'" & frmset.mm & "'"
SQL = SQL & ",'" & cobteacher1(1).Text & "'"
SQL = SQL & ",'" & cobaddress1(1).Text & "'"
SQL = SQL & ",'" & cobtest1(1).Text & "'"
SQL = SQL & ",'" & Label1.Caption & "'"
SQL = SQL & ",'" & Label7.Caption & "')"
Else
SQL = ""
SQL = "Insert Into 时间表 "
SQL = SQL & " Values('" & "无课" & "'"
SQL = SQL & ",'" & frmset.mm & "'"
SQL = SQL & ",'" & cobteacher1(1).Text & "'"
SQL = SQL & ",'" & cobaddress1(1).Text & "'"
SQL = SQL & ",'" & cobtest1(1).Text & "'"
SQL = SQL & ",'" & Label1.Caption & "'"
SQL = SQL & ",'" & Label7.Caption & "')"

adoCon.Execute (SQL)
End If
'星期二上午
If Command3(2).Enabled = True Then
SQL = ""
SQL = "Insert Into 时间表 "
SQL = SQL & " Values('" & coblesson1(2).Text & "'"
SQL = SQL & ",'" & frmset.mm & "'"
SQL = SQL & ",'" & cobteacher1(2).Text & "'"
SQL = SQL & ",'" & cobaddress1(2).Text & "'"
SQL = SQL & ",'" & cobtest1(2).Text & "'"
SQL = SQL & ",'" & Label2.Caption & "'"
SQL = SQL & ",'" & Label6.Caption & "')"
adoCon.Execute (SQL)

Else
SQL = ""
SQL = "Insert Into 时间表 "
SQL = SQL & " Values('" & "无课" & "'"
SQL = SQL & ",'" & frmset.mm & "'"
SQL = SQL & ",'" & cobteacher1(2).Text & "'"
SQL = SQL & ",'" & cobaddress1(2).Text & "'"
SQL = SQL & ",'" & cobtest1(2).Text & "'"
SQL = SQL & ",'" & Label2.Caption & "'"
SQL = SQL & ",'" & Label6.Caption & "')"

adoCon.Execute (SQL)
End If
'星期二下午
If Command3(3).Enabled = True Then
SQL = ""
SQL = "Insert Into 时间表 "
SQL = SQL & " Values('" & coblesson1(3).Text & "'"
SQL = SQL & ",'" & frmset.mm & "'"
SQL = SQL & ",'" & cobteacher1(3).Text & "'"
SQL = SQL & ",'" & cobaddress1(3).Text & "'"
SQL = SQL & ",'" & cobtest1(3).Text & "'"
SQL = SQL & ",'" & Label2.Caption & "'"
SQL = SQL & ",'" & Label7.Caption & "')"
adoCon.Execute (SQL)

Else
SQL = ""
SQL = "Insert Into 时间表 "
SQL = SQL & " Values('" & "无课" & "'"
SQL = SQL & ",'" & frmset.mm & "'"
SQL = SQL & ",'" & cobteacher1(3).Text & "'"
SQL = SQL & ",'" & cobaddress1(3).Text & "'"
SQL = SQL & ",'" & cobtest1(3).Text & "'"
SQL = SQL & ",'" & Label2.Caption & "'"
SQL = SQL & ",'" & Label7.Caption & "')"

adoCon.Execute (SQL)
End If
'星期三上午
If Command3(4).Enabled = True Then
SQL = ""
SQL = "Insert Into 时间表 "
SQL = SQL & " Values('" & coblesson1(4).Text & "'"
SQL = SQL & ",'" & frmset.mm & "'"
SQL = SQL & ",'" & cobteacher1(4).Text & "'"
SQL = SQL & ",'" & cobaddress1(4).Text & "'"
SQL = SQL & ",'" & cobtest1(4).Text & "'"
SQL = SQL & ",'" & Label3.Caption & "'"
SQL = SQL & ",'" & Label6.Caption & "')"
adoCon.Execute (SQL)

Else
SQL = ""
SQL = "Insert Into 时间表 "
SQL = SQL & " Values('" & "无课" & "'"
SQL = SQL & ",'" & frmset.mm & "'"
SQL = SQL & ",'" & cobteacher1(4).Text & "'"
SQL = SQL & ",'" & cobaddress1(4).Text & "'"
SQL = SQL & ",'" & cobtest1(4).Text & "'"
SQL = SQL & ",'" & Label3.Caption & "'"
SQL = SQL & ",'" & Label6.Caption & "')"

adoCon.Execute (SQL)
End If
'星期三下午
If Command3(5).Enabled = True Then
SQL = ""
SQL = "Insert Into 时间表 "
SQL = SQL & " Values('" & coblesson1(5).Text & "'"
SQL = SQL & ",'" & frmset.mm & "'"
SQL = SQL & ",'" & cobteacher1(5).Text & "'"
SQL = SQL & ",'" & cobaddress1(5).Text & "'"
SQL = SQL & ",'" & cobtest1(5).Text & "'"
SQL = SQL & ",'" & Label3.Caption & "'"
SQL = SQL & ",'" & Label7.Caption & "')"
adoCon.Execute (SQL)

Else
SQL = ""
SQL = "Insert Into 时间表 "
SQL = SQL & " Values('" & "无课" & "'"
SQL = SQL & ",'" & frmset.mm & "'"
SQL = SQL & ",'" & cobteacher1(5).Text & "'"
SQL = SQL & ",'" & cobaddress1(5).Text & "'"
SQL = SQL & ",'" & cobtest1(5).Text & "'"
SQL = SQL & ",'" & Label3.Caption & "'"
SQL = SQL & ",'" & Label7.Caption & "')"

adoCon.Execute (SQL)
End If

'星期四上午
If Command3(6).Enabled = True Then
SQL = ""
SQL = "Insert Into 时间表 "
SQL = SQL & " Values('" & coblesson1(6).Text & "'"
SQL = SQL & ",'" & frmset.mm & "'"
SQL = SQL & ",'" & cobteacher1(6).Text & "'"
SQL = SQL & ",'" & cobaddress1(6).Text & "'"
SQL = SQL & ",'" & cobtest1(6).Text & "'"
SQL = SQL & ",'" & Label4.Caption & "'"
SQL = SQL & ",'" & Label6.Caption & "')"
adoCon.Execute (SQL)

Else
SQL = ""
SQL = "Insert Into 时间表 "
SQL = SQL & " Values('" & "无课" & "'"
SQL = SQL & ",'" & frmset.mm & "'"
SQL = SQL & ",'" & cobteacher1(6).Text & "'"
SQL = SQL & ",'" & cobaddress1(6).Text & "'"
SQL = SQL & ",'" & cobtest1(6).Text & "'"
SQL = SQL & ",'" & Label4.Caption & "'"
SQL = SQL & ",'" & Label6.Caption & "')"

adoCon.Execute (SQL)
End If
'星期四下午
If Command3(7).Enabled = True Then
SQL = ""
SQL = "Insert Into 时间表 "
SQL = SQL & " Values('" & coblesson1(7).Text & "'"
SQL = SQL & ",'" & frmset.mm & "'"
SQL = SQL & ",'" & cobteacher1(7).Text & "'"
SQL = SQL & ",'" & cobaddress1(7).Text & "'"
SQL = SQL & ",'" & cobtest1(7).Text & "'"
SQL = SQL & ",'" & Label4.Caption & "'"
SQL = SQL & ",'" & Label7.Caption & "')"
adoCon.Execute (SQL)

Else
SQL = ""
SQL = "Insert Into 时间表 "
SQL = SQL & " Values('" & "无课" & "'"
SQL = SQL & ",'" & frmset.mm & "'"
SQL = SQL & ",'" & cobteacher1(7).Text & "'"
SQL = SQL & ",'" & cobaddress1(7).Text & "'"
SQL = SQL & ",'" & cobtest1(7).Text & "'"
SQL = SQL & ",'" & Label4.Caption & "'"
SQL = SQL & ",'" & Label7.Caption & "')"

adoCon.Execute (SQL)
End If
'星期五上午
If Command3(8).Enabled = True Then
SQL = ""
SQL = "Insert Into 时间表 "
SQL = SQL & " Values('" & coblesson1(8).Text & "'"
SQL = SQL & ",'" & frmset.mm & "'"
SQL = SQL & ",'" & cobteacher1(8).Text & "'"
SQL = SQL & ",'" & cobaddress1(8).Text & "'"
SQL = SQL & ",'" & cobtest1(8).Text & "'"
SQL = SQL & ",'" & Label5.Caption & "'"
SQL = SQL & ",'" & Label6.Caption & "')"
adoCon.Execute (SQL)

Else
SQL = ""
SQL = "Insert Into 时间表 "
SQL = SQL & " Values('" & "无课" & "'"
SQL = SQL & ",'" & frmset.mm & "'"
SQL = SQL & ",'" & cobteacher1(8).Text & "'"
SQL = SQL & ",'" & cobaddress1(8).Text & "'"
SQL = SQL & ",'" & cobtest1(8).Text & "'"
SQL = SQL & ",'" & Label5.Caption & "'"
SQL = SQL & ",'" & Label6.Caption & "')"

adoCon.Execute (SQL)
End If
'星期五下午
If Command3(9).Enabled = True Then
SQL = ""
SQL = "Insert Into 时间表 "
SQL = SQL & " Values('" & coblesson1(9).Text & "'"
SQL = SQL & ",'" & frmset.mm & "'"
SQL = SQL & ",'" & cobteacher1(9).Text & "'"
SQL = SQL & ",'" & cobaddress1(9).Text & "'"
SQL = SQL & ",'" & cobtest1(9).Text & "'"
SQL = SQL & ",'" & Label5.Caption & "'"
SQL = SQL & ",'" & Label7.Caption & "')"
adoCon.Execute (SQL)

Else
SQL = ""
SQL = "Insert Into 时间表 "
SQL = SQL & " Values('" & "无课" & "'"
SQL = SQL & ",'" & frmset.mm & "'"
SQL = SQL & ",'" & cobteacher1(9).Text & "'"
SQL = SQL & ",'" & cobaddress1(9).Text & "'"
SQL = SQL & ",'" & cobtest1(9).Text & "'"
SQL = SQL & ",'" & Label5.Caption & "'"
SQL = SQL & ",'" & Label7.Caption & "')"

adoCon.Execute (SQL)
End If

MsgBox "恭喜恭喜^_^，插入成功！", vbOKOnly + vbInformation, "成功提示"
errMsg:
  If Err.Number <> 0 Then
     MsgBox Err.Number & Err.Description, vbOKOnly + vbCritical, "出错提示"
     Exit Sub
  End If

End Sub

Private Sub Form_Load()
Me.Height = 8325
Me.Width = 10305
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2 - 800

Frame1.Caption = Trim(frmset.mm) & "的时间表"
f1
End Sub

Private Sub f1()
For i = 0 To 9
'教师
Set adoRS = adoCon.Execute("Select Name From Teacher Order By Name")
cobteacher1(i).Clear
Do While Not adoRS.EOF
  cobteacher1(i).AddItem Trim(adoRS("Name"))
  adoRS.MoveNext
Loop
cobteacher1(i).ListIndex = 0
'课程
Set adoRS = adoCon.Execute("Select Name From Lesson Order By Name")
coblesson1(i).Clear
Do While Not adoRS.EOF
  coblesson1(i).AddItem Trim(adoRS("Name"))
  adoRS.MoveNext
Loop
coblesson1(i).ListIndex = 0
'考试方式
With cobtest1(i)
    .Clear
  .AddItem "考试"
  .AddItem "考查"
  .ListIndex = 0
End With
'上课地点
With cobaddress1(i)
 .Clear
 For p = 1 To 6
 For q = 1 To 9
 .AddItem "东" & p & "0" & q
  Next q
 Next p

  For p = 1 To 6
 For q = 1 To 4
 .AddItem "A" & p & "0" & q
 Next q
 Next p
  For p = 1 To 6
 For q = 1 To 4
 .AddItem "B" & p & "0" & q
 Next q
 Next p
  For p = 1 To 6
 For q = 1 To 4
 .AddItem "C" & p & "0" & q
 Next q
 Next p
  For p = 1 To 6
 For q = 1 To 4
 .AddItem "D" & p & "0" & q
 Next q
 Next p
  For p = 1 To 6
 For q = 1 To 4
 .AddItem "E" & p & "0" & q
 Next q
 Next p
    .ListIndex = 0
End With

Next i
End Sub