JSJ06-125@VB人事管理系统(源代码+论文+开题报告+实习报告)
收藏
资源目录
压缩包内文档预览：(预览前20页/共33页)
编号：508381
类型：共享资源
大小：967.84KB
格式：ZIP
上传时间：2015-11-10
上传人：QQ28****1120
认证信息
个人认证
孙**（实名认证）
辽宁
IP属地：辽宁
12
积分
- 关 键 词：
-
毕业设计论文
- 资源描述：
-
JSJ06-125@VB人事管理系统(源代码+论文+开题报告+实习报告),毕业设计论文
- 内容简介：
-
附录： 毕业设计程序清单 设计题目 人事管理系统 教 学 班： 学生姓名： 学 号： 指导教师： 完成日期： nts 1 Option Explicit Dim Bupdata As Boolean Dim i As Integer Private Sub Cmbdegree_Click() If Cmbdegree.Text = 定制 Then FrmTable.Show Cmbdegree.ListIndex = 0 End If End Sub Private Sub Cmbdepart_Click() If Cmbdepart.Text = 定制 Then FrmTable.Show Cmbdepart.ListIndex = 0 End If End Sub Private Sub CmdAddNew_Click() If CmdAddNew.Caption = 添加 Then CmdAddNew.Caption = 确认 CmdDel.Enabled = False CmdOK.Enabled = False DataA.ReadOnly = False For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 DataA.Recordset.Fields(i) = 0 Next i DataA.Recordset.AddNew Txt(0).Locked = False If FrmMain.cutable = employee Then DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now If Opsex(0) Then DataA.Recordset.Fields(4) = 男 Else nts 2 DataA.Recordset.Fields(4) = 女 End If DataA.Recordset.Fields(7) = Cmbdegree.Text DataA.Recordset.Fields(8) = Cmbdepart.Text ElseIf FrmMain.cutable = leave Then DataA.Recordset.Fields(8) = frmLogin.EmploID DataA.Recordset.Fields(9) = Now Else DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now End If Txt(0).SetFocus Else OK If Txt(0).Text = Then MsgBox 不可以为空 Txt(0).SetFocus Exit Sub End If For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 DataA.Recordset.Fields(i) = 0 Next i If FrmMain.cutable = employee Then DataB.Recordset.FindFirst 职工编号 = + Txt(0).Text If Not DataB.Recordset.NoMatch Then MsgBox 职员编号重复 Txt(0).Text = Txt(0).SetFocus Exit Sub End If nts 3 ElseIf FrmMain.cutable = leave Then DataB.Recordset.FindFirst 假条编号 = + Txt(0).Text If Not DataB.Recordset.NoMatch Then MsgBox 假条编号重复 Txt(0).Text = Txt(0).SetFocus Exit Sub End If Else For i = 4 To 10 If Not IsNumeric(Txt(i).Text) Then MsgBox not a number Txt(i).SetFocus Exit Sub End If Next i DataB.Recordset.FindFirst 工资编号 = + Txt(0).Text If Not DataB.Recordset.NoMatch Then MsgBox 工资编号重复 Txt(0).Text = Txt(0).SetFocus Exit Sub End If End If DataA.Recordset.Update DataA.Recordset.MoveLast FrmMain.DataA.Refresh FrmMain.DataB.Refresh DataB.Refresh CmdAddNew.Caption = 添加 nts 4 CmdDel.Enabled = True CmdOK.Enabled = True End If End Sub Private Sub CmdCacel_Click() If CmdAddNew.Caption = 确认 Then DataA.Recordset.CancelUpdate End If FrmMain.Enabled = True FrmMain.SetFocus Unload Me FrmMain.DataA.Refresh If FrmMain.cutable = employee Then FrmMain.DBGA.Columns(性别 ).Button = True FrmMain.DBGA.Columns(学历 ).Button = True FrmMain.DBGA.Columns(部门 ).Button = True End If End Sub Private Sub CmdDel_Click() DataA.ReadOnly = False DataA.Recordset.Delete DataA.Recordset.MoveNext If DataA.Recordset.EOF Then DataA.Recordset.MoveLast End If FrmMain.DataA.Refresh nts 5 End Sub Private Sub cmdOK_Click() If Txt(0).Text = Then MsgBox 不可以为空 Txt(0).SetFocus Exit Sub End If Bupdata = False DataA.Recordset.Edit If FrmMain.cutable = leave Then DataA.Recordset.Fields(8) = frmLogin.EmploID DataA.Recordset.Fields(9) = Now ElseIf FrmMain.cutable = employee Then DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now If Opsex(0) Then DataA.Recordset.Fields(4) = 男 Else DataA.Recordset.Fields(4) = 女 End If DataA.Recordset.Fields(7) = Cmbdegree.Text DataA.Recordset.Fields(8) = Cmbdepart.Text DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now Else For i = 4 To 10 If Not IsNumeric(Txt(i).Text) Then MsgBox not a number Txt(i).SetFocus Exit Sub End If Next i nts 6 DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now End If For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 DataA.Recordset.Fields(i) = 0 Next i DataA.Recordset.Update FrmMain.DataA.Refresh DataB.Refresh End Sub Private Sub DataA_Validate(Action As Integer, Save As Integer) If Action = 11 And Bupdata Then Save = 0 End If End Sub Private Sub Lab_Click(Index As Integer) End Sub Private Sub Txt_KeyPress(Index As Integer, KeyAscii As Integer) If (KeyAscii 57) And KeyAscii 57) And KeyAscii 57) And KeyAscii 57) And KeyAscii 46 Then KeyAscii = 0 Exit Sub End If End If End Sub Private Sub Txt_change(Index As Integer) If Bupdata = False Then Bupdata = True If FrmMain.cutable = salary Then If Txt(Index).Text = Then Exit Sub If Index = 4 And Index = 8 And Index -1 Then nts 9 DataA.Recordset.Move (FrmMain.cuAp) Else DataA.Recordset.MoveFirst End If If DataA.Recordset.Fields(4) = 男 Then Opsex(0).Value = True Else Opsex(1).Value = True End If 设置 lsdegree 的显示项 For i = 0 To FrmMain.LsDegree.ListCount - 2 Cmbdegree.AddItem FrmMain.LsDegree.List(i) If FrmMain.LsDegree.List(i) = DataA.Recordset.Fields(7) Then Cmbdegree.ListIndex = i End If Next i If Cmbdegree.ListIndex = -1 Then Cmbdegree.AddItem DataA.Recordset.Fields(7) Cmbdegree.ListIndex = Cmbdegree.ListCount - 1 End If Cmbdegree.AddItem 定制 设置 lsdepart 的显示项 For i = 0 To FrmMain.LsDepart.ListCount - 2 Cmbdepart.AddItem FrmMain.LsDepart.List(i) If FrmMain.LsDepart.List(i) = DataA.Recordset.Fields(8) Then Cmbdepart.ListIndex = i End If Next i If Cmbdepart.ListIndex = -1 Then Cmbdepart.AddItem DataA.Recordset.Fields(8) Cmbdepart.ListIndex = Cmbdepart.ListCount - 1 nts 10 End If Cmbdepart.AddItem 定制 设置完毕 ElseIf FrmMain.cutable = leave Then leave Txt(7).Visible = True Cmbdegree.Visible = False Cmbdepart.Visible = False Frame1.Visible = False For i = 8 To 12 Lab(i).Visible = False Txt(i).Visible = False Next i For i = 0 To 7 Lab(i).Caption = DataA.Recordset.Fields(i).Name Txt(i).DataField = DataA.Recordset.Fields(i).Name Next i Txt(13).DataField = DataA.Recordset.Fields(10).Name If FrmMain.cuAp -1 Then DataA.Recordset.Move (FrmMain.cuAp) Else DataA.Recordset.MoveFirst End If Else salary Frame1.Visible = False Cmbdegree.Visible = False Cmbdepart.Visible = False For i = 0 To 12 Lab(i).Caption = DataA.Recordset.Fields(i).Name Txt(i).DataField = DataA.Recordset.Fields(i).Name Next i Txt(13).DataField = DataA.Recordset.Fields(15).Name Txt(7).Locked = True Txt(11).Locked = True Txt(12).Locked = True nts 11 If FrmMain.cuAp -1 Then DataA.Recordset.Move (FrmMain.cuAp) Else DataA.Recordset.MoveFirst End If End If End Sub Private Sub Form_Unload(Cancel As Integer) FrmMain.Enabled = True FrmMain.SetFocus Unload Me FrmMain.DataB.Refresh End Sub Option Explicit Const MxUser = 100 Public EmploID As Integer Public CurUser As String Public CurId As String Public CurPsw As String Dim user(MxUser), pws(MxUser), state(MxUser), Emplo(MxUser) As String Private Sub Form_Load() Dim i As Integer If App.PrevInstance Then MsgBox (程序已经运行，不能再次装载。 ), vbExclamation Unload Me End If 本段代码用于判定本程序是否已经装 载于内存中，以避免程序的多重启动 i = 0 Open App.Path + user.ini For Input As #1 Do While Not EOF(1) Input #1, user(i), pws(i), state(i), Emplo(i) nts 12 If state(i) = A Then Combo1.AddItem user(i) End If i = i + 1 Loop Close #1 Combo1.ListIndex = 1 在窗口装载阶段读取用户设置文件获取用户信息 并装载于用户列表框中 End Sub Private Sub CmdCancel_Click() Unload Me End End Sub Private Sub cmdOK_Click() If txtPassword = pws(Combo1.ListIndex) Then CurId = Combo1.ListIndex EmploID = Emplo(CurId) CurUser = user(CurId) CurPsw = pws(CurId) Me.Hide Load FrmMain FrmMain.Show Else MsgBox Invalid Password, try again!, , Login txtPassword.SetFocus SendKeys Home+End End If End Sub Private Sub Form_Unload(Cancel As Integer) Unload Me nts 13 End End Sub Option Explicit Public cuTabCh As Boolean Public cutable As String Public cuAp As Integer 当前指针位置 Dim i As Integer Public Pwin As String Public Sub showemployee() DataA.RecordSource = select * from employee DataA.Refresh DBGA.Columns(性别 ).Button = True DBGA.Columns(学历 ).Button = True DBGA.Columns(部门 ).Button = True For i = 0 To 2 Mtab(i).Checked = False Next i Mtab(0).Checked = True cutable = employee cuTabCh = True End Sub Public Sub showleave() DataA.RecordSource = select * from leave DataA.Refresh For i = 0 To 2 Mtab(i).Checked = False Next i Mtab(1).Checked = True cutable = leave cuTabCh = True End Sub Public Sub showsalary() DataA.RecordSource = select * from salary DataA.Refresh For i = 0 To 2 Mtab(i).Checked = False Next i nts 14 Mtab(2).Checked = True cutable = salary cuTabCh = True End Sub Private Sub Form_Load() Dim fil, tbcount, i As Integer Dim Tbstr(50), Tbnam(50) As String DataA.DatabaseName = App.Path + sm.mdb DataB.DatabaseName = App.Path + sm.mdb DataB.RecordSource = select * from employee Call showemployee If Dir(App.Path + table.ini) = Then LsDegree.AddItem 定制 LsDepart.AddItem 定制 Else fil = FreeFile() Open App.Path + table.ini For Input As #fil Do While Not EOF(fil) Input #fil, Tbnam(i), Tbstr(i) i = i + 1 Loop Close #fil tbcount = i For i = 0 To tbcount If Tbnam(i) = lsdegree Then LsDegree.AddItem Tbstr(i) ElseIf Tbnam(i) = lsdepart Then LsDepart.AddItem Tbstr(i) End If Next i LsDegree.AddItem 定制 LsDepart.AddItem 定制 nts 15 End If End Sub Private Sub Form_Unload(Cancel As Integer) End End Sub Private Sub DBGA_ButtonClick(ByVal ColIndex As Integer) Dim Co As Column Set Co = DBGA.Columns(ColIndex) Select Case ColIndex Case 4 Lssex.Left = DBGA.Left + Co.Left + Co.Width Lssex.Top = DBGA.Top + DBGA.RowTop(DBGA.Row) Lssex.Visible = True Lssex.ZOrder 0 Lssex.SetFocus Case 7 degree LsDegree.Left = DBGA.Left + Co.Left + Co.Width LsDegree.Top = DBGA.Top + DBGA.RowTop(DBGA.Row) LsDegree.Visible = True LsDegree.ZOrder 0 LsDegree.SetFocus Case 8 department LsDepart.Left = DBGA.Left + Co.Left + Co.Width LsDepart.Top = DBGA.Top + DBGA.RowTop(DBGA.Row) LsDepart.Visible = True LsDepart.ZOrder 0 LsDepart.SetFocus End Select End Sub Private Sub DBGA_HeadClick(ByVal ColIndex As Integer) DBGA.ClearSelCols nts 16 End Sub Private Sub DBGA_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then FrmMain.PopupMenu Mp End If End Sub Private Sub DBGA_RowColChange(LastRow As Variant, ByVal LastCol As Integer) cuAp = DataA.Recordset.AbsolutePosition If cuAp -1 Then DataB.Recordset.FindFirst 职工编号 = + CStr(DataA.Recordset.Fields(职工编号 ) If DataB.Recordset.NoMatch Then Lab.Caption = 没有此职员 Else With DataB.Recordset Lab.Caption = 工号： + CStr(.Fields(0) + 姓名： + CStr(.Fields(1) + 性别： + CStr(.Fields(4) + 部门： + CStr(.Fields(8) + 职位： + CStr(.Fields(9) + 电话： + CStr(.Fields(11) End With End If End If End Sub Private Sub LsDegree_Click() If LsDegree.Text = 定制 Then FrmTable.Show Else DataA.Recordset.Edit nts 17 DataA.Recordset.Fields(7) = LsDegree.Text DataA.Recordset.Fields(13) = CStr(frmLogin.CurId) DataA.Recordset.Fields(14) = CStr(Now) DataA.Recordset.Update DataB.Refresh End If End Sub Private Sub LsDepart_Click() If LsDepart.Text = 定制 Then FrmTable.Show Else DataA.Recordset.Edit DataA.Recordset.Fields(8) = LsDepart.Text DataA.Recordset.Fields(13) = CStr(frmLogin.CurId) DataA.Recordset.Fields(14) = CStr(Now) DataA.Recordset.Update DataB.Refresh End If End Sub Private Sub Lssex_Click() DataA.Recordset.Edit DataA.Recordset.Fields(4) = Lssex.Text DataA.Recordset.Fields(13) = CStr(frmLogin.CurId) DataA.Recordset.Fields(14) = CStr(Now) DataA.Recordset.Update DataB.Refresh End Sub # Private Sub Lssex_LostFocus() Lssex.Visible = False End Sub Private Sub Lsdegree_LostFocus() LsDegree.Visible = False nts 18 End Sub Private Sub Lsdepart_LostFocus() LsDepart.Visible = False End Sub Private Sub DBGA_Scroll(Cancel As Integer) Lssex.Visible = False LsDegree.Visible = False LsDepart.Visible = False End Sub # Private Sub MAbout_Click() frmAbout.Show End Sub Private Sub Mhelp_Click() FrmHelp.Show End Sub Private Sub Moption_Click(Index As Integer) If Index = 0 Then If frmLogin.CurUser = root Then FrmSys.Show Else FrmPsw.Show Pwin = Frmmain FrmMain.Enabled = False End If Else End End If End Sub Private Sub Mpop_Click(Index As Integer) Select Case Index Case 1 nts 19 FrmEdit.Show FrmMain.Enabled = False Case 2 If DBGA.SelBookmarks.Count = 1 Then If MsgBox( 确 定 要 删 除 吗 ？ , vbOKCancel, 确定 ) = vbOK Then DataA.Recordset.Delete cuAp = 0 Else MsgBox 请选择要删除的条目！ End If Case 3 FrmSearch.Show End Select End Sub Private Sub Mtab_Click(Index As Integer) Dim i As Integer For i = 0 To 2 Mtab(i).Checked = False Next i Mtab(Index).Checked = True Select Case Index Case 0 Call showemployee Case 1 Call showleave Case 2 Call showsalary End Select End Sub nts 20 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 edit FrmEdit.Show FrmMain.Enabled = False Case 2 del If DBGA.SelBookmarks.Count = 1 Then If MsgBox( 确 定 要 删 除 吗 ？ , vbOKCancel, 确定 ) = vbOK Then DataA.Recordset.Delete cuAp = 0 Else MsgBox 请选择要删除的条目！ End If Case 3 seek FrmSearch.Show Case 4 setup FrmSetup.Show End Select End Sub Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 Call showemployee Case 2 Call showleave Case 3 Call showsalary Case 4 If frmLogin.CurUser = root Then nts 21 FrmSys.Show Else FrmPsw.Show Pwin = Frmmain FrmMain.Enabled = False End If End Select End Sub Option Explicit Const MxUser = 100 Dim user(MxUser), pws(MxUser), state(MxUser), Emplo(MxUser) As String Private Sub CmdCancel_Click() Me.Hide If FrmMain.Pwin = Frmmain Then FrmMain.Enabled = True FrmMain.SetFocus Else Call FrmSys.ActiveAll FrmSys.SetFocus End If End Sub Private Sub cmdOK_Click() Dim fil, i, Usercount As Integer If TxtNew1.Text frmLogin.CurPsw Then MsgBox old password wrong Txtold.SetFocus TxtNew1.Text = TxtNew2.Text = nts 22 SendKeys Home+End Exit Sub Else fil = FreeFile() Open App.Path + user.ini For Input As #fil i = 0 Do While Not EOF(fil) Input #fil, user(i), pws(i) Input #fil, state(i), Emplo(i) i = i + 1 Loop Usercount = i Close #fil pws(frmLogin.CurId) = TxtNew1.Text frmLogin.CurPsw = TxtNew1.Text fil = FreeFile() Open App.Path + user.ini For Output As #fil For i = 0 To Usercount - 1 Print #fil, user(i); ,; pws(i); ,; state(i); ,; Emplo(i) Next i Close #fil Txtold.Text = TxtNew1.Text = TxtNew2.Text = Me.Hide If FrmMain.Pwin = Frmmain Then FrmMain.Enabled = True FrmMain.SetFocus Else Call FrmSys.ActiveAll FrmSys.SetFocus nts 23 End If End If End Sub Private Sub Form_LostFocus() FrmPsw.SetFocus End Sub Private Sub Form_Unload(Cancel As Integer) FrmMain.Enabled = True FrmMain.SetFocus Unload Me End Sub Option Explicit Private Sub Cmb1_Click() With Cmb1 If .Text = 职工编号 Or .Text = 交通补助 Or .Text = 加班补助 Or .Text = 工资编号 Or .Text = 假条编号 Or .Text = 身份证号 Or .Text = 出生日期 Or .Text = 中止日期 Or .Text = Edit Or .Text = 年份 Or .Text = 月份 Or .Text = 天数 Or .Text = 基本工资 Or .Text = 总工资 Or .Text = 考勤扣除 Or .Text = 扣税 Or .Text = 总扣除 Or .Text = 保险扣除 Then Cmb2.Clear Cmb2.AddItem Cmb2.AddItem = Cmb2.AddItem Cmb4.AddItem = Cmb4.AddItem Cmb4.AddItem Cmb2.AddItem 0 Then For i = 0 To a - 1 Lsshow.AddItem (FrmMain.DBGA.Columns(i).Caption) Next i End If End If End Sub Private Sub Lbadd_Click() If Lshide.Text Then Lshide.AddItem (Lsshow.Text) Lsshow.RemoveItem (Lsshow.ListIndex) End If nts 29 End Sub Private Sub Lsshow_DblClick() Lshide.AddItem (Lsshow.Text) Lsshow.RemoveItem (Lsshow.ListIndex) End Sub Private Sub Lshide_DblClick() Lsshow.AddItem (Lshide.Text) Lshide.RemoveItem (Lshide.ListIndex) End Sub Private Sub Form_Unload(Cancel As Integer) FrmMain.Enabled = True FrmMain.SetFocus Unload Me End Sub Option Explicit Dim Tbnam(50), Tbstr(50) As String 最大条目数 预设为 100 Dim fil, tbcount, i As Integer Dim Tbch As Boolean Private Sub CmdCancel_Click() Me.Hide End Sub Private Sub cmdOK_Click() If Tbch Then 如果 table 条目变动 则 保存变动 FrmMain.LsDegree.Clear FrmMain.LsDepart.Clear FrmEdit.
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号