- 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.清华大学出版社,2002
Tony Greening.21世纪计算机科学教育.高等教育出版社
王珊,萨师煊.数据库系统概论(第四版).高等教育出版社,2006
杨冬青,唐世渭.数据库系统概念(第三版).机械工业出版社,2003
Hector 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 If
End Sub
2)登录窗体denglu设计
代码如下
Option Explicit
Private Sub Form_Load()
Label5.Width = denglu.ScaleWidth
Label5.Left = denglu.ScaleWidth
End Sub
Private Sub Command2_Click()
Dim intResult As Integer
请求用户确认是否真的退出系统登录
intResult = MsgBox(你选择了退出系统登录,退出将不能启动员工薪资管理系统!是否真的退出?, vbYesNo, 登录验证)
If intResult = vbYes Then End
根据用户选择结束应用程序
End Sub
Private Sub Command1_Click()
If Option1.Value = True Then
Dim str As String
str = select* from 员工表 where 用户名= Trim(Text1.Text)
Adodc1.RecordSource = str
- 软件下载与安装、电脑疑难问题解决、office软件处理 + 关注
-
实名认证服务提供商
专注于电脑软件的下载与安装,各种疑难问题的解决,office办公软件的咨询,文档格式转换,音视频下载等等,欢迎各位咨询!
原创力文档


文档评论(0)