车辆管理系统+vb(二)

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

首页 上一页 1 2 3 4 5 6 下一页 尾页 2/6/6