评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

车辆管理系统+vb(一)毕业论文网(2)

2013-05-10 01:02 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