【VB开源代码栏目提醒】：网学会员为需要VB开源代码的朋友们搜集整理了frmcarDAlr.frm相关资料，希望对各位网友有所帮助!

    VERSION 5.00
    Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
    Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
    Begin VB.Form frmcarDAlr 
       BackColor       =   &H8000000A&
       BorderStyle     =   3  'Fixed Dialog
       Caption         =   "车辆档案记录"
       ClientHeight    =   2700
       ClientLeft      =   45
       ClientTop       =   330
       ClientWidth     =   7320
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       MDIChild        =   -1  'True
       MinButton       =   0   'False
       ScaleHeight     =   2700
       ScaleWidth      =   7320
       ShowInTaskbar   =   0   'False
       Begin VB.ComboBox Combo2 
          DataField       =   "驾驶员编号"
          DataSource      =   "Adodc1"
          Enabled         =   0   'False
          Height          =   300
          Left            =   1440
          TabIndex        =   34
          Top             =   1080
          Width           =   1365
       End
       Begin VB.CommandButton cmdCancel 
          Caption         =   "取 消(&Q)"
          Enabled         =   0   'False
          Height          =   330
          Left            =   6030
          TabIndex        =   1
          Top             =   1875
          Width           =   1095
       End
       Begin VB.CommandButton cmdok 
          Caption         =   "确 定(&O)"
          Enabled         =   0   'False
          Height          =   330
          Left            =   6030
          TabIndex        =   4
          Top             =   1560
          Width           =   1095
       End
       Begin VB.CommandButton cmdFind 
          Caption         =   "查 询(&F)"
          Height          =   330
          Left            =   6030
          TabIndex        =   33
          Top             =   1170
          Width           =   1095
       End
       Begin VB.Frame Frame1 
          Caption         =   "车辆档案记录"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   10.5
             Charset         =   134
             Weight          =   700
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          ForeColor       =   &H00FF0000&
          Height          =   2505
          Left            =   120
          TabIndex        =   6
          Top             =   105
          Width           =   5685
          Begin VB.ComboBox Combo1 
             DataField       =   "车辆类型"
             DataSource      =   "Adodc1"
             Enabled         =   0   'False
             Height          =   300
             Left            =   1320
             TabIndex        =   32
             Top             =   615
             Width           =   1365
          End
          Begin VB.ComboBox cmnj 
             DataField       =   "年检审"
             DataSource      =   "Adodc1"
             Enabled         =   0   'False
             Height          =   300
             ItemData        =   "frmcarDAlr.frx":0000
             Left            =   4200
             List            =   "frmcarDAlr.frx":000A
             Style           =   2  'Dropdown List
             TabIndex        =   15
             Top             =   969
             Width           =   1365
          End
          Begin VB.ComboBox cmbf 
             DataField       =   "报废否"
             DataSource      =   "Adodc1"
             Enabled         =   0   'False
             Height          =   300
             ItemData        =   "frmcarDAlr.frx":0016
             Left            =   4200
             List            =   "frmcarDAlr.frx":0020
             Style           =   2  'Dropdown List
             TabIndex        =   14
             Top             =   1965
             Width           =   1365
          End
          Begin VB.ComboBox cmyd 
             DataField       =   "异动否"
             DataSource      =   "Adodc1"
             Enabled         =   0   'False
             Height          =   300
             ItemData        =   "frmcarDAlr.frx":002C
             Left            =   4200
             List            =   "frmcarDAlr.frx":0036
             Style           =   2  'Dropdown List
             TabIndex        =   13
             Top             =   1653
             Width           =   1365
          End
          Begin VB.ComboBox cmbx 
             DataField       =   "保险否"
             DataSource      =   "Adodc1"
             Enabled         =   0   'False
             Height          =   300
             ItemData        =   "frmcarDAlr.frx":0042
             Left            =   4200
             List            =   "frmcarDAlr.frx":004C
             Style           =   2  'Dropdown List
             TabIndex        =   12
             Top             =   1311
             Width           =   1365
          End
          Begin VB.TextBox Text4 
             DataField       =   "使用人或单位"
             DataSource      =   "Adodc1"
             Enabled         =   0   'False
             Height          =   285
             Left            =   1320
             TabIndex        =   11
             Top             =   1311
             Width           =   1365
          End
          Begin VB.TextBox Text5 
             DataField       =   "车辆所在单位"
             DataSource      =   "Adodc1"
             Enabled         =   0   'False
             Height          =   285
             Left            =   1320
             TabIndex        =   10
             Top             =   1653
             Width           =   1365
          End
          Begin VB.TextBox Text6 
             DataField       =   "备注"
             DataSource      =   "Adodc1"
             Enabled         =   0   'False
             Height          =   285
             Left            =   1320
             TabIndex        =   9
             Top             =   1995
             Width           =   1365
          End
          Begin VB.TextBox Text1 
             DataField       =   "车牌号码"
             DataSource      =   "Adodc1"
             Enabled         =   0   'False
             Height          =   285
             Left            =   1320
             TabIndex        =   8
             Top             =   285
             Width           =   1365
          End
          Begin VB.TextBox Text7 
             DataField       =   "厂牌型号"
             DataSource      =   "Adodc1"
             Enabled         =   0   'False
             Height          =   285
             Left            =   4200
             TabIndex        =   7
             Top             =   285
             Width           =   1365
          End
          Begin MSComCtl2.DTPicker DTPicker1 
             Height          =   285
             Left            =   4200
             TabIndex        =   16
             Top             =   615
             Width           =   1365
             _ExtentX        =   2408
             _ExtentY        =   503
             _Version        =   393216
             Enabled         =   0   'False
             Format          =   27000833
             CurrentDate     =   38052
          End
          Begin MSAdodcLib.Adodc Adodc1 
             Height          =   330
             Left            =   1995
             Top             =   2130
             Visible         =   0   'False
             Width           =   1455
             _ExtentX        =   2566
             _ExtentY        =   582
             ConnectMode     =   0
             CursorLocation  =   3
             IsolationLevel  =   -1
             ConnectionTimeout=   15
             CommandTimeout  =   30
             CursorType      =   3
             LockType        =   3
             CommandType     =   1
             CursorOptions   =   0
             CacheSize       =   50
             MaxRecords      =   0
             BOFAction       =   0
             EOFAction       =   0
             ConnectStringType=   1
             Appearance      =   1
             BackColor       =   12632256
             ForeColor       =   16711680
             Orientation     =   0
             Enabled         =   -1
             Connect         =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=clgl.mdb;Persist Security Info=False"
             OLEDBString     =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=clgl.mdb;Persist Security Info=False"
             OLEDBFile       =   ""
             DataSourceName  =   ""
             OtherAttributes =   ""
             UserName        =   ""
             Password        =   ""
             RecordSource    =   "select * from 车辆档案"
             Caption         =   "    车  辆  档  案  记  录  浏  览"
             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
                Name            =   "宋体"
                Size            =   10.5
                Charset         =   134
                Weight          =   700
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =