📄 wagemanage.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmWageManage
Caption = "工资档案管理"
ClientHeight = 7950
ClientLeft = 60
ClientTop = 450
ClientWidth = 10560
LinkTopic = "Form1"
ScaleHeight = 7950
ScaleWidth = 10560
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 570
Left = 0
TabIndex = 0
Top = 0
Width = 10560
_ExtentX = 18627
_ExtentY = 1005
ButtonWidth = 2090
ButtonHeight = 953
Wrappable = 0 'False
Appearance = 1
Style = 1
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 15
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "隐藏部门栏"
Key = "Hide"
Style = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查找"
Key = "Select"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "全部工资信息"
Key = "ShowAll"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "批量修改"
Key = "UpdateSome"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改"
Key = "Update"
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "总结算"
Key = "Account"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Excel"
Key = "Excel"
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
Key = "Print"
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "工资条"
Key = "PieceWage"
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "Back"
EndProperty
EndProperty
BorderStyle = 1
End
Begin MSComctlLib.TreeView TreePartment
Height = 10485
Left = 0
TabIndex = 1
Top = 600
Width = 2175
_ExtentX = 3836
_ExtentY = 18494
_Version = 393217
Style = 7
Appearance = 1
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 7155
Left = 2280
TabIndex = 2
Top = 600
Width = 12915
_ExtentX = 22781
_ExtentY = 12621
_Version = 393216
Cols = 40
FixedCols = 0
ScrollTrack = -1 'True
SelectionMode = 1
End
End
Attribute VB_Name = "frmWageManage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim adors As New Recordset '定义一个记录集，记录科目类型
Dim rsPartment As New Recordset '定义一个记录集，记录每种科目类型中的科目
Dim strSQL As String '定义一个字符串，将查询科目类型的sql语句付给它
Dim strSQLQuery As String '定义一个字符串，将查询每种科目类型下的科目的sql语句付给它
Dim strPartmentType(10) As String '定义一个数组，存储科目类型
Dim strPartment As String '定义字符串，将每种科目类型下的科目附值给它
Dim intIndex(10) As Integer '定义一个数组，记录根节点index
Dim i As Integer '定义一个整数，存储是第i个根节点
'/***********************************TreeVeiwStart********************************************/
TreePartment.Sorted = True '主目录
Set mNode = TreePartment.Nodes.Add()
mNode.Text = "我的公司/单位"
Set adors.ActiveConnection = ADOcn '添加一级目录
strSQL = "Select distinct 名称 from 部门类型 where 级别=1 "
adors.Open strSQL
Do Until adors.EOF
Set mNode = TreePartment.Nodes.Add(1, tvwChild)
strPartmentType(i) = adors.Fields("名称")
mNode.Text = strPartmentType(i)
intIndex(i) = mNode.Index
i = i + 1
adors.MoveNext
Loop
Set mNode = TreePartment.Nodes.Add(1, tvwChild)
mNode.Text = "工种"
intIndex(i) = mNode.Index
i = i + 1
Set mNode = TreePartment.Nodes.Add(1, tvwChild)
mNode.Text = "职务"
intIndex(i) = mNode.Index
i = i + 1
Set mNode = TreePartment.Nodes.Add(1, tvwChild)
mNode.Text = "职称"
intIndex(i) = mNode.Index
i = i + 1
Set mNode = TreePartment.Nodes.Add(1, tvwChild)
mNode.Text = "姓名"
intIndex(i) = mNode.Index
i = i + 1
adors.Close
Set rsPartment.ActiveConnection = ADOcn '添加部门子目录
For i = 0 To i - 4
strSQLQuery = "Select 名称 from 部门类型 where 上级='" + strPartmentType(i) + "'"
rsPartment.Open strSQLQuery
Do Until rsPartment.EOF
Set mNode = TreePartment.Nodes.Add(intIndex(i), tvwChild)
strPartment = rsPartment.Fields("名称")
mNode.Text = strPartment
rsPartment.MoveNext
Loop
rsPartment.Close '关闭记录集，一定要记住。
Next i
Set rsPartment.ActiveConnection = ADOcn '添加工种的子目录
strSQLQuery = "Select 工种 from 工种"
rsPartment.Open strSQLQuery
Do Until rsPartment.EOF
Set mNode = TreePartment.Nodes.Add(intIndex(i - 1), tvwChild)
strPartment = rsPartment.Fields("工种")
mNode.Text = strPartment
rsPartment.MoveNext
Loop
rsPartment.Close
Set rsPartment.ActiveConnection = ADOcn '添加职务的子目录
strSQLQuery = "Select 职务 from 职务"
rsPartment.Open strSQLQuery
Do Until rsPartment.EOF
Set mNode = TreePartment.Nodes.Add(intIndex(i), tvwChild)
strPartment = rsPartment.Fields("职务")
mNode.Text = strPartment
rsPartment.MoveNext
Loop
rsPartment.Close
i = i + 1
Set rsPartment.ActiveConnection = ADOcn '添加职称的子目录
strSQLQuery = "Select 职称 from 职称"
rsPartment.Open strSQLQuery
Do Until rsPartment.EOF
Set mNode = TreePartment.Nodes.Add(intIndex(i), tvwChild)
strPartment = rsPartment.Fields("职称")
mNode.Text = strPartment
rsPartment.MoveNext
Loop
rsPartment.Close
i = i + 1
Set rsPartment.ActiveConnection = ADOcn '添加人员的子目录
strSQLQuery = "Select 姓名 from 人事档案"
rsPartment.Open strSQLQuery
Do Until rsPartment.EOF
Set mNode = TreePartment.Nodes.Add(intIndex(i), tvwChild)
strPartment = rsPartment.Fields("姓名")
mNode.Text = strPartment
rsPartment.MoveNext
Loop
rsPartment.Close
'/***********************************TreeVeiwStart********************************************/
Dim colWidth As Integer
colWidth = MSFlexGrid1.Width / 30
For i = 0 To 29
MSFlexGrid1.colWidth(i) = colWidth * 2.7
Next
MyRefresh_frmWageManage
End Sub
Private Sub MSFlexGrid1_DblClick()
Dim mystr As String
MSFlexGrid1.Col = 1
mystr = MSFlexGrid1.Text
frmWageFile.txtNum = mystr
frmWageFile.Show
End Sub
Private Sub PieceWage()
Dim adors As New Recordset
Set adors.ActiveConnection = ADOcn
Dim adors1 As New Recordset
Set adors1.ActiveConnection = ADOcn
Dim strSQL As String
strSQL = "Select * from 人事档案 order by 编号"
adors.Open strSQL
Do While Not adors.EOF
strSQL = "Select * from 计件工资表 where 员工编号='" + adors("编号") + " and 所属工资月份='" + CurMonth + "'"
adors1.Open strSQL
If Not adors1.EOF Then
adors1.Close
strSQL = "Select Sum(小计) as 合计 from 计件工资表 order by 编号"
strSQL = strSQL + " where 员工编号='" + adors("编号") + " and 所属工资月份='" + CurMonth + "'"
adors1.Open strSQL
strSQL = "Update 工资档案表 Set 计件工资=" + LTrim(adors("合计"))
strSQL = strSQL + " where 员工编号='" + adors("编号") + " and 所属工资月份='" + CurMonth + "'"
ADOcn.Execute strSQL
End If
adors1.Close
adors.MoveNext
Loop
End Sub
Private Sub TimeWage()
Dim adors As New Recordset
Set adors.ActiveConnection = ADOcn
Dim adors1 As New Recordset
Set adors1.ActiveConnection = ADOcn
Dim strSQL As String
strSQL = "Select * from 人事档案 order by 编号"
adors.Open strSQL
Do While Not adors.EOF
strSQL = "Select * from 计时工资表 where 员工编号='" + adors("编号") + " and 所属工资月份='" + CurMonth + "'"
adors1.Open strSQL
If Not adors1.EOF Then
adors1.Close
strSQL = "Select Sum(小计) as 合计 from 计时工资表 order by 编号"
strSQL = strSQL + " where 员工编号='" + adors("编号") + " and 所属工资月份='" + CurMonth + "'"
adors1.Open strSQL
strSQL = "Update 工资档案表 Set 计时工资=" + LTrim(adors("合计"))
strSQL = strSQL + " where 员工编号='" + adors("编号") + " and 所属工资月份='" + CurMonth + "'"
ADOcn.Execute strSQL
End If
adors1.Close
adors.MoveNext
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -