VF薄板厂能源数据库的设计+需求分析+文献综述(13)
时间:2017-01-03 11:41 来源:毕业论文 作者:毕业论文 点击:次
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所示 用户管理的功能主要是可以设置可以添加和修改进入系统的用户。 (责任编辑：qin) |