VB课程设计 企业管理系统.doc

VB开发基础训练实习报告企业管理系统班 级 Z090554 学 号 Z09055437 完 成 人 谭建立 完成时间 2011-1-5 目录1. 系统分析2. 功能简介 2.1 文字介绍 2.2 结构分析与介绍3. 数据库介绍4. 各模块的功能简介及设计过程4.1各部分运行界面截图与简要介绍 4.2 各部分界面代码分析5. 实习心得6. 参考资料一：系统分析现实的企业的管理中一个实用的企业管理系统不仅可以方便企业的各种管理更能行之有效的提高企业的行事效率。考虑到各种可能一个使用的系统不仅要满足员工个人的信息查看，请假申请，加班申请及对个人用户登录密码的修改等同时还要满足管理人员对员工个人信息及请假加班等信息的浏览等。二：功能介绍1.1文字介绍设计该系统的时候主要考虑到系统的实用性，在登录的时候实际分为两大系统：一是员工登录系统；二是管理人员登录系统。在员工登录系统，员工只需输入自己正确的姓名，密码后便可以登录个人系统。在该系统员工可以浏览个人基本信息，进行请假申请，加班申请，修改和浏览个人本月请假记录和加班记录，同时员工还可以修改个人登录系统密码。在管理人员登陆的系统，同样管理人员只需输入个人正确的姓名及密码便可登录只有管理人员才可以登录的管理人员系统，管理人员系统满足了管理人员对企业部门分属情况进行浏览，查看各个部门人员的个人信息，浏览本月内企业员工的请假情况和加班情况，查看企业员工各阶段的年龄比，学历分布直方图，修改个人密码及添加新的员工用户等。该系统满足了企业员的需求而且满足了管理人员对企业整体信息的浏览与修改。在企事业管理中非常实用。2.1 程序总体结构图 登陆界面个人资料查询加班信息查询值班情况查询请假信息查询修改个人密码基本信息管理考勤考评管理员工信息统计员工登录管理员登陆系统用户管理2.2 员工登录部分结构图加班信息查询添加修改 其他结构于此雷同2.3管理员登陆部分结构图基本信息管理部门管理员工管理退出系统系统用户管理用户管理修改密码人力资源管理系统密码部门员工个人信息员工信息员工考勤表加班数据库请假数据库三：数据库介绍数据库分为密码设置，个人信息，加班信息，请假信息，考勤信息及排班信息六部分（如下图所示）。四：各模块的功能简介及设计过程4.1各部分运行界面截图与分析总的系统根据实际需求分为两大部分：一是员工登陆界面；二是管理人员登陆界面（如运行界面如下图所示）。员工登陆界面如下，输入正确的姓名及密码即可实现登陆（如运行界面下图所示）登陆后界面分为五部分：个人资料查询，加班信息，请假信息和个人密码修改，值班情况查询。根据员工登陆界面是输入的姓名在个人信息数据库进行选择然后输出个人详细信息。请假及加班申请及修改界面如图，它可以满足企业员工的请，加假需求。（运行界面如下图所示） 修改密码的界面如图，员工只需输入想修改的密码，确定即可实现密码的修改。（运行界面如图所示）企业管理人员登陆的界面如图，管理人员同样只需输入正确的姓名及密码即可实现登陆。企业管理人员登陆系统后的管理界面运行效果如下图所示：根据实际需求，企业管理人员可以实现不同的操作（运行界面如下图所示）查找界面如图，输入部门序号或部门名称即可实现相应的查找下图为排班程序 4.1系统登录界面代码为：Private Sub Command1_Click()员工登陆界面Form16.ShowEnd SubPrivate Sub Command2_Click()Form12.ShowEnd Sub4.2员工登陆界面代码为：Private Sub Command1_Click()员工Form15.ShowMe.HideEnd SubPrivate Sub Command2_Click()EndEnd Sub4.3员工个人系统登陆代码为Private Sub Command1_Click()Form5.ShowAdodc1.CommandType = adCmdUnknownAdodc1.RecordSource = Select * from 请假数据库 Where 姓名 = & 员工登陆界面Form16.Text1 & Adodc1.RefreshEnd SubPrivate Sub Command2_Click()员工加班界面Form15.ShowEnd SubPrivate Sub Command3_Click()员工请假界面Form15.ShowEnd SubPrivate Sub Command4_Click()Form9.ShowEnd SubPrivate Sub Command5_Click()Form16.ShowForm16.Adodc1.CommandType = adCmdUnknownForm16.Adodc1.RecordSource = Select * from 员工排班记录 Where 职员姓名 = & 员工登陆界面Form16.Text1 & Form16.Adodc1.RefreshForm16.DataGrid1.Enabled = FalseEnd Sub修改密码代码为Private Sub Command1_Click()If Trim(Text1.Text) = Then MsgBox 用户名不能为空, vbOKOnly + vbExclamation, Exit Sub Text1.SetFocusElse Do While Not Adodc1.Recordset.EOF If Trim(Adodc1.Recordset.Fields(用户名) = Trim(Text1) Then MsgBox 已有这个用户, vbOKOnly + vbExclamation, Text1.SetFocus Text1.Text = Text2.Text = Text3.Text = Exit Sub Else Adodc1.Recordset.MoveNext End If Loop If Trim(Text2.Text) Trim(Text3.Text) Then MsgBox 两次密码不一致, vbOKOnly + vbExclamation, Text2.SetFocus Text2.Text = Text3.Text = Exit Sub Else Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(用户名) = Text1 Adodc1.Recordset.Fields(密码) = Text2 Adodc1.Recordset.Update MsgBox 添加用户成功, vbOKOnly + vbExclamation, Unload Me End IfEnd IfEnd Sub4.4企业管理人员系统登陆界面代码为Private Sub Command2_Click()EndEnd SubPrivate Sub Command1_Click()userID = Text2Adodc2.RecordSource = select * from 密码 where 用户名= & Text2 & and 密码= & Text1 & Adodc2.RefreshIf Adodc2.Recordset.EOF ThenMsgBox 密码错误请重新输入Text1 = Text2 = ElseForm12.Hideform1.ShowEnd IfEnd SubPrivate Sub Form_Load()Me.Command1.Default = TrueText1.PasswordChar = *Option1 = True Dim mpath$, mlink$ mpath = App.Path 获取程序所在的路径 If Right(mpath, 1) Then mpath = mpath + 判断是否为子目录- 以下两行代码可合成一句，mlink存放ConnectionString属性的设置值 mlink = Provider=Microsoft.Jet.OLEDB.4.0; 指定提供者 mlink = mlink + Data Source= + mpath + Database1.mdb 在数据库文件名前插入路径 Adodc1.ConnectionString = mlink 设置连接属性 Adodc1.CommandType = adCmdUnknown 指定记录集命令类型（可在设计时指定） If Option1 Then Adodc1.RecordSource = Select adminlogin from Database1 Adodc1.Refresh Else Adodc1.RecordSource = Select guestlogin from Database1 Adodc1.Refresh End IfEnd SubPrivate Sub Command2_Click()Form8.Hideform1.ShowEnd SubPrivate Sub Form_Load()Text2.PasswordChar = *Text3.PasswordChar = *End Sub 4.5管理人员登陆界面代码为Private Sub bmgl_Click()form1.Hideform2.ShowEnd SubPrivate Sub gztj_Click()End SubPrivate Sub kqgl_Click()Form11.ShowEnd SubPrivate Sub tc_Click()EndEnd SubPrivate Sub xgmm_Click()Form9.ShowEnd SubPrivate Sub yggl_Click()form1.HideForm3.ShowEnd SubPrivate Sub ygpbjl_Click()Form16.ShowEnd SubPrivate Sub ygxxtj_Click()Form10.ShowEnd SubPrivate Sub yhgl_Click()Form8.ShowEnd Sub4.6部门管理界面代码Private Sub Command1_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command2_Click()Form4.ShowEnd SubPrivate Sub Command3_Click()ask = MsgBox(是否删除？, vbYesNo)If ask = 6 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.Updateform1.Showform2.HideEnd SubPrivate Sub Command5_Click()Adodc1.Recordset.MoveLastAdodc1.Recordset.UpdateAdodc1.RefreshSet DataGrid1.DataSource = Adodc1End Sub4.7排班程序代码Private Sub Command1_Click()DataGrid1.AllowAddNew = TrueDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = TrueAdodc1.Recordset.AddNewEnd SubPrivate Sub Command2_Click()Adodc1.CommandType = adCmdUnknownIf Combo1 And Combo2 And Combo3 Then Adodc1.RecordSource = Select * From 员工排班记录 where 职员姓名= & Combo1 & and 班次类型= & Combo2 & ElseIf Combo1 Then Adodc1.RecordSource = Select * From 员工排班记录 where 职员姓名= & Combo1 & ElseIf Combo2 Then Adodc1.RecordSource = Select * From 员工排班记录 where 班次类型= & Combo2 & End If Adodc1.Refresh If MsgBox(真的要删除吗？, vbQuestion + vbYesNo, 提示) Then DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = True DataGrid1.AllowUpdate = True Adodc1.Recordset.DeleteElse Adodc1.Recordset.Update End If Adodc1.CommandType = adCmdUnknownAdodc1.RecordSource = Select * From 员工排班记录Adodc1.RefreshSet DataGrid1.DataSource = Adodc1End SubPrivate Sub Command3_Click()DataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = FalseAdodc1.Recordset.UpdateMsgBox 保存成功！Adodc1.CommandType = adCmdUnknownAdodc1.RecordSource = Select * From 员工排班记录Adodc1.RefreshSet DataGrid1.DataSource = Adodc1End SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Form_Load()DataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = FalseDo While Not Adodc1.Recordset.EOF Combo1.AddItem Adodc1.Recordset(职员姓名) Combo2.AddItem Adodc1.Recordset(班次类型) Adodc1.Recordset.MoveNextLoop Adodc1.Recordset.MoveFirstEnd Sub4.8企业员工学历等比值代码Dim a$(), b%(), n, max Public Sub zbx() Cls n = 0: max = 0 Adodc1.Refresh Do While Not Adodc1.Recordset.EOF n = n + 1 ReDim Preserve a(n) ReDim Preserve b(n) a(n) = Adodc1.Recordset.Fields(员工姓名) b(n) = Adodc1.Recordset.Fields(工资) If b(n) max Then max = b(n) Adodc1.Recordset.MoveNextLoopScale (-3, max * 1.2)-(max * 1.2, -max * 0.1)Line (0, 0)-(max * 1.2, 0): Line (0, max * 1.2)-(0, 0)CurrentX = -3: CurrentY = -1Print 数据:;For i = 1 To UBound(a)Print a(i); b(i); ,;Next iEnd SubPrivate Sub bl_Click()Dim s$(0 To 4), m%(0 To 4), zuida%, sum%s(0) = 本科s(1) = 大专s(2) = 高中s(3) = 初中s(4) = 小学Adodc2.Refresh Do While Not Adodc2.Recordset.EOF Adodc2.Recordset.Find 文化程度 = & s(0) & , adSearchForward If Not Adodc2.Recordset.EOF Then m(0) = m(0) + 1 If Adodc2.Recordset.AbsolutePosition = Adodc2.Recordset.RecordCount Then GoTo line1 Else Adodc2.Recordset.MoveNext End If End If Loopline1:Adodc2.Refresh Do While Not Adodc2.Recordset.EOF Adodc2.Recordset.Find 文化程度 = & s(1) & , adSearchForward If Not Adodc2.Recordset.EOF Then m(1) = m(1) + 1 If Adodc2.Recordset.AbsolutePosition = Adodc2.Recordset.RecordCount Then GoTo line2 Else Adodc2.Recordset.MoveNext End If End If Loopline2:Adodc2.Refresh Do While Not Adodc2.Recordset.EOF Adodc2.Recordset.Find 文化程度 = & s(2) & , adSearchForward If Not Adodc2.Recordset.EOF Then m(2) = m(2) + 1 If Adodc2.Recordset.AbsolutePosition = Adodc2.Recordset.RecordCount Then GoTo line3 Else Adodc2.Recordset.MoveNext End If End If Loopline3:Adodc2.Refresh Do While Not Adodc2.Recordset.EOF Adodc2.Recordset.Find 文化程度 = & s(3) & , adSearchForward If Not Adodc2.Recordset.EOF Then m(3) = m(3) + 1 If Adodc2.Recordset.AbsolutePosition = Adodc2.Recordset.RecordCount Then GoTo line4 Else Adodc2.Recordset.MoveNext End If End IfLoopline4:Adodc2.Refresh Do While Not Adodc2.Recordset.EOF Adodc2.Recordset.Find 文化程度 = & s(4) & , adSearchForward If Not Adodc2.Recordset.EOF Then m(4) = m(4) + 1 If Adodc2.Recordset.AbsolutePosition = Adodc2.Recordset.RecordCount Then GoTo line5 Else Adodc2.Recordset.MoveNext End If End IfLoopline5:For i = 0 To 4 sum = sum + m(i) Next iClsForm10.FillStyle = 1Dim su!su = 2 * 3.1415 / sum Scale (-10, 100)-(150, -10)Dim bai! For i = 0 To 4 If i = 0 Then z1 = 0.0001 * su z2 = m(i) * su + z2 If i 0 Then z1 = m(i - 1) * su + z1 FillColor = QBColor(Rnd * 15) Circle (75, 50), 40, , -z1, -z2 CurrentX = 75 + 40 * Cos(z1 + z2) / 2) CurrentY = 50 + 40 * Sin(z1 + z2) / 2) bai = Format(m(i) / sum * 100, 0.00) Print s(i); bai; % Next iEnd SubPrivate Sub yggztj_Click()zbxw = max / 2 / nX1 = wFor i = 1 To nX2 = X1 + wY2 = b(i)Line (X1, 0)-(X2, Y2), QBColor(Rnd * 16), BFCurrentX = X1CurrentY = Y2 + max * 0.1Print a(i)X1 = X2 + wNext iEnd Sub4.9企业考勤程序代码Private Sub baocun_Click()DataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = FalseAdodc1.Recordset.UpdateMsgBox 保存成功！End SubPrivate Sub chaxun_Click()Adodc1.CommandType = adCmdUnknownIf Combo1 And Combo2 And Combo3 Then Adodc1.RecordSource = Select * From 员工考勤表 where 姓名= & Combo1 & and 部门名称= & Combo2 & and 员工考勤表 where 编号 = & Combo3 & ElseIf Combo1 ThenAdodc1.RecordSource = Select * From 员工考勤表 where 姓名= & Combo1 & ElseIf Combo2 Then Adodc1.RecordSource = Select * From 员工考勤表 where 部门名称= & Combo2 & ElseIf Combo3 ThenAdodc1.RecordSource = Select * From 员工考勤表 where 编号 = & Combo3 & End If Adodc1.RefreshEnd SubPrivate Sub Command1_Click()Combo1 = Combo2 = Combo3 = Adodc1.RecordSource = Select * From 员工考勤表Adodc1.RefreshSet DataGrid1.DataSource = Adodc1End SubPrivate Sub dayin_Click()Dim oldPaperSize As IntegerIf MsgBox(请准备好打印机，点击是开始打印 ., vbYesNo, gtitle) = vbNo Then Exit Sub oldPaperSize = Printer.PaperSize Printer.PaperSize = 9 A4 Print Date; Printer Printer.PaperSize = oldPaperSize End SubPrivate Sub fanhui_Click()Unload MeEnd SubPrivate Sub Form_Load()DataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = FalseDo While Not Adodc1.Recordset.EOF Combo1.AddItem Adodc1.Recordset(姓名) Combo2.AddItem Adodc1.Recordset(部门名称) Combo3.AddItem Adodc1.Recordset(编号) Adodc1.Recordset.MoveNextLoop Adodc1.Recordset.MoveFirstEnd SubPrivate Sub shanchu_Click()If MsgBox(真的要删除吗？, vbQuestion + vbYesNo, 提示) ThenDataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = TrueDataGrid1.AllowUpdate = TrueAdodc1.Recordset.DeleteEnd IfEnd SubPrivate Sub tianjia_Click()DataGrid1.AllowAddNew = TrueDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = TrueAdodc1.Recordset.AddNewEnd SubPrivate Sub xiugai_Click()If MsgBox(真的要修改吗？, vbQuestion + vbYesNo, 提示) ThenDataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = TrueEnd IfAdodc1.Recordset.SaveEnd Sub4.10企业员工的信息添加，删除代码Private Sub Command1_Click()Adodc2.Recordset.AddNewEnd SubPrivate Sub Command2_Click()Form14.ShowEnd SubPrivate Sub Command3_Click()ask = MsgBox(是否删除？, vbYesNo)If ask = 6 Then Adodc2.Recordset.Delete Adodc2.Recordset.MoveNext Adodc1.Refresh End If End SubPrivate Sub Command4_Click()Adodc1.Recordset.UpdateEnd SubPrivate Sub Command5_Click()Form3.Hideform1.ShowEnd SubPrivate Sub Command6_Click()st = InputBox(请输入查找姓名)rs = Select * from 员工个人信息表 Where 姓名 = & st & Form5.ShowForm5.Adodc1.RecordSource = rsForm5.Adodc1.RefreshEnd SubPrivate Sub DataList1_Click()Adodc2.RecordSource = Select * from 员工信息 Where