?? frmcardacha.frm
字號:
Caption = "車輛所在單位："
Height = 255
Left = 240
TabIndex = 10
Top = 1440
Width = 1575
End
Begin VB.CheckBox cklx
Caption = "車輛類型："
Height = 255
Left = 240
TabIndex = 9
Top = 960
Width = 1215
End
Begin VB.CheckBox ckcp
Caption = "車牌號碼："
Height = 255
Left = 240
TabIndex = 8
Top = 480
Width = 1215
End
Begin VB.ComboBox Combo6
Enabled = 0 'False
Height = 300
ItemData = "frmcardacha.frx":0015
Left = 4680
List = "frmcardacha.frx":001F
TabIndex = 7
Top = 1440
Width = 975
End
Begin VB.ComboBox Combo5
Enabled = 0 'False
Height = 300
ItemData = "frmcardacha.frx":002B
Left = 4680
List = "frmcardacha.frx":0035
TabIndex = 6
Top = 960
Width = 975
End
Begin VB.ComboBox Combo4
Enabled = 0 'False
Height = 300
ItemData = "frmcardacha.frx":0041
Left = 4680
List = "frmcardacha.frx":004B
TabIndex = 5
Top = 480
Width = 975
End
Begin VB.ComboBox Combo3
Enabled = 0 'False
Height = 300
Left = 1800
TabIndex = 4
Top = 1440
Width = 1695
End
Begin VB.ComboBox Combo2
Enabled = 0 'False
Height = 300
Left = 1800
TabIndex = 3
Top = 960
Width = 1695
End
Begin VB.ComboBox Combo1
Enabled = 0 'False
Height = 300
Left = 1800
TabIndex = 2
Top = 480
Width = 1695
End
End
Begin VB.CommandButton cmdOk
Caption = " 查 詢(&F)"
Enabled = 0 'False
Height = 375
Left = 6090
TabIndex = 0
Top = 3495
Width = 1575
End
End
Attribute VB_Name = "frmcardacha"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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 cmdAll_Click()
Frame1.Enabled = False
ckcp.Value = 0
cklx.Value = 0
ckdw.Value = 0
ckbx.Value = 0
ckyd.Value = 0
ckbf.Value = 0
Call Rebind
cmdCha.Visible = True
cmdAll.Visible = False
cmdok.Enabled = False
End Sub
Private Sub cmdExit_Click()
MDIForm1.StatusBar1.Panels(1).Text = ""
Unload Me
End Sub
Private Sub cmdCha_Click()
'點擊查詢按紐后首先清空車輛檔案列表
Call QingKong
cmdCha.Visible = False
cmdAll.Visible = True
Frame1.Enabled = True
cmdok.Enabled = True
End Sub
Private Sub cmdOk_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
'MsgBox sql
If sql = "select * from 車輛檔案 where 車牌號碼 like '%'and 車輛類型 like '%'and 車輛所在單位 like '%'and 保險否 like '%'and 異動否 like '%'and 報廢否 like '%'" Then
MsgBox "請選擇查詢條件", , "系統(tǒng)提示"
'清空上一次的查詢記錄
Call QingKong
Exit Sub
End If
Set adors = adoCon.Execute(sql)
If adors.EOF Then
'清空上一次的查詢記錄
Call QingKong
'給出文本框提示
MsgBox "沒有符合您查詢車輛的條件！", , "系統(tǒng)提示"
Else
Adodc1.RecordSource = sql
Adodc1.Refresh
End If
adors.Close
ckcp.Value = 0
cklx.Value = 0
ckdw.Value = 0
ckbx.Value = 0
ckyd.Value = 0
ckbf.Value = 0
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb;Persist Security Info=False"
Call Rebind
cmdAll.Visible = False
cmdCha.Visible = True
cmdok.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)
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
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
cmdExit_Click
End Sub
Private Sub Rebind()
Frame2.Caption = "車輛檔案列表"
'聯(lián)接數(shù)據(jù)庫及選表
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb " & ";Persist Security Info=False"
Adodc1.RecordSource = "select * from 車輛檔案"
Adodc1.Refresh
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
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -