|
“修改记录”模块
内容来自论文无忧网 www.paper51.com 职员信息的改变，如：部门的调动、职位的升降、搬家、换了电话，或者发现输入了错误的信息，就可以进入该模块进行修改。你可以单击“导航条”逐条定位查找，如果知道要修改职员的职员号，可在最下面的文本框里直接输入该职员号，单击“查找”，如果找到，系统会定位到该记录，如果没有找到，系统会给出提示信息。该模块也做了与“增加记录”模块相近的限制性设计。 paper51.com 在该表单的数据环境（Data Environment）中添加“职员信息表”，将各文本框的ControlSource属性设置为在“职员信息表”中与之相对应的字段，这样便完成了与“职员信息表”的绑定。 内容来自论文无忧网 www.paper51.com 在“查找”按钮的“Click”事件中添加代码如下： copyright paper51.com set order to 职员号 http://www.paper51.com seek alltrim(thisform.text1.value) copyright paper51.com if !found() http://www.paper51.com
messagebox("该职员号不存在",48,"错误") http://www.paper51.com go top copyright paper51.com endif 内容来自www.paper51.com
thisform.text1.value='' 内容来自www.paper51.com
thisform.refresh 内容来自www.paper51.com 在“退出”按钮的“Click”事件中添加代码如下： 内容来自www.paper51.com
thisform.release 内容来自论文无忧网 www.paper51.com do form 主界面 内容来自论文无忧网 www.paper51.com
“删除记录”模块 http://www.paper51.com
http://www.paper51.com
如果因为职员离职、退休，或其它原因要删除某条记录，就可进入该模块进行删除。本模块的控件布局与“修改记录”模块基本相似，只是显示记录的各文本框的Enabled属性均设置为“.f.”（假）。同“修改记录”模块一样，设置与“职员信息表”的绑定。 copyright paper51.com 在“删除这条记录”按钮的“Click”事件中添加代码如下： 内容来自www.paper51.com
nAnswer=messagebox("确定要删除吗？",36,"信息") 内容来自论文无忧网 www.paper51.com if nAnswer=6 copyright paper51.com thisform.dataenvironment.closetables('职员信息表') http://www.paper51.com * 以独占方式打开表，执行删除命令 paper51.com use 职员信息表 exclusive 内容来自www.paper51.com
delete from 职员信息表 where 职员号=alltrim(thisform.txtID.value) 内容来自www.paper51.com pack copyright paper51.com use paper51.com thisform.dataenvironment.opentables('职员信息表') copyright paper51.com thisform.refresh 内容来自www.paper51.com endif 内容来自论文无忧网 www.paper51.com 在“查找”按钮的“Click”事件中添加代码如下： 内容来自www.paper51.com set order to 职员号 内容来自论文无忧网 www.paper51.com
seek alltrim(thisform.text1.value) 内容来自www.paper51.com if !found() copyright paper51.com messagebox("该职员号不存在",48,"错误") 内容来自论文无忧网 www.paper51.com go top http://www.paper51.com endif 内容来自www.paper51.com thisform.text1.value='' http://www.paper51.com thisform.refresh http://www.paper51.com 在“退出”按钮的“Click”事件中添加代码如下： 内容来自www.paper51.com
thisform.release http://www.paper51.com do form 主界面 内容来自www.paper51.com
“查询”模块 内容来自www.paper51.com http://www.paper51.com 在本模块，你可以选择查询条件，快速查找到所需的职员信息，也可以一览整个“职员信息表”。可供选择的查询关键字有“职员号”、“姓名”和“所属部门”3个字段，可单项查询，也可组合查询。 paper51.com 首先，当表单被激活时，根据各复选框的选中情况决定相应的文本框是否可用。 copyright paper51.com 在表单的“Activate”事件中添加代码如下： 内容来自www.paper51.com
flag1=this.check1.value 内容来自论文无忧网 www.paper51.com do case http://www.paper51.com
case flag1=0 内容来自www.paper51.com
this.text1.enabled=.f. 内容来自www.paper51.com this.text1.value='' copyright paper51.com
case flag1=1 copyright paper51.com
this.text1.enabled=.t. copyright paper51.com
endcase 内容来自www.paper51.com flag2=this.check2.value paper51.com
do case http://www.paper51.com case flag2=0 内容来自www.paper51.com this.text2.enabled=.f. paper51.com this.text2.value='' copyright paper51.com
case flag2=1 http://www.paper51.com this.text2.enabled=.t. paper51.com endcase paper51.com flag3=this.check3.value paper51.com do case copyright paper51.com case flag3=0 http://www.paper51.com this.combo1.enabled=.f. copyright paper51.com this.combo1.value='' copyright paper51.com
case flag3=1 paper51.com this.combo1.enabled=.t. 内容来自论文无忧网 www.paper51.com endcase paper51.com 为减少用户输入，在“所属部门”复选框后用的是组合框。 内容来自论文无忧网 www.paper51.com 在组合框的“Init”事件中添加代码如下： copyright paper51.com * 为组合框添加选项 内容来自www.paper51.com
this.clear copyright paper51.com local dm,i http://www.paper51.com dimension dm[1] paper51.com
select distinct 所属部门from 职员信息表 into array dm copyright paper51.com
for each i in dm 内容来自www.paper51.com if !empty(i) 内容来自www.paper51.com this.additem(i) paper51.com
endif 内容来自www.paper51.com endfor 内容来自www.paper51.com 当单击复选框后，如果框里有“√”标记，则后面的文本框或组合框可用；反之，不可用。 copyright paper51.com 在“职员号”复选框的“Click”事件中添加代码如下： copyright paper51.com flag=thisform.check1.value copyright paper51.com do case 内容来自论文无忧网 www.paper51.com case flag=0 内容来自www.paper51.com thisform.text1.enabled=.f. paper51.com thisform.text1.value='' paper51.com case flag=1 paper51.com thisform.text1.enabled=.t. http://www.paper51.com
endcase copyright paper51.com |