📄 frmaccountinterest.frm
字号:
TabIndex = 5
Top = 720
Width = 1080
End
Begin VB.Label lblArr
AutoSize = -1 'True
Caption = "本次计息日期"
Height = 180
Index = 1
Left = 2565
TabIndex = 7
Top = 1185
Width = 1080
End
Begin VB.Label lblArr
AutoSize = -1 'True
Caption = "适用月利率 ‰"
Height = 180
Index = 2
Left = 2730
TabIndex = 9
Top = 1635
Width = 2700
End
End
Begin VB.Frame fraWizard
Height = 3660
Index = 1
Left = -74925
TabIndex = 28
Top = 315
Width = 6915
Begin ListRefer.ListText ltxtAccount
Height = 300
Left = 4050
TabIndex = 16
Top = 1995
Width = 2550
_ExtentX = 4498
_ExtentY = 529
CodeSort = -1 'True
BackColor = -2147483643
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSFlexGridLib.MSFlexGrid msgAcc
Bindings = "frmAccountInterest.frx":021F
Height = 2685
Left = 1470
TabIndex = 15
Top = 885
Width = 5370
_ExtentX = 9472
_ExtentY = 4736
_Version = 393216
Cols = 4
FixedCols = 0
RowHeightMin = 280
FormatString = "选择|本金科目 |借方科目 |贷方科目 "
End
Begin ListRefer.ListText ltxtDebitAccount
Height = 300
Left = 2640
TabIndex = 12
Top = 195
Width = 4125
_ExtentX = 7276
_ExtentY = 529
CodeSort = -1 'True
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ListRefer.ListText ltxtCreditAccount
Height = 300
Left = 2640
TabIndex = 14
Top = 525
Width = 4110
_ExtentX = 7250
_ExtentY = 529
CodeSort = -1 'True
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Image imgWizard
BorderStyle = 1 'Fixed Single
Height = 3390
Index = 1
Left = 90
Stretch = -1 'True
Tag = "140"
Top = 180
Width = 1335
End
Begin VB.Label lblArr
AutoSize = -1 'True
Caption = "借方科目(&L)"
Height = 180
Index = 8
Left = 1590
TabIndex = 11
Top = 285
Width = 990
End
Begin VB.Label lblArr
AutoSize = -1 'True
Caption = "贷方科目(&B)"
Height = 180
Index = 9
Left = 1575
TabIndex = 13
Top = 615
Width = 990
End
End
Begin VB.Frame fraWizard
Height = 3660
Index = 3
Left = -74925
TabIndex = 27
Top = 315
Width = 6900
Begin MSFlexGridLib.MSFlexGrid msgInterest
Height = 3420
Left = 1455
TabIndex = 21
Top = 165
Width = 5370
_ExtentX = 9472
_ExtentY = 6033
_Version = 393216
FixedCols = 0
BackColorBkg = -2147483643
GridColorFixed = -2147483632
SelectionMode = 1
FormatString = "本金科目 |利息 "
End
Begin VB.Image imgWizard
BorderStyle = 1 'Fixed Single
Height = 3390
Index = 3
Left = 90
Stretch = -1 'True
Tag = "140"
Top = 180
Width = 1335
End
End
Begin VB.Frame fraWizard
Height = 3660
Index = 6
Left = -74925
TabIndex = 26
Top = 315
Width = 6900
Begin VB.TextBox txtResult
Height = 3030
Left = 1485
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 24
Top = 540
Width = 5325
End
Begin ListRefer.ListText lstxtRemark
Height = 300
Left = 2550
TabIndex = 23
Top = 180
Width = 4245
_ExtentX = 7488
_ExtentY = 529
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label lblArr
Caption = "凭证摘要(&R)"
Height = 195
Index = 3
Left = 1530
TabIndex = 22
Top = 210
Width = 1005
End
Begin VB.Image imgWizard
BorderStyle = 1 'Fixed Single
Height = 3390
Index = 4
Left = 90
Stretch = -1 'True
Tag = "140"
Top = 180
Width = 1335
End
End
End
End
Attribute VB_Name = "frmAccountInterest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 科目计算利息
' 1998.7.13
' 作者：唐维勇
'
' 过程：
' InitStep 向导每步初始化
' ValidStep 向导每步合法检查
' Execute 向导完成后需执行的操作
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private mintStepNum As Integer '向导总步骤
Private mintStep As Integer '向导当前步骤
Private mblnEnd As Boolean '完成按扭是否有效
Private mblnValid() As Boolean '向导每步是否合法
Private WithEvents mclsGrid As Grid 'Grid对象
Attribute mclsGrid.VB_VarHelpID = -1
Private WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Private VoucherData() As VoucherRecord '凭证结果
Private mlngFormatID As Long
Private mblnRefresh As Boolean
Private Sub Form_Activate()
SetHelpID HelpContextID
gclsSys.CurrFormName = hwnd
mclsMainControl_ChildActive
'进入向导第一步
If Not mblnValid(0) Then
stabWizard.Tab = 0
stabWizard_Click -1
End If
End Sub
Private Sub Form_Load()
Me.HelpContextID = 60016
mlngFormatID = 41
'主控对象
Set mclsMainControl = gclsSys.MainControls.Add(Me)
'向导初始化(包括每步仅需初始一次的部分)
mintStepNum = stabWizard.Tabs - 1
mintStep = -1
mblnEnd = False
ReDim mblnValid(mintStepNum)
End Sub
Private Sub Form_Resize()
If Left < 0 Or Left > Screen.width Then Left = (Screen.width - width) / 2
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If (TypeOf Screen.ActiveControl Is ListText) Then
If Not Screen.ActiveControl.ReferVisible Then
If KeyCode = vbKeyReturn Then
KeyCode = 0
SendKeys "{Tab}", True
End If
End If
ElseIf Not (TypeOf Screen.ActiveControl Is MSFlexGrid) And Not (UCase(Screen.ActiveControl.Name) = "TXTRATE") Then
If KeyCode = vbKeyReturn Then
KeyCode = 0
SendKeys "{Tab}", True
End If
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Set mclsGrid = Nothing
gclsSys.MainControls.Remove Me
Set mclsMainControl = Nothing
'删除科目参照
If Not ltxtAccount.Recordset Is Nothing Then
Utility.RemoveListRecordSet lrtAccount
End If
If Not ltxtDebitAccount.Recordset Is Nothing Then
Utility.RemoveListRecordSet lrtAccount
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -