VB课程设计——企业人事信息管理系统

1、1 / 241 概述：1.1简单介绍本系统实现的内容用户登录通过权限判断， 普通用户不能浏览、 阅读和查询信 息，指定用户可以操作， 可以进行信息录入、 修改和删除的操作。1.2系统的主要功能特点有:1.2.1系统登录表单该表单的功能是在系统被访问之前， 要对进入系统的用户进 行安全性检查，防止非法用户进行系统破坏数据及威胁系统安 全，避免不必要的损失。只有合法的用户在输入正确的密码后方 可进入系统。1.2.2系统分为五个大的功能模块:用户在经过正确的登录后可进行1）人事管理:包括部门信息和员工信息的查看,进行人员的 调动,并查看各部门员工的福利待遇.2）考勤管理:进行日常出勤管理和加班出差的

2、管理3）工资管理:可对各部门员工的工资进行登录和查询.4）打印:以条目或表格的形式对员工工资或员工信息进行输 出预览.5）系统管理:登录用户可对系统进行管理包括增加用户,修2 / 24改用户，删除用户和修改密码.值得一提的是登录用户进行修改 时仅限自身，不可对别的用户进行修改操作.数据库设计：2.1员工信息表：用户需要录入的员工信息表主要字段包括：员工编号、员工姓名、部门编号、性别、生日、住址、职位、出生地、联系电话。字段字段名类型宽度Nulls1员工编号char10否2员工姓名Char15否3部门编号Int4否4性别char2否5生日Char10否6住址Char30否7职位Varchar20

3、否8出生地Char10否9联系电话Char20否10最高学历Char20否2.2加班信息表:3 / 24字段字段名类型宽度Nulls1员工编号Char10否2加班日期Char10否3加班天数Int4是4加班补助Numeric9(10,0)是2.3工资福利表：包括：员工编号、岗位工资、基本工资、伙食补贴、住房补贴、住房公积金、养老保险、其他补贴、发放时间、加班补助、缺勤扣除、实发工资。字段字段名类型宽度Nulls1:员工编号Char10否2岗位工资Numeric9(19,4)是3基本工资Numeric9(19,4)是4伙食补贴Numeric9(19,4)是5住房补贴Numeric9(19,4)是

4、6住房公积金Numeric9(19,4)是7|养老保险Numeric9(19,4)是8其他补贴Numeric9(19,4)是9发放时间Char20否10加班补助Numeric9(18,0)是11缺勤扣除Numeric9(18,0)是包括：员工编号、加班日期、加班天数、加班补助4 / 2412实发工资Numeric9(18,0)是5 / 242.4缺勤信息表:包括：员工编号、缺勤日期、缺勤天数、缺勤类型、缺勤扣除。字段字段名类型宽度Nulls1员工编号Char10否2缺勤日期Char10否3缺勤天数char10是4缺勤类型Int4是5缺勤扣除char10是2.5用户信息表:包括：用户名、用户密码

5、、 用户类型字段字段名类型宽度Nulls1用户名Char10:否2用户密码Char20否3用户类型int4否2.6登录时间表：包括：用户名、用户类型、登录时间字段字段名类型宽度Nulls1用户名Char10否2用户类型Char10否3登录时间char40否2.7部门信息表：包括：部门编号、部门名称、部门人数、部门级别6 / 24字段字段名类型宽度Nulls1部门编号Int4否2部门名称Char20是3部门人数Int4是4部门级别char10是3代码添加用户代码:在FormMain.vb窗体中：Imports System.Data.OleDbImports System.Data.SqlCli

6、e ntImports Syste m.IOImports System.Wi ndows.Forms.HelpPrivate Sub Men ultem20_Click(ByValsen derAsSystem.Object, ByVal e As System.EventArgs)HandlesMe nultem20.ClickEnd Sub在FormXTGL.vb窗体中：Imports System.Data.OleDbImports System.Data.SqlClient7 / 24Public Class FrmXTGLInherits System.Windows.Forms.

7、FormPrivate MyTag As StringPrivate Username As StringPrivate Sub Button2_Click(ByVal sender As System.Object, ByVale As System.EventArgs) Handles Button2.ClickDimconnstrAsNewString(provider=SQLOLEDB.1;UserID=sa;PassWord=110;Persist Security Info=false;InitialCatalog=wage;Data Source=.;)Dim Cn As New

8、 OleDbConnectionDim cmd As OleDbCommandDim SQLString As StringIfEnd IfTryIf MyTag = 1 Then8 / 24SQLString = INSERT INTO用户信息表(用户名,用户密码,用户类型) & _ VALUES( & TextBox1.Text & , & CInt(TextBox2.Text) & , & _ComboBox1.SelectedIndex & )ElseIf MyTag = 2 ThenSQLString = DELETE用户信息表

9、WHERE用户名= &TextBox1.Text & ElseIf MyTag = 3 ThenSQLString = UpDate用户信息表SET用户密码= &TextBox2.Text & _,用 户 类 型= &ComboBox1.SelectedIndex & WHERE用户名= & _TextBox1.Text & ElseIf MyTag = 4 ThenIf TextBox1.Text = Username ThenSQLString = UpDate用户信息表SET用户密码= & TextBox2.Text & _9 / 24 WHERE用 户 名= &TextBox1.Text & ElseExit SubEn