frmmain.frm

(VB)事业单位工资管理系统 +源码+25000字论文+开题+文献+外文翻译+论文答辩稿

    Print #1, SQL
    SQL = "                                                       " & Format(Year(Date)) & "年" & Right("00" & Format(Month(Date)), 2) & "月" & Right("00" & Format(Day(Date)), 2) & "日"
    Print #1, SQL
    Close #1
    hxfyn = MsgBox("交建行代发的工资总额为：" & Str(Int(hxfdfze * 100) / 100) & "是否显示代发文件", 36)
    If hxfyn = vbYes And dwccklb = "普通卡" Then
        RetVal = Shell("NOTEPAD.EXE " & xtlj & "gzwat.txt", 1)
    End If
    If hxfyn = vbYes And dwccklb = "借记卡" Then
        RetVal = Shell("NOTEPAD.EXE " & xtlj & "disk.txt", 1)
    End If
End Sub
Private Sub LFKSC_Click()
    Frm临发生成.Show 1
    Call CDKZ
End Sub
Private Sub LFSBSC_Click()
    frm报盘输出.Show 1
End Sub
Private Sub lfsjtn_Click()
     Set db = ws.OpenDatabase(lswjlj)
     Set tb1 = db.OpenRecordset("lfhzk", dbOpenTable)
     Frm统计进程.Show
     Frm统计进程.PB1.Max = 1
     If tb1.RecordCount > 0 Then
        tb1.MoveFirst
        Do While Not tb1.EOF
           tb1.Delete
           tb1.MoveNext
        Loop
     End If
     SQL = "select [lfbzk].性质,[lfbzk].部门,sum([lfbzk].实发现金) as 实发现金 from lfbzk group by 性质,部门"
     Set tb2 = db.OpenRecordset(SQL, dbOpenDynaset)
     If tb2.RecordCount > 0 Then
        Frm统计进程.PB1.Max = tb2.RecordCount
        tb2.MoveFirst
        Do While Not tb2.EOF
           tb1.AddNew
           tb1("性质") = tb2("性质")
           tb1("部门") = tb2("部门")
           tb1("实发现金") = tb2("实发现金")
           tb1.Update
           If Frm统计进程.PB1.Value < Frm统计进程.PB1.Max Then Frm统计进程.PB1.Value = Frm统计进程.PB1.Value + 1
           tb2.MoveNext
         Loop
      End If
     SQL = "select [lfbzk].性质,sum([lfbzk].实发现金) as 实发现金 from lfbzk group by 性质"
     Set tb2 = db.OpenRecordset(SQL, dbOpenDynaset)
     If tb2.RecordCount > 0 Then
        Frm统计进程.PB1.Max = tb2.RecordCount
        tb2.MoveFirst
        Do While Not tb2.EOF
           tb1.AddNew
           tb1("性质") = tb2("性质")
           tb1("部门") = "合计"
           tb1("实发现金") = tb2("实发现金")
           tb1.Update
           If Frm统计进程.PB1.Value < Frm统计进程.PB1.Max Then Frm统计进程.PB1.Value = Frm统计进程.PB1.Value + 1
           tb2.MoveNext
         Loop
      End If
     SQL = "select sum([lfbzk].实发现金) as 实发现金 from lfbzk"
     Set tb2 = db.OpenRecordset(SQL, dbOpenDynaset)
     If tb2.RecordCount > 0 Then
        Frm统计进程.PB1.Max = tb2.RecordCount
        tb2.MoveFirst
        Do While Not tb2.EOF
           tb1.AddNew
           tb1("性质") = "总计"
           tb1("部门") = "**********"
           tb1("实发现金") = tb2("实发现金")
           tb1.Update
           If Frm统计进程.PB1.Value < Frm统计进程.PB1.Max Then Frm统计进程.PB1.Value = Frm统计进程.PB1.Value + 1
           tb2.MoveNext
         Loop
      End If
      hxfyn = MsgBox("临时发放库统计完毕,是否显示统计结果?", 36)
      Unload Frm统计进程
      If hxfyn = vbYes Then
         Load frm临发查询
         frm临发查询.datPrimaryRS.DatabaseName = lswjlj
         frm临发查询.datPrimaryRS.RecordSource = "select * from [lfhzk] order by 性质,部门"
         frm临发查询.datPrimaryRS.Refresh
         frm临发查询.Show 1
      End If
End Sub
Private Sub LFSJXG_Click()
              Load frm临发修改
              frm临发修改.datPrimaryRS.DatabaseName = lswjlj
              frm临发修改.datPrimaryRS.RecordSource = "select * from [lfbzk] order by 性质,部门,工号"
              frm临发修改.datPrimaryRS.Refresh
              frm临发修改.Show 1
End Sub
Private Sub LFXMWH_Click()
    frmlfxm.Show 1
End Sub
Private Sub LXBBDY_Click()
    Load Frm统计进程
    Frm统计进程.Caption = "现在正在进行打印前运算,运算进度如下，请等待！"
    Frm统计进程.Show
    Frm统计进程.PB1.Max = 1
    Set db = ws.OpenDatabase(dqklj)
    Set wdb = wws.OpenDatabase(xtlj & "dwxx.mdb")
    SQL = "select * from lxbzk order by 部门,工号"
    Set tb1 = db.OpenRecordset(SQL, dbOpenDynaset)
    If tb1.RecordCount = 0 Then
       hxfyn = MsgBox("库内无人员记录,不能继续,请先设置标准库后再生成！", 48)
       db.Close
       Unload Frm统计进程
       GoTo en:
    End If
    Frm统计进程.PB1.Max = Frm统计进程.PB1.Max + tb1.RecordCount
    Set tb2 = wdb.OpenRecordset("dyk", dbOpenTable)
    Frm统计进程.PB1.Max = Frm统计进程.PB1.Max + tb2.RecordCount
    Set tb3 = db.OpenRecordset("lxhzk", dbOpenTable)
    Frm统计进程.PB1.Max = Frm统计进程.PB1.Max + tb3.RecordCount
    tb1.Sort = "部门,工号"
    If tb2.RecordCount > 0 Then
        tb2.MoveFirst
        Do While Not tb2.EOF
           If Frm统计进程.PB1.Value < Frm统计进程.PB1.Max Then Frm统计进程.PB1.Value = Frm统计进程.PB1.Value + 1
           tb2.Delete
           tb2.MoveNext
        Loop
    End If
    tb1.MoveFirst
    hxfbm = tb1("部门")
    Do While Not tb1.EOF
       If hxfbm <> tb1("部门") Then
          tb3.MoveFirst
          Do While Not tb3.EOF
             If hxfbm = tb3("部门") Then
                tb2.AddNew
                tb2("工号") = "******"
                tb2("卡号") = "******************"
                tb2("姓名") = "合  计"
                hxfi = 0
                Do While hxfi <= tb3.Fields.Count - 1
                   tb2(tb3.Fields(hxfi).Name) = tb3.Fields(hxfi).Value
                   hxfi = hxfi + 1
                Loop
                tb2.Update
                If Frm统计进程.PB1.Value < Frm统计进程.PB1.Max Then Frm统计进程.PB1.Value = Frm统计进程.PB1.Value + 1
                Exit Do
             Else
                tb3.MoveNext
             End If
          Loop
          hxfbm = tb1("部门")
       End If
       tb2.AddNew
       hxfi = 0
       Do While hxfi <= tb1.Fields.Count - 1
          tb2(tb1.Fields(hxfi).Name) = tb1(tb1.Fields(hxfi).Name)
          hxfi = hxfi + 1
       Loop
       tb1.MoveNext
       tb2.Update
       If Frm统计进程.PB1.Value < Frm统计进程.PB1.Max Then Frm统计进程.PB1.Value = Frm统计进程.PB1.Value + 1
    Loop
          tb3.MoveFirst
          Do While Not tb3.EOF
             If hxfbm = tb3("部门") Then
                tb2.AddNew
                tb2("工号") = "******"
                tb2("卡号") = "******************"
                tb2("姓名") = "合  计"
                hxfi = 0
                Do While hxfi <= tb3.Fields.Count - 1
                   tb2(tb3.Fields(hxfi).Name) = tb3.Fields(hxfi).Value
                   hxfi = hxfi + 1
                Loop
                tb2.Update
                If Frm统计进程.PB1.Value < Frm统计进程.PB1.Max Then Frm统计进程.PB1.Value = Frm统计进程.PB1.Value + 1
                Exit Do
             Else
                tb3.MoveNext
             End If
          Loop
    tb3.MoveLast
    tb2.AddNew
    tb2("工号") = "******"
    tb2("卡号") = "******************"
    tb2("姓名") = "********"
    hxfi = 0
    Do While hxfi <= tb3.Fields.Count - 1
       tb2(tb3.Fields(hxfi).Name) = tb3.Fields(hxfi).Value
       hxfi = hxfi + 1
    Loop
    tb2.Update
    If Frm统计进程.PB1.Value < Frm统计进程.PB1.Max Then Frm统计进程.PB1.Value = Frm统计进程.PB1.Value + 1
    tb1.Close
    tb2.Close
    tb3.Close
    Set tb1 = db.OpenRecordset("lxbzzd", dbOpenTable)
    Set tb2 = wdb.OpenRecordset("dyzd", dbOpenTable)
    Frm统计进程.PB1.Max = Frm统计进程.PB1.Max + tb1.RecordCount
    Frm统计进程.PB1.Max = Frm统计进程.PB1.Max + tb2.RecordCount
    If tb2.RecordCount > 0 Then
        tb2.MoveFirst
        Do While Not tb2.EOF
           tb2.Delete
           If Frm统计进程.PB1.Value < Frm统计进程.PB1.Max Then Frm统计进程.PB1.Value = Frm统计进程.PB1.Value + 1
           tb2.MoveNext
        Loop
    End If
    tb1.MoveFirst
    Do While Not tb1.EOF
       tb2.AddNew
       hxfi = 0
       Do While hxfi <= tb1.Fields.Count - 1
          tb2.Fields(hxfi).Value = tb1.Fields(hxfi).Value
          hxfi = hxfi + 1
       Loop
       tb1.MoveNext
       tb2.Update
       If Frm统计进程.PB1.Value < Frm统计进程.PB1.Max Then Frm统计进程.PB1.Value = Frm统计进程.PB1.Value + 1
    Loop
    Set tb2 = wdb.OpenRecordset("年月", dbOpenTable)
    If tb2.RecordCount > 0 Then
        tb2.MoveFirst
    Else
        tb2.AddNew
        tb2.Update
        tb2.MoveFirst
    End If
    tb2.Edit
    tb2.Fields(0).Value = hxfyear
    tb2.Fields(1).Value = hxfmath
    tb2.Update
    If Frm统计进程.PB1.Value < Frm统计进程.PB1.Max Then Frm统计进程.PB1.Value = Frm统计进程.PB1.Value + 1
    Set tb1 = db.OpenRecordset("lxhzk", dbOpenTable)
    Set tb2 = wdb.OpenRecordset("dyhzk", dbOpenTable)
    Frm统计进程.PB1.Max = Frm统计进程.PB1.Max + tb1.RecordCount
    Frm统计进程.PB1.Max = Frm统计进程.PB1.Max + tb2.RecordCount
    If tb2.RecordCount > 0 Then
        tb2.MoveFirst
        Do While Not tb2.EOF
           tb2.Delete
           If Frm统计进程.PB1.Value < Frm统计进程.PB1.Max Then Frm统计进程.PB1.Value = Frm统计进程.PB1.Value + 1
           tb2.MoveNext
        Loop
    End If
    tb1.MoveFirst
    Do While Not tb1.EOF
       tb2.AddNew
       hxfi = 0
       Do While hxfi <= tb1.Fields.Count - 1
          tb2.Fields(hxfi).Value = tb1.Fields(hxfi).Value
          hxfi = hxfi + 1
       Loop
       tb1.MoveNext
       tb2.Update
       If Frm统计进程.PB1.Value < Frm统计进程.PB1.Max Then Frm统计进程.PB1.Value = Frm统计进程.PB1.Value + 1
    Loop
    db.Close
    wdb.Close
    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