SQL+vb课程设计工资管理系统.docVIP

课程设计报告 课程设计题目： 工资管理系统 学生姓名 ： 专 业 ： 班 级 ： 指导教师 ： 2011年 12 月 17 日 姓名： 学号： 实验时间：12月14日 实验地点： 课程设计题目： 工资管理系统 课程设计目的： 本次课程设计的主要目的是综合运用所学的数据库与VB知识解决一个比较实际的简单问题，侧重对数据库连接、查询等相关内容的综合应用，使同学们能进一步熟悉掌握数据库的基本使用方法，进一步提升自己的编程能力并逐步培养编程思维，进而不断提高同学们解决问题的能力，并为以后的语言学习打下良好的基础。 课程设计要求： 1. 独立完成； 2. 此次课程设计在规定的时间必须在实验室完成，不得以任何理由在其他地点进行； 3．每个人需按照选题规则确定好自己的题目（注意不是多人完成一题，每人独立完成一题），不得以任何理由选择其他的题目，当然在完成自己的题目之后根据个人兴趣可以继续选做其他的题目； 4．课程设计完成后严格按照报告格式撰写课程设计报告，并于结束后的第三天上交到学习委员统一交给老师； 5．课程设计的成绩由两部分组成：程序检查成绩（40％，每个功能占程序分的20%）＋报告检查成绩（40％）＋平时考核（20%） 试验要求 员工基本信息的管理功能。 单位员工变动、奖惩情况的管理功能。 工资的计算、修改功能。 查询统计功能。 报表打印功能。 具有数据备份和数据恢复功能。 试验过程 1.数据库的设计 本系统的数据库是SQL数据库，在SQL环境下创建数据库工资.mdb文件。该数据库包括员工信息表、工资标准表、其他工资标准表、用户表用于纪录员工的基本信息数据库表结构如下所示： 字段名 类型 大小 允许空 员工编号 varchar 8 Not null 姓名 varchar 10 Not null 性别 varchar 2 Not null 职务 Varchar 8 Not null 出生年月 datetime Not null 员工头像 image 员工信息表 字段名 类型 大小 允许空 员工编号 varchar 8 月份 int 4 津贴 money 8 NULL 奖金 Money 8 NULL 扣保险 Money 8 NULL 扣考勤 Money 8 NULL 扣其他 Money 8 NULL 其他工资标准表 字段名 类型 大小 允许空 职务 varchar 8 Not null 基本工资 money 8 Not null 工资标准表 字段名 类型 大小 允许空 用户名 char 10 Not null 口令 char 10 Not null 用户表 2．主要内容 登录窗体 登录窗体 设计代码： Option Explicit Private Function Selectsql(SQL As String) As ADODB.Recordset 返回ADODB.Recordset对象 Dim ConnStr As String Dim Conn As ADODB.Connection Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Set Conn = New ADODB.Connection On Error GoTo MyErr: ConnStr = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=true;Initial Catalog=工资;Data Source=(local) 这是连接SQL数据库的语句 Conn.Open ConnStr rs.CursorLocation = adUseClient rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic Set Selectsql = rs Exit Function MyErr: Set rs = Nothing Set Conn = Nothing 释放相关的系统资源 MsgBox Err.Description, vbInformation, 系统提示 显示出错信息 End Function Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() Dim SQL As String Di