📄 humanmanage.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 frmHumanManage
Caption = "人事信息档案"
ClientHeight = 7770
ClientLeft = 60
ClientTop = 345
ClientWidth = 10320
LinkTopic = "Form2"
ScaleHeight = 7770
ScaleWidth = 10320
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin MSComctlLib.TreeView TreePartment
Height = 10485
Left = 0
TabIndex = 2
Top = 600
Width = 2175
_ExtentX = 3836
_ExtentY = 18494
_Version = 393217
Style = 7
Appearance = 1
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 8955
Left = 2280
TabIndex = 1
Top = 600
Width = 12915
_ExtentX = 22781
_ExtentY = 15796
_Version = 393216
Cols = 40
FixedCols = 0
ScrollTrack = -1 'True
SelectionMode = 1
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 570
Left = 0
TabIndex = 0
Top = 0
Width = 10320
_ExtentX = 18203
_ExtentY = 1005
ButtonWidth = 1773
ButtonHeight = 953
Wrappable = 0 'False
Appearance = 1
Style = 1
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 13
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 = "Add"
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改"
Key = "Update"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删除"
Key = "Delete"
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Excel"
Key = "Excel"
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 3
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "EXCEL1"
Text = "导出到Excel中"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "Line"
Text = "-"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "EXCEL2"
Text = "Excel文件中导入"
EndProperty
EndProperty
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
Key = "Print"
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "Back"
EndProperty
EndProperty
BorderStyle = 1
End
End
Attribute VB_Name = "frmHumanManage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private mNode As Node
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_frmHumanManage
End Sub
Private Sub Delete()
Dim strSQL As String
Dim mystr As String
MSFlexGrid1.Col = 0
mystr = MSFlexGrid1.Text
If MsgBox("你真的要删除它吗？", vbInformation + vbYesNo) = vbYes Then
strSQL = "Delete From 人事档案 Where 编号='" + mystr + "'"
ADOcn.Execute strSQL
End If
MyRefresh_frmHumanManage
End Sub
Private Sub MSFlexGrid1_DblClick()
Dim mystr As String
MSFlexGrid1.Col = 0
mystr = MSFlexGrid1.Text
frmHumanInfo.txtNum = mystr
frmHumanInfo.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 = 1 '标志查询职员
frmSelect.Show
Case "All"
MyRefresh_frmHumanManage
Case "Add"
frmHumanInfo.Show
Case "Delete"
Delete
Case "Update"
Dim mystr As String
MSFlexGrid1.Col = 0
mystr = MSFlexGrid1.Text
frmHumanInfo.txtNum = mystr
frmHumanInfo.Show
Case "Back"
Unload Me
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -