图 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 VF薄板厂能源数据库的设计+需求分析+文献综述(14):http://www.751com.cn/jisuanji/lunwen_1744.html