📄 frmlxmx.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 frmlxmx
BackColor = &H8000000E&
ClientHeight = 5445
ClientLeft = 60
ClientTop = 315
ClientWidth = 9180
HelpContextID = 88000069
Icon = "frmlxmx.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
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
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 = 1572
Left = 840
TabIndex = 9
Top = 2160
Width = 2172
_Version = 65536
_ExtentX = 3831
_ExtentY = 2773
_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 Label1
AutoSize = -1 'True
BackColor = &H8000000E&
BackStyle = 0 'Transparent
Height = 180
Index = 5
Left = 4005
TabIndex = 8
Top = 690
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H8000000E&
BackStyle = 0 'Transparent
Height = 180
Index = 4
Left = 4005
TabIndex = 7
Top = 690
Width = 90
End
Begin VB.Label Label1
BackColor = &H8000000E&
BorderStyle = 1 'Fixed Single
Height = 240
Index = 2
Left = 840
TabIndex = 6
Top = 405
Width = 1975
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H8000000E&
BackStyle = 0 'Transparent
Height = 180
Index = 0
Left = 75
TabIndex = 5
Top = 435
Width = 90
End
Begin VB.Label Label1
BackColor = &H8000000E&
BorderStyle = 1 'Fixed Single
Height = 240
Index = 3
Left = 840
TabIndex = 4
Top = 660
Width = 2928
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H8000000E&
BackStyle = 0 'Transparent
Height = 180
Index = 1
Left = 60
TabIndex = 3
Top = 675
Width = 90
End
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 = 3960
TabIndex = 2
Top = 300
Width = 180
End
End
Begin RTPrnLib.RTPrn RTPrn1
Left = 6750
Top = 720
_Version = 524288
_ExtentX = 1614
_ExtentY = 794
_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 = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
End
Attribute VB_Name = "frmlxmx"
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 zhbh As String
Public zhmc As String
Private dataly As Boolean
Private bCde As Boolean
Public Sub cmdExcute_Click()
InitForm False
End Sub
Public Sub cmdRefresh_Click()
UfGridADO1.Refresh
End Sub
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
InitForm True
UfGridADO1.Left = 0
''' UfGridADO1.Top=
'zyc?
UfGridADO1.Top = Tlbckd.Height + Picture1.Height + 50
Screen.MousePointer = vbDefault
End Sub
Private Sub InitDataOut()
ReDim prnReport1(12)
prnReport1(0).iColNumber = 0
prnReport1(0).iColType = dbText
prnReport1(0).cColName = UfGridADO1.TextMatrix(1, 0)
prnReport1(0).iColLength = lngYear
prnReport1(1).iColNumber = 1
prnReport1(1).iColType = dbText
prnReport1(1).cColName = UfGridADO1.TextMatrix(1, 1)
prnReport1(1).iColLength = lngMonth
prnReport1(2).iColNumber = 2
prnReport1(2).iColType = dbText
prnReport1(2).cColName = UfGridADO1.TextMatrix(1, 2)
prnReport1(2).iColLength = lngDay
prnReport1(3).iColNumber = 3
prnReport1(3).iColType = dbCurrency
prnReport1(3).cColName = UfGridADO1.TextMatrix(0, 3)
prnReport1(3).iColLength = lngCurrency
prnReport1(4).iColNumber = 4
prnReport1(4).iColType = dbCurrency
prnReport1(4).cColName = UfGridADO1.TextMatrix(0, 4)
prnReport1(4).iColLength = lngCurrency
prnReport1(5).iColNumber = 5
prnReport1(5).iColType = dbText
prnReport1(5).cColName = UfGridADO1.TextMatrix(0, 5)
prnReport1(5).iColLength = lngText
prnReport1(6).iColNumber = 6
prnReport1(6).iColType = dbCurrency
prnReport1(6).cColName = UfGridADO1.TextMatrix(0, 6)
prnReport1(6).iColLength = lngCurrency
prnReport1(7).iColNumber = 7
prnReport1(7).iColType = dbLong
prnReport1(7).cColName = UfGridADO1.TextMatrix(0, 7)
prnReport1(7).iColLength = lngDays
prnReport1(8).iColNumber = 8
prnReport1(8).iColType = dbCurrency
prnReport1(8).cColName = UfGridADO1.TextMatrix(0, 8)
prnReport1(8).iColLength = lngCurrency
prnReport1(9).iColNumber = 9
prnReport1(9).iColType = dbCurrency
prnReport1(9).cColName = UfGridADO1.TextMatrix(0, 9)
prnReport1(9).iColLength = lngCurrency
prnReport1(10).iColNumber = 10
prnReport1(10).iColType = dbCurrency
prnReport1(10).cColName = UfGridADO1.TextMatrix(0, 10)
prnReport1(10).iColLength = lngCurrency
prnReport1(11).iColNumber = 11
prnReport1(11).iColType = dbCurrency
prnReport1(11).cColName = UfGridADO1.TextMatrix(0, 11)
prnReport1(11).iColLength = lngCurrency
End Sub
Private Sub InitForm(fsk As Boolean)
Dim tmpqr As UfDbKit.QueryDef, rsTemp As New UfRecordset, sqlst As String, zhfx As String, rstJs As New UfRecordset, zhfx1 As String
'当期利息=dqlx
Dim dqlx As Currency, lxhj As Currency, jfhj As Currency '借方合计
'贷方合计=dfhj,tshj=天数合计
Dim dfhj As Currency, tshj As Long, dqjs As Currency
Dim dqjs2 As Currency, dqlx2 As Currency, lxhj2 As Currency
Dim nLl As Interest_Rate
Dim IRx As IRKey
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -