📄 单位批量输入.frm
字号:
Left = 2670
TabIndex = 8
Top = 720
Width = 1065
End
Begin VB.CommandButton cmdSel
Caption = "<<批消"
Enabled = 0 'False
Height = 315
Index = 3
Left = 2670
TabIndex = 7
Top = 1980
Width = 1065
End
Begin VB.CommandButton cmdSel
Caption = "单选→"
Enabled = 0 'False
Height = 315
Index = 1
Left = 2670
TabIndex = 6
Top = 1140
Width = 1065
End
Begin VB.CommandButton cmdSel
Caption = "←单消"
Enabled = 0 'False
Height = 315
Index = 2
Left = 2670
TabIndex = 5
Top = 1560
Width = 1065
End
Begin ComctlLib.ListView lvUnSel
Height = 2505
Index = 0
Left = 0
TabIndex = 9
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 = 1764
EndProperty
BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
SubItemIndex = 1
Key = ""
Object.Tag = ""
Text = "名称"
Object.Width = 2540
EndProperty
End
Begin ComctlLib.ListView lvSel
Height = 2505
Index = 0
Left = 3900
TabIndex = 10
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 = 1764
EndProperty
BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
SubItemIndex = 1
Key = ""
Object.Tag = ""
Text = "名称"
Object.Width = 2540
EndProperty
End
End
Begin ComctlLib.TabStrip TabStrip1
Height = 3285
Left = 90
TabIndex = 3
Top = 180
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 VB.CommandButton Command6
Caption = "←存盘"
Height = 315
Left = 7170
TabIndex = 2
Top = 3780
Width = 1275
End
Begin VB.Frame Frame1
Height = 5130
Left = 6960
TabIndex = 1
Top = 360
Width = 30
End
Begin VB.CommandButton Command5
Caption = "引入↓"
Height = 315
Left = 7170
TabIndex = 0
Top = 3300
Width = 1275
End
Begin ComctlLib.TreeView tvUnSel
Height = 1725
Left = 3480
TabIndex = 12
Top = 3780
Width = 3375
_ExtentX = 5953
_ExtentY = 3043
_Version = 327682
Indentation = 354
LabelEdit = 1
LineStyle = 1
Style = 7
ImageList = "ImageList1"
Appearance = 1
End
Begin ComctlLib.ImageList ImageList1
Left = 7740
Top = 2400
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
Begin VB.Label Label2
BorderStyle = 1 'Fixed Single
Caption = "待输入的开户单位"
Height = 300
Left = 3480
TabIndex = 15
Top = 3480
Width = 3375
End
Begin VB.Label Label1
BorderStyle = 1 'Fixed Single
Caption = "已设置的开户单位"
Height = 300
Left = 90
TabIndex = 14
Top = 3480
Width = 3315
End
End
Attribute VB_Name = "frmEntImport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 开户单位引入
'作者: 魏小黎
Option Explicit
Dim OldIndex As Integer
Dim drag As Boolean
Dim startx As Single, endx As Single
Dim 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 lvUnSel(OldIndex - 1).ListItems.Count
ListView_AddItem lvSel(OldIndex - 1), lvUnSel(OldIndex - 1).ListItems(i).Text, lvUnSel(OldIndex - 1).ListItems(i).SubItems(1)
Next i
lvUnSel(OldIndex - 1).ListItems.Clear
set_lvunsel_null_true OldIndex - 1
set_lvsel_null_false OldIndex - 1
' cmdSel((OldIndex - 1) * 4).Enabled = False
' cmdSel((OldIndex - 1) * 4 + 1).Enabled = False
' cmdSel((OldIndex - 1) * 4 + 2).Enabled = True
' cmdSel((OldIndex - 1) * 4 + 3).Enabled = True
Case 1
If lvUnSel(OldIndex - 1).ListItems.Count <= 0 Then
Else
ListView_AddItem lvSel(OldIndex - 1), lvUnSel(OldIndex - 1).SelectedItem.Text, lvUnSel(OldIndex - 1).SelectedItem.SubItems(1)
k = lvUnSel(OldIndex - 1).SelectedItem.Index
'If k = lvUnSel(OldIndex - 1).ListItems.Count Then k = k - 1
lvUnSel(OldIndex - 1).ListItems.Remove (k)
'lvUnSel(OldIndex - 1).SelectedItem.Selected = True
'lvUnSel(OldIndex - 1).SelectedItem.EnsureVisible
End If
If lvUnSel(OldIndex - 1).ListItems.Count <= 0 Then
set_lvunsel_null_true OldIndex - 1
' cmdSel((OldIndex - 1) * 4 + 0).Enabled = False
' cmdSel((OldIndex - 1) * 4 + 1).Enabled = False
End If
If lvSel(OldIndex - 1).ListItems.Count > 0 Then
set_lvsel_null_false OldIndex - 1
' cmdSel((OldIndex - 1) * 4 + 2).Enabled = True
' cmdSel((OldIndex - 1) * 4 + 3).Enabled = True
End If
Case 2
If lvSel(OldIndex - 1).ListItems.Count <= 0 Then
Else
ListView_AddItem lvUnSel(OldIndex - 1), lvSel(OldIndex - 1).SelectedItem.Text, lvSel(OldIndex - 1).SelectedItem.SubItems(1)
k = lvSel(OldIndex - 1).SelectedItem.Index
'If k = lvUnSel(OldIndex - 1).ListItems.Count Then k = k - 1
lvSel(OldIndex - 1).ListItems.Remove (k)
'lvUnSel(OldIndex - 1).SelectedItem.Selected = True
'lvUnSel(OldIndex - 1).SelectedItem.EnsureVisible
End If
If lvSel(OldIndex - 1).ListItems.Count <= 0 Then
set_lvsel_null_true OldIndex - 1
End If
If lvUnSel(OldIndex - 1).ListItems.Count > 0 Then
set_lvunsel_null_false OldIndex - 1
End If
Case 3
'lvunsel.Clear
For i = 1 To lvSel(OldIndex - 1).ListItems.Count
ListView_AddItem lvUnSel(OldIndex - 1), lvSel(OldIndex - 1).ListItems(i).Text, lvSel(OldIndex - 1).ListItems(i).SubItems(1)
'lvUnSel.AddItem lvSel.List(i)
Next i
lvSel(OldIndex - 1).ListItems.Clear
set_lvunsel_null_false OldIndex - 1
set_lvsel_null_true OldIndex - 1
' cmdSel((OldIndex - 1) * 4 + 2).Enabled = False
' cmdSel((OldIndex - 1) * 4 + 3).Enabled = False
' cmdSel((OldIndex - 1) * 4 + 0).Enabled = True
' cmdSel((OldIndex - 1) * 4 + 1).Enabled = True
End Select
End Sub
Private Sub Command10_Click()
Dim i As Long 'Cuidong 2000/10/27
GenClear tvUnSel
Tree_Initialize tvSel
Tree_Initialize tvUnSel
load_data tvSel
'清空待输入项 'Cuidong 2000/10/27
On Error Resume Next 'Cuidong 2000/10/27
For i = lvUnSel.LBound To lvUnSel.UBound 'Cuidong 2000/10/27
lvUnSel(i).ListItems.Clear 'Cuidong 2000/10/27
Next i 'Cuidong 2000/10/27
For i = lvSel.LBound To lvSel.UBound 'Cuidong 2000/10/27
lvSel(i).ListItems.Clear 'Cuidong 2000/10/27
Next i 'Cuidong 2000/10/27
End Sub
Private Sub Command5_Click()
GenYr
End Sub
Private Sub Command6_Click()
GenSave
End Sub
Private Sub Command7_Click()
SendKeys "{F1}"
End Sub
Private Sub Command8_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Icon = LoadResPicture(109, vbResIcon)
JackSize_Initialize
BackPic_Initialize
ImageList_Initialize ImageList1
Tree_Initialize tvSel
Tree_Initialize tvUnSel
load_data tvSel
End Sub
Private Sub BackPic_Initialize()
Dim i
For i = 0 To 5
bk(i).Move 210, 720
Next i
OldIndex = 1
End Sub
Private Sub Tree_Initialize(trv As TreeView)
Dim nodx As Node
trv.Nodes.Clear
Set nodx = trv.Nodes.Add(, , "p", "个人", "tree", "seltree")
Set nodx = trv.Nodes.Add(, , "d", "部门", "tree", "seltree")
Set nodx = trv.Nodes.Add(, , "b", "银行", "tree", "seltree")
Set nodx = trv.Nodes.Add(, , "c", "客户", "tree", "seltree")
Set nodx = trv.Nodes.Add(, , "s", "供应商", "tree", "seltree")
Set nodx = trv.Nodes.Add(, , "i", "项目", "tree", "seltree")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -