frmsubjectsetedit.frm

本论文以“计算机考试系统”的开发为背景

VERSION 5.00
Begin VB.Form frmSubjectSetEdit 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "套号编辑"
   ClientHeight    =   2565
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4170
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   10.5
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2565
   ScaleWidth      =   4170
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Caption         =   "返回"
      Height          =   435
      Left            =   2340
      TabIndex        =   3
      Top             =   1770
      Width           =   1245
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   435
      Left            =   510
      TabIndex        =   2
      Top             =   1770
      Width           =   1245
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   330
      TabIndex        =   0
      Top             =   1020
      Width           =   3495
   End
   Begin VB.Label Label1 
      Caption         =   "请输入添加的套号名称:"
      Height          =   210
      Left            =   300
      TabIndex        =   1
      Top             =   690
      Width           =   2205
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   270
      Picture         =   "frmSubjectSetEdit.frx":0000
      Top             =   60
      Width           =   480
   End
End
Attribute VB_Name = "frmSubjectSetEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
Dim rst As Recordset
On Error GoTo Proc_Exit
    If Len(Text1) > 0 Then
        Set rst = New Recordset
        rst.Open "select * from 套号", pCN, adOpenStatic, adLockBatchOptimistic
        rst.AddNew
        rst![套号名称] = Text1
        rst.UpdateBatch
        Text1 = ""
    End If
Proc_Exit:
    If Err.Number <> 0 Then
        If Err.Number = -2147467259 Then
            MsgBox "套号名称不能重复!", vbInformation
        Else
            MsgBox "发生意外错误,错误号:" & Err.Number & " 错误描述:" & Err.Description, vbInformation
        End If
        Err.Clear
    End If
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub