图2主程序界面
(1)创建一个项目,名称为车辆管理系统,在该项目中添加一个表单,名称为Frmblack。
(2)在表单中添加Toolbar控件、Statusbar控件、Imagelist控件和Timer控件。
(3)重要控件属性如表1所示。
表1 主程序界面重要控件属性列表
控件名 |
属性 |
值 |
Toolbar |
Style |
1-Transparent |
Timer |
Interval |
1000 |
在表单的 Init 事件中添加以下代码:
do menu\mnuhand.mpr with this,.t. &&调用系统菜单
this.toolbar.imagelist=this.imagelist
=this.toolbar.buttons.add(,'clda','',,1)
=this.toolbar.buttons.add(,'glyda','',,2)
=this.toolbar.buttons.add(,'yygl','',,3)
=this.toolbar.buttons.add(,'bar1','',3,1)
=this.toolbar.buttons.add(,'wxgl','',,4)
=this.toolbar.buttons.add(,'wzgl','',,5)
=this.toolbar.buttons.add(,'sggl','',,6)
=this.toolbar.buttons.add(,'bar2','',3,1)
=this.toolbar.buttons.add(,'cx','',5,7)
=this.toolbar.buttons.add(,'bar3','',3,1)
=this.toolbar.buttons.add(,'bz','',,8)
this.toolbar.buttons(1).tooltiptext="车辆档案"
this.toolbar.buttons(2).tooltiptext="驾驶员档案"
this.toolbar.buttons(3).tooltiptext="运营管理"
this.toolbar.buttons(5).tooltiptext="文修管理"
this.toolbar.buttons(6).tooltiptext="违章管理"
this.toolbar.buttons(7).tooltiptext="事故档案"
this.toolbar.buttons(9).tooltiptext="查询"
this.toolbar.buttons(11).tooltiptext="帮助"
在Toolbar 控件的ButtonClick 事件中添加以下代码:
do case
case button.index=1
do form form\frm车辆档案
case button.index=2
do form form\frm驾驶员档案
case button.index=3
do form form\frm车辆运营
case button.index=5
do form form\frm车辆文修
case button.index=6
do form form\frm车辆违章
case button.index=7
do form form\frm车辆事故管理
case button.index=9
do menu\leftmnu.mpr
case button.index=11
do form form\frm帮助
endcase
在时间控件的Timer 事件中添加以下代码用于在状态栏中实现显示系统时间。
thisform.statusbar.panels(1).text=alltrim(str(year(date())))+"年"+alltrim(str(;
month(date())))+"月"+alltrim(str(day(date())))+"日"+space(110)+alltrim(time())
用户在进入系统前,必须通过系统登录进入主程序界面,通过系统登录界面主要实现确认用户的身份及使用权限、并且判断是否支持鼠标和键盘操作。系统登录表单运行结果如图3所示。
图3 “用户登录”表单运行结果
(1)添加一个表单,名称为Frmlogin。
(2)在表单中添加Label控件、Text控件、Command控件、Imagelist控件和Container控件。
(3)重要控件属性如表2所示。
表2 “用户登录”表单重要控件属性列表
控件名 |
属性 |
值 |
Form1 |
AotoCenter BorderStyle ShowWindow |
.t. 0-无边框 2.作为顶层表单 |
Text1 |
PassWordChar |
|
在表单的Unload 事件中添加以下代码:
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页