📄 frmdklx.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Object = "{BA5441C3-11E6-11D2-89E1-000021886118}#8.0#0"; "UFRTPrn.ocx"
Object = "{3733D281-9649-11D2-B757-0080C8883C6B}#1.0#0"; "UFGRIDDB.OCX"
Begin VB.Form frmdklx
ClientHeight = 5445
ClientLeft = 60
ClientTop = 315
ClientWidth = 9180
HelpContextID = 88000071
Icon = "frmdklx.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 5445
ScaleWidth = 9180
Begin ComctlLib.Toolbar Tlbckd
Align = 1 'Align Top
Height = 540
Left = 0
TabIndex = 0
Top = 0
Width = 9180
_ExtentX = 16193
_ExtentY = 953
ButtonWidth = 783
ButtonHeight = 804
AllowCustomize = 0 'False
Wrappable = 0 'False
Appearance = 1
ImageList = "ImageList1"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 8
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "打印"
Key = "Print"
Object.Tag = ""
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Preview"
Object.Tag = ""
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Dataout"
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 = "Recx"
Object.Tag = ""
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Help"
Object.Tag = ""
EndProperty
BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Exit"
Object.Tag = ""
EndProperty
EndProperty
End
Begin UFGRIDADOLib.UfGridADO UfGridADO1
Height = 2172
Left = 240
TabIndex = 7
Top = 1800
Width = 2892
_Version = 65536
_ExtentX = 5101
_ExtentY = 3831
_StockProps = 253
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
Enabled = 0 'False
ForeColor = &H80000008&
Height = 945
Left = 0
ScaleHeight = 915
ScaleWidth = 12030
TabIndex = 1
Top = 610
Width = 12060
Begin VB.Label Label0
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 285
Left = 4005
TabIndex = 6
Top = 300
Width = 180
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H8000000E&
BackStyle = 0 'Transparent
Height = 180
Index = 6
Left = 8895
TabIndex = 5
Top = 675
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H8000000E&
BackStyle = 0 'Transparent
Height = 180
Index = 2
Left = 7695
TabIndex = 4
Top = 675
Width = 90
End
Begin VB.Label Label1
BackColor = &H8000000E&
BorderStyle = 1 'Fixed Single
Height = 240
Index = 3
Left = 855
TabIndex = 3
Top = 650
Width = 1590
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H8000000E&
BackStyle = 0 'Transparent
Height = 180
Index = 0
Left = 75
TabIndex = 2
Top = 675
Width = 90
End
End
Begin RTPrnLib.RTPrn RTPrn1
Left = 5895
Top = 690
_Version = 524288
_ExtentX = 1640
_ExtentY = 741
_StockProps = 4
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
m_lngrtpFitRows = 30
End
Begin ComctlLib.ImageList ImageList1
Left = -15
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
End
Attribute VB_Name = "frmdklx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 查询贷款利息
'作者: 魏小黎
Option Explicit
Public sDate As String
Public eDate As String
Public ywmc As String
Public ywbh As String
Public ywzl As String
Private yhbj As Double, dqjs As Double, dkbj As Double, jsts As Long
Public Sub cmdExcute_Click()
InitForm False
End Sub
Public Sub cmdRefresh_Click()
UfGridADO1.Refresh
End Sub
Private Sub Form_Load()
On Error Resume Next
Screen.MousePointer = vbHourglass
UfGridADO1.top = Tlbckd.Height + Picture1.Height + 50
UfGridADO1.left = 0
'zycGui
UfGridADO1.Redraw = False
UfGridADO1.FixedCols = 0
UfGridADO1.Cols = 10
UfGridADO1.ColWidth(0) = 950
UfGridADO1.ColWidth(1) = 950
UfGridADO1.ColWidth(2) = 950
UfGridADO1.ColWidth(3) = 1610
UfGridADO1.ColWidth(4) = 600
UfGridADO1.ColWidth(5) = 450
UfGridADO1.ColWidth(6) = 1610
UfGridADO1.ColWidth(7) = 1610
UfGridADO1.ColWidth(8) = 1610
UfGridADO1.ColWidth(9) = 1610
UfGridADO1.Rows = 2
UfGridADO1.FixedRows = 2
With Me.UfGridADO1
.TextMatrix(0, 0) = "日期"
.JoinCells 0, 0, 1, 0, True
.ColAlignment(0) = UG_ALIGNCENTER
.TextMatrix(0, 1) = "开始日期"
.JoinCells 0, 1, 1, 1, True
.ColAlignment(1) = UG_ALIGNCENTER
.TextMatrix(0, 2) = "结束日期"
.JoinCells 0, 2, 1, 2, True
.ColAlignment(2) = UG_ALIGNCENTER
.TextMatrix(0, 3) = "本金余额"
.JoinCells 0, 3, 1, 3, True
.ColAlignment(3) = UG_ALIGNRIGHT
.TextMatrix(0, 4) = "利率"
.TextMatrix(1, 4) = "(%)"
.ColAlignment(4) = UG_ALIGNRIGHT
.TextMatrix(0, 5) = "天数"
.ColAlignment(5) = UG_ALIGNRIGHT
.JoinCells 0, 5, 1, 5, True
.TextMatrix(0, 6) = "积数"
.ColAlignment(6) = UG_ALIGNRIGHT
.JoinCells 0, 6, 1, 6, True
.TextMatrix(0, 7) = "应计利息"
.JoinCells 0, 7, 1, 7, True
.ColAlignment(7) = UG_ALIGNRIGHT
.TextMatrix(0, 8) = "已付利息"
.JoinCells 0, 8, 1, 8, True
.ColAlignment(8) = UG_ALIGNRIGHT
.TextMatrix(0, 9) = "结欠利息"
.JoinCells 0, 9, 1, 9, True
.ColAlignment(9) = UG_ALIGNRIGHT
.HeadFont.Name = "宋体"
.HeadFont.Size = 9
.HeadFont.Bold = True
End With
InitForm True
Screen.MousePointer = vbDefault
End Sub
Private Sub InitForm(fsk As Boolean)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -