?? 利息通知單批打印.frm
字號:
VERSION 5.00
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Begin VB.Form frmPprn
BorderStyle = 4 'Fixed ToolWindow
Caption = "批打印"
ClientHeight = 5745
ClientLeft = 45
ClientTop = 270
ClientWidth = 4695
HelpContextID = 88000074
Icon = "利息通知單批打印.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5745
ScaleWidth = 4695
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command2
Height = 360
Index = 1
Left = 3270
Style = 1 'Graphical
TabIndex = 23
Top = 5265
Width = 1080
End
Begin VB.CommandButton Command2
Default = -1 'True
Height = 360
Index = 0
Left = 1905
Style = 1 'Graphical
TabIndex = 22
Top = 5265
Width = 1080
End
Begin VB.CommandButton Command1
Caption = "<"
Height = 300
Index = 7
Left = 2115
TabIndex = 11
Top = 4755
Width = 480
End
Begin VB.CommandButton Command1
Caption = ">"
Height = 300
Index = 6
Left = 2115
TabIndex = 10
Top = 4305
Width = 480
End
Begin VB.CommandButton Command1
Caption = "<<<"
Height = 300
Index = 5
Left = 2115
TabIndex = 9
Top = 3870
Width = 480
End
Begin VB.CommandButton Command1
Caption = ">>>"
Height = 300
Index = 4
Left = 2115
TabIndex = 8
Top = 3420
Width = 480
End
Begin VB.CommandButton Command1
Caption = "<"
Height = 300
Index = 3
Left = 2115
TabIndex = 7
Top = 2370
Width = 480
End
Begin VB.CommandButton Command1
Caption = ">"
Height = 300
Index = 2
Left = 2115
TabIndex = 6
Top = 1935
Width = 480
End
Begin VB.CommandButton Command1
Caption = "<<<"
Height = 300
Index = 1
Left = 2115
TabIndex = 5
Top = 1515
Width = 480
End
Begin VB.CommandButton Command1
Caption = ">>>"
Height = 300
Index = 0
Left = 2115
TabIndex = 4
Top = 1080
Width = 480
End
Begin VB.Frame Frame1
Height = 585
Left = 345
TabIndex = 17
Top = 60
Width = 4020
Begin EDITLib.Edit edtStart
Height = 270
Left = 900
TabIndex = 20
Top = 195
Width = 1035
_Version = 65536
_ExtentX = 1826
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
Locked = -1
End
Begin EDITLib.Edit edtEnd
Height = 270
Left = 2880
TabIndex = 21
Top = 195
Width = 1035
_Version = 65536
_ExtentX = 1826
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
Locked = -1
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "結息日期"
Height = 180
Index = 1
Left = 2055
TabIndex = 19
Top = 240
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "起息日期"
Height = 180
Index = 0
Left = 90
TabIndex = 18
Top = 240
Width = 720
End
End
Begin VB.ListBox List1
Height = 1425
Index = 3
Left = 360
TabIndex = 3
Top = 3375
Width = 1515
End
Begin VB.ListBox List1
Height = 1425
Index = 2
Left = 2835
TabIndex = 2
Top = 3375
Width = 1515
End
Begin VB.ListBox List1
Height = 1425
Index = 1
Left = 2835
TabIndex = 1
Top = 1020
Width = 1515
End
Begin VB.ListBox List1
Height = 1425
Index = 0
Left = 330
TabIndex = 0
Top = 1035
Width = 1515
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "選定賬戶"
Height = 180
Index = 5
Left = 2865
TabIndex = 16
Top = 3075
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "選定單位"
Height = 180
Index = 3
Left = 2865
TabIndex = 15
Top = 735
Width = 720
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Label2"
Height = 15
Left = 225
TabIndex = 14
Top = 2895
Width = 4275
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "打印賬戶選擇"
Height = 180
Index = 4
Left = 345
TabIndex = 13
Top = 3075
Width = 1080
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "打印單位選擇"
Height = 180
Index = 2
Left = 345
TabIndex = 12
Top = 735
Width = 1080
End
End
Attribute VB_Name = "frmPprn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'=======================================
' 軟件著作權: 北京用友軟件（集團）有限公司
' 系統名稱: 資金計息8.0
' 功能說明: 利息通知單批打印
' 作者: 江 寧
'=======================================
Private sUnitName As String
Private iButtonNum As Integer
Private iNum As Integer
Private s As String
Public Event ReturnAccID(blnPrint As Boolean)
Private Sub Command2_Click(Index As Integer)
Select Case Index
Case 0:
' GetAccID
RaiseEvent ReturnAccID(True)
Unload Me
DoEvents
Case 1:
RaiseEvent ReturnAccID(False)
Unload Me
End Select
End Sub
Private Sub Form_Load()
Dim sPre As String
Command2(0).Picture = LoadResPicture(103, vbResBitmap)
Command2(1).Picture = LoadResPicture(104, vbResBitmap)
Me.edtStart = frmtzdPrn.edtStart
Me.edtEnd = frmtzdPrn.edtEnd
AccIDInfo "", List1(0), 0
SelectItem
End Sub
Private Sub Command1_Click(Index As Integer)
Dim sSqltmp As String
Select Case Index
Case 0:
If List1(0).ListCount = 0 Then Exit Sub
iButtonNum = 0
List1(1).Clear
List1(2).Clear
AccIDInfo "", List1(1), 0
AccIDInfo "", List1(2)
List1(0).Clear
Comparelst23
Case 1:
iButtonNum = 1
If List1(1).ListCount > 0 Then
While List1(1).ListCount > 0
List1(1).Selected(0) = True
If List1(1).Selected(List1(1).ListIndex) Then
List1(0).AddItem List1(1).Text
List1(1).RemoveItem List1(1).ListIndex
End If
Wend
End If
List1(2).Clear
List1(3).Clear
Case 2:
iButtonNum = 2
If List1(0).ListCount > 0 Then
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -