frmaddcurrschedule.frm

本论文以西电基础教学实验中心学生上机管理系统为背景

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmAddCurrSchedule 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "添加课表"
   ClientHeight    =   4185
   ClientLeft      =   2400
   ClientTop       =   3585
   ClientWidth     =   3210
   Icon            =   "frmAddCurrSchedule.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4185
   ScaleWidth      =   3210
   ShowInTaskbar   =   0   'False
   Begin VB.Frame FraCurrSchedule 
      Caption         =   "课表信息"
      Height          =   3015
      Left            =   240
      TabIndex        =   6
      Top             =   360
      Width           =   2655
      Begin VB.CommandButton cmdNight 
         Caption         =   "..."
         Height          =   270
         Left            =   1800
         TabIndex        =   14
         Top             =   2400
         Width           =   495
      End
      Begin VB.CommandButton cmdAfternoon 
         Caption         =   "..."
         Height          =   270
         Left            =   1800
         TabIndex        =   13
         Top             =   1920
         Width           =   495
      End
      Begin VB.CommandButton cmdMorning 
         Caption         =   "..."
         Height          =   270
         Left            =   1800
         TabIndex        =   12
         Top             =   1440
         Width           =   495
      End
      Begin VB.TextBox txtNight 
         Height          =   270
         Left            =   960
         MaxLength       =   6
         TabIndex        =   4
         Top             =   2400
         Width           =   855
      End
      Begin VB.TextBox txtAfternoon 
         Height          =   270
         Left            =   960
         MaxLength       =   6
         TabIndex        =   3
         Top             =   1920
         Width           =   855
      End
      Begin MSComCtl2.DTPicker DTPDate 
         Height          =   255
         Left            =   960
         TabIndex        =   1
         Top             =   480
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   450
         _Version        =   393216
         CheckBox        =   -1  'True
         Format          =   24903681
         CurrentDate     =   38018
      End
      Begin VB.TextBox txtMorning 
         Height          =   270
         Left            =   960
         MaxLength       =   6
         TabIndex        =   2
         Top             =   1440
         Width           =   855
      End
      Begin VB.Label lblWeekList 
         AutoSize        =   -1  'True
         Height          =   180
         Left            =   960
         TabIndex        =   15
         Top             =   960
         Width           =   90
      End
      Begin VB.Label lblNight 
         AutoSize        =   -1  'True
         Caption         =   "晚上："
         Height          =   180
         Left            =   240
         TabIndex        =   11
         Top             =   2400
         Width           =   540
      End
      Begin VB.Label lblAfternoon 
         AutoSize        =   -1  'True
         Caption         =   "下午："
         Height          =   180
         Left            =   240
         TabIndex        =   10
         Top             =   1920
         Width           =   540
      End
      Begin VB.Label lblDate 
         AutoSize        =   -1  'True
         Caption         =   "日期："
         Height          =   180
         Left            =   240
         TabIndex        =   9
         Top             =   480
         Width           =   540
      End
      Begin VB.Label lblWeek 
         AutoSize        =   -1  'True
         Caption         =   "星期："
         Height          =   180
         Left            =   240
         TabIndex        =   8
         Top             =   960
         Width           =   540
      End
      Begin VB.Label lblMorning 
         AutoSize        =   -1  'True
         Caption         =   "上午："
         Height          =   180
         Left            =   240
         TabIndex        =   7
         Top             =   1440
         Width           =   540
      End
   End
   Begin VB.CommandButton cmdSave 
      Caption         =   "保 存"
      Height          =   375
      Left            =   960
      TabIndex        =   5
      Top             =   3600
      Width           =   855
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "退 出"
      Height          =   375
      Left            =   2040
      TabIndex        =   0
      Top             =   3600
      Width           =   855
   End
End
Attribute VB_Name = "frmAddCurrSchedule"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''                                                                ''
''Filename       frmAddCurrSchedule.frm                           ''
''                                                                ''
''Created On     2004.2.25                                        ''
''                                                                ''
''Description    添加、修改课表信息窗体                           ''
''                                                                ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public strtype As String

Dim rsAddCurrSchedule As Recordset
Dim rsEditCurrSchedule As Recordset

Dim rsClassMorning As Recordset
Dim rsClassAfternoon As Recordset
Dim rsClassNight As Recordset
Dim rsDate As Recordset

Dim rsOperateLog As Recordset
Dim rsLog As Recordset
Dim lItem As ListItem

Private Sub cmdAfternoon_Click()
strtype = "Afternoon"
frmListClass.Show 1
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdMorning_Click()
strtype = "Morning"
frmListClass.Show 1
End Sub
Private Sub cmdNight_Click()
strtype = "Night"
frmListClass.Show 1
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''设置最小日期为系统日期 ，并自动填写星期值                       ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub DTPDate_Change()
If DTPDate.Value <> "" Then
    DTPDate.MinDate = Date
    If Weekday(DTPDate.Value) = 1 Then
        lblWeekList.Caption = "星期日"
        ElseIf Weekday(DTPDate.Value) = 2 Then
            lblWeekList.Caption = "星期一"
            ElseIf Weekday(DTPDate.Value) = 3 Then
                lblWeekList.Caption = "星期二"
                ElseIf Weekday(DTPDate.Value) = 4 Then
                    lblWeekList.Caption = "星期三"
                    ElseIf Weekday(DTPDate.Value) = 5 Then
                        lblWeekList.Caption = "星期四"
                        ElseIf Weekday(DTPDate.Value) = 6 Then
                            lblWeekList.Caption = "星期五"
                            ElseIf Weekday(DTPDate.Value) = 7 Then
                            lblWeekList.Caption = "星期六"
    End If
End If
End Sub

Private Sub txtAfternoon_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{tab}"
End If
Dim L As Boolean
    L = Chr(KeyAscii) Like "[0-9]" Or KeyAscii = 8
    If L = False Then
        KeyAscii = 0
    End If
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''判断输入的班级是否有效                                          ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub txtAfternoon_Validate(Cancel As Boolean)
If txtAfternoon.Text <> "" Then
    Set rsClassAfternoon = New Recordset
    rsClassAfternoon.Open "select * from tbClass where C_ID= '" & txtNight.Text & "'", Modmain.conn, 3, 2