VF薄板厂能源数据库的设计+需求分析+文献综述(14)
时间:2017-01-03 11:41 来源:毕业论文 作者:毕业论文 点击:次
图 3.13 用户管理表单 表单设计时，先右击鼠标选取快捷菜单中数据环境，将数据环境窗口中添加“用户.dbf”。 在属性窗口将“txt密码”控件设置controlsource=用户.密码，passworchar=*，MaxLength=6，enabled=.f. ；“Combo1”控件设置style=2，RowSourceType=6，RowSource=用户.用户名 其中主要的事件代码如下： Form1的init事件代码： thisform.combo1.listindex=1 Combo1的interactiveChange事件代码： thisform.txt密码.refresh Combo1的keyPress事件代码： LPARAMETERS nKeyCode， nShiftAltCtrl if nKeyCode=13 if this.listindex=0 this.rowsourcetype=0 this.additem(this.displayvalue) this.value=this.displayvalue insert into \用户(用户名) values(this.displayvalue) thisform.txt密码.enabled=.t. thisform.txt密码.refresh this.rowsourcetype=6 endif endif command1的click事件代码： use 用户 thisform.combo1.style=0 thisform.txt密码.refresh command2的click事件代码： sy=messagebox('是要删除该用户吗?'，1+48+256，'确认删除该用户的数;据！') if sy=1 delete pack endif command3的click事件代码： Thisform.release （2） “密码管理”表单（mmgl.scx），如图3.14所示 图 3.14 密码管理表单 表单设计时，先右击鼠标选取快捷菜单中数据环境，将数据环境窗口中添加“用户.dbf”。 在属性窗口将控件tex1、text2、text3的passworchar=*，MaxLength=6， ；“Combo1”控件设置style=2，RowSourceType=6，RowSource=用户.用户名； 其中主要的事件代码如下： command1的click事件代码： locate for 用户名=thisform.combo1.value if found() and alltrim(thisform.text1.value)=alltrim(密码) if alltrim(thisform.text2.value)<>alltrim(thisform.text3.value) messagebox("两次密码输入不一致!"，0+48，"警告") thisform.text2.value="" thisform.text3.value="" thisform.text2.setfocus else replace 密码 with alltrim(thisform.text2.value) messagebox("密码修改成功!"，48，"警告") endif thisform.release else messagebox("原密码输入错误!"，48，"警告") thisform.text1.value="" thisform.text1.setfocus endif command2的click事件代码： Thisform.release 3.3.2 数据输入模块 （1） “购入能源”表单（grny.scx）如图3.15所示 图 3.15 购入能源表单 表单设计时，先右击鼠标选取快捷菜单中数据环境，将数据环境窗口中添加“购入能源.dbf”，然后将表中相应的字段用鼠标拖曳至表单上。 其中主要的事件代码如下： Form1的init事件代码： use 购入能源.dbf go bottom append blank (责任编辑：qin) |