frmclass.frm

上机考试系统

VERSION 5.00
Begin VB.Form frmClass 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "课程信息管理"
   ClientHeight    =   3030
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5670
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   3030
   ScaleWidth      =   5670
   Begin VB.PictureBox picNavigation 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   360
      Left            =   1110
      ScaleHeight     =   360
      ScaleWidth      =   2685
      TabIndex        =   12
      Top             =   2138
      Width           =   2685
      Begin VB.TextBox txtNews 
         Height          =   300
         Left            =   690
         Locked          =   -1  'True
         TabIndex        =   13
         TabStop         =   0   'False
         Top             =   15
         Width           =   1275
      End
      Begin VB.CommandButton cmdMove 
         Height          =   300
         Index           =   2
         Left            =   1950
         Picture         =   "frmClass.frx":0000
         Style           =   1  'Graphical
         TabIndex        =   10
         Top             =   15
         Width           =   345
      End
      Begin VB.CommandButton cmdMove 
         Height          =   300
         Index           =   3
         Left            =   2280
         Picture         =   "frmClass.frx":0044
         Style           =   1  'Graphical
         TabIndex        =   11
         Top             =   15
         Width           =   345
      End
      Begin VB.CommandButton cmdMove 
         Height          =   300
         Index           =   0
         Left            =   30
         Picture         =   "frmClass.frx":0093
         Style           =   1  'Graphical
         TabIndex        =   8
         Top             =   15
         Width           =   345
      End
      Begin VB.CommandButton cmdMove 
         Height          =   300
         Index           =   1
         Left            =   360
         Picture         =   "frmClass.frx":00E0
         Style           =   1  'Graphical
         TabIndex        =   9
         Top             =   15
         Width           =   345
      End
   End
   Begin VB.TextBox txtName 
      Height          =   270
      IMEMode         =   1  'ON
      Left            =   1755
      MaxLength       =   20
      TabIndex        =   0
      Top             =   533
      Width           =   2010
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "添加"
      Height          =   300
      Left            =   4020
      TabIndex        =   4
      Top             =   780
      Width           =   735
   End
   Begin VB.CommandButton cmdDelete 
      Caption         =   "删除"
      Height          =   300
      Left            =   4005
      TabIndex        =   5
      Top             =   1170
      Width           =   735
   End
   Begin VB.CommandButton cmdExit 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   315
      Left            =   4005
      TabIndex        =   7
      Top             =   1920
      Width           =   735
   End
   Begin VB.CommandButton cmdSave 
      Caption         =   "保存"
      Height          =   300
      Left            =   4005
      TabIndex        =   6
      Top             =   1545
      Width           =   735
   End
   Begin VB.TextBox txtNum 
      Height          =   270
      IMEMode         =   2  'OFF
      Left            =   1740
      MaxLength       =   8
      TabIndex        =   1
      Top             =   926
      Width           =   2010
   End
   Begin VB.TextBox txtScore 
      Height          =   270
      IMEMode         =   2  'OFF
      Left            =   1740
      MaxLength       =   1
      TabIndex        =   2
      Top             =   1319
      Width           =   2010
   End
   Begin VB.ComboBox cmbTeacher 
      Height          =   300
      Left            =   1725
      Style           =   2  'Dropdown List
      TabIndex        =   3
      Top             =   1712
      Width           =   2010
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "课程名称"
      Height          =   180
      Left            =   930
      TabIndex        =   17
      Top             =   578
      Width           =   720
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "课程编号"
      Height          =   180
      Left            =   930
      TabIndex        =   16
      Top             =   971
      Width           =   720
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "任课教师"
      Height          =   180
      Left            =   930
      TabIndex        =   15
      Top             =   1772
      Width           =   720
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "课程学分"
      Height          =   180
      Left            =   930
      TabIndex        =   14
      Top             =   1364
      Width           =   720
   End
End
Attribute VB_Name = "frmClass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim isAdding As Boolean             '定义操作状态标志
Dim objTeacher As Recordset         '用于保存教师编号和姓名
Dim objClass As Recordset           '用于保存课程信息记录
Dim objCn As Connection             '用于建立数据库联接

Private Sub cmdExit_Click()
    Unload Me                       '关闭课程信息管理窗体
End Sub

Private Sub Form_Load()
    '建立数据库联接
    Set objCn = New Connection                 '实例化联接对象
    With objCn                                 '建立数据库联接
        .Provider = "SQLOLEDB"
        .ConnectionString = "User ID=sa;PWD=123;Data Source=(local);" & _
                            "Initial Catalog=学籍管理"
        .Open
    End With
    '获取教师编号和姓名记录
    Set objTeacher = New Recordset              '实例化objTeacher对象
    With objTeacher
        Set .ActiveConnection = objCn           '设置数据库联接
        .CursorLocation = adUseClient           '指定使用客户端游标
        .CursorType = adOpenStatic              '指定使用静态游标
        .LockType = adLockOptimistic
        .Open "SELECT 编号,姓名 FROM 教师信息"  '获取教师信息记录
    End With
    '获取课程信息记录
    Set objClass = New Recordset               '实例化objClass对象
    With objClass
        Set .ActiveConnection = objCn           '设置数据库联接
        .CursorLocation = adUseClient           '指定使用客户端游标
        .CursorType = adOpenStatic              '指定使用静态游标
        .LockType = adLockOptimistic
        .Open "SELECT * FROM 课程信息"          '获取课程信息记录
    End With
    '建立教师姓名列表
    cmbTeacher.AddItem ""                        '添加一个空的列表项
    With objTeacher
        If .RecordCount > 0 Then
            .MoveFirst
            While Not .EOF
                cmbTeacher.AddItem .Fields("姓名")
                .MoveNext
            Wend
        End If
    End With
    '触发按钮单击事件，显示第一个记录