📄 利息计算.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Object = "{BA5441C3-11E6-11D2-89E1-000021886118}#8.0#0"; "UFRTPrn.ocx"
Object = "{18F95930-A715-11D1-92AC-A8AE05C10000}#7.0#0"; "UFSize.ocx"
Object = "{7E0DF0CE-703B-11D3-8E57-0000210152D8}#1.0#0"; "UsRefBut.ocx"
Begin VB.Form frmLxjs
Caption = "利息计算"
ClientHeight = 5550
ClientLeft = 1470
ClientTop = 1680
ClientWidth = 9180
HelpContextID = 88000056
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 5550
ScaleWidth = 9180
WindowState = 2 'Maximized
Begin ComctlLib.Toolbar tlb
Align = 1 'Align Top
Height = 600
Left = 0
TabIndex = 9
Top = 0
Width = 9180
_ExtentX = 16193
_ExtentY = 1058
ButtonWidth = 820
ButtonHeight = 953
AllowCustomize = 0 'False
ImageList = "ImageList1"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 10
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "打印"
Key = "Print"
Description = "打印"
Object.ToolTipText = "打印"
Object.Tag = ""
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Preview"
Description = "预览"
Object.ToolTipText = "预览"
Object.Tag = ""
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Dataout"
Description = "数据输出"
Object.ToolTipText = "数据输出"
Object.Tag = ""
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "lxjs"
Object.ToolTipText = "利息计算"
Object.Tag = ""
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "save"
Object.ToolTipText = "存盘"
Object.Tag = ""
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "bill"
Object.Tag = ""
EndProperty
BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "help"
Object.ToolTipText = "帮助"
Object.Tag = ""
EndProperty
BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "exit"
Object.ToolTipText = "退出"
Object.Tag = ""
EndProperty
EndProperty
Begin RTPrnLib.RTPrn RTPrn1
Left = 4815
Top = 375
_Version = 524288
_ExtentX = 767
_ExtentY = 106
_StockProps = 4
m_lngrtpFitRows = 30
End
End
Begin JackSize.JackResize Resize1
Height = 30
Left = 15
TabIndex = 20
Top = 2760
Width = 9090
_ExtentX = 16034
_ExtentY = 53
End
Begin MSFlexGridLib.MSFlexGrid grid
Height = 2745
Left = 0
TabIndex = 19
Top = 2820
Width = 9180
_ExtentX = 16193
_ExtentY = 4842
_Version = 393216
RowHeightMin = 260
SelectionMode = 1
AllowUserResizing= 3
End
Begin VB.Frame Frame1
Caption = "请输入要计算的内容"
Height = 2085
Left = 0
TabIndex = 8
Top = 690
Width = 9180
Begin VB.CommandButton Command2
Caption = "预提利息"
Height = 300
Index = 1
Left = 5730
TabIndex = 23
Top = 1537
Width = 1155
End
Begin UsRefBut.RefCmd RefCmd1
Height = 270
Index = 1
Left = 4890
TabIndex = 22
Top = 1140
Width = 270
_ExtentX = 476
_ExtentY = 476
RefMode = 1
RefUnitMode = 0
RefAccMode = 0
Enabled = -1 'True
End
Begin UsRefBut.RefCmd RefCmd1
Height = 270
Index = 0
Left = 4890
TabIndex = 21
Top = 750
Width = 270
_ExtentX = 476
_ExtentY = 476
RefMode = 0
RefUnitMode = 1
RefAccMode = 0
Enabled = -1 'True
End
Begin VB.CommandButton cmd3
Height = 270
Left = 4890
Style = 1 'Graphical
TabIndex = 18
Top = 1530
Visible = 0 'False
Width = 270
End
Begin VB.TextBox edid
BackColor = &H00FFFFFF&
Height = 300
Index = 1
Left = 3780
MaxLength = 8
TabIndex = 6
Top = 1537
Width = 1065
End
Begin VB.TextBox edid
BackColor = &H00FFFFFF&
Height = 300
Index = 0
Left = 2490
MaxLength = 8
TabIndex = 5
Top = 1537
Width = 1065
End
Begin VB.ComboBox cobtype
BackColor = &H00FFFFFF&
Height = 300
Left = 1140
Style = 2 'Dropdown List
TabIndex = 4
Top = 1537
Width = 1275
End
Begin VB.CommandButton Command2
Caption = "利息计算"
Default = -1 'True
Height = 300
Index = 0
Left = 5730
TabIndex = 7
Top = 1140
Width = 1155
End
Begin VB.CommandButton cmd2
Height = 270
Left = 4890
Style = 1 'Graphical
TabIndex = 13
Top = 360
Width = 270
End
Begin VB.CommandButton cmd1
Height = 270
Left = 2670
Style = 1 'Graphical
TabIndex = 11
Top = 360
Width = 270
End
Begin EDITLib.Edit edSdate
Height = 270
Left = 1140
TabIndex = 0
Top = 360
Width = 1485
_Version = 65536
_ExtentX = 2619
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
End
Begin EDITLib.Edit edEDate
Height = 270
Left = 3420
TabIndex = 1
Top = 360
Width = 1425
_Version = 65536
_ExtentX = 2514
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
End
Begin EDITLib.Edit edAccCode
Height = 270
Left = 1140
TabIndex = 3
Top = 1140
Width = 3705
_Version = 65536
_ExtentX = 6535
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
MaxLength = 60
BadStr = "|'"""
End
Begin EDITLib.Edit edUnitName
Height = 270
Left = 1140
TabIndex = 2
Top = 750
Width = 3705
_Version = 65536
_ExtentX = 6535
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
BadStr = "|'"""
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "—"
Height = 180
Index = 1
Left = 3600
TabIndex = 17
Top = 1575
Width = 180
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "业务编号"
Height = 180
Index = 3
Left = 270
TabIndex = 16
Top = 1582
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "账户号"
Height = 180
Index = 2
Left = 300
TabIndex = 15
Top = 1185
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "单位名称"
Height = 180
Index = 1
Left = 270
TabIndex = 14
Top = 795
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "—"
Height = 180
Index = 0
Left = 3120
TabIndex = 12
Top = 405
Width = 180
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "计息时间"
Height = 180
Index = 0
Left = 270
TabIndex = 10
Top = 405
Width = 720
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -