form6.frm

要解决三个冲突:1.同一老师任两门以上课程的在同一时间内安排在不同的班讲课 2.不同的课程在相同时间内安排在同一教室 3 .教室容量与学生人数的冲突 数据库:班级表(班级名称,人数) 教师表(教师

VERSION 5.00
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Begin VB.Form Form6 
   Caption         =   "Form6"
   ClientHeight    =   1155
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3570
   LinkTopic       =   "Form6"
   ScaleHeight     =   1155
   ScaleWidth      =   3570
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "打印教师代课报表"
      Height          =   375
      Left            =   240
      TabIndex        =   2
      Top             =   600
      Width           =   3015
   End
   Begin MSDataListLib.DataCombo teacherCombox 
      Bindings        =   "Form6.frx":0000
      DataField       =   "cTrName"
      DataMember      =   "TeacherCom"
      DataSource      =   "DataEnv"
      Height          =   315
      Left            =   1920
      TabIndex        =   1
      Top             =   120
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   556
      _Version        =   393216
      ListField       =   "cTrName"
      Text            =   "DataCombo1"
      Object.DataMember      =   "TeacherCom"
   End
   Begin VB.Label Label1 
      Caption         =   "请选择教师姓名"
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   1455
   End
End
Attribute VB_Name = "Form6"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'临时教师代课表
Dim ttCon As ADODB.Connection
Dim ttrs As ADODB.Recordset
'trClass表
Dim trcon As ADODB.Connection
Dim trrs As ADODB.Recordset
Dim sqlStr As String
Dim trname As String
Dim wStr(5) As String
Dim clStr(5) As String

Private Sub clearStr()
    For i = 1 To 5
        wStr(i) = " "
        clStr(i) = " "
    Next i
End Sub

Private Sub Update_tt()
    ttCon.Execute "delete * from tempTT"
    
    strSql = "select trclass.cclasscode,trclass.csubject,classarray.itimew,classarray.itimen" + _
" from teacher,trclass,classarray " + _
"where teacher.ctrname=trclass.cteacher and trclass.cclasscode=classarray.cclasscode" + _
" and trclass.csubject=classarray.csjname and teacher.ctrname=" + "'" + trname + "'" _
+ " order by iTimeN"
    
    trcon.Execute strSql
    trrs.Open strSql, trcon, adOpenStatic, adLockOptimistic
    trrs.MoveFirst
    Dim i As Integer
    i = 1
    clearStr
    While Not trrs.EOF
        While trrs!iTimeN <> i
            strSql = "insert into tempTT values(" & i & " ," + "'" + wStr(1) + "' ," + "'" + wStr(2) + "' ," + "'" + wStr(3) + "' ," + "'" + wStr(4) + "' ," + "'" + wStr(5) + _
            "' ,'" + clStr(1) + "' ," + "'" + clStr(2) + "' ," + "'" + clStr(3) + "' ," + "'" + clStr(4) + "' ," + "'" + clStr(5) + "' )"
            ttCon.Execute strSql
            clearStr
            i = i + 1
        Wend
        wStr(trrs!iTimeW) = trrs!csubject
        clStr(trrs!iTimeW) = trrs!cClassCode
        trrs.MoveNext
    Wend
    strSql = "insert into tempTT values(" & i & " ," + "'" + wStr(1) + "' ," + "'" + wStr(2) + "' ," + "'" + wStr(3) + "' ," + "'" + wStr(4) + "' ," + "'" + wStr(5) + _
            "' ,'" + clStr(1) + "' ," + "'" + clStr(2) + "' ," + "'" + clStr(3) + "' ," + "'" + clStr(4) + "' ," + "'" + clStr(5) + "' )"
    ttCon.Execute strSql
    clearStr
    While i < 10
        i = i + 1
        strSql = "insert into tempTT values(" & i & " ," + "'" + wStr(1) + "' ," + "'" + wStr(2) + "' ," + "'" + wStr(3) + "' ," + "'" + wStr(4) + "' ," + "'" + wStr(5) + _
            "' ,'" + clStr(1) + "' ," + "'" + clStr(2) + "' ," + "'" + clStr(3) + "' ," + "'" + clStr(4) + "' ," + "'" + clStr(5) + "' )"
        ttCon.Execute strSql
    Wend
End Sub

Private Sub Command1_Click()
    trname = Trim(teacherCombox.Text)
    Call Update_tt
    Unload Me
    TrRep.Show
End Sub

Private Sub Form_Load()
    Set ttCon = New ADODB.Connection
    Set ttrs = New ADODB.Recordset
    
    ttCon.Open "provider=Microsoft.Jet.OLEDB.4.0; data source= " & App.Path & "\dataUse.mdb"
    
    Set trcon = New ADODB.Connection
    Set trrs = New ADODB.Recordset
    
    trcon.Open "provider=Microsoft.Jet.OLEDB.4.0; data source= " & App.Path & "\dataUse.mdb"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    'ttrs.Close
    ttCon.Close
    Set ttrs = Nothing
    Set ttCon = Nothing
    trcon.Close
    Set trrs = Nothing
    Set trcon = Nothing
End Sub