fillform.frm

很好的学习资料

VERSION 5.00
Begin VB.Form fillfrm 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "选课退课表单"
   ClientHeight    =   3390
   ClientLeft      =   4485
   ClientTop       =   3555
   ClientWidth     =   3525
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3390
   ScaleWidth      =   3525
   Begin VB.CommandButton withdrawcmd 
      Caption         =   "退课"
      Height          =   255
      Left            =   1320
      TabIndex        =   11
      Top             =   3000
      Width           =   855
   End
   Begin VB.TextBox courseIDtxt 
      Height          =   270
      Left            =   1200
      TabIndex        =   10
      Text            =   "Text1"
      Top             =   2400
      Width           =   2175
   End
   Begin VB.TextBox courseNametxt 
      Height          =   270
      Left            =   1200
      TabIndex        =   9
      Text            =   "Text1"
      Top             =   1920
      Width           =   2175
   End
   Begin VB.TextBox IDtxt 
      Height          =   270
      Left            =   1200
      TabIndex        =   8
      Text            =   "Text1"
      Top             =   1440
      Width           =   2175
   End
   Begin VB.TextBox nametxt 
      Height          =   270
      Left            =   1200
      TabIndex        =   7
      Text            =   "Text1"
      Top             =   960
      Width           =   2175
   End
   Begin VB.CommandButton abortcmd 
      Caption         =   "放弃"
      Height          =   255
      Left            =   2520
      TabIndex        =   5
      Top             =   3000
      Width           =   855
   End
   Begin VB.CommandButton submitcmd 
      Caption         =   "选课"
      Height          =   255
      Left            =   120
      TabIndex        =   4
      Top             =   3000
      Width           =   855
   End
   Begin VB.Label Label2 
      Caption         =   "如下是系统根据用户选择的课程自动生成并填写的选课退课表单，用户可以自行修改课程编号和，课程名称，选课以课程编号为准。"
      Height          =   735
      Left            =   240
      TabIndex        =   6
      Top             =   0
      Width           =   3015
   End
   Begin VB.Label Label1 
      Caption         =   "课程编号:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   3
      Left            =   120
      TabIndex        =   3
      Top             =   2400
      Width           =   975
   End
   Begin VB.Label Label1 
      Caption         =   "课程名称:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   2
      Left            =   120
      TabIndex        =   2
      Top             =   1920
      Width           =   975
   End
   Begin VB.Label Label1 
      Caption         =   "学号:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   1
      Left            =   120
      TabIndex        =   1
      Top             =   1440
      Width           =   615
   End
   Begin VB.Label Label1 
      Caption         =   "姓名:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   960
      Width           =   615
   End
End
Attribute VB_Name = "fillfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
    '   取消选课操作，隐藏窗体
    Private Sub abortcmd_Click()
        fillfrm.Hide
    End Sub
    
    '   初始化窗体位置
    Private Sub Form_Load()
        With fillfrm
        .Top = Screen.Height / 2 - .Height / 2
        .Left = Screen.width / 2 - .width / 2
        End With
    End Sub
    
    '   进行选课操作
    Private Sub submitcmd_Click()
        Dim rs As Recordset
        Dim sqlstr As String
        
        '   打开“学号课程”表
        Set rs = courseDB.OpenRecordset("学号课程", dbOpenDynaset)
        sqlstr = "学号='" & IDtxt.Text & "' and 课程编号 = '" & courseIDtxt.Text & "'"
        rs.FindFirst (sqlstr)    '在学号课程表中查找该用户是否已经选修了这么课程
        If rs.NoMatch Then       '如果没有选修该门课程
            '  添加选课记录到学号课程表中
            With rs
                .AddNew
                !学号 = IDtxt.Text
                !课程编号 = courseIDtxt.Text
                .Update
                .Bookmark = .LastModified
            End With
            MsgBox "选课成功", vbOKOnly
            fillfrm.Hide         '如果已经选修了该门课程
        Else
            MsgBox "你已经选修了这门课程", vbOKOnly
            fillfrm.Hide
        End If
        
        '  关闭记录集
        rs.Close
    End Sub
    
    '   进行退课操作
    Private Sub withdrawcmd_Click()
        Dim rs As Recordset
        Dim sqlstr As String
        
        '   打开“学号课程”表
        Set rs = courseDB.OpenRecordset("学号课程", dbOpenDynaset)
        sqlstr = "学号='" & IDtxt.Text & "' and 课程编号 = '" & courseIDtxt.Text & "'"
        rs.FindFirst (sqlstr)      '在学号课程表中查找该用户是否已经选修了这么课程
        If (Not rs.NoMatch) Then   '如果已经选修了该门课程
            rs.Delete
            MsgBox "退课成功", vbOKOnly
            fillfrm.Hide
        Else                       '如果没有选修该门课程
            MsgBox "你没有选修这门课程", vbOKOnly
            fillfrm.Hide
        End If
        
        '  关闭记录集
        rs.Close
    End Sub