大数据库实验七.docx

《大数据库实验七.docx》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、数据库应用设计设计报告题目名称：________员工薪资管理______设计环境：_______Oracle11g_____指导教师：_________世玲_______________专业班级：________计科1401______________姓名：________董嗣川________________学号：________513543543____________联系：__________________电子：_______4qq._______设计日期： 2015年 10月25日至 2015年11月15日设计报告日

2、期： 2015 年  11月  18日指导教师评语：设计成绩：____________指导教师签名：____________参考文献［1］中国计算机科学与技术学科教程2002研究组.中国计算机科学与技术学科教程2002.清华大学，2002［2］TonyGreening.21世纪计算机科学教育.高等教育［3］王珊，萨师煊.数据库系统概论（第四版）.高等教育，2006［4］冬青，唐世渭.数据库系统概念（第三版）.机械工业，2003［5］HectorGarcia-Molina，JeffreyD.Ullman.数据库系统全书.机械工业

3、，2003［6］宋振会.SQLServer2000中文版基础教程.清华大学，2005［7］阿奇.SQLServer实用教程.电子工业，2002［8］自伟.管理信息系统开发技术.理工大学，2003一.“员工薪资管理系统”程序功能简介2.1程序概述“员工薪资管理系统”是选用Mircrosoft公司的SqlServer2000和VB6.0开发环境而设计的，并且与SQL数据库相连接。能够很方便的让员工进行信息查询，以及工资查询。同时也方便了管理员对企业员工的基本信息和工资信息进行管理，实现对员工信息进行增，删，改，查。程序界面设计简单

4、明了，容易操作。2.2程序各个模块的功能进入窗体frmwel：加载界面登录窗体denglu：学生和教师实现用户名，密码登录菜单窗体main：包括相应菜单栏，实现查询，添加，编辑等查询窗体chaxun1和chaxun2查询员工基本信息和薪资信息编辑信息窗体xxbj管理员进入，对员工信息进行编辑修改密码窗体xgmm修改员工和管理员密码计算器窗体scientific帮助计算工资添加窗体tjyh天加用户关于窗体about关于本程序介绍2.3.程序流程设计2.3.1程序设计各模块功能分析2.3.2SQL数据库设计表设计E-R图各个表字段

5、名及属性2.3.3窗体设计1)进入窗体设计frmwel代码如下：PrivateSubTimer1_Timer()StaticNAsIntegerN=N+1Label3.Caption="正在加载数据，请等候"&String(N,".")IfN=2ThenWithdenglu.ShowEndWithdenglu.ShowUnloadMeEndIfEndSub2)登录窗体denglu设计代码如下OptionExplicitPrivateSubForm_Load()Label5.Width=denglu.ScaleWidthLabe

6、l5.Left=denglu.ScaleWidthEndSubPrivateSubCommand2_Click()DimintResultAsInteger'请求用户确认是否真的退出系统登录intResult=MsgBox("你选择了退出系统登录，退出将不能启动员工薪资管理系统！是否真的退出？",vbYesNo,"登录验证")IfintResult=vbYesThenEnd'根据用户选择结束应用程序EndSubPrivateSubCommand1_Click()IfOption1.Value=TrueThenDimstrAsS

7、tringstr="select*from员工表where用户名='"&Trim(Text1.Text)&"'"Adodc1.RecordSource=strAdodc1.RefreshIfAdodc1.Recordset.EOF=TrueThenMsgBox"此用户名不存在，请重试！",vbOKOnly+vbExclamation,"登录"Text1.Text=""Text1.SetFocusElseIfTrim(Adodc1.Recordset.Fields("密码"))=Trim(Text2.Text)Thenmain.

8、ShowMe.HideElseMsgBox"密码不正确，请重试！",vbOKOnly+vbExclamation,"登录"EndIfEndIfIfOption2.Value=TrueThenDimstr1AsStringstr1="select*from管理员表where用户