图2主程序界面

1．表单设计

（1）创建一个项目，名称为车辆管理系统，在该项目中添加一个表单，名称为Frmblack。

（2）在表单中添加Toolbar控件、Statusbar控件、Imagelist控件和Timer控件。

（3）重要控件属性如表1所示。

表1                        主程序界面重要控件属性列表

2．代码设计

在表单的 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.2  系统登录界面设计

用户在进入系统前，必须通过系统登录进入主程序界面，通过系统登录界面主要实现确认用户的身份及使用权限、并且判断是否支持鼠标和键盘操作。系统登录表单运行结果如图3所示。

若图片无法显示请联系QQ3249114,本论文免费,转发请注明源于www.751com.cn

图3  “用户登录”表单运行结果

1．表单设计

（1）添加一个表单，名称为Frmlogin。

（2）在表单中添加Label控件、Text控件、Command控件、Imagelist控件和Container控件。

（3）重要控件属性如表2所示。

表2                     “用户登录”表单重要控件属性列表

2．代码设计

在表单的Unload 事件中添加以下代码：

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页