在主界面拖放控件Mainmenu,并设置其菜单项分别为档案管理,运营管理,车辆管理,驾驶员管理,系统文护,关于。在菜单项档案管理下设置其选项:车辆档案录入,车辆档案查询,车辆异动,车辆异动查询,车辆报废,车辆报废查询,车辆类型。在运营管理菜单设置其选项:车辆运营管理,车辆运营查询,清空运营表。在车辆管理菜单下设置其选项:车辆文修管理,车辆文修查询,添加零件,车辆违章管理,车辆违章查询,车辆事故管理,车辆事故查询。在驾驶员管理菜单下设置其选项:驾驶员档案,驾驶员档案查询,驾驶员奖惩。在系统文护菜单下设置其选项:系统初始化,管理员设置,数据备份,数据恢复。在关于菜单下设置其选项:帮助,关于,注销。原文请找腾讯752018766辣-文^论,文.网http://www.751com.cn
添加toolbar控件和lmagelist控件,两者关联。在toolbar中添加12个按钮,分别对应车辆档案录入,车辆档案查询,车辆异动查询,车辆报废查询,车辆运营查询,车辆文修管理,添加零件,车辆违章查询,差了事故查询,驾驶员档案查询,注销。在lmagelist中添加相应图标对应toolbar中的12个按钮。
Toolbar与mainmenu中选项的onclick事件都为tbtnaddrecordclick事件。
添加控件adoquery1,adoquery2,label1各控件属性如表4-2,代码见附录B-部分代码。
表4-2 控件属性表
控件名 属性 值
Lmagelist
pictrue 图片所在路径
Align alcient
Autosize false
Adoquery1
name aqry
connection DataModule1.connOracle
adoquery2 name qryOperation。
connection DataModule1.connOracle
label1 caption 车辆管理系统
4.3 车辆档案管理设计
在form1中添加控件panel,panel2,toolbar1,再在各控件中添加相应控件,位置如图4-3,控件属性见表4-3,代码见附录B-部分代码。
图4-3 车辆档案管理设计图
表4-3 控件属性表
控件名 属性 值
Adoquery1
Adoquery2
Adoquery3
name atbVehicle
name atbType
name atbDriver
Connection DataModule1.connOracle
Datasource1
Dataset dsVehicle
name atbVehicle
Datasource2 Dataset dsType
name atbType
Datasource3 Dataset atbDriver
name atbDriver
DBEdit1 dataField PLATENO
DBLoolupCombobox1 dataField TYPENO
DBLoolupCombobox1 dataField DRIVERNO
DBEdit2 dataField CAPACITY
DBEdit3 dataField USINGDEPT
DBEdit4 dataField BELONGDEPT
DBEdit5 dataField ENGINEMODEL
DBEdit6 dataField FRAMENO
DBEdit7 dataField FACTORYPLATENO
DBEdit8 dataField Review
DBEdit9 dataField Insure
DBEdit10dataField ACQUISITIONDATE
共有属性dataSource dsVehicle
4.4 车辆档案查询设计
设置Form属性caption为车辆档案查询,name为frmVehicleRecord。
添加控件panel,DBGrid,adoquery,datasource到frmVehicleRecord中,控件位置如图4-4,控件属性见表4-4,代码见附录B-部分代码。
图4-4 控件位置图
表4-4 控件属性表
控件名 属性 值
Panel1 caption 车辆档案查询
Radiobutton1
caption 按车牌号
Tag 1
Radiobutton2
caption 按驾驶员
Tag 2
Radiobutton3
caption 按车辆类型
Tag 3 原文请找腾讯752018766辣-文^论,文.网http://www.751com.cn
Radiobutton4
caption 异动车辆
Tag 4
Radiobutton5
caption 以报废车辆
Tag 5
Radiobutton6
caption 没有年检车辆
Tag 6
Radiobutton7
caption 没有保险车辆
Tag 7
Radiobutton共有 Onclick radioButton1click
Combobox1 onclick Combobox1change
Combobox2 onclick Combobox2change
Combobox3 onclick Combobox3change
Adoquery1 name aqryQuery
Adoquery2 name aqryVehicle
Adoquery3 name aqryDCType
Adoquery4 name aqryDriver
Adoquery共有 Connection DataModule1.connOracle
Datasource1 name dsQuery
Dataset aqryQuery
4.5 数据库连接设计
本系统使用的数据库为sql server2000,程序使用ado控件的connectionstring属性连接数据库。程序中连接数据库的控件较多,因此采用在datamodule中放置一个adoconnection控件供多个aodquery控件连接数据库的方法,如图4-5所示。