📄 通知单打印.frm
字号:
X1 = 0
X2 = 8085
Y1 = 2160
Y2 = 2160
End
Begin VB.Line Line1
Index = 3
X1 = 0
X2 = 8085
Y1 = 2130
Y2 = 2130
End
Begin VB.Line Line1
Index = 2
X1 = 0
X2 = 8085
Y1 = 1635
Y2 = 1635
End
Begin VB.Line Line1
Index = 1
X1 = 0
X2 = 8085
Y1 = 825
Y2 = 825
End
Begin VB.Line Line1
Index = 0
X1 = 0
X2 = 8085
Y1 = 420
Y2 = 420
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "备 注"
Height = 225
Index = 8
Left = 675
TabIndex = 12
Top = 1740
Width = 540
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "利率情况"
Height = 180
Index = 7
Left = 495
TabIndex = 11
Top = 945
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "利 息"
Height = 180
Index = 6
Left = 3435
TabIndex = 10
Top = 555
Width = 450
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "积 数"
Height = 180
Index = 5
Left = 675
TabIndex = 9
Top = 555
Width = 540
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "天 数"
Height = 180
Index = 4
Left = 5655
TabIndex = 8
Top = 120
Width = 450
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "结息日期"
Height = 180
Index = 3
Left = 3165
TabIndex = 7
Top = 120
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "起息日期"
Height = 180
Index = 2
Left = 495
TabIndex = 6
Top = 120
Width = 720
End
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "制单:"
Height = 180
Index = 11
Left = 5970
TabIndex = 15
Top = 3060
Width = 450
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "复核:"
Height = 180
Index = 10
Left = 3345
TabIndex = 14
Top = 3060
Width = 450
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "财务处章"
Height = 180
Index = 9
Left = 480
TabIndex = 13
Top = 3060
Width = 735
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "账户号:"
Height = 180
Index = 1
Left = 4470
TabIndex = 5
Top = 210
Width = 630
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "账户名称:"
Height = 180
Index = 0
Left = 315
TabIndex = 4
Top = 210
Width = 810
End
Begin VB.Shape Shape1
Height = 2370
Index = 1
Left = 180
Top = 555
Width = 8175
End
Begin VB.Shape Shape1
Height = 2460
Index = 0
Left = 135
Top = 510
Width = 8265
End
End
Begin RTPrnLib.RTPrn RTPrn1
Left = 6225
Top = 735
_Version = 524288
_ExtentX = 979
_ExtentY = 767
_StockProps = 4
m_lngrtpFitRows = 30
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "利息通知单"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 240
Left = 3645
TabIndex = 1
Top = 825
Width = 1290
End
Begin ComctlLib.ImageList ImageList1
Left = 6855
Top = 660
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
End
Attribute VB_Name = "frmtzdPrn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'******************************************************
'* 软件著作权: 北京用友软件（集团）有限公司
'* 系统名称: 资金计息8.0
'* 功能说明: 利息通知单
'* 作者: 江 宁
'******************************************************
Public rstLXadv As New UfRecordset
Private rstLLDM As New UfRecordset
Private rstTemp As New UfRecordset
Private sRate1 As String
Private sRate2 As String
Private sRate3 As String
Private sRate4 As String
Private sSQL As String
Private sLLmx As String
Private bF As Boolean
Private bL As Boolean
Private bSave As Boolean
Public sDateStart As String
Public sDateEnd As String
Public sDW As String
Public sZH As String
Public sSql1 As String
Public sSql2 As String
Private prnAccID As String
Private blnPrn As Boolean
Private WithEvents tzdPrns As frmPprn
Attribute tzdPrns.VB_VarHelpID = -1
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
Me.MousePointer = vbHourglass
Me.Icon = LoadResPicture(109, vbResIcon)
Me.WindowState = vbNormal
Me.MousePointer = vbDefault
REPTlb Toolbar1, ImageList1
IniSQL
FrmRefresh
End Sub
Private Sub Form_Unload(Cancel As Integer)
If bSave Then SaveYN
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
Gen_Key Button.key
End Sub
'********************************************************************
'*函数说明: 设置Button状态 *
'*参 数: *
'* *
'*返回值 : *
'*********************************************************************
Private Sub SetButtonStatus()
Dim i As Integer
Dim vPos As Variant
Dim iRecordCount As Integer
iRecordCount = rstLXadv.RecordCount
With Toolbar1
If iRecordCount = 0 Then '无记录
For i = 1 To 14
.Buttons(i).Enabled = False
.Buttons("Seek").Enabled = True
Next i
ReSetForm
Else
.Buttons("Set").Enabled = True
.Buttons("Print").Enabled = True
.Buttons("Preview").Enabled = True
.Buttons("BatchPrn").Enabled = True
.Buttons("Seek").Enabled = True
.Buttons("Modify").Enabled = True
.Buttons("Save").Enabled = True
.Buttons("PriorPage").Enabled = True
.Buttons("NextPage").Enabled = True
.Buttons("FirstPage").Enabled = True
.Buttons("LastPage").Enabled = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -