MDIForm1.mnuyydelete.Enabled = False
MDIForm1.mnusyscsh.Enabled = False
MDIForm1.mnuglyset.Enabled = False
End Select
MDIForm1.Show
adors.Close
Unload Me
End If
End Sub
Private Sub Command2_Click()
Unload Me
'adoRs.Close
End Sub
Private Sub Form_Load()
Combo1.ListIndex = 0
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Combo1.SetFocus
End If
End Sub
2车辆报废查询:
代码分析:
Private Sub ckcp_Click()
If ckcp.Value Then
cmcp.Enabled = True
Else
cmcp.Enabled = False
End If
End Sub
Private Sub cktime_Click()
If cktime.Value Then
dtStart.Enabled = True
dtEnd.Enabled = True
Else
dtStart.Enabled = False
dtEnd.Enabled = False
End If
End Sub
Private Sub ckyy_Click()
If ckyy.Value Then
cmyy.Enabled = True
Else
cmyy.Enabled = False
End If
End Sub
Private Sub cmdCha_Click()
'点击查询按纽后首先清空车辆报废列表
Call QingKong
'定义查询条件的字符串
Dim sql As String
Dim scp As String
If ckcp.Value Then
scp = "车牌号码 like '%" & cmcp.Text & "%'"
Else
scp = "车牌号码 like '%'"
End If
Dim stime As String
If cktime.Value Then
stime = "报废日期 between #" & dtStart.Month & "/" & dtStart.Day & "/" & dtStart.Year & "# and #" & dtEnd.Month & "/" & dtEnd.Day & "/" & dtEnd.Year & "#"
Else
stime = "报废日期 like '%'"
End If
Dim sdd As String
If ckyy.Value Then
syy = "报废原因 like'%" & cmyy.Text & "%'"
Else
syy = "报废原因 like '%'"
End If
sql = "select * from 车辆报废表 where " & scp & "and " & syy & "and " & stime
'如果没有选择查询条件,那么清空上一次查询结果并给出对话框提示,退出查询过程
If sql = "select * from 车辆报废表 where 车牌号码 like '%'and 报废原因 like '%'and 报废日期 like '%'" Then
Call QingKong
MsgBox "请选择查询条件", , "系统提示"
Exit Sub
End If
'返回符合查询条件的记录集
Set adors = adoCon.Exe