毕业论文职员信息文档(论文)（终稿）.doc

毕业论文职员信息文档(论文)（终稿） 免责声明文档在线网（文档中国）中所有的文档资料均由文档在线网会员提供。 文档在线网会对会员提供的文档资料进行筛选和，但是并不声明或保证其内容的合法性、正确性或可靠性。 该文档资料的版权属于提供者所有，有关版权的问题请直接与提供者联系。 数据库应用?系统设计目标.2?开发和运行环境.2?系统功能.2?系统功能模块结构图.3?数据库逻辑结构设计.4?主要模块的设计说明和程序代码.6系统主界面.6“增加记录”模块.7“修改记录”模块.9“删除记录”模块.10查询.11报表打印.14“导航条”类.16“setting.prg”代码.17“reset.prg”代码.18“主程序.prg”代码.18?测试情况.19?主程序、数据表、功能模块及报表对应文件名.20?程序使用说明.20?参考文献.20免责声明文档在线网（文档中国）中所有的文档资料均由文档在线网会员提供。 文档在线网会对会员提供的文档资料进行筛选和，但是并不声明或保证其内容的合法性、正确性或可靠性。 该文档资料的版权属于提供者所有，有关版权的问题请直接与提供者联系。 数据库应用系统设计目标随着经济的发展，企业正向着大型化、规模化的方向发展，企业职员数量急剧增加，有关职员的各种信息量也成倍增长。 在这种情况下单靠人工来处理职员的信息，工作量将很大，若公司人员有几万甚至几十万，人工处理将变得不可想象。 用计算机可使人们从繁重的劳动中解脱出来，仅使用一些简单的操作便可及时、准确地获得需要的信息。 该系统的具体任务就是设计一个企业职员信息管理系统，由计算机来代替人工执行一系列诸如增加新进职员信息、变更职员信息、删除离职职员信息、查询及打印等操作。 这样就使办公人员可以轻松快捷地完成职员信息管理的任务，使企业的职员管理工作系统化、规范化、自动化，从而达到提高企业管理效率的目的。 设计的指导思想是一切为用户着想，界面要美观大方，操作尽量简单明了，而且作为一个实用的应用程序要有良好的容错性，在用户出现误操作时能尽量及时地给出警告，以便用户及时改正。 开发和运行环境开发工具Visual FoxPro6.0运行环境Windows9x、Windows 2000、Windows XP系统功能?系统数据初始化；?职员信息数据的增加；?职员信息数据的修改；?职员信息数据的删除；?职员信息的一览和查询；?职员信息的报表打印。 免责声明文档在线网（文档中国）中所有的文档资料均由文档在线网会员提供。 文档在线网会对会员提供的文档资料进行筛选和，但是并不声明或保证其内容的合法性、正确性或可靠性。 该文档资料的版权属于提供者所有，有关版权的问题请直接与提供者联系。 系统功能模块结构图系统采用模块化程序设计方法，既便于系统功能的各种组合和修改，又便于未参与开发的技术维护人员补充、维护。 在系统功能分析的基础上，考虑Visual FoxPro6.0程序编制的特点，得到如下所示的系统功能模块结构图。 职员信息管理系统主界面增加记录修改记录删除记录查询报表打印退出打印预览打印报表一览条件查询系统功能模块结构图免责声明文档在线网（文档中国）中所有的文档资料均由文档在线网会员提供。 文档在线网会对会员提供的文档资料进行筛选和，但是并不声明或保证其内容的合法性、正确性或可靠性。 该文档资料的版权属于提供者所有，有关版权的问题请直接与提供者联系。 数据库逻辑结构设计本系统数据库表的设计结果如下职员信息表字段名数据类型字段大小职员号（主键）CHARACTER4姓名CHARACTER8性别CHARACTER2生日CHARACTER10学历CHARACTER8政治面貌CHARACTER4联系电话CHARACTER12家庭住址CHARACTER40所属部门CHARACTER10现任职务CHARACTER10进本单位年份CHARACTER4备注MEMO4免责声明文档在线网（文档中国）中所有的文档资料均由文档在线网会员提供。 文档在线网会对会员提供的文档资料进行筛选和，但是并不声明或保证其内容的合法性、正确性或可靠性。 该文档资料的版权属于提供者所有，有关版权的问题请直接与提供者联系。 数据库表测试记录如下（无“备注”）职员号姓名性别生日学历政治面貌联系电话家庭住址所属部门现任职务进本单位年份0001刘备男1960/09/10博士党汉市洪山区关山无CEO19850002关羽男1965/04/15本科党汉市洪山区卓刀泉销售部经理19850003张飞男1966/07/30本科党汉市洪山区鲁巷生产部经理19850004赵云男1967/12/02本科党汉市洪山区中南路配送部经理19880005诸葛亮男1970/06/06博士党汉市武昌区大成路无CIO19900006孙乾男1966/07/17专科团汉市青山区八大家人事部职员19880007赵敏女1972/05/30博士党汉市桥口区武胜路财务部经理19930008郭襄女1974/11/08硕士党汉市江汉区江汉路广告部经理19950009苗若兰女1976/02/14本科党汉市武昌区中山路财务部主管19970010周芷若女1975/10/25本科党汉市汉阳区钟家村广告部主管19960011简雍男1967/09/27专科团汉市青山区红钢城后勤部职员19870012糜竺男1967/07/12专科团汉市青山区任家路后勤部职员19870013徐庶男1969/03/05硕士党汉市武昌区积玉桥人事部经理19890014钟灵女1978/06/16专科团汉市洪山区街道口广告部职员19990015穆婉清女1977/12/24专科团汉市武昌区武泰闸财务部职员19980016庞统男1966/01/31博士党汉市武昌区小东门技术部经理19900017蒋琬男1972/10/07本科党汉市桥口区易家墩技术部主管19950018马超男1975/06/12本科党汉市江汉区姑嫂树销售部主管19960019黄忠男1955/09/26本科党汉市武昌区梅家山配送部主管19910020廖化男1968/05/11专科团汉市江岸区永清街销售部职员1988免责声明文档在线网（文档中国）中所有的文档资料均由文档在线网会员提供。 文档在线网会对会员提供的文档资料进行筛选和，但是并不声明或保证其内容的合法性、正确性或可靠性。 该文档资料的版权属于提供者所有，有关版权的问题请直接与提供者联系。 主要模块的设计说明和程序代码系统主界面系统主界面是用户进入系统后主要接触的界面，由它可以进入各个功能模块。 分别单击按钮“增加记录”、“修改记录”、“删除记录”、“查询”、“报表打印”可进入与之相对应的功能模块，单击“退出”按钮退出本系统。 为使界面不至于单调，可以为主界面加入背景。 在“增加记录”按钮的“Click”事件中添加代码如下do form增加记录thisform.release在“修改记录”按钮的“Click”事件中添加代码如下do form修改记录thisform.release在“删除记录”按钮的“Click”事件中添加代码如下do form删除记录thisform.release在“查询”按钮的“Click”事件中添加代码如下免责声明文档在线网（文档中国）中所有的文档资料均由文档在线网会员提供。 文档在线网会对会员提供的文档资料进行筛选和，但是并不声明或保证其内容的合法性、正确性或可靠性。 该文档资料的版权属于提供者所有，有关版权的问题请直接与提供者联系。 do form查询thisform.release在“报表打印”按钮的“Click”事件中添加代码如下do form报表打印thisform.release在“退出”按钮的“Click”事件中添加代码如下thisform.release clear events“增加记录”模块企业新进职员都要为其建立人事档案，该模块的功能就是添加新职员信息。 操作很简单，按需要输入完数据后，单击“确定”按钮即可，同时系统会弹出对话框提示输入成功。 “取消”按钮的功能是清空所有文本框。 该模块做了些限制性设计，以防用户误操作。 如将输入“职员号”、“进本单位年份”的文本框的Format和InputMask属性都设为“9999”，使用户只能输入四位数字，输入其它字符无效。 同样在输入“生日”的文本框的Format和InputMask属性都设为“9999/99/99”。 单击“确定”后，如果没有输入“职员号”或输入的“职员号”已存在，系统都会弹出提示信息，以便用户改正。 在“确定”按钮的“Click”事件中添加代码如下*检查“职员号”是否为空if empty(alltrim(thisform.txtID.value)messagebox(职员号不能为空,48,错误)免责声明文档在线网（文档中国）中所有的文档资料均由文档在线网会员提供。 文档在线网会对会员提供的文档资料进行筛选和，但是并不声明或保证其内容的合法性、正确性或可靠性。 该文档资料的版权属于提供者所有，有关版权的问题请直接与提供者联系。 thisform.txtID.setfocus else*获取各输入值inID=alltrim(thisform.txtID.value)inName=alltrim(thisform.txtName.value)inSex=alltrim(thisform.txtSex.value)inBirth=alltrim(thisform.txtBirth.value)inLearn=alltrim(thisform.txtLearn.value)inPolitics=alltrim(thisform.txtPolitics.value)inPhone=alltrim(thisform.txtPhone.value)inAddress=alltrim(thisform.txtAddress.value)inDepartment=alltrim(thisform.txtDepartment.value)inFunction=alltrim(thisform.txtFunction.value)inDate=alltrim(thisform.txtDate.value)inMemo=alltrim(thisform.edtMemo.value)*检查输入的“职员号”是否已存在set orderto职员号seek inIDif!found()insert into职员信息表value(inID,inName,inSex,inBirth,inLearn,inPolitics,inPhone,inAddress,inDepartment,inFunction,inDate,inMemo)messagebox(添加成功！,48,信息)*添加完毕后清空各文本框thisform.txtID.value=thisform.txtName.value=thisform.txtSex.value=thisform.txtBirth.value=thisform.txtLearn.value=thisform.txtPolitics.value=thisform.txtPhone.value=thisform.txtAddress.value=thisform.txtDepartment.value=thisform.txtFunction.value=thisform.txtDate.value=thisform.edtMemo.value=else messagebox(此职员号已存在，请另输一个,48,错误)thisform.txtID.value=thisform.txtID.setfocus endifendif在“取消”按钮的“Click”事件中添加代码如下免责声明文档在线网（文档中国）中所有的文档资料均由文档在线网会员提供。 文档在线网会对会员提供的文档资料进行筛选和，但是并不声明或保证其内容的合法性、正确性或可靠性。 该文档资料的版权属于提供者所有，有关版权的问题请直接与提供者联系。 *清空各文本框thisform.txtID.value=thisform.txtName.value=thisform.txtSex.value=thisform.txtBirth.value=thisform.txtLearn.value=thisform.txtPolitics.value=thisform.txtPhone.value=thisform.txtAddress.value=thisform.txtDepartment.value=thisform.txtFunction.value=thisform.txtDate.value=thisform.edtMemo.value=thisform.txtID.setfocus在“退出”按钮的“Click”事件中添加代码如下thisform.release do form主界面“修改记录”模块职员信息的改变，如部门的调动、职位的升降、搬家、换了电话，或者发现输入了错误的信息，就可以进入该模块进行修改。 你可以单击“导航条”逐条定位查找，如果知道要修改职员的职员号，可在最下面的文本框里直接输入该职员号，单击“查找”，如果找到，系统会定位到该记录，如果没有找到，系统会给出提示信息。 该模块也做了与“增加记录”免责声明文档在线网（文档中国）中所有的文档资料均由文档在线网会员提供。 文档在线网会对会员提供的文档资料进行筛选和，但是并不声明或保证其内容的合法性、正确性或可靠性。 该文档资料的版权属于提供者所有，有关版权的问题请直接与提供者联系。 模块相近的限制性设计。 在该表单的数据环境（Data Environment）中添加“职员信息表”，将各文本框的ControlSource属性设置为在“职员信息表”中与之相对应的字段，这样便完成了与“职员信息表”的绑定。 在“查找”按钮的“Click”事件中添加代码如下set orderto职员号seek alltrim(thisform.text1.value)if!found()messagebox(该职员号不存在,48,错误)go topendif thisform.text1.value=thisform.refresh在“退出”按钮的“Click”事件中添加代码如下thisform.release doform主界面“删除记录”模块如果因为职员离职、退休，或其它原因要删除某条记录，就可进入该模块进行删除。 本模块的控件布局与“修改记录”模块基本相似，只是显示记录的各文本框的Enabled属性均设置为“.f.”（假）。 同“修改记录”模块一样，设置与“职员信息表”的绑定。 免责声明文档在线网（文档中国）中所有的文档资料均由文档在线网会员提供。 文档在线网会对会员提供的文档资料进行筛选和，但是并不声明或保证其内容的合法性、正确性或可靠性。 该文档资料的版权属于提供者所有，有关版权的问题请直接与提供者联系。 在“删除这条记录”按钮的“Click”事件中添加代码如下nAnswer=messagebox(确定要删除吗？,36,信息)if nAnswer=6thisform.dataenvironment.closetables(职员信息表)*以独占方式打开表，执行删除命令use职员信息表exclusive deletefrom职员信息表where职员号=alltrim(thisform.txtID.value)pack usethisform.dataenvironment.opentables(职员信息表)thisform.refresh endif在“查找”按钮的“Click”事件中添加代码如下set orderto职员号seek alltrim(thisform.text1.value)if!found()messagebox(该职员号不存在,48,错误)go topendif thisform.text1.value=thisform.refresh在“退出”按钮的“Click”事件中添加代码如下thisform.release doform主界面“查询”模块免责声明文档在线网（文档中国）中所有的文档资料均由文档在线网会员提供。 文档在线网会对会员提供的文档资料进行筛选和，但是并不声明或保证其内容的合法性、正确性或可靠性。 该文档资料的版权属于提供者所有，有关版权的问题请直接与提供者联系。 在本模块，你可以选择查询条件，快速查找到所需的职员信息，也可以一览整个“职员信息表”。 可供选择的查询关键字有“职员号”、“姓名”和“所属部门”3个字段，可单项查询，也可组合查询。 首先，当表单被激活时，根据各复选框的选中情况决定相应的文本框是否可用。 在表单的“Activate”事件中添加代码如下flag1=this.check1.value do case case flag1=0this.text1.enabled=.f.this.text1.value=case flag1=1this.text1.enabled=.t.endcase flag2=this.check2.value do case case flag2=0this.text2.enabled=.f.this.text2.value=case flag2=1this.text2.enabled=.t.endcase flag3=this.check3.value docase免责声明文档在线网（文档中国）中所有的文档资料均由文档在线网会员提供。 文档在线网会对会员提供的文档资料进行筛选和，但是并不声明或保证其内容的合法性、正确性或可靠性。 该文档资料的版权属于提供者所有，有关版权的问题请直接与提供者联系。 case flag3=0this.bo1.enabled=.f.this.bo1.value=case flag3=1this.bo1.enabled=.t.endcase为减少用户输入，在“所属部门”复选框后用的是组合框。 在组合框的“Init”事件中添加代码如下*为组合框添加选项this.clear localdm,i dimensiondm1select distinct所属部门from职员信息表into arraydm foreach iin dmif!empty(i)this.additem(i)endif endfor当单击复选框后，如果框里有“”标记，则后面的文本框或组合框可用；反之，不可用。 在“职员号”复选框的“Click”事件中添加代码如下flag=thisform.check1.value docase case flag=0thisform.text1.enabled=.f.thisform.text1.value=case flag=1thisform.text1.enabled=.t.endcase在“姓名”复选框的“Click”事件中添加代码如下flag=thisform.check2.value docase caseflag=0thisform.text2.enabled=.f.thisform.text2.value=caseflag=1thisform.text2.enabled=.t.endcase在“所属部门”复选框的“Click”事件中添加代码如下flag=thisform.check3.value免责声明文档在线网（文档中国）中所有的文档资料均由文档在线网会员提供。 文档在线网会对会员提供的文档资料进行筛选和，但是并不声明或保证其内容的合法性、正确性或可靠性。 该文档资料的版权属于提供者所有，有关版权的问题请直接与提供者联系。 docasecaseflag=0thisform.bo1.enabled=.f.thisform.bo1.value=caseflag=1thisform.bo1.enabled=.t.endcase在“查询”按钮的“Click”事件中添加代码如下*获取各查询关键字输入值getid=alltrim(thisform.text1.value)getname=alltrim(thisform.text2.value)getdepart=alltrim(thisform.bo1.value)*获取各复选框的值flag1=thisform.check1.value flag2=thisform.check2.value flag3=thisform.check3.value*按选中的查询关键字进行查询if flag1=0and flag2=0and flag3=0messagebox(请输入查询条件,48,错误)endif if flag1=1and flag2=0and flag3=0select*from职员信息表where职员号=getid endif if flag1=0and flag2=1and flag3=0select*from职员信息表where姓名=getname endifif flag1=0and flag2=0and flag3=1select*from职员信息表where所属部门=getdepart endifif flag1=1and flag2=1and flag3=0select*from职员信息表where职员号=getid and姓名=getname endifif flag1=1and flag2=0and flag3=1select*from职员信息表where职员号=getid and所属部门=getdepart endififflag1=0and flag2=1and flag3=1select*from职员信息表where姓名=getname and所属部门=getdepart免责声明文档在线网（文档中国）中所有的文档资料均由文档在线网会员提供。 文档在线网会对会员提供的文档资料进行筛选和，但是并不声明或保证其内容的合法性、正确性或可靠性。 该文档资料的版权属于提供者所有，有关版权的问题请直接与提供者联系。 endififflag1=1and flag2=1and flag3=1select*from职员信息表where职员号=getid and姓名=getname and所属部门=getdepart endif在“一览”按钮的“Click”事件中添加代码如下select*from职员信息表在“退出”按钮的“Click”事件中添加代码如下thisform.release doform主界面“报表打印”模块本模块实现两个功能打印报表和打印预览。 在“确定”按钮的“Click”事件中添加代码如下docasecase thisform.optiongroup1.option1.value=1report form职员信息报表to printcase thisform.optiongroup1.option2.value=1report form职员信息报表to printpreview endcase在“退出”按钮的“Click”事件中添加代码如下thisform.release doform主界面免责声明文档在线网（文档中国）中所有的文档资料均由文档在线网会员提供。 文档在线网会对会员提供的文档资料进行筛选和，但是并不声明或保证其内容的合法性、正确性或可靠性。 该文档资料的版权属于提供者所有，有关版权的问题请直接与提供者联系。 “导航条”类由于在“修改记录”和“删除记录”模块中都要用导航条，为简化代码，并方便系统的维护和修改，我做了一个“导航条”类。 在类设计器中依次放置“第一条记录”、“上一条记录”、“下一条记录”和“最后一条记录”四个按钮。 在“第一条记录”按钮的“Click”事件中添加代码如下goto topthis.parent.cmdFirst.enabled=.f.this.parent.cmdPrevious.enabled=.f.免责声明文档在线网（文档中国）中所有的文档资料均由文档在线网会员提供。 文档在线网会对会员提供的文档资料进行筛选和，但是并不声明或保证其内容的合法性、正确性或可靠性。 该文档资料的版权属于提供者所有，有关版权的问题请直接与提供者联系。 this.parent.cmdNext.enabled=.t.this.parent.cmdLast.enabled=.t.thisform.refresh在“上一条记录”按钮的“Click”事件中添加代码如下skip-1if bof()messagebox(已是第一条记录,48,信息窗口)this.parent.cmdFirst.enabled=.f.this.parent.cmdPrevious.enabled=.f.else this.parent.cmdFirst.enabled=.t.this.parent.cmdPrevious.enabled=.t.endif this.parent.cmdNext.enabled=.t.this.parent.cmdLast.enabled=.t.thisform.refresh在“下一条记录”按钮的“Click”事件中添加代码如下skip ifeof()messagebox(已是最后一条记录,48,信息窗口)skip-1this.parent.cmdNext.enabled=.f.this.parent.cmdLast.enabled=.f.else this.parent.cmdNext.enabled=.t.this.parent.cmdLast.enabled=.t.endif this.parent.cmdFirst.enabled=.t.this.parent.cmdPrevious.enabled=.t.thisform.refresh在“最后一条记录”按钮的“Click”事件中添加代码如下goto bottomthis.parent.cmdFirst.enabled=.t.this.parent.cmdPrevious.enabled=.t.this.parent.cmdNext.enabled=.f.this.parent.cmdLast.enabled=.f.thisform.refresh“setting.prg”代码该程序功能为设置系统环境配置。 免责声明文档在线网（文档中国）中所有的文档资料均由文档在线网会员提供。 文档在线网会对会员提供的文档资料进行筛选和，但是并不声明或保证其内容的合法性、正确性或可靠性。 该文档资料的版权属于提供者所有，有关版权的问题请直接与提供者联系。 *关闭系统菜单set sysmenuoff set sysmenu to*不显示图形状态框set statusbar off set talkoff set notify off*将时钟在指定的位置上显示set clockstatus*不使用Visual FoxPro默认的调色板set paletteoff*打开计算机喇叭set bellon*指定在覆盖已有的文件时不打开一个对话框set safetyoff*指定在按下ESC键后，中断命令和程序的运行set escapeon setkeyp towindows setcarry on set confirmon*指定两个表达式必须长度相等才能进行比较set exacton setnear on set ansioff setlock on set multilocksonsetdeleted onset optimizeon*设定网络中表的刷新时间set refreshto0,5*设定字符型字段的排列顺序set collatetostroke*设置默认文件目录set defaultto sys (5)+curdir()*指定查找文件目录set pathto sys (5)+curdir()set sysformatsoff setseconds onset centuryoffset currency leftsetcurrencytont$set hoursto12set dateto usaset decimalsto2免责声明文档在线网（文档中国）中所有的文档资料均由文档在线网会员提供。 文档在线网会对会员提供的文档资料进行筛选和，但是并不声明或保证其内容的合法性、正确性或可靠性。 该文档资料的版权属于提供者所有，有关版权的问题请直接与提供者联系。 set fdowto1set fweekto1set markto.set separatorto,set pointto.“reset.prg”代码该程序功能为还原系统环境配置。 set sysmenuto defaultsetsysmenuonsettalk onsetnotifyonsetsafety on“主程序.prg”代码*将程序的资源路径设为当前程序所在文件夹set directoryto curdir()clear screenclearevents*执行“setting.prg”文件do setting*打开数据库open database职员信息管理*运行“主界面”表单doform主界面*为窗口提供关闭功能on shutdownquit*开始响应事件read eventsclose database*执行“reset.prg”文件do reset测