内容为：驾驶考试管理系统 内含说明书 可直接使用实例 VB+SQL

				VERSION 5.00
				Begin VB.Form frmTmlb 
				   BorderStyle     =   3  'Fixed Dialog
				   Caption         =   "添加题目类别"
				   ClientHeight    =   1935
				   ClientLeft      =   2760
				   ClientTop       =   3750
				   ClientWidth     =   4620
				   Icon            =   "frmTmlb.frx":0000
				   LinkTopic       =   "Form1"
				   LockControls    =   -1  'True
				   MaxButton       =   0   'False
				   MinButton       =   0   'False
				   ScaleHeight     =   1935
				   ScaleWidth      =   4620
				   ShowInTaskbar   =   0   'False
				   StartUpPosition =   1  '所有者中心
				   Begin VB.TextBox txtTmlb 
				      Height          =   315
				      Left            =   105
				      TabIndex        =   0
				      Top             =   510
				      Width           =   4395
				   End
				   Begin VB.CommandButton CancelButton 
				      Cancel          =   -1  'True
				      Caption         =   "取消(&C)"
				      Height          =   375
				      Left            =   2760
				      TabIndex        =   2
				      Top             =   1125
				      Width           =   1215
				   End
				   Begin VB.CommandButton OKButton 
				      Caption         =   "确定(&O)"
				      Default         =   -1  'True
				      Enabled         =   0   'False
				      Height          =   375
				      Left            =   480
				      TabIndex        =   1
				      Top             =   1125
				      Width           =   1215
				   End
				   Begin VB.Label Label1 
				      AutoSize        =   -1  'True
				      Caption         =   "题目类别名称："
				      Height          =   180
				      Left            =   105
				      TabIndex        =   3
				      Top             =   210
				      Width           =   1260
				   End
				End
				Attribute VB_Name = "frmTmlb"
				Attribute VB_GlobalNameSpace = False
				Attribute VB_Creatable = False
				Attribute VB_PredeclaredId = True
				Attribute VB_Exposed = False
				
				Option Explicit
				Private mbIsCancelled As Boolean
				Private msTmlbMC As String '题目类别名称
				Public Property Get IsCancelled() As Boolean
				    IsCancelled = mbIsCancelled
				End Property
				Private Sub CancelButton_Click()
				    Unload Me
				End Sub
				
				Private Sub Form_Load()
				    mbIsCancelled = True
				End Sub
				Private Sub OKButton_Click()
				    msTmlbMC = txtTmlb.Text
				    mbIsCancelled = False
				    Unload Me
				End Sub
				
				Private Sub txtTmlb_Change()
				    If Trim(txtTmlb.Text) = "" Then
				        OKButton.Enabled = False
				    Else
				        OKButton.Enabled = True
				    End If
				End Sub
				'题目类别
				Public Property Get TmlbMC() As String
				    TmlbMC = msTmlbMC
				End Property