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

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

2013-05-10 01:02 cute(sql)
  '如果记录集为空，说明没有符合条件的记录存在，清空上一次查询结果集并提示，
  '退出此次查询过程，否则在datagrid1控件里显示记录集
  If adors.EOF Then
     Call QingKong
     MsgBox "对不起，没有符合您查询条件的车辆！", , "系统提示"
  Else
     Adodc1.RecordSource = sql
     Adodc1.Refresh
  End If
  adors.Close
  ckcp.Value = 0
  cktime.Value = 0
  ckyy.Value = 0
End Sub

Private Sub cmdExit_Click()
  MDIForm1.StatusBar1.Panels(1).Text = ""
  Unload Me
End Sub
Private Sub Form_Load()
  frmcarBFcha.Height = 4155
  frmcarBFcha.Width = 5730
  Label1.Caption = "车辆报废列表"
  Call Rebind
  '将车辆报废表里的车牌号码加到cmcp控件里
  Set adors = adoCon.Execute("select distinct 车牌号码,报废原因 from 车辆报废表")
  On Error Resume Next
  Do
    cmcp.AddItem adors.Fields(0)
    cmyy.AddItem adors.Fields(1)
    adors.MoveNext
  Loop Until adors.EOF
End Sub
Private Sub Rebind()
  Label1.Caption = "车辆报废列表"
  '进行与数据库的绑定及选择作为记录源的表
  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()
    Label1.Caption = "您所要查询的报废车辆记录如下："
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb " & ";Persist Security Info=False"

（科教范文网 lw.nseaC.Com编辑发布）

    Adodc1.RecordSource = "select * from 车辆报废表 where 0=1"
    Adodc1.Refresh
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    cmdExit_Click
End Sub

 

3.车辆档案查询:

代码分析:
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 （科教范文网 lw.AsEac.com编辑整理）
  cm