📄 单位批量引入.frm
字号:
Visible = 0 'False
Width = 6405
Begin VB.CommandButton cmdInput
Caption = "数据引入"
Height = 315
Index = 5
Left = 2670
TabIndex = 5
Top = 210
Width = 1065
End
Begin VB.CommandButton cmdSel
Caption = "多选>>"
Enabled = 0 'False
Height = 315
Index = 20
Left = 2670
TabIndex = 4
Top = 720
Width = 1065
End
Begin VB.CommandButton cmdSel
Caption = "<<批消"
Enabled = 0 'False
Height = 315
Index = 23
Left = 2670
TabIndex = 3
Top = 1980
Width = 1065
End
Begin VB.CommandButton cmdSel
Caption = "单选→"
Enabled = 0 'False
Height = 315
Index = 21
Left = 2670
TabIndex = 2
Top = 1140
Width = 1065
End
Begin VB.CommandButton cmdSel
Caption = "←单消"
Enabled = 0 'False
Height = 315
Index = 22
Left = 2670
TabIndex = 1
Top = 1560
Width = 1065
End
Begin ComctlLib.ListView lvwUnSel
Height = 2505
Index = 5
Left = 0
TabIndex = 6
Top = 0
Width = 2475
_ExtentX = 4366
_ExtentY = 4419
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 327682
Icons = "ImageList1"
SmallIcons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 2
BeginProperty ColumnHeader(1) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Text = "编码"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
SubItemIndex = 1
Key = ""
Object.Tag = ""
Text = "名称"
Object.Width = 2540
EndProperty
End
Begin ComctlLib.ListView lvwSel
Height = 2505
Index = 5
Left = 3900
TabIndex = 7
Top = 0
Width = 2475
_ExtentX = 4366
_ExtentY = 4419
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 327682
Icons = "ImageList1"
SmallIcons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 2
BeginProperty ColumnHeader(1) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Text = "编码"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
SubItemIndex = 1
Key = ""
Object.Tag = ""
Text = "名称"
Object.Width = 2540
EndProperty
End
End
Begin JackSize.JackResize jkrTree
Height = 2025
Left = 3435
TabIndex = 40
Top = 3420
Width = 60
_ExtentX = 106
_ExtentY = 3572
BackColor = -2147483637
BackColor = -2147483637
End
Begin ComctlLib.TabStrip tabImport
Height = 3285
Left = 120
TabIndex = 48
Top = 120
Width = 6765
_ExtentX = 11933
_ExtentY = 5794
_Version = 327682
BeginProperty Tabs {0713E432-850A-101B-AFC0-4210102A8DA7}
NumTabs = 6
BeginProperty Tab1 {0713F341-850A-101B-AFC0-4210102A8DA7}
Caption = "个人"
Key = "p"
Object.Tag = ""
ImageVarType = 2
EndProperty
BeginProperty Tab2 {0713F341-850A-101B-AFC0-4210102A8DA7}
Caption = "部门"
Key = "d"
Object.Tag = ""
ImageVarType = 2
EndProperty
BeginProperty Tab3 {0713F341-850A-101B-AFC0-4210102A8DA7}
Caption = "银行"
Key = "b"
Object.Tag = ""
ImageVarType = 2
EndProperty
BeginProperty Tab4 {0713F341-850A-101B-AFC0-4210102A8DA7}
Caption = "客户"
Key = "c"
Object.Tag = ""
ImageVarType = 2
EndProperty
BeginProperty Tab5 {0713F341-850A-101B-AFC0-4210102A8DA7}
Caption = "供应商"
Key = "s"
Object.Tag = ""
ImageVarType = 2
EndProperty
BeginProperty Tab6 {0713F341-850A-101B-AFC0-4210102A8DA7}
Caption = "项目"
Key = "i"
Object.Tag = ""
ImageVarType = 2
EndProperty
EndProperty
End
Begin MSComctlLib.TreeView treSel
Height = 1725
Left = 120
TabIndex = 57
Top = 3720
Width = 3315
_ExtentX = 5847
_ExtentY = 3043
_Version = 393217
HideSelection = 0 'False
Indentation = 529
Style = 7
HotTracking = -1 'True
ImageList = "ilsTlb"
Appearance = 1
OLEDropMode = 1
End
Begin MSComctlLib.TreeView treUnSel
Height = 1725
Left = 3510
TabIndex = 58
Top = 3720
Width = 3375
_ExtentX = 5953
_ExtentY = 3043
_Version = 393217
HideSelection = 0 'False
Indentation = 529
Style = 7
HotTracking = -1 'True
ImageList = "ilsTlb"
Appearance = 1
OLEDropMode = 1
End
Begin MSComctlLib.ImageList ilsTlb
Left = 7200
Top = 2520
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 3
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单位批量引入.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单位批量引入.frx":0452
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单位批量引入.frx":08A4
Key = ""
EndProperty
EndProperty
End
Begin VB.Label lblExist
BorderStyle = 1 'Fixed Single
Caption = "已设置的开户单位"
Height = 300
Left = 120
TabIndex = 56
Top = 3420
Width = 3315
End
Begin VB.Label lblInput
BorderStyle = 1 'Fixed Single
Caption = "待输入的开户单位"
Height = 300
Left = 3510
TabIndex = 55
Top = 3420
Width = 3375
End
End
Attribute VB_Name = "frmAccUnitImport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'--------------------------------
'时间:2001.12.26
'版权:北京用友软件股份有限公司
'界面:魏小黎
'编码:魏小黎、章景峰(8.30)
'说明:U8资金管理---单位引入
'--------------------------------
Option Explicit
Private Const m_conBIStyle As Long = 9
Private CurrentTab As Integer
Private drag As Boolean
Private StartX As Single, EndX As Single
Private minLeft As Single, maxLeft As Single
Private Sub cmdInput_Click(Index As Integer)
DataInput Index
End Sub
Private Sub cmdSel_Click(Index As Integer)
Dim i
Dim k
Select Case Index Mod 4
Case 0
'lvsel.Clear
For i = 1 To lvwUnSel(CurrentTab).ListItems.Count
ListView_AddItem lvwSel(CurrentTab), lvwUnSel(CurrentTab).ListItems(i).Text, lvwUnSel(CurrentTab).ListItems(i).SubItems(1)
Next i
lvwUnSel(CurrentTab).ListItems.Clear
Set_lvwUnSel_Null_True CurrentTab
Set_lvwSel_Null_False CurrentTab
' cmdSel((CurrentTab) * 4).Enabled = False
' cmdSel((CurrentTab) * 4 + 1).Enabled = False
' cmdSel((CurrentTab) * 4 + 2).Enabled = True
' cmdSel((CurrentTab) * 4 + 3).Enabled = True
Case 1
If lvwUnSel(CurrentTab).ListItems.Count <= 0 Then
Else
ListView_AddItem lvwSel(CurrentTab), lvwUnSel(CurrentTab).SelectedItem.Text, lvwUnSel(CurrentTab).SelectedItem.SubItems(1)
k = lvwUnSel(CurrentTab).SelectedItem.Index
'If k = lvwUnSel(CurrentTab).ListItems.Count Then k = k - 1
lvwUnSel(CurrentTab).ListItems.Remove (k)
'lvwUnSel(CurrentTab).SelectedItem.Selected = True
'lvwUnSel(CurrentTab).SelectedItem.EnsureVisible
End If
If lvwUnSel(CurrentTab).ListItems.Count <= 0 Then
Set_lvwUnSel_Null_True CurrentTab
' cmdSel((CurrentTab) * 4 + 0).Enabled = False
' cmdSel((CurrentTab) * 4 + 1).Enabled = False
End If
If lvwSel(CurrentTab).ListItems.Count > 0 Then
Set_lvwSel_Null_False CurrentTab
' cmdSel((CurrentTab) * 4 + 2).Enabled = True
' cmdSel((CurrentTab) * 4 + 3).Enabled = True
End If
Case 2
If lvwSel(CurrentTab).ListItems.Count <= 0 Then
Else
ListView_AddItem lvwUnSel(CurrentTab), lvwSel(CurrentTab).SelectedItem.Text, lvwSel(CurrentTab).SelectedItem.SubItems(1)
k = lvwSel(CurrentTab).SelectedItem.Index
'If k = lvwUnSel(CurrentTab).ListItems.Count Then k = k - 1
lvwSel(CurrentTab).ListItems.Remove (k)
'lvwUnSel(CurrentTab).SelectedItem.Selected = True
'lvwUnSel(CurrentTab).SelectedItem.EnsureVisible
End If
If lvwSel(CurrentTab).ListItems.Count <= 0 Then
Set_lvwSel_Null_True CurrentTab
End If
If lvwUnSel(CurrentTab).ListItems.Count > 0 Then
Set_lvwUnSel_Null_False CurrentTab
End If
Case 3
'lvunsel.Clear
For i = 1 To lvwSel(CurrentTab).ListItems.Count
ListView_AddItem lvwUnSel(CurrentTab), lvwSel(CurrentTab).ListItems(i).Text, lvwSel(CurrentTab).ListItems(i).SubItems(1)
'lvwUnSel.AddItem lvwSel.List(i)
Next i
lvwSel(CurrentTab).ListItems.Clear
Set_lvwUnSel_Null_False CurrentTab
Set_lvwSel_Null_True CurrentTab
' cmdSel((CurrentTab) * 4 + 2).Enabled = False
' cmdSel((CurrentTab) * 4 + 3).Enabled = False
' cmdSel((CurrentTab) * 4 + 0).Enabled = True
' cmdSel((CurrentTab) * 4 + 1).Enabled = True
End Select
End Sub
Private Sub cmdClear_Click()
Dim i As Long
On Error Resume Next
Clear treUnSel
' For i = lvwUnSel.LBound To lvwUnSel.UBound
' lvwUnSel(i).ListItems.Clear
' Next i
' For i = lvwSel.LBound To lvwSel.UBound
' lvwSel(i).ListItems.Clear
' Next i
End Sub
Private Sub cmdImport_Click()
BeginImport
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -