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.youerw.com/jisuanji/lunwen_1744.html