本文主要为广大网友提供“职员信息管理系统VFP”，希望对需要职员信息管理系统VFP网友有所帮助，学习一下!
职员信息管理系统
如果因为职员离职、退休，或其它原因要删除某条记录，就可进入该模块进行删除。本模块的控件布局与“修改记录”模块基本相似，只是显示记录的各文本框的Enabled属性均设置为“.f.”（假）。同“修改记录”模块一样，设置与“职员信息表”的绑定。 在“删除这条记录”按钮的“Click”事件中添加代码如下： nAnswer=messagebox("确定要删除吗？",36,"信息") if nAnswer=6 thisform.dataenvironment.closetables(''职员信息表'') * 以独占方式打开表，执行删除命令 use 职员信息表 exclusive delete from 职员信息表 where 职员号=alltrim(thisform.txtID.value) pack use thisform.dataenvironment.opentables(''职员信息表'') thisform.refresh endif 在“查找”按钮的“Click”事件中添加代码如下： set order to 职员号 seek alltrim(thisform.text1.value) if !found() messagebox("该职员号不存在",48,"错误") go top endif thisform.text1.value='''' thisform.refresh 在“退出”按钮的“Click”事件中添加代码如下： thisform.release do form 主界面 6.5 “查询”模块 在本模块，你可以选择查询条件，快速查找到所需的职员信息，也可以一览整个“职员信息表”。可供选择的查询关键字有“职员号”、“姓名”和“所属部门”3个字段，可单项查询，也可组合查询。 首先，当表单被激活时，根据各复选框的选中情况决定相应的文本框是否可用。 在表单的“Activate”事件中添加代码如下： flag1=this.check1.value do case case flag1=0 this.text1.enabled=.f. this.text1.value='''' case flag1=1 this.text1.enabled=.t. endcase flag2=this.check2.value do case case flag2=0 this.text2.enabled=.f. this.text2.value='''' case flag2=1 this.text2.enabled=.t. endcase flag3=this.check3.value do case case flag3=0 this.combo1.enabled=.f. this.combo1.value='''' case flag3=1 this.combo1.enabled=.t. endcase 为减少用户输入，在“所属部门”复选框后用的是组合框。 在组合框的“Init”事件中添加代码如下： * 为组合框添加选项 this.clear local dm,i dimension dm[1] select distinct 所属部门 from 职员信息表 into array dm for each i in dm if !empty(i) this.additem(i) endif endfor 当单击复选框后，如果框里有“√”标记，则后面的文本框或组合框可用；反之，不可用。 在“职员号”复选框的“Click”事件中添加代码如下： flag=thisform.check1.value do case case flag=0 thisform.text1.enabled=.f. thisform.text1.value='''' case flag=1 thisform.text1.enabled=.t. endcase 在“姓名”复选框的“Click”事件中添加代码如下： flag=thisform.check2.value do case case flag=0 thisform.text2.enabled=.f. thisform.text2.value='''' case flag=1 thisform.text2.enabled=.t. endcase 在“所属部门”复选框的“Click”事件中添加代码如下： flag=thisform.check3.value do case case flag=0 thisform.combo1.enabled=.f. thisform.combo1.value='''' case flag=1 thisform.combo1.enabled=.t. endcase 在“查询”按钮的“Click”事件中添加代码如下： * 获取各查询关键字输入值 getid=alltrim(thisform.text1.value) getname=alltrim(thisform.text2.value) getdepart=alltrim(thisform.combo1.value) * 获取各复选框的值 flag1=thisform.check1.value flag2=thisform.check2.value flag3=thisform.check3.value * 按选中的查询关键字进行查询 if flag1=0 and flag2=0 and flag3=0 messagebox("请输入查询条件",48,"错误") endif if flag1=1 and flag2=0 and flag3=0 select * from 职员信息表 where 职员号=getid endif if flag1=0 and flag2=1 and flag3=0 select * from 职员信息表 where 姓名=getname endif if flag1=0 and flag2=0 and flag3=1 select * from 职员信息表 where 所属部门=getdepart endif if flag1=1 and flag2=1 and flag3=0 select * from 职员信息表 where 职员号=getid and 姓名=getname endif if flag1=1 and flag2=0 and flag3=1 select * from 职员信息表 where 职员号=getid and 所属部门=getdepart endif if flag1=0 and flag2=1 and flag3=1 select * from 职员信息表 where 姓名=getname and 所属部门=getdepart endif if flag1=1 and flag2=1 and flag3=1 select * from 职员信息表 where 职员号=getid and 姓名=getname and 所属部门=getdepart endif 在“一览”按钮的“Click”事件中添加代码如下： select * from 职员信息表 在“退出”按钮的“Click”事件中添加代码如下： thisform.release do form 主界面 6.6“报表打印”模块 本模块实现两个功能：打印报表和打印预览。 在“确定”按钮的“Click”事件中添加代码如下： do case case thisform.optiongroup1.option1.value=1 report form 职员信息报表 to print case thisform.optiongroup1.option2.value=1 report form 职员信息报表 to print preview endcase 在“退出”按钮的“Click”事件中添加代码如下： thisform.release do form 主界面 
|
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT |
本文选自计算机毕业设计http://myeducs.cn
|
