网站地图| 免费获取|
免费论文网
  • 网站首页|
  • 论文范文|
  • 修改降重|
  • 职称论文|
  • 合作期刊|
  • 论文下载|
  • 计算机论文|
  • 外文翻译|
  • 免费论文|
  • 原创论文|
  • 开题报告论文
搜索

当前位置:免费论文网 -> 免费论文 -> 计算机论文 -> 车辆管理系统+vb(三)
计算机论文| ASP设计| Delphi| VB设计| JSP设计| ASP.NET设计| VB.NET| java设计| VC| pb| VS| dreamweaver| c#.net| vf| VC++| 计算机论文范文| 论文下载| 自动化论文

车辆管理系统+vb(三)

车辆管理系统+vb(三) 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"
    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
  cm

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

车辆管理系统+vb(三)由免费论文网(www.jaoyuw.com)会员上传。
原创论文流程 相关论文
上一篇:超市进销存管理系统+VB 下一篇:地籍登记管理系统+vb
推荐论文 本专业最新论文
Tags:车辆 管理系统 2010-04-23 20:14:10【返回顶部】
精彩推荐
发表论文

联系方式 | 论文说明 | 网站地图 | 免费获取 | 钻石会员 | 硕士论文


免费论文网提供论文范文,论文代发,原创论文

本站部分文章来自网友投稿上传,如发现侵犯了您的版权,请联系指出,本站及时确认并删除  E-mail: 17304545@qq.com

Copyright@ 2009-2020 免费论文网 版权所有 湘ICP备19027999