当前位置:首页>> >>


[vf毕设]基于vfp6职员信息管理系统.rar

收藏

资源目录
    文档预览:
    编号:20180824112537953    类型:共享资源    大小:931.21KB    格式:RAR    上传时间:2018-08-24
      
    40
    金币
    关 键 词:
    vf 基于 vfp6 职员 信息管理 系统
    资源描述:
    数据库应用 系统设计目标……………………………………………….....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 FoxPro 6.0运行环境:Windows 9x 、Windows 2000、Windows XP系统功能 系统数据初始化; 职员信息数据的增加; 职员信息数据的修改; 职员信息数据的删除; 职员信息的一览和查询; 职员信息的报表打印。系统功能模块结构图系统采用模块化程序设计方法,既便于系统功能的各种组合和修改,又便于未参与开发的技术维护人员补充、维护。在系统功能分析的基础上,考虑 Visual FoxPro 6.0 程序编制的特点,得到如下所示的系统功能模块结构图。职员信息管理系统主界面增加记录修改记录删除记录查询报表打印退出打印预览打印报表一览条件查询系统功能模块结构图数据库逻辑结构设计本系统数据库表的设计结果如下:职员信息表字段名 数据类型 字段大小职员号(主键) CHARACTER 4姓名 CHARACTER 8性别 CHARACTER 2生日 CHARACTER 10学历 CHARACTER 8政治面貌 CHARACTER 4联系电话 CHARACTER 12家庭住址 CHARACTER 40所属部门 CHARACTER 10现任职务 CHARACTER 10进本单位年份 CHARACTER 4备注 MEMO 4数据库表测试记录如下(无“备注” ):职员号 姓名 性别 生日 学历 政治面貌 联系电话 家庭住址 所属部门 现任职务 进本单位年份0001 刘备 男 1960/09/10 博士 党员 027-87820910 武汉市洪山区关山 无 CEO 19850002 关羽 男 1965/04/15 本科 党员 027-87800415 武汉市洪山区卓刀泉 销售部 经理 19850003 张飞 男 1966/07/30 本科 党员 027-87830730 武汉市洪山区鲁巷 生产部 经理 19850004 赵云 男 1967/12/02 本科 党员 027-87311202 武汉市洪山区中南路 配送部 经理 19880005 诸葛亮 男 1970/06/06 博士 党员 027-88850606 武汉市武昌区大成路 无 CIO 19900006 孙乾 男 1966/07/17 专科 团员 027-86580717 武汉市青山区八大家 人事部 职员 19880007 赵敏 女 1972/05/30 博士 党员 13871360530 武汉市桥口区武胜路 财务部 经理 19930008 郭襄 女 1974/11/08 硕士 党员 13871081108 武汉市江汉区江汉路 广告部 经理 19950009 苗若兰 女 1976/02/14 本科 党员 027-88850214 武汉市武昌区中山路 财务部 主管 19970010 周芷若 女 1975/10/25 本科 党员 027-84771025 武汉市汉阳区钟家村 广告部 主管 19960011 简雍 男 1967/09/27 专科 团员 13011240927 武汉市青山区红钢城 后勤部 职员 19870012 糜竺 男 1967/07/12 专科 团员 027-86560712 武汉市青山区任家路 后勤部 职员 19870013 徐庶 男 1969/03/05 硕士 党员 13339680305 武汉市武昌区积玉桥 人事部 经理 19890014 钟灵 女 1978/06/16 专科 团员 13976270616 武汉市洪山区街道口 广告部 职员 19990015 穆婉清 女 1977/12/24 专科 团员 027-88321224 武汉市武昌区武泰闸 财务部 职员 19980016 庞统 男 1966/01/31 博士 党员 13035250131 武汉市武昌区小东门 技术部 经理 19900017 蒋琬 男 1972/10/07 本科 党员 027-83861007 武汉市桥口区易家墩 技术部 主管 19950018 马超 男 1975/06/12 本科 党员 13029680612 武汉市江汉区姑嫂树 销售部 主管 19960019 黄忠 男 1955/09/26 本科 党员 13578280926 武汉市武昌区梅家山 配送部 主管 19910020 廖化 男 1968/05/11 专科 团员 13013570511 武汉市江岸区永清街 销售部 职员 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.releaseclear events“增加记录”模块企业新进职员都要为其建立人事档案,该模块的功能就是添加新职员信息。操作很简单,按需要输入完数据后,单击“确定”按钮即可,同时系统会弹出对话框提示输入成功。“取消”按钮的功能是清空所有文本框。该模块做了些限制性设计,以防用户误操作。如:将输入“职员号” 、 “进本单位年份”的文本框的 Format 和 InputMask 属性都设为“9999” ,使用户只能输入四位数字,输入其它字符无效。同样在输入“生日”的文本框的 Format和 InputMask 属性都设为“9999/99/99” 。单击“确定”后,如果没有输入“职员号”或输入的“职员号”已存在,系统都会弹出提示信息,以便用户改正。在“确定”按钮的“Click”事件中添加代码如下:* 检查“职员号”是否为空if empty(alltrim(thisform.txtID.value))messagebox(“职员号不能为空“,48,“ 错误“)thisform.txtID.setfocuselse* 获取各输入值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 order to 职员号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=''elsemessagebox(“此职员号已存在,请另输一个“,48,“ 错误“)thisform.txtID.value=''thisform.txtID.setfocusendifendif在“取消”按钮的“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.releasedo form 主界面“修改记录”模块职员信息的改变,如:部门的调动、职位的升降、搬家、换了电话,或者发现输入了错误的信息,就可以进入该模块进行修改。你可以单击“导航条”逐条定位查找,如果知道要修改职员的职员号,可在最下面的文本框里直接输入该职员号,单击“查找” ,如果找到,系统会定位到该记录,如果没有找到,系统会给出提示信息。该模块也做了与“增加记录”模块相近的限制性设计。在该表单的数据环境(Data Environment)中添加“职员信息表” ,将各文本框的ControlSource 属性设置为在“职员信息表”中与之相对应的字段,这样便完成了与“职员信息表”的绑定。在“查找”按钮的“Click”事件中添加代码如下:set order to 职员号seek alltrim(thisform.text1.value)if !found()messagebox(“该职员号不存在“,48,“ 错误“)go topendifthisform.text1.value=''thisform.refresh在“退出”按钮的“Click”事件中添加代码如下:thisform.releasedo form 主界面“删除记录”模块如果因为职员离职、退休,或其它原因要删除某条记录,就可进入该模块进行删除。本模块的控件布局与“修改记录”模块基本相似,只是显示记录的各文本框的 Enabled 属性均设置为“.f.” (假) 。同“ 修改记录”模块一样,设置与 “职员信息表”的绑定。在“删除这条记录”按钮的“Click”事件中添加代码如下:nAnswer=messagebox(“确定要删除吗? “,36,“信息“)if nAnswer=6
    展开阅读全文
    1
      金牌文库所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
    0条评论

    还可以输入200字符

    暂无评论,赶快抢占沙发吧。

    关于本文
    本文标题:[vf毕设]基于vfp6职员信息管理系统.rar
    链接地址:http://www.gold-doc.com/p-82676.html
    关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服客服 - 联系我们
    copyright@ 2014-2018 金牌文库网站版权所有
    经营许可证编号:浙ICP备15046084号-3
    收起
    展开