程序主界面的设计的好坏往往影响到软件的整体形象，因此首先要处理好程序主界面的设计问题。同时，程序主界面的设计也是程序控制的核心，操作权限、程序功能调用等都要通过主程序调用实现。通用进销存管理系统程序主界面设计的运行结果如图2所示
图2 程序主界面设计的运行结果
（1）新建一个项目，命名为“通用进销存管理系统”，在该项目中添加一个新表单，命名为“frmmain”，并设置表单的Caption属性为“通用进销存管理系统 v2.0版”，设置Icon属性为“sys(5)+sys(2003)+'\graphics\proICO.ico'”，设置KeyPreview属性为.T.，作用是截获表单内控件的KeyPress事件；设置ShowWindow属性为“2-作为顶层表单”；设置WindowState属性为“2-最大化”。
（2）在表单的Unload事件下添加如下代码：
_screen.visible=.t. &&恢复Visual FoxPro主窗体的位置，退出Visual FoxPro
_screen.top=0
QUIT在表单的QueryUnload事件下添加如下代码：
this.Lockdatebase1.lock(sys(5)+sys(2003)+"\data\DataBase.dbc",;
"正在加密，请稍后...") &&数据库加密
IF file(sys(5)+sys(2003)+'\Setup.tmp')=.t.
DELE FILE sys(5)+sys(2003)+'\Setup.tmp'
ENDIF
“通用进销存管理系统”的菜单是通过10个快捷菜单拼成的，并且具有彩色背景、动态增减菜单项的功能。
（1）在表单中增加ToolBar控件，命名为“ToolBarMenu”，ImageList控件，命名为“ImageMenu”，将制作完成的图片添加到ImageMenu中。
（2）更改ToolBarMenu控件的属性，如表1所示。
表1 更改ToolBarMenu控件属性
|
对象 |
属性 |
值 |
|
ToolBarMenu |
Appearance |
0-Flat |
|
ToolBarMenu |
BorderStyle |
0-None |
|
ToolBarMenu |
Style |
0-standard |
（3）将ToolBarMenu控件与ImageMenu控件联系起来，在ToolBarMenu控件中添加10个按钮，并将ImageMenu控件中的图片与按钮相对应。在ToolBarMenu控件的Init事件下添加如下代码：
this.imagelist=thisform.imagemenu
this.disabledimagelist=thisform.imagemenu
this.hotimagelist=thisform.imagemenu
FOR m=1 TO 10
mnuname="mnu"+alltrim(str(m))
this.buttons.add(,mnuname,'',0,m)
ENDFOR
（4）在ToolBarMenu控件的ButtonClick事件下添加如下代码：
*** ActiveX 控件事件 ***
LPARAMETERS button
DO CASE
CASE button.index=1
DO mnus\系统管理.mpr
CASE button.index=2
DO mnus\销售管理.mpr
CASE button.index=3
DO mnus\库存管理.mpr
CASE button.index=4
DO mnus\基础信息.mpr
CASE button.index=5
DO mnus\配送管理.mpr
CASE button.index=6
DO mnus\往来管理.mpr
CASE button.index=7
DO mnus\查询管理.mpr
CASE button.index=8
DO mnus\报表管理.mpr
CASE button.index=9
DO mnus\决策管理.mpr
CASE button.index=10
DO mnus\文护管理.mpr
ENDCASE
本程序的工具栏中共有12个按钮，分别是订单管理、销售管理、配送申请、配送开票、配送结款、入库管理、库存查询、商品信息管理、商品销售查询、商品销售排行、日销售报表、数据备份。创建工具栏的方法与创建程序菜单类似，也是通过ToolBar控件与ImageList控件来完成的。
（1）在表单中添加一个ToolBar控件，更改其重要属性如表2所示。
表2 更改ToolBar控件属性
|
对象 |
属性 |
值 |
|
ToolBar |
Appearance |
0-Flat |
|
ToolBar |
BorderStyle |
0-None |
|
ToolBar |
Style |
0-standard |
（2）将ToolBar控件与ImageList控件联系起来，在ToolBar控件中添加12个按钮，并将ImageMenu控件中的图片与按钮相对应。代码如下：
*增加快捷工具栏按钮
thisform.toolbar.imagelist=thisform.imagelist
thisform.toolbar.disabledimagelist=thisform.imagelist
thisform.toolbar.buttons.add(,'bar1','',3,0)
thisform.toolbar.buttons.add(,'DD','',,1)
thisform.toolbar.buttons.add(,'xs','',,2)
thisform.toolbar.buttons.add(,'bar2','',3,0)
thisform.toolbar.buttons.add(,'sq','',,3)
thisform.toolbar.buttons.add(,'kp','',,4)
thisform.toolbar.buttons.add(,'jz','',,5)
thisform.toolbar.buttons.add(,'bar3','',3,0)
thisform.toolbar.buttons.add(,'rk','',,6)
thisform.toolbar.buttons.add(,'cx','',,7)
thisform.toolbar.buttons.add(,'bar4','',3,0)
thisform.toolbar.buttons.add(,'xx','',,8)
thisform.toolbar.buttons.add(,'tj','',,9)
thisform.toolbar.buttons.add(,'bb','',,10)
thisform.toolbar.buttons.add(,'bar5','',3,0)
thisform.toolbar.buttons.add(,'ph','',,11)
thisform.toolbar.buttons.add(,'bar6','',3,0)
thisform.toolbar.buttons.add(,'bf','',,12)
thisform.toolbar.buttons.add(,'bar7','',3,0)
thisform.toolbar.buttons(2).tooltiptext="订单管理"
thisform.toolbar.buttons(3).tooltiptext="销售管理"
thisform.toolbar.buttons(5).tooltiptext="配送申请"
thisform.toolbar.buttons(6).tooltiptext="配送开票"
thisform.toolbar.buttons(7).tooltiptext="配送结账"
thisform.toolbar.buttons(9).tooltiptext="入库管理"
thisform.toolbar.buttons(10).tooltiptext="库存查询"
thisform.toolbar.buttons(16).tooltiptext="日销售报表"
thisform.toolbar.buttons(18).tooltiptext="数据备份"
FOR m=1 TO 18
IF empty(thisform.toolbar.buttons(m).tooltiptext)=.f.
blName=thisform.rainfunction1.htop(;
alltrim(thisform.toolbar.buttons(m).tooltiptext))
IF &blname. =.f.
thisform.toolbar.buttons(m).enabled=.f.
ENDIF
ENDIF
ENDFOR
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>