B “数据输入”子菜单的设计,见图3.4
图 3.4 “数据输入”菜单的建立
C “数据修改”子菜单的设计,见图3.5
图 3.5 “数据修改”菜单的建立
D “报表”子菜单的设计,见图3.6
图 3.6 “报表”菜单的建立
E “图表”子菜单的设计,见图3.7
图 3.7 “报表”菜单的建立
(3) 常规选项的设计,见图3.8
图 3.8 “常规选项”的建立
(4) 从菜单文件生成菜单程序nyglcd.mpr
(5) 菜单运行后情况如图所示3.9
图 3.9 菜单运行图
3.2.2 系统主文件
在项目管理器的“代码”选项卡中建立主文件,见图3.10
图 3.10 菜单运行图
主文件代码编写如下:
set talk off
Close all
public rq,rql,rqy,rqm
rq=date()
rq1=date()
rqy=2009
rqm=12
do form fm
modify windows screen title'能源数据库管理系统'
clear
read event
quit
3.2.3 封面表单的设计
封面表单设计(fm.scx)如图3.11所示。
图 3. 11封面表单
其中主要控件的事件代码如下:
Timer1的Timer事件过程的代码:
if thisform.label1.left+353>thisform.width
thisform.label1.left=8-353
else
thisform.label1.left=thisform.label1.left+2
endif
Timer2的Timer事件过程的代码:
if thisform.label5.left<1
thisform.label5.left=thisform.width-8
else
thisform.label5.left=thisform.label5.left-2
endif
Command1的Click事件过程的代码:
Do form xtdl
3.2.4 “系统登陆”表单
“系统登录”表单(xtdl.scx)如图3.12所示。
图 3.12 系统登陆表单
先在表单菜单中选择“新属性”菜单项,建立变量i=0
右击鼠标选取快捷菜单中数据环境,将数据环境窗口中添加“用户.dbf”。
双击“Command1”输入其Click事件过程的代码。
thisform.i=thisform.i+1
sele 用户
locate for 用户名=alltrim(thisform.container1.combo1.value)
if found() and 密码=alltrim(thisform.container1.text1.value)
do nyglcd.mpr
thisform.release
else
if thisform.i<3
=messagebox("操作员密码错!"+chr(13)+"再试一次!",48,"警告")
thisform.container1.text1.value=""
thisform.container1.setfocus
else
=messagebox("对不起,您已错三次了!"+chr(13)+"非法用户,请;您退出系统",48,"严重警告")
thisform.release
endif
endif
双击“Command2”输入其Click事件过程的代码。
release thisform
双击“Command3”输入其Click事件过程的代码。
release thisform
close all
quit
3.3 模块设计
3.3.1 系统管理模块
(1) “用户管理”表单(yhgl.scx),如图3.13所示
用户管理的功能主要是可以设置可以添加和修改进入系统的用户。 VF薄板厂能源数据库的设计+需求分析+文献综述(13):http://www.751com.cn/jisuanji/lunwen_1744.html