车辆管理系统+vb(二)

车辆管理系统+vb(二) sp;      Case "普通用户"
                 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

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

车辆管理系统+vb(二)由免费论文网（www.jaoyuw.com）会员上传。