frmmain.frm

工资管理系统（VB）基于vb开发的工资管理系统,希望大家有用

    Unload Frm统计进程
    frm报表选择.Show 1

en: End Sub

Private Sub LXBZHZXS_Click()
    Set db = ws.OpenDatabase(xtlj & "bzxx.mdb")
    Set tb1 = db.OpenRecordset("lxbzzd", dbOpenTable)
    Set tb2 = db.OpenRecordset("lxbzk", dbOpenTable)
    If tb2.RecordCount = 0 Then
       hxfyn = MsgBox("库内无人员记录,不能继续,请先设置标准库后再生成！", 48)
    Else
      frmMAIN.StatusBar1.Panels(2).Text = "共" & Val(tb2.RecordCount) & "记录"
      tb2.Close
      Set tb2 = db.OpenRecordset("lxtjk", dbOpenTable)
      If tb2.RecordCount > 0 Then
         Frm统计进程.Show
         Frm统计进程.PB1.Max = tb2.RecordCount + 2
         tb2.MoveFirst
         On Error GoTo errcl
         Do While Not tb2.EOF
            If Len(Trim(tb2("统计条件"))) > 0 Then
               SQL = "Update lxbzk set " & tb2("统计字段") & "=" & tb2("统计公式") & " where " & tb2("统计条件")
            Else
               SQL = "Update lxbzk set " & tb2("统计字段") & "=" & tb2("统计公式")
            End If
            db.Execute (SQL)
            tb2.MoveNext
            If Frm统计进程.PB1.Value < Frm统计进程.PB1.Max Then Frm统计进程.PB1.Value = Frm统计进程.PB1.Value + 1
         Loop
         Set tb2 = db.OpenRecordset("lxhzk", dbOpenTable)
         If tb2.RecordCount > 0 Then
            Do While Not tb2.EOF
               tb2.Delete
               tb2.MoveNext
            Loop
         End If
         SQL = "select [lxbzk].部门 ,sum([lxbzk].应发1) as 应发1,sum([lxbzk].应发2) as 应发2,sum([lxbzk].应发3) as 应发3,sum([lxbzk].应发4) as 应发4,sum([lxbzk].应发5) as 应发5,sum([lxbzk].应发6) as 应发6,sum([lxbzk].应发7) as 应发7,sum([lxbzk].应发8) as 应发8,sum([lxbzk].应发9) as 应发9,sum([lxbzk].应发10) as 应发10,sum([lxbzk].应发11) as 应发11,sum([lxbzk].应发12) as 应发12,sum([lxbzk].应发13) as 应发13,sum([lxbzk].应发14) as 应发14,sum([lxbzk].应发15) as 应发15,sum([lxbzk].应发16) as 应发16,sum([lxbzk].应发17) as 应发17,sum([lxbzk].应发18) as 应发18,sum([lxbzk].应发19) as 应发19,sum([lxbzk].应发20) as 应发20,sum([lxbzk].代扣1) as 代扣1,sum([lxbzk].代扣2) as 代扣2,sum([lxbzk].代扣3) as 代扣3,sum([lxbzk].代扣4) as 代扣4,sum([lxbzk].代扣5) as 代扣5,sum([lxbzk].代扣6) as 代扣6,sum([lxbzk].代扣7) as 代扣7,sum([lxbzk].代扣8) as 代扣8,sum([lxbzk].代扣9) as 代扣9,sum([lxbzk].代扣10) as 代扣10,sum([lxbzk].代扣11) as 代扣11,sum([lxbzk].代扣12) as 代扣12,sum([lxbzk].代扣13) as 代扣13"
         SQL = SQL + ",sum([lxbzk].代扣14) as 代扣14 ,sum([lxbzk].应发合计) as 应发合计,sum([lxbzk].代扣合计) as 代扣合计 ,sum([lxbzk].实发现金) as 实发现金 from lxbzk group by 部门"
         Set tb3 = db.OpenRecordset(SQL, dbOpenDynaset)
         If tb3.RecordCount > 0 Then
            tb3.MoveFirst
            Do While Not tb3.EOF
               tb2.AddNew
               hxfi = 0
               Do While hxfi <= 33
                  tb2(tb1.Fields(hxfi).Name) = tb3(tb1.Fields(hxfi).Name)
                  hxfi = hxfi + 1
               Loop
               tb2("部门") = tb3("部门")
               tb2("应发合计") = tb3("应发合计")
               tb2("代扣合计") = tb3("代扣合计")
               tb2("实发现金") = tb3("实发现金")
               tb2.Update
               tb3.MoveNext
             Loop
          End If
          If Frm统计进程.PB1.Value < Frm统计进程.PB1.Max Then Frm统计进程.PB1.Value = Frm统计进程.PB1.Value + 1
         SQL = "select sum([lxbzk].应发1) as 应发1,sum([lxbzk].应发2) as 应发2,sum([lxbzk].应发3) as 应发3,sum([lxbzk].应发4) as 应发4,sum([lxbzk].应发5) as 应发5,sum([lxbzk].应发6) as 应发6,sum([lxbzk].应发7) as 应发7,sum([lxbzk].应发8) as 应发8,sum([lxbzk].应发9) as 应发9,sum([lxbzk].应发10) as 应发10,sum([lxbzk].应发11) as 应发11,sum([lxbzk].应发12) as 应发12,sum([lxbzk].应发13) as 应发13,sum([lxbzk].应发14) as 应发14,sum([lxbzk].应发15) as 应发15,sum([lxbzk].应发16) as 应发16,sum([lxbzk].应发17) as 应发17,sum([lxbzk].应发18) as 应发18,sum([lxbzk].应发19) as 应发19,sum([lxbzk].应发20) as 应发20,sum([lxbzk].代扣1) as 代扣1,sum([lxbzk].代扣2) as 代扣2,sum([lxbzk].代扣3) as 代扣3,sum([lxbzk].代扣4) as 代扣4,sum([lxbzk].代扣5) as 代扣5,sum([lxbzk].代扣6) as 代扣6,sum([lxbzk].代扣7) as 代扣7,sum([lxbzk].代扣8) as 代扣8,sum([lxbzk].代扣9) as 代扣9,sum([lxbzk].代扣10) as 代扣10,sum([lxbzk].代扣11) as 代扣11,sum([lxbzk].代扣12) as 代扣12,sum([lxbzk].代扣13) as 代扣13"
         SQL = SQL + ",sum([lxbzk].代扣14) as 代扣14 ,sum([lxbzk].应发合计) as 应发合计,sum([lxbzk].代扣合计) as 代扣合计 ,sum([lxbzk].实发现金) as 实发现金 from lxbzk "
         Set tb3 = db.OpenRecordset(SQL, dbOpenDynaset)
          If tb3.RecordCount > 0 Then
             tb3.MoveFirst
             tb2.AddNew
             hxfi = 0
             Do While hxfi <= 33
                tb2(tb1.Fields(hxfi).Name) = tb3(tb1.Fields(hxfi).Name)
                hxfi = hxfi + 1
             Loop
             tb2("部门") = "总合计"
             tb2("应发合计") = tb3("应发合计")
             tb2("代扣合计") = tb3("代扣合计")
             tb2("实发现金") = tb3("实发现金")
             tb2.Update
          End If
          If Frm统计进程.PB1.Value < Frm统计进程.PB1.Max Then Frm统计进程.PB1.Value = Frm统计进程.PB1.Value + 1
          Unload Frm统计进程
          db.Close
          hxfyn = MsgBox("统计完毕,是否显示统计结果?", 36)
          If hxfyn = vbYes Then
       '*********
    Set db = ws.OpenDatabase(xtlj & "bzxx.mdb")
    Set tb1 = db.OpenRecordset("lxbzzd", dbOpenTable)
    Set tb2 = db.OpenRecordset("lxhzk", dbOpenTable)
    If tb2.RecordCount = 0 Then
       hxfyn = MsgBox("库内无人员记录,不能继续,请先设置标准库后再生成！", 48)
    Else
       frmMAIN.StatusBar1.Panels(2).Text = "共" & Val(tb2.RecordCount) & "记录"
       tb2.Close
       Load frm数据查询
       frm数据查询.Caption = " 离休 标准工资汇总库显示"
       frmMAIN.StatusBar1.Panels(1).Text = "  注意:现在打开和处理的是 离休 标准工资汇总库"
       frm数据查询.datPrimaryRS.DatabaseName = xtlj & "bzxx.mdb"
       frm数据查询.datPrimaryRS.RecordSource = "select * from [lxhzk]"
       tb1.MoveFirst
       hxfi = 1
       Do While hxfi <= 34
          If Len(Trim(tb1.Fields(hxfi - 1).Value)) > 0 Then
             frm数据查询.lblLabels(hxfi + 3).Caption = tb1.Fields(hxfi - 1).Value & ":"
          Else
             frm数据查询.lblLabels(hxfi + 3).Caption = "        "
          End If
          frm数据查询.lblLabels(hxfi + 3).Visible = True
          frm数据查询.txtFields(hxfi + 3).Visible = True
          frm数据查询.txtFields(hxfi + 3).DataField = tb1.Fields(hxfi - 1).Name
          hxfi = hxfi + 1
       Loop
       frm数据查询.Label1.Visible = True
       frm数据查询.Label2.Visible = True
       frm数据查询.Label3.Visible = True
       frm数据查询.Text1.Visible = True
       frm数据查询.Text2.Visible = True
       frm数据查询.Text3.Visible = True
       frm数据查询.PB1.Visible = False
       frm数据查询.datPrimaryRS.Refresh
       frm数据查询.Show 1
     End If
       '********
          End If
      Else
            hxfyn = MsgBox("没有设置统计公式,请先设置！", 48)
      End If
    End If
    If hxfdbdk = True Then
        frmMAIN.StatusBar1.Panels(1).Text = "  注意:现在打开和处理的是" & hxfyear & "年" & hxfmath & "月的工资库!"
    Else
        frmMAIN.StatusBar1.Panels(1).Text = "  ***未打开工资库***"
    End If
    frmMAIN.StatusBar1.Panels(2).Text = " "
    GoTo en:
errcl:
    hxfyn = MsgBox("统计公式错误,请检查修改公式！", 48)
    Unload Frm统计进程
en: End Sub

Private Sub LXBZRYZS_Click()
    Set db = ws.OpenDatabase(xtlj & "bzxx.mdb")
    Set tb1 = db.OpenRecordset("lxbzzd", dbOpenTable)
    Set tb2 = db.OpenRecordset("lxbzk", dbOpenTable)
    frmMAIN.StatusBar1.Panels(2).Text = "共" & Val(tb2.RecordCount) & "记录"
    tb2.Close
    Load frm数据修改
    frm数据修改.Caption = " 离休 标准库数据修改"
    frmMAIN.StatusBar1.Panels(1).Text = "  注意:现在打开和处理的是 离休 标准工资库"
    frm数据修改.datPrimaryRS.DatabaseName = xtlj & "bzxx.mdb"
    frm数据修改.datPrimaryRS.RecordSource = "select * from [lxbzk] order by 部门,工号"
    frm数据修改.datPrimaryRS.Refresh
    If frm数据修改.datPrimaryRS.Recordset.RecordCount = 0 Then
        frm数据修改.datPrimaryRS.Recordset.AddNew
        frm数据修改.cmd保存.Enabled = True
        frm数据修改.cmd放弃.Enabled = True
        frm数据修改.cmd增加.Enabled = False
        frm数据修改.cmd删除.Enabled = False
        frm数据修改.cmd替换.Enabled = False
        frm数据修改.cmd锁定.Enabled = False
        frm数据修改.cmd关闭.Enabled = False
        frm数据修改.cmd定位.Enabled = False
     End If
    tb1.MoveFirst
    hxfi = 1
    Do While hxfi <= 34
       If Len(Trim(tb1.Fields(hxfi - 1).Value)) > 0 Then
          frm数据修改.lblLabels(hxfi + 3).Caption = Trim(tb1.Fields(hxfi - 1).Value) & ":"
          frm数据修改.lblLabels(hxfi + 3).Alignment = 1
       Else
          frm数据修改.lblLabels(hxfi + 3).Caption = " "
       End If
          frm数据修改.lblLabels(hxfi + 3).Visible = True
          frm数据修改.txtFields(hxfi + 3).Visible = True
       frm数据修改.txtFields(hxfi + 3).DataField = tb1.Fields(hxfi - 1).Name
       hxfi = hxfi + 1
    Loop
    frm数据修改.Show 1
    If hxfdbdk = True Then
        frmMAIN.StatusBar1.Panels(1).Text = "  注意:现在打开和处理的是" & hxfyear & "年" & hxfmath & "月的工资库!"
    Else
        frmMAIN.StatusBar1.Panels(1).Text = "  ***未打开工资库***"
    End If
    db.Close
    frmMAIN.StatusBar1.Panels(2).Text = " "
End Sub

Private Sub LXBZXMXG_Click()
    Set db = ws.OpenDatabase(xtlj & "bzxx.mdb")
    Set tb1 = db.OpenRecordset("lxbzzd", dbOpenTable)
    Load frm项目修改
    frm项目修改.Caption = " 离休 标准库项目修改"
    frmMAIN.StatusBar1.Panels(1).Text = "  注意:现在打开和处理的是 离休 标准工资库"
    frm项目修改.datPrimaryRS.DatabaseName = xtlj & "bzxx.mdb"
    frm项目修改.datPrimaryRS.RecordSource = "select * from [lxbzzd]"
    frm项目修改.datPrimaryRS.Refresh
    hxfi = 1
    tb1.MoveFirst
    Do While hxfi <= 34
       frm项目修改.lblLabels(hxfi - 1).Caption = tb1.Fields(hxfi - 1).Name & ":"
       frm项目修改.txtFields(hxfi - 1).DataField = tb1.Fields(hxfi - 1).Name
       hxfi = hxfi + 1
    Loop
    frm项目修改.Show 1
    If hxfdbdk = True Then
        frmMAIN.StatusBar1.Panels(1).Text = "  注意:现在打开和处理的是" & hxfyear & "年" & hxfmath & "月的工资库!"
    Else
        frmMAIN.StatusBar1.Panels(1).Text = "  ***未打开工资库***"
    End If
    db.Close
End Sub

Private Sub LXGSXG_Click()
    Set db = ws.OpenDatabase(dqklj)
    Set tb1 = db.OpenRecordset("lxbzzd", dbOpenTable)
    Load frm公式修改
    frm公式修改.Combo1.Clear
    tb1.MoveFirst
    hxfi = 1
    Do While hxfi <= 34
       If Len(Trim(tb1.Fields(hxfi - 1).Value)) > 0 Then frm公式修改.Combo1.AddItem tb1.Fields(hxfi - 1).Value
       hxfi = hxfi + 1
    Loop
    frm公式修改.Combo1.AddItem "应发合计"
    frm公式修改.Combo1.AddItem "代扣合计"
    frm公式修改.Combo1.AddItem "实发现金"
    frm公式修改.Caption = hxfyear & "年" & hxfmath & "月" & " 离休 工资库公式修改"
    frmMAIN.StatusBar1.Panels(1).Text = "  注意:现在打开和处理的是" & hxfyear & "年" & hxfmath & "月" & " 离休 工资库"
    frm公式修改.datPrimaryRS.DatabaseName = dqklj
    frm公式修改.datPrimaryRS.RecordSource = "select * from [lxtjk]"
    frm公式修改.datPrimaryRS.Refresh
    frm公式修改.Show 1
    If hxfdbdk = True Then
        frmMAIN.StatusBar1.Panels(1).Text = "  注意:现在打开和处理的是" & hxfyear & "年" & hxfmath & "月的工资库!"
    Else
        frmMAIN.StatusBar1.Panels(1).Text = "  ***未打开工资库***"
    End If
    db.Close

End Sub

Private Sub LXHZXS_Click()
    Set db = ws.OpenDatabase(dqklj)
    Set tb1 = db.OpenRecordset("lxbzzd", dbOpenTable)
    Set tb2 = db.OpenRecordset("lxhzk", dbOpenTable)
    If tb2.RecordCount = 0 Then
       hxfyn = MsgBox("库内无人员记录,不能继续,请先设置标准库后再生成！", 48)
       db.Close
       GoTo en:
    End If
    frmMAIN.StatusBar1.Panels(2).Text = "共" & Val(tb2.RecordCount) & "记录"
    tb2.Close
    Load frm数据查询
    frm数据查询.Caption = hxfyear & "年" & hxfmath & "月 离休 工资汇总库"
    frmMAIN.StatusBar1.Panels(1).Text = "  注意:现在打开和处理的是" & "年" & hxfmath & "月 离休 工资汇总库"
    frm数据查询.datPrimaryRS.DatabaseName = dqklj
    frm数据查询.datPrimaryRS.RecordSource = "select * from [lxhzk]"
    frm数据查询.datPrimaryRS.Refresh
    tb1.MoveFirst
    hxfi = 1
    Do While hxfi <= 34
       If Len(Trim(tb1.Fields(hxfi - 1).Value)) > 0 Then
          frm数据查询.lblLabels(hxfi + 3).Caption = tb1.Fields(hxfi - 1).Value & ":"
       Else
          frm数据查询.lblLabels(hxfi + 3).Caption = "        "
       End If
       frm数据查询.lblLabels(hxfi + 3).Visible = True
       frm数据查询.txtFields(hxfi + 3).Visible = True
       frm数据查询.txtFields(hxfi + 3).DataField = tb1.Fields(hxfi - 1).Name
       hxfi = hxfi + 1
    Loop
    frm数据查询.Label1.Visible = True
    frm数据查询.Label2.Visible = True
    frm数据查询.Label3.Visible = True
    frm数据查询.Text1.Visible = True
    frm数据查询.Text2.Visible = True
    frm数据查询.Text3.Visible = True
    frm数据查询.PB1.Visible = False
    frm数据查询.Show 1
    If hxfdbdk = True Then
        frmMAIN.StatusBar1.Panels(1).Text = "  注意:现在打开和处理的是" & hxfyear & "年" & hxfmath & "月的工资库!"
    Else
        frmMAIN.StatusBar1.Panels(1).Text = "  ***未打开工资库***"
    End If
    db.Close
    frmMAIN.StatusBar1.Panels(2).Text = " "

en: End Sub

Private Sub LXSJTJ_Click()
    Set db = ws.OpenDatabase(dqklj)
    Set tb1 = db.OpenRecordset("lxbzzd", dbOpenTable)
    Set tb2 = db.OpenRecordset("lxbzk", dbOpenTable)
    If tb2.RecordCount = 0 Then
       hxfyn = MsgBox("库内无人员记录,不能继续,请先设置标准库后再生成！", 48)
       db.Close
    Else
      frmMAIN.StatusBar1.Panels(2).Text = "共" & Val(tb2.RecordCount) & "记录"
      tb2.Close
      Set tb2 = db.OpenRecordset("lxtjk", dbOpenTable)
      If tb2.RecordCount > 0 Then
         Frm统计进程.Show
         Frm统计进程.PB1.Max = tb2.RecordCount + 2
         tb2.MoveFirst
         On Error GoTo errcl
         Do While Not tb2.EOF
            If Len(Trim(tb2("统计条件"))) > 0 Then
               SQL = "Update lxbzk set " & tb2("统计字段") & "=" & tb2("统计公式") & " where " & tb2("统计条件")
            Else
               SQL = "Update lxbzk set " & tb2("统计字段") & "=" & tb2("统计公式")
            End If
            db.Execute (SQL)
            tb2.MoveNext
            If Frm统计进程.PB1.Value < Frm统计进程.PB1.Max Then Frm统计进程.PB1.Value = Frm统计进程.PB1.Value + 1
         Loop
         Set tb2 = db.OpenRecordset("lxhzk", dbOpenTable)
         If tb2.RecordCount > 0 Then
            Do While Not tb2.EOF
               tb2.Delete
               tb2.MoveNext
            Loop
         End If
         SQL = "select [lxbzk].部门 ,sum([lxbzk].应发1) as 应发1,sum([lxbzk].应发2) as 应发2,sum([lxbzk].应发3) as 应发3,sum([lxbzk].应发4) as 应发4,sum([lxbzk].应发5) as 应发5,sum([lxbzk].应发6) as 应发6,sum([lxbzk].应发7) as 应发7,sum([lxbzk].应发8) as 应发8,sum([lxbzk].应发9) as 应发9,sum([lxbzk].应发10) as 应发10,sum([lxbzk].应发11) as 应发11,sum([lxbzk].应发12) as 应发12,sum([lxbzk].应发13) as 应发13,sum([lxbzk].应发14) as 应发14,sum([lxbzk].应发15) as 应发15,sum([lxbzk].应发16) as 应发16,sum([lxbzk].应发17) as 应发17,sum([lxbzk].应发18) as 应发18,sum([lxbzk].应发19) as 应发19,sum([lxbzk].应发20) as 应发20,sum([lxbzk].代扣1) as 代扣1,sum([lxbzk].代扣2) as 代扣2,sum([lxbzk].代扣3) as 代扣3,sum([lxbzk].代扣4) as 代扣4,sum([lxbzk].代扣5) as 代扣5,sum([lxbzk].代扣6) as 代扣6,sum([lxbzk].代扣7) as 代扣7,sum([lxbzk].代扣8) as 代扣8,sum([lxbzk].代扣9) as 代扣9,sum([lxbzk].代扣10) as 代扣10,sum([lxbzk].代扣11) as 代扣11,sum([lxbzk].代扣12) as 代扣12,sum([lxbzk].代扣13) as 代扣13"
         SQL = SQL + ",sum([lxbzk].代扣14) as 代扣14 ,sum([lxbzk].应发合计) as 应发合计,sum([lxbzk].代扣合计) as 代扣合计 ,sum([lxbzk].实发现金) as 实发现金 from lxbzk group by 部门"
         Set tb3 = db.OpenRecordset(SQL, dbOpenDynaset)
         If tb3.RecordCount > 0 Then
            tb3.MoveFirst
            Do While Not tb3.EOF
               tb2.AddNew