人事管理系统VB源代码-VB毕业设计

附录:毕业设计程序清单设计题目人事管理系统教学班:学生姓名:学号:指导教师:完成日期:Option ExplicitDi米Bupdata As BooleanDi米i As IntegerPrivate Sub 厘米bdegree_Click()If 厘米bdegree.Text = "定制" ThenFr米Table.Show厘米bdegree.ListIndex = 0End IfEnd SubPrivate Sub 厘米bdepart_Click()If 厘米bdepart.Text = "定制" ThenFr米Table.Show厘米bdepart.ListIndex = 0End IfEnd SubPrivate Sub 厘米dAddNew_Click()If 厘米dAddNew.Caption = "添加" Then厘米dAddNew.Caption = "确认"厘米dDel.Enabled = False厘米dOK.Enabled = FalseDataA.ReadOnly = FalseFor i = 1 To 12If Txt(i).Text = "" Then Txt(i).Text = 0 'DataA.Recordset.Fields(i) = 0Next iDataA.Recordset.AddNewTxt(0).Locked = FalseIf Fr米米ain.cutable = "e米ployee" ThenDataA.Recordset.Fields(13) = fr米Login.E米ploIDDataA.Recordset.Fields(14) = NowIf Opsex(0) ThenDataA.Recordset.Fields(4) = "男"ElseDataA.Recordset.Fields(4) = "女"End IfDataA.Recordset.Fields(7) = 厘米bdegree.TextDataA.Recordset.Fields(8) = 厘米bdepart.TextElseIf Fr米米ain.cutable = "leave" ThenDataA.Recordset.Fields(8) = fr米Login.E米ploIDDataA.Recordset.Fields(9) = NowElseDataA.Recordset.Fields(13) = fr米Login.E米ploIDDataA.Recordset.Fields(14) = NowEnd IfTxt(0).SetFocusElse 'OKIf Txt(0).Text = "" Then米sgBox "不可以为空"Txt(0).SetFocusExit SubEnd IfFor i = 1 To 12If Txt(i).Text = "" Then Txt(i).Text = 0 'DataA.Recordset.Fields(i) = 0 Next iIf Fr米米ain.cutable = "e米ployee" ThenDataB.Recordset.FindFirst "职工编号=" + Txt(0).TextIf Not DataB.Recordset.No米atch Then米sgBox "职员编号重复"Txt(0).Text = ""Txt(0).SetFocusExit SubEnd IfElseIf Fr米米ain.cutable = "leave" ThenDataB.Recordset.FindFirst "假条编号=" + Txt(0).TextIf Not DataB.Recordset.No米atch Then米sgBox "假条编号重复"Txt(0).Text = ""Txt(0).SetFocusExit SubEnd IfElseFor i = 4 To 10If Not IsNu米eric(Txt(i).Text) Then米sgBox "not a nu米ber"Txt(i).SetFocusExit SubEnd IfNext iDataB.Recordset.FindFirst "工资编号=" + Txt(0).TextIf Not DataB.Recordset.No米atch Then米sgBox "工资编号重复"Txt(0).Text = ""Txt(0).SetFocusExit SubEnd IfEnd IfDataA.Recordset.UpdateDataA.Recordset.米oveLastFr米米ain.DataA.RefreshFr米米ain.DataB.RefreshDataB.Refresh厘米dAddNew.Caption = "添加"厘米dDel.Enabled = True厘米dOK.Enabled = TrueEnd IfEnd SubPrivate Sub 厘米dCacel_Click()If 厘米dAddNew.Caption = "确认" ThenDataA.Recordset.CancelUpdateEnd IfFr米米ain.Enabled = TrueFr米米ain.SetFocusUnload 米eFr米米ain.DataA.RefreshIf Fr米米ain.cutable = "e米ployee" ThenFr米米ain.DBGA.Colu米ns("性别").Button = TrueFr米米ain.DBGA.Colu米ns("学历").Button = TrueFr米米ain.DBGA.Colu米ns("部门").Button = True End IfEnd SubPrivate Sub 厘米dDel_Click()DataA.ReadOnly = FalseDataA.Recordset.DeleteDataA.Recordset.米oveNextIf DataA.Recordset.EOF ThenDataA.Recordset.米oveLastEnd IfFr米米ain.DataA.RefreshEnd SubPrivate Sub 厘米dOK_Click()If Txt(0).Text = "" Then米sgBox "不可以为空"Txt(0).SetFocusExit SubEnd IfBupdata = FalseDataA.Recordset.EditIf Fr米米ain.cutable = "leave" ThenDataA.Recordset.Fields(8) = fr米Login.E米ploIDDataA.Recordset.Fields(9) = NowElseIf Fr米米ain.cutable = "e米ployee" ThenDataA.Recordset.Fields(13) = fr米Login.E米ploIDDataA.Recordset.Fields(14) = NowIf Opsex(0) ThenDataA.Recordset.Fields(4) = "男"ElseDataA.Recordset.Fields(4) = "女"End IfDataA.Recordset.Fields(7) = 厘米bdegree.TextDataA.Recordset.Fields(8) = 厘米bdepart.TextDataA.Recordset.Fields(13) = fr米Login.E米ploIDDataA.Recordset.Fields(14) = NowElseFor i = 4 To 10If Not IsNu米eric(Txt(i).Text) Then米sgBox "not a nu米ber"Txt(i).SetFocusExit SubEnd IfNext iDataA.Recordset.Fields(13) = fr米Login.E米ploIDDataA.Recordset.Fields(14) = NowEnd IfFor i = 1 To 12If Txt(i).Text = "" Then Txt(i).Text = 0 'DataA.Recordset.Fields(i) = 0 Next iDataA.Recordset.UpdateFr米米ain.DataA.RefreshDataB.RefreshEnd SubPrivate Sub DataA_Validate(Action As Integer, Save As Integer)If Action = 11 And Bupdata ThenSave = 0End IfEnd SubPrivate Sub Lab_Click(Index As Integer)End SubPrivate Sub Txt_KeyPress(Index As Integer, KeyAscii As Integer)If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> vbKeyBack And Index = 0 Then KeyAscii = 0Exit SubEnd IfIf Fr米米ain.cutable = "leave" And Index = 1 ThenIf (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> vbKeyBack ThenKeyAscii = 0Exit SubEnd IfEnd IfIf Fr米米ain.cutable = "salary" ThenIf Index <= 3 ThenIf (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> vbKeyBack ThenKeyAscii = 0Exit SubEnd IfEnd IfIf Index = 13 Then Exit SubIf (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> vbKeyBack And KeyAscii <> 46 ThenKeyAscii = 0Exit SubEnd IfEnd IfEnd SubPrivate Sub Txt_change(Index As Integer)If Bupdata = False Then Bupdata = TrueIf Fr米米ain.cutable = "salary" ThenIf Txt(Index).Text = "" Then Exit SubIf Index >= 4 And Index <= 6 ThenTxt(7).Text = Val(Txt(4).Text) + Val(Txt(5).Text) + Val(Txt(6).Text)Txt(12).Text = Val(Txt(7).Text) - Val(Txt(11).Text)End IfIf Index >= 8 And Index <= 10 ThenTxt(11).Text = Val(Txt(8).Text) + Val(Txt(9).Text) + Val(Txt(10).Text)Txt(12).Text = Val(Txt(7).Text) - Val(Txt(11).Text)End IfEnd IfEnd SubPrivate Sub For米_Load()DataA.DatabaseNa米e = App.Path + "\s米.米db"DataB.DatabaseNa米e = App.Path + "\s米.米db"DataA.Caption = Fr米米ain.cutableDataA.RecordSource = "select * fro米" + Fr米米ain.cutableDataB.RecordSource = "select * fro米" + Fr米米ain.cutableDataA.RefreshTxt(0).Locked = True'If Fr米米ain.DBGA.Row = 0 Then Exit SubIf Fr米米ain.cutable = "e米ployee" Then 'e米ployeeFor i = 0 To 12Lab(i).Caption = DataA.Recordset.Fields(i).Na米eNext iTxt(0).DataField = DataA.Recordset.Fields(0).Na米eTxt(1).DataField = DataA.Recordset.Fields(1).Na米eTxt(2).DataField = DataA.Recordset.Fields(2).Na米eTxt(3).DataField = DataA.Recordset.Fields(3).Na米eTxt(4).Visible = FalseTxt(5).DataField = DataA.Recordset.Fields(5).Na米eTxt(6).DataField = DataA.Recordset.Fields(6).Na米eTxt(7).Visible = FalseTxt(8).Visible = FalseTxt(9).DataField = DataA.Recordset.Fields(9).Na米eTxt(10).DataField = DataA.Recordset.Fields(10).Na米eTxt(11).DataField = DataA.Recordset.Fields(11).Na米eTxt(12).DataField = DataA.Recordset.Fields(12).Na米eTxt(13).DataField = DataA.Recordset.Fields(15).Na米eIf Fr米米ain.cuAp > -1 ThenDataA.Recordset.米ove (Fr米米ain.cuAp)ElseDataA.Recordset.米oveFirstEnd IfIf DataA.Recordset.Fields(4) = "男" ThenOpsex(0).Value = TrueElseOpsex(1).Value = TrueEnd If'设置lsdegree的显示项For i = 0 To Fr米米ain.LsDegree.ListCount - 2厘米bdegree.AddIte米Fr米米ain.LsDegree.List(i)If Fr米米ain.LsDegree.List(i) = DataA.Recordset.Fields(7) Then 厘米bdegree.ListIndex = iEnd IfNext iIf 厘米bdegree.ListIndex = -1 Then厘米bdegree.AddIte米DataA.Recordset.Fields(7)厘米bdegree.ListIndex = 厘米bdegree.ListCount - 1 End If厘米bdegree.AddIte米"定制"'设置lsdepart的显示项For i = 0 To Fr米米ain.LsDepart.ListCount - 2厘米bdepart.AddIte米Fr米米ain.LsDepart.List(i)If Fr米米ain.LsDepart.List(i) = DataA.Recordset.Fields(8) Then厘米bdepart.ListIndex = iEnd IfNext iIf 厘米bdepart.ListIndex = -1 Then厘米bdepart.AddIte米DataA.Recordset.Fields(8)厘米bdepart.ListIndex = 厘米bdepart.ListCount - 1End If厘米bdepart.AddIte米"定制"'设置完毕ElseIf Fr米米ain.cutable = "leave" Then 'leaveTxt(7).Visible = True厘米bdegree.Visible = False厘米bdepart.Visible = FalseFra米e1.Visible = FalseFor i = 8 To 12Lab(i).Visible = FalseTxt(i).Visible = FalseNext iFor i = 0 To 7Lab(i).Caption = DataA.Recordset.Fields(i).Na米eTxt(i).DataField = DataA.Recordset.Fields(i).Na米eNext iTxt(13).DataField = DataA.Recordset.Fields(10).Na米eIf Fr米米ain.cuAp > -1 ThenDataA.Recordset.米ove (Fr米米ain.cuAp)ElseDataA.Recordset.米oveFirstEnd IfElse 'salaryFra米e1.Visible = False厘米bdegree.Visible = False厘米bdepart.Visible = FalseFor i = 0 To 12Lab(i).Caption = DataA.Recordset.Fields(i).Na米eTxt(i).DataField = DataA.Recordset.Fields(i).Na米eNext iTxt(13).DataField = DataA.Recordset.Fields(15).Na米eTxt(7).Locked = TrueTxt(11).Locked = TrueTxt(12).Locked = TrueIf Fr米米ain.cuAp > -1 ThenDataA.Recordset.米ove (Fr米米ain.cuAp)ElseDataA.Recordset.米oveFirstEnd IfEnd IfEnd SubPrivate Sub For米_Unload(Cancel As Integer)Fr米米ain.Enabled = TrueFr米米ain.SetFocusUnload 米eFr米米ain.DataB.RefreshEnd SubOption ExplicitConst 米xUser = 100Public E米ploID As IntegerPublic CurUser As StringPublic CurId As StringPublic CurPsw As StringDi米user(米xUser), pws(米xUser), state(米xUser), E米plo(米xUser) As StringPrivate Sub For米_Load()Di米i As IntegerIf App.PrevInstance Then米sgBox ("程序已经运行,不能再次装载."), vbExcla米ationUnload 米eEnd If'本段代码用于判定本程序是否已经装载于内存中,以避免程序的多重启动i = 0Open App.Path + "\user.ini" For Input As 号1Do While Not EOF(1)Input 号1, user(i), pws(i), state(i), E米plo(i)If state(i) = "A" ThenCo米bo1.AddIte米user(i)End Ifi = i + 1LoopClose 号1Co米bo1.ListIndex = 1'在窗口装载阶段读取用户设置文件获取用户信息并装载于用户列表框中End SubPrivate Sub 厘米dCancel_Click()Unload 米eEndEnd SubPrivate Sub 厘米dOK_Click()If txtPassword = pws(Co米bo1.ListIndex) ThenCurId = Co米bo1.ListIndexE米ploID = E米plo(CurId)CurUser = user(CurId)CurPsw = pws(CurId)米e.Hide'Load Fr米米ainFr米米ain.ShowElse米sgBox "Invalid Password, try again!", , "Login"txtPassword.SetFocusSendKeys "{Ho米e}+{End}"End IfEnd SubPrivate Sub For米_Unload(Cancel As Integer)Unload 米eEndEnd SubOption ExplicitPublic cuTabCh As BooleanPublic cutable As StringPublic cuAp As Integer '当前指针位置Di米i As IntegerPublic Pwin As StringPublic Sub showe米ployee()DataA.RecordSource = "select * fro米e米ployee"DataA.RefreshDBGA.Colu米ns("性别").Button = TrueDBGA.Colu米ns("学历").Button = TrueDBGA.Colu米ns("部门").Button = TrueFor i = 0 To 2米tab(i).Checked = FalseNext i米tab(0).Checked = Truecutable = "e米ployee"cuTabCh = TrueEnd SubPublic Sub showleave()DataA.RecordSource = "select * fro米leave"DataA.RefreshFor i = 0 To 2米tab(i).Checked = FalseNext i米tab(1).Checked = Truecutable = "leave"cuTabCh = TrueEnd SubPublic Sub showsalary()DataA.RecordSource = "select * fro米salary"DataA.RefreshFor i = 0 To 2米tab(i).Checked = FalseNext i米tab(2).Checked = Truecutable = "salary"cuTabCh = TrueEnd SubPrivate Sub For米_Load()Di米fil, tbcount, i As IntegerDi米Tbstr(50), Tbna米(50) As StringDataA.DatabaseNa米e = App.Path + "\s米.米db"DataB.DatabaseNa米e = App.Path + "\s米.米db"DataB.RecordSource = "select * fro米e米ployee"Call showe米ployeeIf Dir(App.Path + "\table.ini") = "" ThenLsDegree.AddIte米"定制"LsDepart.AddIte米"定制"Elsefil = FreeFile()Open App.Path + "\table.ini" For Input As 号filDo While Not EOF(fil)Input 号fil, Tbna米(i), Tbstr(i)i = i + 1LoopClose 号filtbcount = iFor i = 0 To tbcountIf Tbna米(i) = "lsdegree" ThenLsDegree.AddIte米Tbstr(i)ElseIf Tbna米(i) = "lsdepart" ThenLsDepart.AddIte米Tbstr(i)End IfNext iLsDegree.AddIte米"定制"LsDepart.AddIte米"定制"End IfEnd SubPrivate Sub For米_Unload(Cancel As Integer)EndEnd SubPrivate Sub DBGA_ButtonClick(ByVal ColIndex As Integer)Di米Co As Colu米nSet Co = DBGA.Colu米ns(ColIndex)Select Case ColIndexCase 4Lssex.Left = DBGA.Left + Co.Left + Co.WidthLssex.Top = DBGA.Top + DBGA.RowTop(DBGA.Row)Lssex.Visible = TrueLssex.ZOrder 0Lssex.SetFocusCase 7 'degreeLsDegree.Left = DBGA.Left + Co.Left + Co.WidthLsDegree.Top = DBGA.Top + DBGA.RowTop(DBGA.Row)LsDegree.Visible = TrueLsDegree.ZOrder 0LsDegree.SetFocusCase 8 'depart米entLsDepart.Left = DBGA.Left + Co.Left + Co.WidthLsDepart.Top = DBGA.Top + DBGA.RowTop(DBGA.Row)LsDepart.Visible = TrueLsDepart.ZOrder 0LsDepart.SetFocusEnd SelectEnd SubPrivate Sub DBGA_HeadClick(ByVal ColIndex As Integer) DBGA.ClearSelColsEnd SubPrivate Sub DBGA_米ouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenFr米米ain.Popup米enu 米pEnd IfEnd SubPrivate Sub DBGA_RowColChange(LastRow As Variant, ByVal LastCol As Integer) cuAp = DataA.Recordset.AbsolutePositionIf cuAp > -1 ThenDataB.Recordset.FindFirst "职工编号=" + CStr(DataA.Recordset.Fields("职工编号"))If DataB.Recordset.No米atch ThenLab.Caption = "没有此职员"ElseWith DataB.RecordsetLab.Caption = "工号:" + CStr(.Fields(0)) + " 姓名:" + CStr(.Fields(1)) + " 性别:" + CStr(.Fields(4)) + " 部门:" + CStr(.Fields(8)) + " 职位:" + CStr(.Fields(9)) + " 电话:" + CStr(.Fields(11))End WithEnd IfEnd IfEnd SubPrivate Sub LsDegree_Click()If LsDegree.Text = "定制" ThenFr米Table.ShowElseDataA.Recordset.EditDataA.Recordset.Fields(7) = LsDegree.TextDataA.Recordset.Fields(13) = CStr(fr米Login.CurId)DataA.Recordset.Fields(14) = CStr(Now)DataA.Recordset.UpdateDataB.RefreshEnd IfEnd SubPrivate Sub LsDepart_Click()If LsDepart.Text = "定制" ThenFr米Table.ShowElseDataA.Recordset.EditDataA.Recordset.Fields(8) = LsDepart.TextDataA.Recordset.Fields(13) = CStr(fr米Login.CurId)DataA.Recordset.Fields(14) = CStr(Now)DataA.Recordset.UpdateDataB.RefreshEnd IfEnd SubPrivate Sub Lssex_Click()DataA.Recordset.EditDataA.Recordset.Fields(4) = Lssex.TextDataA.Recordset.Fields(13) = CStr(fr米Login.CurId)DataA.Recordset.Fields(14) = CStr(Now)DataA.Recordset.UpdateDataB.RefreshEnd Sub'号号号号号号号号号号号号号号号号号号号号号号号号号号号号号号号号号Private Sub Lssex_LostFocus()Lssex.Visible = FalseEnd SubPrivate Sub Lsdegree_LostFocus()LsDegree.Visible = FalseEnd SubPrivate Sub Lsdepart_LostFocus()LsDepart.Visible = FalseEnd SubPrivate Sub DBGA_Scroll(Cancel As Integer)Lssex.Visible = FalseLsDegree.Visible = FalseLsDepart.Visible = FalseEnd Sub'号号号号号号号号号号号号号号号号号号号号号号号号号号号号号号号号号Private Sub 米About_Click()fr米About.ShowEnd SubPrivate Sub 米help_Click()Fr米Help.ShowEnd SubPrivate Sub 米option_Click(Index As Integer)If Index = 0 ThenIf fr米Login.CurUser = "root" ThenFr米Sys.ShowElseFr米Psw.ShowPwin = "Fr米米ain"Fr米米ain.Enabled = FalseEnd IfElseEndEnd IfEnd SubPrivate Sub 米pop_Click(Index As Integer)Select Case IndexCase 1Fr米Edit.ShowFr米米ain.Enabled = FalseCase 2If DBGA.SelBoo千米arks.Count = 1 ThenIf 米sgBox("确定要删除吗？", vbOKCancel, "确定") = vbOK Then DataA.Recordset.DeletecuAp = 0Else米sgBox "请选择要删除的条目！"End IfCase 3Fr米Search.ShowEnd SelectEnd SubPrivate Sub 米tab_Click(Index As Integer)Di米i As IntegerFor i = 0 To 2米tab(i).Checked = FalseNext i米tab(Index).Checked = TrueSelect Case IndexCase 0Call showe米ployeeCase 1Call showleaveCase 2Call showsalaryEnd SelectEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As 米SCo米ctlLib.Button) Select Case Button.IndexCase 1 'editFr米Edit.ShowFr米米ain.Enabled = FalseCase 2 'delIf DBGA.SelBoo千米arks.Count = 1 ThenIf 米sgBox("确定要删除吗？", vbOKCancel, "确定") = vbOK Then DataA.Recordset.DeletecuAp = 0Else米sgBox "请选择要删除的条目！"End IfCase 3 'seekFr米Search.ShowCase 4 'setupFr米Setup.ShowEnd SelectEnd SubPrivate Sub Toolbar2_ButtonClick(ByVal Button As 米SCo米ctlLib.Button) Select Case Button.IndexCase 1Call showe米ployeeCase 2Call showleaveCase 3Call showsalaryCase 4If fr米Login.CurUser = "root" ThenFr米Sys.ShowElseFr米Psw.ShowPwin = "Fr米米ain"Fr米米ain.Enabled = FalseEnd IfEnd SelectEnd SubOption ExplicitConst 米xUser = 100Di米user(米xUser), pws(米xUser), state(米xUser), E米plo(米xUser) As String Private Sub 厘米dCancel_Click()米e.HideIf Fr米米ain.Pwin = "Fr米米ain" ThenFr米米ain.Enabled = TrueFr米米ain.SetFocusElseCall Fr米Sys.ActiveAllFr米Sys.SetFocusEnd IfEnd SubPrivate Sub 厘米dOK_Click()Di米fil, i, Usercount As IntegerIf TxtNew1.Text <> TxtNew2.Text Then米sgBox "two ti米es no yizhi"TxtNew1.SetFocusTxtNew2.Text = ""SendKeys "{Ho米e}+{End}"Exit SubElseIf Txtold.Text <> fr米Login.CurPsw Then米sgBox "old password wrong"Txtold.SetFocusTxtNew1.Text = ""TxtNew2.Text = ""SendKeys "{Ho米e}+{End}"Exit SubElsefil = FreeFile()Open App.Path + "\user.ini" For Input As 号fili = 0Do While Not EOF(fil)Input 号fil, user(i), pws(i)Input 号fil, state(i), E米plo(i)i = i + 1LoopUsercount = iClose 号filpws(fr米Login.CurId) = TxtNew1.Textfr米Login.CurPsw = TxtNew1.Textfil = FreeFile()Open App.Path + "\user.ini" For Output As 号filFor i = 0 To Usercount - 1Print 号fil, user(i); ","; pws(i); ","; state(i); ","; E米plo(i)Next iClose 号filTxtold.Text = ""TxtNew1.Text = ""TxtNew2.Text = ""米e.HideIf Fr米米ain.Pwin = "Fr米米ain" ThenFr米米ain.Enabled = TrueFr米米ain.SetFocusElseCall Fr米Sys.ActiveAllFr米Sys.SetFocusEnd IfEnd IfEnd SubPrivate Sub For米_LostFocus()Fr米Psw.SetFocusEnd SubPrivate Sub For米_Unload(Cancel As Integer)'Fr米米ain.Enabled = True'Fr米米ain.SetFocusUnload 米eEnd SubOption ExplicitPrivate Sub 厘米b1_Click()With 厘米b1If .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厘米b2.Clear厘米b2.AddIte米">"厘米b2.AddIte米"="厘米b2.AddIte米"<"厘米b2.ListIndex = 0Else厘米b2.Clear厘米b2.AddIte米"等于"厘米b2.AddIte米"相似"厘米b2.ListIndex = 0End IfEnd WithEnd SubPrivate Sub 厘米b3_Click()With 厘米b3If .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厘米b4.Clear厘米b4.AddIte米">"厘米b4.AddIte米"="厘米b4.AddIte米"<"厘米b4.ListIndex = 0Else厘米b4.Clear厘米b4.AddIte米"等于"厘米b4.AddIte米"相似"厘米b4.ListIndex = 0End IfEnd WithEnd SubPrivate Sub 厘米dCancel_Click()米e.HideFr米米ain.Enabled = TrueEnd SubPrivate Sub 厘米dOK_Click()Di米米ysqls, str As StringErr.ClearIf Txt1.Text = "" Then Exit Sub:米ysqls = "select * fro米" + Fr米米ain.cutable + " where "If 厘米b2.Text = "等于" Then米ysqls = 米ysqls + 厘米b1.Text + "=""" + Txt1.Text + """"ElseIf 厘米b2.Text = "相似" Then米ysqls = 米ysqls + 厘米b1.Text + " Like """ + Txt1.Text + """"Else米ysqls = 米ysqls + 厘米b1.Text + 厘米b2.Text + Txt1.Text End IfIf Fra米e1.Enabled = True Thenstr = ""If Optsex(1).Value Thenstr = " and 性别=" + """男"""ElseIf Optsex(2) Thenstr = " and 性别=" + """女"""End IfEnd If米ysqls = 米ysqls + strIf Not Opt(0) ThenIf Opt(1).Value Thenstr = " and "ElseIf Opt(2).Value Thenstr = " or "End If米ysqls = 米ysqls + str + 厘米b3.TextIf 厘米b2.Text = "等于" Then米ysqls = 米ysqls + "=""" + Txt2.Text + """"ElseIf 厘米b2.Text = "相似" Then米ysqls = 米ysqls + " Like """ + Txt2.Text + """"Else米ysqls = 米ysqls + 厘米b4.Text + Txt2.TextEnd IfEnd IfFr米米ain.DataA.RecordSource = 米ysqlsOn Error GoTo exp:Txtsql.Text = 米ysqlsFr米米ain.DataA.RefreshExit Subexp:Txtsql.Text = "搜索语句错误:" + 米ysqlsEnd SubPrivate Sub For米_Activate()Di米i As Integer厘米b1.Clear厘米b3.ClearTxt1.Text = ""Txt2.Text = ""For i = 0 To Fr米米ain.DBGA.Colu米ns.Count - 4If Fr米米ain.DBGA.Colu米ns(i).Visible = True Then厘米b1.AddIte米(Fr米米ain.DBGA.Colu米ns(i).Caption)厘米b3.AddIte米(Fr米米ain.DBGA.Colu米ns(i).Caption)End IfNext i厘米b1.ListIndex = 0厘米b3.ListIndex = 0If Fr米米ain.cutable = "e米ployee" ThenFra米e1.Enabled = TrueElseFra米e1.Enabled = FalseEnd IfEnd SubPrivate Sub For米_Load()厘米b2.AddIte米"="厘米b4.AddIte米"="厘米b2.AddIte米">"厘米b4.AddIte米">"厘米b2.AddIte米"<"厘米b4.AddIte米"<"厘米b2.ListIndex = 0厘米b4.ListIndex = 0End SubPrivate Sub Opt_Click(Index As Integer)厘米b3.Enabled = Not Opt(0).Value厘米b4.Enabled = Not Opt(0).ValueTxt2.Enabled = Not Opt(0).ValueEnd SubPrivate Sub Co米米and1_Click()Di米i, j As IntegerFor i = 0 To Fr米米ain.DBGA.Colu米ns.Count - 1Fr米米ain.DBGA.Colu米ns(i).Visible = TrueFor j = 0 To Lshide.ListCount - 1If Fr米米ain.DBGA.Colu米ns(i).Caption = Lshide.List(j) Then Fr米米ain.DBGA.Colu米ns(i).Visible = FalseGoTo xt:End IfNext jxt:Next iFr米米ain.SetFocusFr米米ain.Enabled = TrueFr米米ain.cuTabCh = False米e.HidePrivate Sub Co米米and2_Click()Fr米米ain.Enabled = True米e.HideEnd SubPrivate Sub For米_Activate()Di米a As IntegerIf Fr米米ain.cuTabCh ThenLsshow.ClearLshide.Cleara = Fr米米ain.DBGA.Colu米ns.CountIf a > 0 ThenFor i = 0 To a - 1Lsshow.AddIte米(Fr米米ain.DBGA.Colu米ns(i).Caption) Next iEnd IfEnd IfEnd SubPrivate Sub Lbadd_Click()If Lshide.Text <> "" ThenLsshow.AddIte米(Lshide.Text)Lshide.Re米oveIte米(Lshide.ListIndex)End IfEnd SubPrivate Sub Lbdec_Click()If Lsshow.Text <> "" ThenLshide.AddIte米(Lsshow.Text)Lsshow.Re米oveIte米(Lsshow.ListIndex)End IfEnd SubPrivate Sub Lsshow_DblClick()Lshide.AddIte米(Lsshow.Text)Lsshow.Re米oveIte米(Lsshow.ListIndex)End SubPrivate Sub Lshide_DblClick()Lsshow.AddIte米(Lshide.Text)Lshide.Re米oveIte米(Lshide.ListIndex)End SubPrivate Sub For米_Unload(Cancel As Integer)Fr米米ain.Enabled = TrueFr米米ain.SetFocusUnload 米eEnd SubOption ExplicitDi米Tbna米(50), Tbstr(50) As String '最大条目数预设为100 Di米fil, tbcount, i As IntegerDi米Tbch As BooleanPrivate Sub 厘米dCancel_Click()米e.HideEnd SubPrivate Sub 厘米dOK_Click()If Tbch Then '如果table条目变动则保存变动Fr米米ain.LsDegree.ClearFr米米ain.LsDepart.ClearFr米Edit.厘米bdegree.ClearFr米Edit.厘米bdepart.Clearfil = FreeFile()Open App.Path + "\table.ini" For Output As 号fil '写入table条目信息For i = 0 To LsDegree.ListCount - 1Print 号fil, "lsdegree"; ","; LsDegree.List(i)Fr米米ain.LsDegree.AddIte米LsDegree.List(i)Fr米Edit.厘米bdegree.AddIte米LsDegree.List(i)Next iFor i = 0 To LsDepart.ListCount - 1Print 号fil, "lsdepart"; ","; LsDepart.List(i)Fr米米ain.LsDepart.AddIte米LsDepart.List(i)Fr米Edit.厘米bdepart.AddIte米LsDepart.List(i)Next iClose 号filFr米米ain.LsDegree.AddIte米"定制" '添加最末的定制条目Fr米米ain.LsDepart.AddIte米"定制"Fr米Edit.厘米bdegree.AddIte米"定制"Fr米Edit.厘米bdepart.AddIte米"定制"Fr米Edit.厘米bdegree.ListIndex = 0Fr米Edit.厘米bdepart.ListIndex = 0End If米e.HideEnd SubPrivate Sub LbF_Click(Index As Integer)Tbch = TrueSelect Case IndexCase 0 '编辑If TxtDegree.Text = "" Then Exit SubIf LsDegree.ListIndex <> -1 ThenLsDegree.List(LsDegree.ListIndex) = TxtDegree.TextEnd IfCase 1 '添加For i = 0 To LsDegree.ListCount - 1If LsDegree.List(i) = TxtDegree.Text Then米sgBox "该条目已经存在"Exit SubEnd IfNext iLsDegree.AddIte米TxtDegree.TextCase 2 '删除If LsDegree.ListIndex <> -1 ThenLsDegree.Re米oveIte米(LsDegree.ListIndex)End IfCase 3 '编辑If TxtDegree.Text = "" Then Exit SubIf LsDepart.ListIndex <> -1 ThenLsDepart.List(LsDepart.ListIndex) = TxtDepart.TextEnd IfCase 4 '添加For i = 0 To LsDepart.ListCount - 1If LsDepart.List(i) = TxtDepart.Text Then米sgBox "该条目已经存在"Exit SubEnd IfNext iLsDepart.AddIte米TxtDepart.TextCase 5 '删除If LsDepart.ListIndex <> -1 ThenLsDepart.Re米oveIte米(LsDepart.ListIndex)End IfEnd SelectEnd SubPrivate Sub LsDegree_Click() '选定lsdegree条目时在下面文本框中显示编辑TxtDegree.Text = LsDegree.TextEnd SubPrivate Sub LsDepart_Click() '选定lsdegree条目时在下面文本框中显示编辑TxtDepart.Text = LsDepart.TextEnd SubPrivate Sub For米_Load()Tbch = Falsefil = FreeFile()Open App.Path + "\table.ini" For Input As 号fil '写入table条目信息Do While Not EOF(fil)Input 号fil, Tbna米(i), Tbstr(i)i = i + 1LoopClose 号filtbcount = iFor i = 0 To tbcountIf Tbna米(i) = "lsdegree" ThenLsDegree.AddIte米Tbstr(i)ElseIf Tbna米(i) = "lsdepart" ThenLsDepart.AddIte米Tbstr(i)End IfNext iEnd SubPrivate Sub For米_Unload(Cancel As Integer) '卸载窗体Fr米米ain.Enabled = TrueFr米米ain.SetFocusUnload 米eEnd Sub。