- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
数据库实验七.
数据库应用设计设计报告题目名称:________员工薪资管理__ ____设计环境:_______ Oracle 11g__ ___指导教师:_________张世玲_______________专业班级:________计科1401______________姓 名:________董嗣川________________学 号:________513543543____________联系电话:______ __________电子邮件:_______224354354354@_______设计日期:?2015年?10月25日至?2015年11月15 日设计报告日期:? 2015 年?? 11 月18 日指导教师评语:设计成绩:____________ 指导教师签名:____________参考文献中国计算机科学与技术学科教程2002研究组.中国计算机科学与技术学科教程2002.清华大学出版社,2002Tony Greening.21世纪计算机科学教育.高等教育出版社王珊,萨师煊.数据库系统概论(第四版).高等教育出版社,2006杨冬青,唐世渭.数据库系统概念(第三版).机械工业出版社,2003Hector Garcia-Molina,Jeffrey D.Ullman.数据库系统全书.机械工业出版社,2003宋振会.SQL Server 2000中文版基础教程.清华大学出版社,2005郑阿奇. SQL Server实用教程.电子工业出版社,2002刘自伟.管理信息系统开发技术.武汉理工大学出版社,2003“员工薪资管理系统”程序功能简介2.1程序概述“员工薪资管理系统”是选用Mircrosoft 公司的Sql Server 2000和VB6.0开发环境而设计的,并且与SQL数据库相连接。能够很方便的让员工进行信息查询,以及工资查询。同时也方便了管理员对企业员工的基本信息和工资信息进行管理,实现对员工信息进行增,删,改,查。程序界面设计简单明了,容易操作。2.2程序各个模块的功能进入窗体frmwel:加载界面登录窗体denglu:学生和教师实现用户名,密码登录菜单窗体main:包括相应菜单栏,实现查询,添加,编辑等查询窗体chaxun1和chaxun2 查询员工基本信息和薪资信息编辑信息窗体xxbj 管理员进入,对员工信息进行编辑修改密码窗体xgmm 修改员工和管理员密码计算器窗体 scientific 帮助计算工资添加窗体tjyh 天加用户关于窗体about 关于本程序介绍2.3.程序流程设计2.3.1程序设计各模块功能分析2.3.2SQL数据库设计表设计E-R图各个表字段名及属性2.3.3窗体设计1)进入窗体设计frmwel代码如下:Private Sub Timer1_Timer()Static N As Integer N = N + 1 Label3.Caption = 正在加载数据,请等候 String(N, .) If N = 2 Then With denglu .Show End With denglu.Show Unload Me End IfEnd Sub2)登录窗体denglu设计代码如下Option ExplicitPrivate Sub Form_Load() Label5.Width = denglu.ScaleWidth Label5.Left = denglu.ScaleWidth End SubPrivate Sub Command2_Click() Dim intResult As Integer 请求用户确认是否真的退出系统登录 intResult = MsgBox(你选择了退出系统登录,退出将不能启动员工薪资管理系统!是否真的退出?, vbYesNo, 登录验证) If intResult = vbYes Then End 根据用户选择结束应用程序End SubPrivate Sub Command1_Click()If Option1.Value = True Then Dim str As String str = select* from 员工表 where 用户名= Trim(Text1.Text) Adodc1.RecordSource = str Adodc1.Refresh If Adodc1.Recordset.EOF = True Then MsgBox 此用户名不存在,请重试!, vbOKOnly + vbExclamation, 登录 Text1.Text = Text1.SetFocus ElseIf Trim(Adodc1.Recordset.Fields(密码)) = Trim(Text2.Te
文档评论(0)