📄 dutymanage.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 frmDutyManage
Caption = "考勤信息管理："
ClientHeight = 6960
ClientLeft = 60
ClientTop = 345
ClientWidth = 9345
LinkTopic = "Form1"
ScaleHeight = 6960
ScaleWidth = 9345
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 570
Left = 0
TabIndex = 0
Top = 0
Width = 9345
_ExtentX = 16484
_ExtentY = 1005
ButtonWidth = 2090
ButtonHeight = 953
Wrappable = 0 'False
Appearance = 1
Style = 1
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 16
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}
Caption = "全部"
Key = "All"
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "全部工资信息"
Key = "ShowAll"
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "批量修改"
Key = "UpdateSome"
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改"
Key = "Update"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "更新"
Key = "Refresh"
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Excel"
Key = "Excel"
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
Key = "Print"
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "工资条"
Key = "PieceWage"
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button16 {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 = 6075
Left = 2280
TabIndex = 2
Top = 600
Width = 12915
_ExtentX = 22781
_ExtentY = 10716
_Version = 393216
Cols = 40
ScrollTrack = -1 'True
SelectionMode = 1
End
End
Attribute VB_Name = "frmDutyManage"
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********************************************/
MyRefresh_frmDuty
End Sub
Private Sub MSFlexGrid1_DblClick()
Dim mystr As String
MSFlexGrid1.Col = 1
mystr = MSFlexGrid1.Text
frmDutyInfo.txtNum = mystr
frmDutyInfo.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error Resume Next
Select Case Button.Key
Case "Hide"
'应做:添加 '新建' 按钮代码。
TreePartment.Visible = False
Button.Caption = "显示部门栏"
Button.Key = "Show"
Case "Show"
TreePartment.Visible = True
Button.Caption = "隐藏部门栏"
Button.Key = "Hide"
Case "Select"
Search = 3 '标志查询默认工资
ComboAddItem
frmSelect.Show
Case "All"
MyRefresh_frmDuty
Case "ShowMonth"
All = False
Button.Caption = "全部工资信息"
Button.Key = "ShowAll"
MyRefresh_frmDuty
Case "ShowAll"
All = True
Button.Caption = "当月工资信息"
Button.Key = "ShowMonth"
MyRefresh_frmDuty
Case "UpdateSome"
Update = 1
frmUpdateSome.Show
ComboUpdateItem
frmUpdateSome.Label3.Caption = "对应项目天次"
frmUpdateSome.Label4.Caption = "天/次"
Case "Update"
Dim mystr As String
MSFlexGrid1.Col = 1
mystr = MSFlexGrid1.Text
frmDutyInfo.txtNum = mystr
frmDutyInfo.Show
Case "Back"
Unload Me
End Select
End Sub
Private Sub ComboAddItem()
frmSelect.comboyiju.AddItem ("员工编号")
frmSelect.comboyiju.AddItem ("员工姓名")
frmSelect.comboyiju.AddItem ("出勤天数")
frmSelect.comboyiju.AddItem ("请假天数")
frmSelect.comboyiju.AddItem ("迟到与早退次数")
frmSelect.comboyiju.AddItem ("旷工天数")
frmSelect.comboyiju.AddItem ("加班次数")
End Sub
Private Sub ComboUpdateItem()
frmUpdateSome.cmbUpdate.AddItem ("出勤天数")
frmUpdateSome.cmbUpdate.AddItem ("请假天数")
frmUpdateSome.cmbUpdate.AddItem ("迟到与早退次数")
frmUpdateSome.cmbUpdate.AddItem ("旷工天数")
frmUpdateSome.cmbUpdate.AddItem ("加班次数")
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -