VF薄板厂能源数据库的设计+需求分析+文献综述(14)
图 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