车辆管理系统

第一章 引言
1．1 课题背景
车辆管理系统用计算机管理机动车辆的档案,运营管理以及驾驶员信息的一种计算机应用技术的创新,在计算机还未普及之前车辆管理都是由工作人员手工抄写的方式来操作的.现在一般的车辆管理都是采用计算机作为工具的实用的计算机智能化车辆管理程序来帮助工作人员进行更有效的机动车辆管理。车辆管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。
第二章 系统的分析
2.1系统开发的目标和思想
  
本系统主要服务于机动车管理人员的日常工作.利用本系统可以方便的监控管理本区域的驾驶员信息.在此基础上力求软件界面人性化以及操作简单,程序具有健壮性等.

think58

[资料来源：http://think58.com]

2.2 系统的可行性分析
技术上:本系统采用visual basic 6.0与微软的access作为数据库,技术上开发难度一般.
经济上:本系统服务于车辆管理人员,提高了车管工作者办事效率,节省了开支.所以具有经济上的可行性.
社会上:本系统同时也方便了广大驾驶员.所以具有社会可行性.

本文来自think58 [资料来源：www.THINK58.com]

代码分析:
Private Sub ckbf_Click()
  If ckbf.Value Then
     Combo6.Enabled = True
  Else
     Combo6.Enabled = False
  End If
End Sub 本文来自think58

[版权所有：http://think58.com]

Private Sub ckbx_Click()
  If ckbx.Value Then
     Combo4.Enabled = True
  Else
     Combo4.Enabled = False
  End If
End Sub [资料来源：http://think58.com]

Private Sub ckcp_Click()
  If ckcp.Value Then
      Combo1.Enabled = True
  Else
      Combo1.Enabled = False
  End If
End Sub think58

[版权所有：http://think58.com]

Private Sub ckdw_Click()
  If ckdw.Value Then
     Combo3.Enabled = True
  Else
     Combo3.Enabled = False
  End If
End Sub [来源：http://www.think58.com]

Private Sub cklx_Click()
  If cklx.Value Then
     Combo2.Enabled = True
  Else
     Combo2.Enabled = False
  End If
End Sub

本文来自think58

[资料来源：http://think58.com]

[来源：http://think58.com]

Private Sub ckyd_Click()
  If ckyd.Value Then
     Combo5.Enabled = True
  Else
     Combo5.Enabled = False
  End If
End Sub think58 [版权所有：http://think58.com]

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
  cmdOk.Enabled = False
End Sub think58好，好think58

Private Sub cmdExit_Click()
  MDIForm1.StatusBar1.Panels(1).Text = ""
  Unload Me
End Sub

本文来自think58

[资料来源：www.THINK58.com]

Private Sub cmdCha_Click()
  '点击查询按纽后首先清空车辆档案列表
  Call QingKong
  cmdCha.Visible = False
  cmdAll.Visible = True
  Frame1.Enabled = True
  cmdOk.Enabled = True
End Sub 内容来自think58

Private Sub cmdOk_Click()
    Dim sql As String
    Dim scp As String
    If ckcp.Value Then
       scp = "车牌号码 like '" & Combo1.Text & "%'"
    Else
       scp = "车牌号码 like '%'"
    End If
    Dim slx As String
    If cklx.Value Then
        slx = "车辆类型 like'%" & Combo2.Text & "%'"
        Else
        slx = "车辆类型 like '%'"
    End If
   
    Dim sdw As String
    If ckdw.Value Then
        sdw = "车辆所在单位 like'%" & Combo3.Text & "%'"
        Else
        sdw = "车辆所在单位 like '%'" 内容来自think58

[资料来源：www.THINK58.com]

    End If
   
    Dim sbx As String
    If ckbx.Value Then
        sbx = "保险否='" & Combo4.Text & "'"
        Else
        sbx = "保险否 like '%'"
    End If
   
    Dim syd As String
    If ckyd.Value Then
       syd = "异动否='" & Combo5.Text & "'"
       Else
        syd = "异动否 like '%'"
    End If
   
    Dim sbf As String
    If ckbf.Value Then
        sbf = " 报废否='" & Combo6.Text & "'"
        Else
        sbf = "报废否 like '%'"
    End If
   
    sql = "select * from 车辆档案 where " & scp & "and " & slx & "and " & sdw & "and " & sbx & "and " & syd & "and " & sbf
    'MsgBox sql
   
copyright think58