📄 frmempselect.frm
字号:
VERSION 5.00
Object = "{F7BA9F11-0A5D-11D0-97C9-0000C09400C4}#2.0#0"; "SPLITTER.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmEmpSelect
AutoRedraw = -1 'True
BorderStyle = 3 'Fixed Dialog
Caption = "职员/部门选择窗口"
ClientHeight = 4140
ClientLeft = 45
ClientTop = 330
ClientWidth = 7830
ClipControls = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmEmpSelect.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4140
ScaleWidth = 7830
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin SSSplitter.SSSplitter SSSplitter1
Height = 4140
Left = 0
TabIndex = 0
Top = 0
Width = 7830
_ExtentX = 13811
_ExtentY = 7303
_Version = 131074
AutoSize = 1
SplitterBarWidth= 4
SplitterBarJoinStyle= 0
BorderStyle = 0
PaneTree = "frmEmpSelect.frx":030A
Begin VB.Frame Frame1
BorderStyle = 0 'None
Caption = "职员/部门选择窗口"
Height = 390
Left = 2625
TabIndex = 3
Top = 0
Width = 5205
Begin VB.CommandButton CancelCmd
Cancel = -1 'True
Caption = "取消(&C)"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 4020
TabIndex = 5
Top = 30
Width = 1035
End
Begin VB.CommandButton OkCmd
Caption = "确认(&Y)"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 2925
TabIndex = 4
Top = 45
Width = 1035
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 5760
Top = 1320
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 15
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 3
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmEmpSelect.frx":039E
Key = "main"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmEmpSelect.frx":04B2
Key = "closed"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmEmpSelect.frx":0612
Key = "open"
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList DrogImage
Left = 7320
Top = 1200
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 4
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmEmpSelect.frx":0772
Key = "DrogOne"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmEmpSelect.frx":0A8E
Key = "DrogStop"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmEmpSelect.frx":0DB2
Key = "DropOne"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmEmpSelect.frx":10CE
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList SmallIcon
Left = 4080
Top = 1440
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 17
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmEmpSelect.frx":13F2
Key = "man"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmEmpSelect.frx":150E
Key = "woman"
EndProperty
EndProperty
End
Begin MSComctlLib.ListView lvwDB
Height = 3675
Left = 2625
TabIndex = 1
Top = 465
Width = 5205
_ExtentX = 9181
_ExtentY = 6482
View = 3
LabelEdit = 1
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = 0 'False
OLEDropMode = 1
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
SmallIcons = "SmallIcon"
ForeColor = -2147483640
BackColor = -2147483643
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
OLEDropMode = 1
NumItems = 0
End
Begin MSComctlLib.TreeView tvTreeView
Height = 3675
Left = 0
TabIndex = 2
Top = 465
Width = 2550
_ExtentX = 4498
_ExtentY = 6482
_Version = 393217
HideSelection = 0 'False
LabelEdit = 1
Style = 7
FullRowSelect = -1 'True
ImageList = "ImageList1"
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
End
Attribute VB_Name = "frmEmpSelect"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim NowBmRec As Recordset
Dim TempNode As Node
Dim NowBmSelect As Integer
Dim gnodDBNode As Node
Sub LoadRes()
UserBm.Caption = LoadResString(341)
End Sub
Sub NewFillTree()
Dim NowNodeKey As String, NowBmBm As String
Dim TempIncName As String
MsgBar LoadResString(351)
Set TempRec = New ADODB.Recordset
SqlStr = "select CustomerName from HrpCustomer"
TempRec.Open SqlStr, GlobalCon, adOpenForwardOnly, adLockReadOnly
If Not TempRec.EOF Then
If Not IsNull(TempRec!customername) Then
TempIncName = Trim$(TempRec!customername)
Else
TempIncName = LoadResString(354)
End If
Else
TempIncName = LoadResString(354)
End If
TempRec.Close
Set TempRec = Nothing
SqlStr = "SELECT DISTINCT dir,Name FROM Department ORDER BY Dir "
Set NowBmRec = New ADODB.Recordset
NowBmRec.Open SqlStr, GlobalCon, adOpenDynamic, adLockReadOnly
If NowBmRec.EOF Then
tvTreeView.Nodes.Clear
MsgBox LoadResString(352), vbInformation, LoadResString(353)
Set TempNode = tvTreeView.Nodes.Add(, , Trim$("KEY" + "000"), Trim$(TempIncName), "main") ' 创建第一个节点。
NowBmRec.Close
Set NowBmRec = Nothing
MsgBar App.ProductName + Trim$(Str(App.Major) + Trim$(".") + Trim$(Str(App.Minor))) + " " + LoadResString(342)
Screen.MousePointer = 0
Exit Sub
End If
tvTreeView.Nodes.Clear
Set TempNode = tvTreeView.Nodes.Add(, , Trim$("KEY" + "000"), Trim$(TempIncName), "main") ' 创建第一个节点。
TempNode.Expanded = True
NowNodeKey = Trim$(TempNode.Key)
Do Until NowBmRec.EOF
If Len(Trim$(NowBmRec!Dir)) = 3 Then
Set TempNode = tvTreeView.Nodes.Add(NowNodeKey, tvwChild, Trim$("KEY" + Trim$(NowBmRec!Dir)), Trim$(NowBmRec!Name), "closed") ' 创建第一个节点。
End If
If Not IsNull(NowBmRec!Dir) Then
If NowUser.DepartDir = Trim$(NowBmRec!Dir) Then
NowBmSelect = tvTreeView.Nodes.Count
End If
End If
NowBmRec.MoveNext
Loop
MsgBar App.ProductName + Trim$(Str(App.Major) + Trim$(".") + Trim$(Str(App.Minor))) + " " + LoadResString(342)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -