📄 frmmain.frm
字号:
Caption = "部门维护(&B)"
End
Begin VB.Menu FGH
Caption = "-"
End
Begin VB.Menu BZKBF
Caption = "标准库备份(&B)"
End
End
Begin VB.Menu qt
Caption = "其它(&Q)"
Begin VB.Menu DWXXWH
Caption = "系统信息维护(&W)"
End
Begin VB.Menu Compact
Caption = "数据库压缩(&Y)"
End
Begin VB.Menu Repair
Caption = "数据库修复(&R)"
End
Begin VB.Menu FGX5
Caption = "-"
End
Begin VB.Menu JSQ
Caption = "计算器(&J)"
End
Begin VB.Menu ZP
Caption = "纸牌(&Z)"
End
Begin VB.Menu SL
Caption = "扫雷(&S)"
End
End
Begin VB.Menu HELP
Caption = "帮助(&H)"
Begin VB.Menu SYSM
Caption = "使用说明(&H)"
End
Begin VB.Menu ABOUT
Caption = "关于工资管理系统(&A)"
End
End
End
Attribute VB_Name = "frmMAIN"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim RetVal
Dim scz As String * 36
Dim sf As Currency
Dim dfze As Currency
Dim rq As String * 6
'Dim bm As String
Dim xz As String
Private Sub ABOUT_Click()
frmAbout.Show 1
End Sub
Private Sub BMWH_Click()
frm部门维护.Show 1
End Sub
Private Sub BZGSXG_Click()
Set db = ws.OpenDatabase(xtlj & "bzxx.mdb")
Set tb1 = db.OpenRecordset("bzk", dbOpenTable)
Load frm公式修改
frm公式修改.Combo1.Clear
tb1.MoveFirst
i = 5
Do While i <= 28
If Len(Trim(tb1.Fields(i).Name)) > 0 Then frm公式修改.Combo1.AddItem tb1.Fields(i).Name
i = i + 1
Loop
'frm公式修改.Combo1.AddItem "应发合计"
'frm公式修改.Combo1.AddItem "代扣合计"
'frm公式修改.Combo1.AddItem "实发金额"
frm公式修改.Caption = " 标准库公式修改"
frmMAIN.StatusBar1.Panels(1).Text = " 注意:现在打开和处理的是 标准工资库"
frm公式修改.datPrimaryRS.DatabaseName = xtlj & "bzxx.mdb"
frm公式修改.datPrimaryRS.RecordSource = "select * from [tjk]"
frm公式修改.datPrimaryRS.Refresh
frm公式修改.Show 1
If dbdk = True Then
frmMAIN.StatusBar1.Panels(1).Text = " 注意:现在打开和处理的是" & ye & "年" & mon & "月的工资库!"
Else
frmMAIN.StatusBar1.Panels(1).Text = " ***未打开工资库***"
End If
db.Close
End Sub
Private Sub BZKBF_Click()
Frm标准库备份.Show 1
End Sub
Private Sub BZRYZS_Click()
Set db = ws.OpenDatabase(xtlj & "bzxx.mdb")
Set tb1 = db.OpenRecordset("bmk", dbOpenTable)
Set tb2 = db.OpenRecordset("bzk", dbOpenTable)
frmMAIN.StatusBar1.Panels(2).Text = "共" & Val(tb2.RecordCount) & "条记录"
'tb2.Close
Load frm数据修改
tb1.MoveFirst
Do While Not tb1.EOF
frm数据修改.Combo1.AddItem tb1("部门")
tb1.MoveNext
Loop
frm数据修改.cmd替换.Visible = False
frm数据修改.cmd锁定.Visible = False
frm数据修改.cmd增加.Move 94, 30, 975, 360
frm数据修改.cmd删除.Move 1440, 30, 975, 360
frm数据修改.cmd定位.Move 2775, 30, 975, 360
frm数据修改.cmd保存.Move 4095, 30, 975, 360
frm数据修改.cmd放弃.Move 5520, 30, 975, 360
frm数据修改.cmd关闭.Move 6975, 30, 975, 360
frm数据修改.Caption = " 标准库人员增删"
frmMAIN.StatusBar1.Panels(1).Text = " 注意:现在打开和处理的是 标准工资库"
frm数据修改.datPrimaryRS.DatabaseName = xtlj & "bzxx.mdb"
frm数据修改.datPrimaryRS.RecordSource = "select * from [bzk] 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
'i = 1
'Do While i <= 34
' If Len(Trim(tb1.Fields(i - 1).Value)) > 0 Then
' frm数据修改.lblLabels(i + 3).Caption = Trim(tb1.Fields(i - 1).Value) & ":"
' frm数据修改.lblLabels(i + 3).Alignment = 1
' Else
' frm数据修改.lblLabels(i + 3).Caption = " "
' End If
' frm数据修改.lblLabels(i + 3).Visible = True
' frm数据修改.txtFields(i + 3).Visible = True
' frm数据修改.txtFields(i + 3).DataField = tb1.Fields(i - 1).Name
' i = i + 1
'Loop
frm数据修改.Show 1
If dbdk = True Then
frmMAIN.StatusBar1.Panels(1).Text = " 注意:现在打开和处理的是" & ye & "年" & mon & "月的工资库!"
Else
frmMAIN.StatusBar1.Panels(1).Text = " ***未打开工资库***"
End If
db.Close
frmMAIN.StatusBar1.Panels(2).Text = " "
End Sub
Private Sub BZSJXG_Click()
Set db = ws.OpenDatabase(xtlj & "bzxx.mdb")
Set tb1 = db.OpenRecordset("bmk", dbOpenTable)
Set tb2 = db.OpenRecordset("bzk", dbOpenTable)
If tb2.RecordCount = 0 Then
yn = MsgBox("库内无人员记录,不能继续,请先设置标准库后再生成！", 48)
db.Close
GoTo en:
End If
frmMAIN.StatusBar1.Panels(2).Text = "共" & Val(tb2.RecordCount) & "条记录"
Load frm数据修改
tb1.MoveFirst
Do While Not tb1.EOF
frm数据修改.Combo1.AddItem tb1("部门")
tb1.MoveNext
Loop
frm数据修改.Caption = "标准工资库修改"
frmMAIN.StatusBar1.Panels(1).Text = " 注意:现在打开和处理的是标准工资库"
frm数据修改.datPrimaryRS.DatabaseName = xtlj & "bzxx.mdb"
frm数据修改.datPrimaryRS.RecordSource = "select * from [bzk] order by 编号"
frm数据修改.datPrimaryRS.Refresh
frm数据修改.cmd保存.Visible = False
frm数据修改.cmd放弃.Visible = False
frm数据修改.cmd增加.Visible = False
frm数据修改.cmd删除.Visible = False
frm数据修改.cmd替换.Move 225, 30, 1455, 360
frm数据修改.cmd锁定.Move 2280, 30, 1455, 360
frm数据修改.cmd定位.Move 4320, 30, 1455, 360
frm数据修改.cmd关闭.Move 6360, 30, 1455, 360
frm数据修改.lblLabels(0).Enabled = False
frm数据修改.lblLabels(1).Enabled = False
frm数据修改.lblLabels(2).Enabled = False
frm数据修改.lblLabels(3).Enabled = False
frm数据修改.lblLabels(4).Enabled = False
frm数据修改.lbldzk.Enabled = False
frm数据修改.txtFields(0).Enabled = False
frm数据修改.Combo1.Enabled = False
frm数据修改.txtFields(2).Enabled = False
frm数据修改.txtFields(3).Enabled = False
frm数据修改.txtFields(4).Enabled = False
frm数据修改.chkdzk.Enabled = False
frm数据修改.Show 1
If dbdk = True Then
frmMAIN.StatusBar1.Panels(1).Text = " 注意:现在打开和处理的是" & ye & "年" & mon & "月的工资库!"
Else
frmMAIN.StatusBar1.Panels(1).Text = " ***未打开工资库***"
End If
db.Close
frmMAIN.StatusBar1.Panels(2).Text = " "
en: End Sub
Private Sub Compact_Click()
Frm统计进程.pb1.Max = 1
Frm统计进程.Show
DBEngine.CompactDatabase xtlj & "dwxx.mdb", xtlj & "dwxx1.mdb"
Kill xtlj & "dwxx.mdb"
FileCopy xtlj & "dwxx1.mdb", xtlj & "dwxx.mdb"
Kill xtlj & "dwxx1.mdb"
If Frm统计进程.pb1.Value < Frm统计进程.pb1.Max Then Frm统计进程.pb1.Value = Frm统计进程.pb1.Value + 1
Set wws = DBEngine.Workspaces(0)
Set wdb = wws.OpenDatabase(xtlj + "dwxx.mdb")
Set wtb1 = wdb.OpenRecordset("月库登记", dbOpenTable)
Frm统计进程.pb1.Max = wtb1.RecordCount + 1
DBEngine.CompactDatabase xtlj & "bzxx.mdb", xtlj & "bzxx1.mdb"
Kill xtlj & "bzxx.mdb"
FileCopy xtlj & "bzxx1.mdb", xtlj & "bzxx.mdb"
Kill xtlj & "bzxx1.mdb"
If Frm统计进程.pb1.Value < Frm统计进程.pb1.Max Then Frm统计进程.pb1.Value = Frm统计进程.pb1.Value + 1
wtb1.MoveFirst
Do While Not wtb1.EOF
DBEngine.CompactDatabase xtlj & "data\" & wtb1("年") & wtb1("月") & ".mdb", xtlj & "data\" & wtb1("年") & wtb1("月") & "1.mdb"
Kill xtlj & "data\" & wtb1("年") & wtb1("月") & ".mdb"
FileCopy xtlj & "data\" & wtb1("年") & wtb1("月") & "1.mdb", xtlj & "data\" & wtb1("年") & wtb1("月") & ".mdb"
Kill xtlj & "data\" & wtb1("年") & wtb1("月") & "1.mdb"
wtb1.MoveNext
If Frm统计进程.pb1.Value < Frm统计进程.pb1.Max Then Frm统计进程.pb1.Value = Frm统计进程.pb1.Value + 1
Loop
Unload Frm统计进程
yn = MsgBox("数据库压缩已经完毕!", 48)
wdb.Close
End Sub
Private Sub DKYK_Click()
If dbdk = True Then
yn = MsgBox(ye & "年" & mon & "月" & "的工资库已打开，是否关闭？", 36)
If yn = vbYes Then
frmMAIN.StatusBar1.Panels(1).Text = " 注意:原打开的工资库已经被关闭！"
Frm月库打开.Show 1
End If
Else
Frm月库打开.Show 1
End If
LSDBDK = False
Call CDKZ
End Sub
Private Sub DQBBDY_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 bzk order by 部门"
Set tb1 = db.OpenRecordset(SQL, dbOpenDynaset)
If tb1.RecordCount = 0 Then
yn = MsgBox("库内无人员记录,不能继续,请先设置标准库后再生成！", 48)
db.Close
Unload Frm统计进程
GoTo en:
End If
Frm统计进程.pb1.Max = Frm统计进程.pb1.Max + tb1.RecordCount
Set tb2 = wdb.OpenRecordset("hzdyk", dbOpenTable)
Frm统计进程.pb1.Max = Frm统计进程.pb1.Max + tb2.RecordCount
Set tb3 = db.OpenRecordset("hzk", 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
bm = tb1("部门")
Do While Not tb1.EOF
If bm <> tb1("部门") Then
tb3.MoveFirst
Do While Not tb3.EOF
If bm = tb3("部门") Then
tb2.AddNew
tb2("编号") = "*****"
tb2("卡号") = "******************"
tb2("姓名") = "合 计"
i = 0
Do While i <= tb3.Fields.Count - 1
tb2(tb3.Fields(i).Name) = tb3.Fields(i).Value
i = i + 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
bm = tb1("部门")
End If
tb2.AddNew
i = 0
If tb1("打纸卡") = True Then
Do While i <= tb1.Fields.Count - 1
tb2(tb1.Fields(i).Name) = tb1(tb1.Fields(i).Name)
i = i + 1
Loop
tb2.Update
End If
tb1.MoveNext
If Frm统计进程.pb1.Value < Frm统计进程.pb1.Max Then Frm统计进程.pb1.Value = Frm统计进程.pb1.Value + 1
Loop
tb3.MoveFirst
Do While Not tb3.EOF
If bm = tb3("部门") Then
tb2.AddNew
tb2("编号") = "*****"
tb2("卡号") = "******************"
tb2("姓名") = "合 计"
i = 0
Do While i <= tb3.Fields.Count - 1
tb2(tb3.Fields(i).Name) = tb3.Fields(i).Value
i = i + 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("姓名") = "********"
i = 0
Do While i <= tb3.Fields.Count - 1
tb2(tb3.Fields(i).Name) = tb3.Fields(i).Value
i = i + 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("zzbzzd", 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
' i = 0
' Do While i <= tb1.Fields.Count - 1
' tb2.Fields(i).Value = tb1.Fields(i).Value
' i = i + 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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -