frmcardacha.frm

用VB开发的车辆数据库管理系统

      End
      Begin VB.ComboBox Combo5 
         Enabled         =   0   'False
         Height          =   300
         ItemData        =   "frmcarDAcha.frx":1C90
         Left            =   4680
         List            =   "frmcarDAcha.frx":1C9A
         TabIndex        =   5
         Top             =   960
         Width           =   975
      End
      Begin VB.ComboBox Combo4 
         Enabled         =   0   'False
         Height          =   300
         ItemData        =   "frmcarDAcha.frx":1CA6
         Left            =   4680
         List            =   "frmcarDAcha.frx":1CB0
         TabIndex        =   4
         Top             =   480
         Width           =   975
      End
      Begin VB.ComboBox Combo3 
         Enabled         =   0   'False
         Height          =   300
         Left            =   1800
         TabIndex        =   3
         Top             =   1440
         Width           =   1695
      End
      Begin VB.ComboBox Combo2 
         Enabled         =   0   'False
         Height          =   300
         Left            =   1800
         TabIndex        =   2
         Top             =   960
         Width           =   1695
      End
      Begin VB.ComboBox Combo1 
         Enabled         =   0   'False
         Height          =   300
         Left            =   1800
         TabIndex        =   1
         Top             =   480
         Width           =   1695
      End
   End
   Begin VB.Image Imgexit 
      Height          =   375
      Left            =   6060
      Picture         =   "frmcarDAcha.frx":1CBC
      Stretch         =   -1  'True
      Top             =   4110
      Width           =   1650
   End
   Begin VB.Image Imgok 
      Height          =   375
      Left            =   6090
      Picture         =   "frmcarDAcha.frx":5C8E
      Stretch         =   -1  'True
      Top             =   3480
      Width           =   1650
   End
   Begin VB.Image Imgcha 
      Height          =   375
      Left            =   6090
      Picture         =   "frmcarDAcha.frx":9C96
      Stretch         =   -1  'True
      Top             =   2835
      Width           =   1650
   End
   Begin VB.Image Imgall 
      Height          =   375
      Left            =   6090
      Picture         =   "frmcarDAcha.frx":E1B4
      Stretch         =   -1  'True
      Top             =   2835
      Width           =   1650
   End
End
Attribute VB_Name = "frmcarDAcha"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************************************************************************
'**模 块 名：frmcardacha
'**版权说明：吉林省明日科技有限公司享有本软件的所有版权，如果本软件用于商
'**          业用途，必须经过吉林省明日科技有限公司授权。如果提供网上免费
'**          下载，必须经过吉林省明日科技有限公司授权，并保证程序的完整，
'**          不得修改代码、注释和相关内容，否则，我公司将追究其法律责任
'**网    址：www.mingrisoft.com  价值无限，服务无限
'**电    话：[phone],84978982
'**创 建 人：明日科技
'**日    期：2007-10-31
'**修 改 人：mraj
'**日    期：2007-10-31
'**描    述：
'*************************************************************************
Private Sub ckbf_Click()
    If ckbf.Value Then
        Combo6.Enabled = True
    Else
        Combo6.Enabled = False
    End If
End Sub
Private Sub ckbx_Click()
    If ckbx.Value Then
        Combo4.Enabled = True
    Else
        Combo4.Enabled = False
    End If
End Sub
Private Sub ckcp_Click()
    If ckcp.Value Then
        Combo1.Enabled = True
    Else
        Combo1.Enabled = False
    End If
End Sub
Private Sub ckdw_Click()
    If ckdw.Value Then
        Combo3.Enabled = True
    Else
        Combo3.Enabled = False
    End If
End Sub
Private Sub cklx_Click()
    If cklx.Value Then
        Combo2.Enabled = True
    Else
        Combo2.Enabled = False
    End If
End Sub
Private Sub ckyd_Click()
    If ckyd.Value Then
        Combo5.Enabled = True
    Else
        Combo5.Enabled = False
    End If
End Sub
Private Sub Form_Load()
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb;Persist Security Info=False"
    Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb;Persist Security Info=False"
    Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb;Persist Security Info=False"
    Set DataGrid1.DataSource = Adodc1
    Call Rebind
    '设置控件状态
    Imgall.Visible = False
    Imgcha.Visible = True
    Imgok.Enabled = False
    '设置窗体大小
    frmcarDAcha.Height = 5070
    frmcarDAcha.Width = 7935
    '将表里存在的所有车牌加到控件combo1里
    On Error Resume Next
    Adodc1.RecordSource = "select distinct 车牌号码 from 车辆档案"
    Do
        Combo1.AddItem Adodc1.Recordset.Fields(0)
        Adodc1.Recordset.MoveNext
    Loop Until Adodc1.Recordset.EOF
    Adodc1.Refresh
    Adodc2.RecordSource = "select distinct 车辆类型 from 车辆档案"
    Adodc2.Refresh
    Do
        Combo2.AddItem Adodc2.Recordset.Fields(0)   '向ComboBox控件中添加数据项
        Adodc2.Recordset.MoveNext
    Loop Until Adodc2.Recordset.EOF
    Adodc3.RecordSource = "select distinct 车辆所在单位 from 车辆档案"
    Adodc3.Refresh
    Do
        Combo3.AddItem Adodc3.Recordset.Fields(0)
        Adodc3.Recordset.MoveNext
    Loop Until Adodc3.Recordset.EOF
    Adodc1.RecordSource = "select * from 车辆档案"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Imgexit_Click
End Sub
Private Sub Rebind()
    Frame2.Caption = "车辆档案列表"
    '联接数据库及选表
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb " & ";Persist Security Info=False"
    Adodc1.RecordSource = "select * from 车辆档案"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub QingKong()
    Frame2.Caption = "您所要查询的车辆档案如下："
    '清空datagrid1控件里的记录
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb " & ";Persist Security Info=False"
    Adodc1.RecordSource = "select * from 车辆档案 where 0=1"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub Imgexit_Click()
  MDIForm1.StatusBar1.Panels(1).Text = ""
  Unload Me
End Sub
Private Sub Imgok_Click()   '查询
    Dim sql As String
    Dim scp As String
    If ckcp.Value Then
        scp = "车牌号码 like '" & Combo1.Text & "%'"
    Else
        scp = "车牌号码 like '%'"
    End If
    Dim slx As String
    If cklx.Value Then
        slx = "车辆类型 like'%" & Combo2.Text & "%'"
    Else
        slx = "车辆类型 like '%'"
    End If

    Dim sdw As String
    If ckdw.Value Then
        sdw = "车辆所在单位 like'%" & Combo3.Text & "%'"
    Else
        sdw = "车辆所在单位 like '%'"
    End If

    Dim sbx As String
    If ckbx.Value Then
        sbx = "保险否='" & Combo4.Text & "'"
    Else
        sbx = "保险否 like '%'"
    End If

    Dim syd As String
    If ckyd.Value Then
        syd = "异动否='" & Combo5.Text & "'"
    Else
        syd = "异动否 like '%'"
    End If

    Dim sbf As String
    If ckbf.Value Then
        sbf = " 报废否='" & Combo6.Text & "'"
    Else
        sbf = "报废否 like '%'"
    End If

    sql = "select * from 车辆档案 where " & scp & "and " & slx & "and " & sdw & "and " & sbx & "and " & syd & "and " & sbf

    If sql = "select * from 车辆档案 where 车牌号码 like '%'and 车辆类型 like '%'and 车辆所在单位 like '%'and 保险否 like '%'and 异动否 like '%'and 报废否 like '%'" Then
        MsgBox "请选择查询条件", , "车辆管理系统"

        Call QingKong
        Exit Sub
    End If
    Call main1
    Set adors = adoCon.Execute(sql)
    If adors.EOF Then
        '清空上一次的查询记录
        Call QingKong
        '给出文本框提示
        MsgBox "没有符合查询条件的记录！", , "车辆管理系统"
    Else
        Adodc1.RecordSource = sql
        Adodc1.Refresh
    End If
    adors.Close
    adoCon.Close

    ckcp.Value = 0
    cklx.Value = 0
    ckdw.Value = 0
    ckbx.Value = 0
    ckyd.Value = 0
    ckbf.Value = 0
End Sub

Private Sub Imgall_Click() '显示所有车辆档案
    Frame1.Enabled = False
    ckcp.Value = 0
    cklx.Value = 0
    ckdw.Value = 0
    ckbx.Value = 0
    ckyd.Value = 0
    ckbf.Value = 0
    Call Rebind
    Imgcha.Visible = True
    Imgall.Visible = False
    Imgok.Enabled = False

End Sub

Private Sub Imgcha_Click()  '车辆档案查询
    Call QingKong
    Imgcha.Visible = False
    Imgall.Visible = True
    Frame1.Enabled = True
    Imgok.Enabled = True
End Sub