📄
字号:
VERSION 5.00
Begin VB.Form frmRdzdPrns
BorderStyle = 1 'Fixed Single
Caption = "对账单批打印"
ClientHeight = 4380
ClientLeft = 3960
ClientTop = 1485
ClientWidth = 7125
Icon = "对帐单批打印.frx":0000
LinkTopic = "Form2"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4380
ScaleWidth = 7125
Begin VB.CheckBox Chk_Continue
Caption = "续打"
Height = 195
Left = 3960
TabIndex = 14
Top = 3390
Value = 1 'Checked
Width = 1395
End
Begin VB.CheckBox Check1
Caption = "月末打印"
Height = 195
Left = 5430
TabIndex = 13
Top = 3390
Width = 1395
End
Begin VB.Frame Frame1
Height = 30
Index = 0
Left = 0
TabIndex = 11
Top = 3690
Width = 7095
End
Begin VB.CommandButton Command2
Default = -1 'True
Height = 365
Index = 0
Left = 4500
Style = 1 'Graphical
TabIndex = 10
Top = 3870
Width = 1080
End
Begin VB.CommandButton Command2
Cancel = -1 'True
Height = 365
Index = 1
Left = 5760
Style = 1 'Graphical
TabIndex = 9
Top = 3870
Width = 1080
End
Begin VB.Frame Frame1
Height = 2850
Index = 1
Left = 270
TabIndex = 0
Top = 420
Width = 6585
Begin VB.ListBox List1
Height = 2040
ItemData = "对帐单批打印.frx":000C
Left = 240
List = "对帐单批打印.frx":000E
Sorted = -1 'True
TabIndex = 6
Top = 480
Width = 2655
End
Begin VB.ListBox List2
Height = 2040
ItemData = "对帐单批打印.frx":0010
Left = 3690
List = "对帐单批打印.frx":0012
Sorted = -1 'True
TabIndex = 5
Top = 480
Width = 2655
End
Begin VB.CommandButton Command1
Caption = ">>"
Height = 285
Index = 0
Left = 3090
TabIndex = 4
Top = 600
Width = 405
End
Begin VB.CommandButton Command1
Caption = ">"
Height = 285
Index = 1
Left = 3090
TabIndex = 3
Top = 1095
Width = 405
End
Begin VB.CommandButton Command1
Caption = "<"
Height = 285
Index = 2
Left = 3090
TabIndex = 2
Top = 1575
Width = 405
End
Begin VB.CommandButton Command1
Caption = "<<"
Height = 285
Index = 3
Left = 3090
TabIndex = 1
Top = 2070
Width = 405
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "待选账户"
Height = 180
Index = 1
Left = 390
TabIndex = 8
Top = 240
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "选定账户"
Height = 180
Index = 2
Left = 3870
TabIndex = 7
Top = 240
Width = 720
End
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "请选择进行打印操作的账户："
Height = 180
Index = 0
Left = 480
TabIndex = 12
Top = 150
Width = 2340
End
End
Attribute VB_Name = "frmRdzdPrns"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金计息8.0
'功能说明: 对账单批打印界面
'作者: 赵春立
Option Explicit
'Public Event ReturnAccID(blnPrint As Boolean, blnMonthEnd As Boolean) 'cuidong 2001.09.18
Public Event ReturnAccID(blnPrint As Boolean, blnMonthEnd As Boolean, blnContinue As Boolean) 'cuidong 2001.09.18
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
AllItem List1, List2
Case 1
SingleItem List1, List2
Case 2
SingleItem List2, List1
Case 3
AllItem List2, List1
End Select
End Sub
'********************************************************************
'*函数说明: 将lstFrom中选中的Item移至lstTo中 *
'*参 数: lstFrom : ListBox 控件 *
'* lstTo : ListBox 控件 *
'*返回值 : *
'*********************************************************************
Private Sub SingleItem(lstFrom As ListBox, lstTo As ListBox)
Dim i As Long
lstTo.AddItem lstFrom.List(lstFrom.ListIndex)
If lstTo.ListIndex = -1 Then
lstTo.Selected(0) = True
End If
i = lstFrom.ListIndex
lstFrom.RemoveItem lstFrom.ListIndex
If lstFrom.ListCount <> 0 Then
If i < lstFrom.ListCount Then
lstFrom.Selected(i) = True
Else
lstFrom.Selected(i - 1) = True
End If
End If
If List1.ListCount > 0 Then
stList1
Else
exList1
End If
If List2.ListCount > 0 Then
stList2
Else
exList2
End If
End Sub
'********************************************************************
'*函数说明: 将lstFrom中全部Item移至lstTo中 *
'*参 数: lstFrom : ListBox 控件 *
'* lstTo : ListBox 控件 *
'*返回值 : *
'*********************************************************************
Private Sub AllItem(lstFrom As ListBox, lstTo As ListBox)
Dim i As Long
For i = 0 To lstFrom.ListCount - 1
lstTo.AddItem lstFrom.List(i)
Next i
lstFrom.Clear
If lstTo.ListIndex = -1 Then lstTo.Selected(0) = True
If lstFrom.Name = "List1" Then
exList1
stList2
Else
stList1
exList2
End If
End Sub
Private Sub Command2_Click(Index As Integer)
Select Case Index
Case 0
'RaiseEvent ReturnAccID(True, Check1.Value) 'cuidong 2001.09.18
RaiseEvent ReturnAccID(True, Check1.Value, Chk_Continue.Value) 'cuidong 2001.09.18
Unload Me
DoEvents
Case 1
'RaiseEvent ReturnAccID(False, False) 'cuidong 2001.09.18
RaiseEvent ReturnAccID(False, False, False) 'cuidong 2001.09.18
Unload Me
End Select
End Sub
Private Sub Form_Load()
Dim rsItem As New UfRecordset
LoadStatic
Set rsItem = dbsZJ.OpenRecordset("FD_AccDef", dbOpenTable)
While Not rsItem.EOF
List1.AddItem "[" & rsItem![cAccID] & "] " & rsItem![CAccName]
rsItem.MoveNext
Wend
If List1.ListCount > 0 Then
List1.Selected(0) = True
stList1
Else
exList1
End If
exList2
CenterForm Me
End Sub
Private Sub LoadStatic()
Me.Icon = LoadResPicture(109, vbResIcon)
Command2(0).Picture = LoadResPicture(103, vbResBitmap)
Command2(1).Picture = LoadResPicture(104, vbResBitmap)
End Sub
Private Sub stList1()
Command1(0).Enabled = True
Command1(1).Enabled = True
End Sub
Private Sub exList1()
Command1(0).Enabled = False
Command1(1).Enabled = False
End Sub
Private Sub stList2()
Command1(2).Enabled = True
Command1(3).Enabled = True
Command2(0).Enabled = True
End Sub
Private Sub exList2()
Command1(2).Enabled = False
Command1(3).Enabled = False
Command2(0).Enabled = False
End Sub
Private Sub List1_dblClick()
SingleItem List1, List2
End Sub
Private Sub List2_DblClick()
SingleItem List2, List1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -