基于VB的工资管理系统样本

南昌航空工业学院高等职业技术学院毕业设计(论文)任务书Ⅰ、毕业设计(论文)题目：工资管理系统业设计(论文)使用原始资料(数据)及设计技术规定：运用VisualBasic6.0及MicrosoftAccess数据库技术对公司员工工资基本信息进行管理，规定进行顾客需求分析，功能模块设计，对部门、员工及工资基本信息进行添加、修改、删除、查询及打印等功能。业设计(论文)工作内容：1.查找资料，撰写开题报告。2.设计系统主界面。3.完毕部门管理、员工基本信息管理模块设计。4.对软件进行调试与测试。

要参照资料：[1]刘韬等,编著.VisualBasic6.0数据库系统开发实例导航.北京：清华大学出版社，[2]丰岚等,编著.手把手教你开发管理信息系统.北京：北京但愿电子出版设，[3]求是科技.VisualBasic6.0数据库开发技术与工程实践.北京：人民邮电出版社，专业班学生李慧明日期：自年2月26日至年6月15日指引教师兼职教师或答疑教师(并指出所负责某些)：专业主任开题报告毕业课题名称：工资管理系统一．选题根据及课题意义：随着计算机技术普及，数据信息解决技术得到了空前发展，人们解决大量数据能力越来越强，大量此前必须由人工解决工作当前都可以由计算机代劳。初期工资记录和发放都是使用人工方式解决纸质材料，不但耗费财务人员大量时间且不易保存，往往由于个人因素抄写不慎或计算疏忽，浮现工资发放错误现象。初期工资管理多采用纸质材料和具备较强时间限制。基于以上因素，公司工资管理系统使用电脑安全保存、迅速计算、全面记录，实现工资管理系统化、规范化、自动化。二．国外研究概况及发展趋势：20世纪80年代后期，进入到数据管理阶段。该阶段计算机系统广泛应用于公司管理。同步工资管理系统已经由本来人工管理走入了计算机管理时代，作为信息管理重要工具数据库已经成为举足轻重角色。数据库就是存储数据仓库，数据按一定规律存储在计算机中，在科学技术飞速发展今天人们越来越依赖计算机把现实中事物抽象成数据然后以记录形式加以保存。换个角度看数据库是长期存储在计算机内，有组织，可共享数据集合。它具备较小冗余度，较高系数据独立性和易扩展性等特性，可以让各种顾客在不同权限下使用。这样用数据库技术来管理工资是一种趋势。三．研究内容及实验方案；研究内容：本课题研究内容是对数据库理论及软件工程理论研究，并运用所学知识将这些理论运用到实践中来，即用这两大理论开发一套工资管理系统。这套系统包括如下几种功能模块：1．工资信息设立2工资信息管理3.系统其功能模块图如下所示：公司工资管理系统系统某些公司工资管理系统系统某些公司工资信息设立公司工资信息管理修改密码其她工资设立计算实发工资查询工资退出系统出勤记录添加顾客导出工资表图一系统功能模块图本人研究是如下几种功能模块：（1）工资信息设立这个模块作用是涉及设立员工基本工资和其她项目金额，如奖金等。并且负责设立员工工资计算公式.（2）工资信息管理这个模块包括信息是涉及记录出勤、计算工资、查询工资和导出工资表。四．目的，重要特色及工作进度目的：在WINDOWS系统下，运用VB6.0和ACCESS数据库进行开发，实现工资管理系统。重要特色：易操作，外观新颖，界面和谐，摸索性较强。工作进度：第1至3周：收集有关资料，进行系统方案设计，写出开题报告第4至8周：实现各某些模块功能。第9至14周：整体调试并进行必要修改。第15至18周：测试所有功能，写论文。五．参照文献[1]张立科，VisualBasic6.0数据库开发技术与工程实践，人民邮电出版社，.4月[2]赵增敏，王庆建，ACCESS实用教程，电子工业出版设，.6月[3]牛勇，VB编程篇，电子工业出版设，.4月[4]徐士良，计算机软件技术基本，清华大学出版社，.2工资管理系统学生姓名：徐波班级：049042-22指引教师：江晶摘要：公司工资管理是公司管理一种重要内容。随着公司人员数量增长，公司工资管理工作也变得越来越复杂。工资管理既涉及到公司劳动人事管理，同步也是公司财务管理重要构成某些。工资管理需要和人事管理相联系，同步连接工时考勤和医疗保险等等，来生成公司每个职工基本工资、津贴、医疗保险、保险费、实际发放工资等。资金是公司生存重要元素，资金流动影响到公司整体运作，公司员工工资是公司资金管理一种重要构成某些。初期工资记录和发放都是使用人工方式解决纸质材料，不但耗费财务人员大量时间且不易保存，往往由于个人因素抄写不慎或计算疏忽，浮现工资发放错误现象。初期工资管理多采用纸质材料和具备较强时间限制。基于以上因素，公司工资管理系统使用电脑安全保存、迅速计算、全面记录，实现工资管理系统化、规范化、自动化。公司工资管理系统是典型信息管理系统（MIS），前台程序开发工具采用微软VB6，后台数据库采用Access数据库。VB6是一种面向对象开发工具，具备组件丰富、语言简朴、功能强大长处。Access数据库具备与VB6无缝连接、操作简朴、易于使用长处。运营成果证明，本公司工资管理系统极大提高了工作效率，节约了人力和物力，最后满足公司财务管理、员工工资发放需要，同步也成为当代化公司管理标志。核心词：VB工资管理信息管理数据查询数据库指引教师目录第一章绪论 81.2公司工资管理系统 8第二章工资管理系统设计分析 92.1应用需求分析 92.2系统功能模块划分 102.3系统数据库设计 12第三章工资管理系统应用程序设计 173．1“登录模块”详细设计 173．2“主窗体”模块详细设计 20３.３各项子模块详细设计 243.3.1“设立基本工资”窗体设计 243.3.2“其她项目设立”窗体设计 263.3.3“工资计算公式设立”窗体设计 293.3.4“计算实发工资”窗体设计 313.3.5“查询工资“窗体设计 333.3.6“导出工资表”窗体设计 343．4各项子模块编写要点 35第四章软件调试与测试 45第五章总结 46参照文献 47第一章绪论1.1数据库管理系统 数据库管理系统（DBMS）是指数据库系统中管理数据软件系统。DBMS是数据库系统核心构成某些。对数据库一切操作，涉及定义、更新及各种控制,都是通过DBMS进行。DBMS总是基于某种数据模型，可以把DBMS当作是某种数据模型在计算机系统上详细实现。依照数据模型不同，DBMS可以提成层次型、网状型、关系型、面向对象型等。MSAccess就是一种关系型数据库管理系统。关系模型重要是用二维表格构造表达实体集，用外键表达实体间联系。关系模型是由若干个关系模式构成集合。关系模式相称于前面提到记录类型，每个关系事实上是一张二维表格。关系模型和层次、网状模型最大鉴别是用核心码而不是用指针导航数据，表格简朴顾客易懂，编程时并不涉及存储构造，访问技术等细节。SQL语言是关系型数据库原则化语言，已得到了广泛应用。1.2公司工资管理系统 公司工资管理是一项琐碎、复杂而又十分细致工作，普通不容许发生差错。最初工资记录和发放都是使用人工方式解决，工作量大时候，浮现错误机率也随之升高，不但耗费财务人员大量时间，并且往往由于抄写不慎，或者由于计算疏忽，浮现工资发放错误现象。同步工资发放具备较强时间限制，必要严格按照单位规定期间完毕计算和发放工作。正是公司工资管理这种重复性、规律性、时间性，使得公司工资管理计算机化成为也许。公司工资管理系统就是使用电脑代替大量人工记录和计算，完毕众多公司工资信息解决，同步使用电脑还可以安全地、完整地保存大量公司工资记录。第二章工资管理系统设计分析2.1应用需求分析需求分析过程可以说是一种对详细问题重复理解和抽象过程。理解就是对现实问题理解，要弄清晰究竟需要解决什么问题。抽象就是除去问题表面，提取问题本质，建立问题逻辑模型，以便于后来阶段系统设计实现。需求分析阶段是软件产品生存命期中一种重要阶段，其主线任务是拟定顾客对软件系统需求。所谓需求是指顾客对软件功能和性能规定，就是顾客但愿软件能什么事情，完毕什么样功能，达到什么性能。普通需求分为两种类型：一种是功能性需求，一种是非功能性需求，这一点也需要有一种清晰结识。功能性需求是指需要计算机系统解决问题，也就是对数据解决规定，这是一类最重要需求。非功能性需求是指实际使用环境所规定需求，往往是某些限制规定，例如：性能规定，可靠性规定，安全保密规定，等等。工资管理既涉及到公司劳动人事管理，同步也是公司财务管理重要构成某些。工资管理需要和人事管理相联系，同步连接工时考勤和医疗保险等等，来生成公司每个职工基本工资、津贴、医疗保险、保险费、实际发放工资等。资金是公司生存重要元素，资金流动影响到公司整体运作，公司员工工资是公司资金管理一种重要构成某些。初期工资记录和发放都是使用人工方式解决纸质材料，不但耗费财务人员大量时间且不易保存，往往由于个人因素抄写不慎或计算疏忽，浮现工资发放错误现象。初期工资管理多采用纸质材料和具备较强时间限制。基于以上因素，公司工资管理系统使用电脑安全保存、迅速计算、全面记录，实现工资管理系统化、规范化、自动化。公司工资管理系统是典型信息管理系统（MIS），前台程序开发工具采用微软VB6，后台数据库采用Access数据库。VB6是一种面向对象开发工具，具备组件丰富、语言简朴、功能强大长处。Access数据库具备与VB6无缝连接、操作简朴、易于使用长处。运营成果证明，本公司工资管理系统极大提高了工作效率，节约了人力和物力，最后满足公司财务管理、员工工资发放需要，同步也成为当代化公司管理标志2.2系统功能模块划分依照该公司业务状况及实现目的，系统功能模块图如图2.1所示：公司工资管理系统公司工资管理系统系统某些公司工资信息设立公司工资信息管理修改密码基本工资设立其她工资设立工资公式设立计算实发工资查询工资退出系统出勤记录添加顾客导出工资表图2.1系统功能模块在这次系统开发中我重要完毕某些是工资管理和设立方面。开发这个系统目就是协助公司财务主管部门提高工作效率，实现公司工资信息管理系统化、规范化和自动化。可以和结识管理系统、考勤管理系统相结合，真正实现公司高效、科学、当代化员工管理。系统最后实现重要功能如下：·公司工资信息设立某些：涉及设立员工基本工资和其她项目金额，如奖金等。并且负责设立员工工资计算公式。工资信息设立工资信息设立工资计算公式设立其她工资设立基本工资设立图2.2工资信息设立模块·公司工资信息管理某些：涉及记录出勤、计算工资、查询工资和导出工资表。工资信息管理工资信息管理导出工资表计算实发工资出勤记录查询工资图2.3工资信息管理模块·系统某些：涉及添加顾客和修改密码。系统系统退出系统修改密码添加顾客图2.4系统模块2.3系统数据库设计数据库是信息管理系统后台，存储着所有信息，在信息管理系统中有着很重要地位。数据库设计好与坏，直接影响到这个系统运营效率。良好数据库设计，可以提高数据信息存储效率，保证数据信息完整性和一致性。针对公司工资信息管理系统需求，通过对员工工资计算过程内容分析，为本系统设计如下数据项和数据构造：·基本工资信息：涉及员工编号和基本工资（元/小时）。基本工资信息基本工资信息员工编号基本工资图2.5基本工资实体E-r图·其她项目信息：涉及员工编号、奖金、津贴、福利、扣发等。其她项目设立其她项目设立奖金津贴福利扣发图2.6其她项目实体E-R图·计算公式信息：涉及加班费比例、出差工资、旷工、迟到早退扣发等。计算公式计算公式加班费出差工资旷工扣发图2.7计算公式实体E-R图启动Access，创立新数据库，命名为Salary.mdb和Person.mdb，保存在要存储这个系统所有工程文献文献夹中。在使用时，要把应用程序和这两个数据库保存在同一种文献夹中。表2.1员工出勤记录信息表：字段类型长度与否空说明id自动编号长整型否记录编号stuffid文本50否员工编号stuffname文本50否员工姓名recordmonth日期/时间否记录时间attendance数字长整型否出勤天数lateearly数字长整型否迟到早退次数absent数字长整型否旷工次数overtimecom数字长整型否正常加班次数overtimespe数字长整型否特殊加班次数errand数字长整型否出差次数表2.2员工工资计算公式信息表：字段类型长度与否空说明overtimecom数字长整型否正常加班工资比例overtimespe数字长整型否特殊加班工资比例errand数字长整型否出差工资absent数字长整型否旷工工资le数字长整型否迟到早退表2.3员工其她项目设立：字段类型长度与否空说明id自动编号长整型否记录编号stuffid文本50否员工编号yearmonth日期/时间否年月type数字长整型否类型name文本50是类型money货币货币否名称remark备注是备注表2.4员工工资记录信息表：字段类型长度与否空说明id自动编号长整型否记录编号stuffid文本50否员工编号stuffname文本50否员工姓名yearmonth日期/时间否时间basicsalary货币货币基本工资bonus货币货币奖金welfare货币货币福利allowance货币货币津贴abatement货币货币扣发lesub货币货币迟到早退扣发absentsub货币货币旷工扣发overtime货币货币加班费errand货币货币出差费others货币货币其她金额total货币货币总额表2.5员工信息表：字段类型长度与否空说明sid文本50否员工编号sname文本50否员工姓名sgender文本50否性别splace文本50否籍贯sage数字长整型否年龄sbirthday日期/时间否生日sdegree文本50是学历sspecial文本50是专业saddress文本50是住址scode文本50是邮编stel文本50是电话semail文本50是EmailsworkTime日期/时间否参加工作时间sintime日期/时间否进入公司时间sdept文本50是部门spaytime日期/时间否起薪时间sposition文本50是职务sremark文本50是备注表2.6顾客信息表：字段类型长度与否空说明userid文本50否顾客名称userpwd文本50否顾客密码第三章工资管理系统应用程序设计3．1“登录模块”详细设计1、实现目的：登录模块详细设计重要是顾客登录一种界面，判断登录顾客是管理员还是普通顾客，进入后将面对是主界面，从而进行有关操作。登录界面重要由顾客名和密码信息，尚有某些标题设立，拟定和取消按钮构成。通过标题可以懂得此系统大概内容，由此，登录界面设计完毕。2、界面：图3.1顾客登陆界面登陆界面程序流程图如下:开始进入系统密码错误是否图3.2登陆程序流程图3、程序阐明：OptionExplicitDimpwdcountAsIntegerPrivateSubcmdcancel_Click()username.Text=""password.Text=""EndSubPrivateSubcmdok_Click()DimsqlAsStringDimrsAsADODB.RecordsetIfTrim(username.Text="")ThenMsgBox"没有输入顾客名称"，vbOKOnly+vbExclamation，"警告"username.SetFocusElsesql="select*fromuserinfowhereuserid='"&username.Text&"'"Setrs=getrs(sql，"salary")Ififlag=1ThenIfrs.EOF=TrueThenMsgBox"没有这个顾客，请重新输入"，vbOKOnly+vbExclamation，"警告"username.SetFocusElseIfTrim(rs.Fields(1))=Trim(password.Text)Thenrs.CloseMe.Hidestrusername=Trim(username.Text)userpassword=Trim(password.Text)frmMain.ShowUnloadMeElseMsgBox"密码不对的，请重新输入"，vbOKOnly+vbExclamation，"警告"password.SetFocuspassword.Text=""EndIfEndIfEndIfEndIfpwdcount=pwdcount+1Ifpwdcount=3ThenUnloadMeEndIfEndSubPrivateSubForm_Load()pwdcount=0strusername=""userpassword=""EndSub3．2“主窗体”模块详细设计1实现目的：在这个项目中，选取使用多文档界面。使用这个窗体好处是可以使程序更加有条理。对于一种多任务应用程序，使用多文档窗体还可以减少占用系统资源。2、界面及目的实现过程：主窗体设计界面是用菜单编辑器做，重要由系统、工资信息设立、工资信息管理和关于这四个大模块构成。主窗体是进行有关操作主界面。在这几种里，管理员有所有权利进行各种操作。图3.4员工工资管理系统界面3、程序阐明：rivateSubMenu_about_Click()frmabout.Showfrmabout.ZOrder0EndSubPrivateSubMenu_adduser_Click(IndexAsInteger)IfTrim(strusername)<>"admin"ThenMsgBox"对不起，您没有这个权限！"，vbOKOnly+vbExclamation，"警告"ElseIfTrim(strusername)="admin"Thenfrmadduser.Showfrmadduser.ZOrder0EndIfEndSubPrivateSubMenu_basic_Click(IndexAsInteger)IfTrim(strusername)<>"admin"ThenMsgBox"对不起，您没有这个权限！"，vbOKOnly+vbExclamation，"警告"ElseIfTrim(strusername)="admin"Thenichangeflag=1frmbasicsetting.Showfrmbasicsetting.ZOrder0EndIfEndSubPrivateSubMenu_changepwd_Click(IndexAsInteger)frmchangepwd.Showfrmchangepwd.ZOrder0EndSubPrivateSubMenu_check_Click(IndexAsInteger)frmresult.Showfrmresult.ZOrder0frmresult.Caption="信息查询"EndSubPrivateSubMenu_exit_Click(IndexAsInteger)UnloadMeExitSubEndSubPrivateSubMenu_formulasetting_Click(IndexAsInteger)IfTrim(strusername)<>"admin"ThenMsgBox"对不起，您没有这个权限！"，vbOKOnly+vbExclamation，"警告"ElseIfTrim(strusername)="admin"Thenfrmformula.Showfrmformula.ZOrder0EndIfEndSubPrivateSubMenu_getsalary_Click(IndexAsInteger)IfTrim(strusername)<>"admin"ThenMsgBox"对不起，您没有这个权限！"，vbOKOnly+vbExclamation，"警告"ElseIfTrim(strusername)="admin"Thenfrmsumsalary.Showfrmsumsalary.ZOrder0EndIfEndSubPrivateSubMenu_others_Click(IndexAsInteger)IfTrim(strusername)<>"admin"ThenMsgBox"对不起，您没有这个权限！"，vbOKOnly+vbExclamation，"警告"ElseIfTrim(strusername)="admin"Thenichangeflag=1frmothersetting.Showfrmothersetting.ZOrder0EndIfEndSubPrivateSubMenu_out_Click(IndexAsInteger)IfTrim(strusername)<>"admin"ThenMsgBox"对不起，您没有这个权限！"，vbOKOnly+vbExclamation，"警告"ElseIfTrim(strusername)="admin"Thenfrmexport.Showfrmexport.ZOrder0EndIfEndSubPrivateSubMenu_sumattendance_Click(IndexAsInteger)frmsuminout.Showfrmsuminout.ZOrder0EndSub３.３各项子模块详细设计3.3.1“设立基本工资”窗体设计1、实现目的：选取“工资信息设立”—>“基本工资设立”菜单设立员工基本工资，可以依照员工编号，或者依照员工职务设立基本工资，设立基本工资为每个小时工资。2、界面及控件列表图3.5设立基本工资界面表3.1设立基本工资重要控件列表对象属性设置optionbuttonCaption员工编号optionbuttonCaption员工职务Command1caption确认Command2caption取消3、程序阐明：Setrs=getrs(sql，"salary")Ifrs.EOF=FalseThensql="deletefromsalarysettingwherestuffid='"&Mstuffid.Text&"'"Calltransactsql(sql，"salary")EndIfrs.Closeid=Mstuffid.TextCalladdrecordMsgBox"已经设立基本工资"，vbOKOnly+vbExclamation，"添加成果"Callinitsql="select*fromsalarysetting"Callfrmresult.basictopicCallfrmresult.showbasic(sql)frmresult.Showfrmresult.ZOrder0Me.ZOrder03.3.2“其她项目设立”窗体设计1、实现目的：选取“工资信息设立”—>“其她项目设立”菜单，在其她项目设立窗体中，设立员工当月奖金、津贴、福利等项目。2、界面及重要控件列表图3.6其她项目设立界面表3.2其她项目重要控件对象属性设置dtpicker名称dttimecombobox名称comidframe名称frameinfotexttext空Optionbuttonvaluefalse3、程序阐明：sql="select*fromsalaryother"Ifichangeflag=1ThenCalladdMsgBox"已经添加记录"，vbOKOnly+vbExclamation，"提示"Callfrmresult.othertopicCallfrmresult.showother(sql)frmresult.ShowUnloadMeElseIfMe.optionbonus.Value=TrueThenitype=1ElseIfMe.optionallowance.Value=TrueThenitype=2ElseIfMe.optionwelfare.Value=TrueThenitype=3ElseIfMe.optionabatement.Value=TrueThenitype=4ElseIfMe.optionothers.Value=TrueThenitype=5resumdate=recordtimesql="deletefromsalaryotherwherestuffid='"&Mid.Textsql=sql&"'andYearMonth=#"&recordtime&"#and"sql=sql&"Type="&itypeCalltransactsql(sql，"Salary")CalladdCallfrmsumsalary.resumsalary(resumdate)sql="select*fromsalaryother"Callfrmresult.othertopicCallfrmresult.showother(sql)frmresult.ShowUnloadMeEndIf3.3.3“工资计算公式设立”窗体设计1、实现目的：选取“工资信息设立”—>“工资计算公式设立”菜单，在这个计算公式窗体中设立员工实际发放工资计算公式。2、界面及重要控件列表图3.7计算公式界面表3.3重要控件列表对象属性设置lablecaption界面所示commandcaption界面所示texttext空3、程序阐明：IfMe.textovertimecom=""AndIsNumeric(Me.textovertimecom)=TrueThenMsgBox"请输入正常加班工资比例"，vbOKOnly+vbExclamation，"提示"Me.textovertimecom=""Me.textovertimecom.SetFocusElseIfMe.textovertimespe=""AndIsNumeric(Me.textovertimespe)=FalseThenMsgBox"请输入特殊加班工资比例"，vbOKOnly+vbExclamation，"提示"Me.textovertimespe=""Me.textovertimespe.SetFocusElseIfMe.texterrand=""AndIsNumeric(Me.texterrand)=FalseThenMsgBox"请输入出差工资"，vbOKOnly+vbExclamation，"提示"Me.texterrand=""Me.texterrand.SetFocusElseIfMe.textabsent=""AndIsNumeric(Me.textabsent)=FalseThenMsgBox"请输入旷工扣发工资"，vbOKOnly+vbExclamation，"提示"Me.textabsent=""Me.textabsent.SetFocusElseIfMe.textle=""AndIsNumeric(Me.textle)=FalseThenMsgBox"请输入迟到早退扣发工资"，vbOKOnly+vbExclamation，"提示"Me.textle=""Me.textle.SetFocusElseCallsetvalueCallinitEndIf3.3.4“计算实发工资”窗体设计1、实现目的：选取“工资信息管理”—>“计算实发工资”菜单，在这个窗体中选取需要记录月份。选取记录月份后，单击“开始记录”按钮，系统如果已经记录了该月份工资，系统会显示工资信息列表窗体。如果系统还没有记录工资，那么系统开始记录工资，然后在信息成果列表窗体中显示记录成果。2、界面：图3.8计算工资界面3、程序阐明：IfMmonth.Text=4Thenfirstday=Year(Date)&"-"&Mmonth.Text&"-1"days=DateDiff("d"，Year(Date)&"-"&Mmonth.Text&"-1"，_Year(Date)&"-"&Mmonth.Text+1&"-1")lastday=Year(Date)&"-"&Mmonth.Text&"-"&daysCallsumsalary(firstday，lastday)sql="select*fromsalarystatistics"frmresult.SSTab1.Caption="员工工资记录列表"Callfrmresult.listtopicCallfrmresult.showdata(sql)frmresult.Caption="记录成果列表"frmresult.ZOrder0UnloadMeElseMsgBox"这个月工资未记录"，vbOKOnly+vbExclamation，"提示"EndIf3.3.5“查询工资“窗体设计选取“工资信息管理”—“查询工资”菜单，系统显示如图查询信息窗体，系统默认是查询出数据库中所有记录（当管理员进入时候），当从“员工编号”下拉列表中选取一种员工编号后，单击“查询单人”按钮，就会查询出符合这个员工编号记录；如果需要返回查询所有信息，单击“查询所有”按钮，系统就会返回所有员工信息。在“员工工资记录列表”中单击鼠标右键，会弹出下图菜单，在“员工其她项目列表”中单击鼠标右键也会浮现下图菜单。如果要选取“删除基本工资设立”，浮现如下提示：图3.9删除基本工资设立界面3.3.6“导出工资表”窗体设计选取“工资信息管理”—>“导出工资表”菜单，会浮现下图“导出记录”窗体中选取需要导出工资月份。选取月份和保存位置后，单击“导出”按钮，系统会开始导出数据。图3.10导出记录界面单击“拟定”按钮打开导出文献，单击“取消”按钮回到系统。图3.11导出工资记录界面3．4各项子模块编写要点1、登陆窗体：在登录这个窗体里，我做特点是：只要在数据库里有顾客信息，都可以登录，然后显示有关自己信息，而管理员显示所有信息。当输入顾客名或密码不对的时候，会浮现如下对话框：图3.12输入顾客名不对的或密码错误界面或者，图3.13密码不对的界面2、主窗体：在主窗体设计中，我在系统下拉菜单里涉及有添加顾客、修改密码和退出系统。在这个模块里普通顾客只有修改自己密码权利。在添加顾客窗体里：添加3个标签、3个文本框和2个命令按钮，然后设立它们有关属性。在修改密码窗体里：添加了3个标签，用来显示信息；3个文本框用来输入顾客名称和顾客密码；2个按钮用来拟定和取消操作，然后设立它们属性。3、工资信息设立：在工资信息设立下拉菜单里涉及有基本工资信息设立、其她项目信息设立和计算公式设立。在这个模块里，普通顾客没有任何权利进行有关操作。在基本工资窗体里：添加了2个选项按钮、2个下拉列表、2个标签、1个文本框和2个按钮，然后设立它们属性。在其她项目设立窗体里：使用了一种DTPicker控件获得添加记录时间，要使用这个控件需要添加部件类库，选取“工程—>部件”命令，选取MicrosoftWindowsCommonControls-26.0(sp4)项，然后设立有关属性。4、工资信息管理：在工资信息管理下拉菜单里涉及有记录出勤信息、计算实发工资、查询工资和导出工资表。在这个模块里，普通顾客有记录出勤信息和查询工资权利，但是都显示是自己信息。在出勤记录窗体里：添加一种下拉列表、一种标签和2个命令按钮，然后设立有关属性。在出勤成果信息列表窗体里：使用了Adodc控件和DataGrid控件，控件Visible属性一定要设立为False。在计算实发工资窗体里添加控件和记录出勤记录窗体控件相似。在工资记录列表窗体里：使用了SSTab控件，在每一种标签上添加一种MSFlexGrid控件，然后设立它们属性。在导出工资表窗体中使用了CommondDialog控件，要使用这个控件需要在“控件”窗体中，选取MicrosoftCommonDialogControl6.0(sp3)项，同步由于数据表格是导出到Excel，因此需要添加引用。选取“工程—>引用”菜单，在“引用”窗体中选取MicrosoftExcel9.0ObjectLibrary项，这样才可以成功导入到Excel。在这个窗体里，我做特点是：权利分工明确。当管理员进入时候她有所有权利，单击哪个模块就会弹出相相应窗体。而普通顾客则不能，我把它进行了权限设立，会弹出权限对话框。图3.14权限错误界面在添加顾客窗体里，如果输入顾客密码和确认密码不一致，将浮现一种警告对话框：图3.15顾客名和密码不一致界面然后输入与顾客密码相似密码，我这里密码都是以*形式表达，是不可见。添加顾客将保存在数据库userinfo里。单击“取消”按钮就卸载此窗体，添加顾客过程到此完毕。5、基本工资窗体：在建立基本工资窗体时，这个窗体会在两个地方使用到，一种就是添加，另一种就是修改，在窗体载入时系统应自动判断状态。选取员工编号或选取职务，然后填写工资金额，单击“拟定”按钮，系统就会按照选取方式，设立员工基本工资。在做基本工资这个窗体时，我想法是：当你在修改基本工资信息，一方面都要从数据库中调出有关信息，然后把它删除掉，再从数据库中员工信息表中调出所要信息，然后再一次添加所要设立信息。当你没输入员工编号时候，会浮现下图对话框；图3.16没输入员工编号界面当没输入员工职务时会浮现错误信息。6、其她项目设立：在建立其她项目设立窗体时，也在两个地方使用，即添加和修改，在载入时也需要判断状态。选取员工编号，再选取需要添加项目和进额，单击“拟定”按钮，即可添加其她项目。在其她项目设立这个窗体里，我用了一种Frame控件和几种optionButton控件，目在于：在添加其她项目时，只能有一种设立是有效，并且还可以添加其她项目，尚有备注等等，这些都便于记录。这里尚有一种DTPicker控件是用来记录添加其她项目时间，我觉得这个控件非常好。尚有就是每次添加成功后，系统需要初始化，更新一下。在设立完这个窗体后将会弹出查询工资窗体。7、工资计算公式：在建立工资计算公式窗体时，输入内容后，单击“拟定”按钮，设立计算公式中使用数字。在计算公式设立窗体里，单击“恢复默认值”按钮系统将会恢复公式中默认值。这里恢复默认值功能采用办法比较简朴，就是在一种函数中设立了固定默认值。如果需要使用可变默认值，可以在数据库中设立一项默认值字段，这样可以以便更改默认值。当输入格式与设定格式不一致时候，会弹出有关对话框。8、计算实发工资：建立计算实发工资窗体，这个窗体建立和记录出勤记录窗体比较相似，选取月份后，单击“开始记录”按钮，即可记录员工工资。在计算实发工资窗体里，如果输入月份工资没记录会弹出如下对话框：图3.17输入月份工资没记录界面否则会浮现如下对话框：图3.18输入月份有记录界面单击“拟定”后，就会浮现工资信息列表，这时你将看见所关于于你想要信息。9、工资查询窗体：建立工资查询窗体，在选取员工编号后，单击“查询单人”按钮，返回选取员工有关信息。单击“查询所有”按钮，系统返回所有员工信息。在建立工资查询（即工资记录成果列表）窗体时，我觉得这是一种最难窗体。不但是由于它设立，尚有就是它代码和数据库相连操作。在这个窗体中使用了SSTab控件，在每一种标签上添加一种MSFlexGrid控件。当你是管理员登录时候，她权限是所有，当你是顾客登录时候，窗体只显示登录顾客本人有关信息。她没有任何权限，只能看到自己信息，这是我做这个窗体特色。窗体某些代码为：管理员权限Ifstrusername="admin"Thensql="selectstuffidfromsalarysetting"Setrs=getrs(sql，"salary")Ifrs.EOF=FalseThenWhileNotrs.EOFMid.AddItemrs(0)rs.MoveNextWendrs.CloseEndIfMid.ListIndex=0SelectCaseMe.SSTab1.TabCase0sql="select*fromsalarysetting"CallbasictopicCallshowbasic(sql)Case1sql="select*fromsalaryother"CallothertopicCallshowother(sql)Case2sql="select*fromsalarystatisticsorderbyiddesc"CalllisttopicCallshowdata(sql)EndSelectElse’顾客权限sql="selectsidfromstuffinfowheresname='"&strusername&"'"Setrs=getrs(sql，"salary")WhileNotrs.EOFMid.AddItemrs(0)rs.MoveNextWendrs.MoveFirstsd=rs(0)rs.CloseMid.ListIndex=0SelectCaseMe.SSTab1.TabCase0sql="select*fromsalarysettingwherestuffid='"&sd&"'"CallbasictopicCallshowbasic(sql)Case1sql="select*fromsalaryotherwherestuffid='"&sd&"'"CallothertopicCallshowother(sql)Case2sql="select*fromsalarystatisticswherestuffid='"&sd&"'"CalllisttopicCallshowdata(sql)EndSelectEndIfEndS