📄 frmlxhz.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 frmlxhz
BackColor = &H8000000E&
ClientHeight = 5445
ClientLeft = 2040
ClientTop = 1830
ClientWidth = 9180
HelpContextID = 88000070
Icon = "frmlxhz.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 = 1332
Left = 120
TabIndex = 6
Top = 1920
Width = 2892
_Version = 65536
_ExtentX = 5101
_ExtentY = 2350
_StockProps = 253
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1
Left = 4005
Top = 2475
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.Line Line1
X1 = 1920
X2 = 2045
Y1 = 735
Y2 = 735
End
Begin VB.Label Label1
BackColor = &H8000000E&
BorderStyle = 1 'Fixed Single
Height = 240
Index = 2
Left = 2070
TabIndex = 2
Top = 630
Width = 1035
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H8000000E&
BackStyle = 0 'Transparent
Height = 180
Index = 0
Left = 75
TabIndex = 5
Top = 660
Width = 90
End
Begin VB.Label Label1
BackColor = &H8000000E&
BorderStyle = 1 'Fixed Single
Height = 240
Index = 1
Left = 855
TabIndex = 4
Top = 630
Width = 1035
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 = 3
Top = 300
Width = 180
End
End
Begin RTPrnLib.RTPrn RTPrn1
Left = 5910
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 = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
End
Attribute VB_Name = "frmlxhz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 账户利息汇总表
'作者: 魏小黎
Option Explicit
Public sDate As String, sRq1 As String
Public eDate As String, eRq2 As String
Private dataly As Boolean
Private bCde As Boolean
Private Sub InitDataOut()
ReDim prnReport1(9)
prnReport1(0).iColNumber = 0
prnReport1(0).iColType = dbText
prnReport1(0).cColName = UfGridADO1.TextMatrix(0, 0)
prnReport1(0).iColLength = lngText
prnReport1(1).iColNumber = 1
prnReport1(1).iColType = dbText
prnReport1(1).cColName = UfGridADO1.TextMatrix(0, 1)
prnReport1(1).iColLength = lngText
prnReport1(2).iColNumber = 2
prnReport1(2).iColType = dbText
prnReport1(2).cColName = UfGridADO1.TextMatrix(0, 2)
prnReport1(2).iColLength = lngText
prnReport1(3).iColNumber = 3
prnReport1(3).iColType = dbText
prnReport1(3).cColName = UfGridADO1.TextMatrix(0, 3)
prnReport1(3).iColLength = lngText
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 = lngCurrency
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 = lngCurrency
prnReport1(8).iColNumber = 8
prnReport1(8).iColType = dbCurrency
prnReport1(8).cColName = UfGridADO1.TextMatrix(0, 8)
prnReport1(8).iColLength = lngCurrency
End Sub
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
Picture1.Top = Tlbckd.Height
UfGridADO1.Top = Tlbckd.Height + Picture1.Height
UfGridADO1.Left = 0
'zycGui
Screen.MousePointer = vbDefault
End Sub
Private Sub InitForm(fsk As Boolean)
Dim rsTemp As New UfRecordset, rstlx As New UfRecordset, sqlst As String
Dim dqlx As Currency, dqlx2 As Currency
Dim zhfx As String, fx1 As String, fx2 As String, yehj As Double
Dim i As Long 'cuidong S.A 2001.09.27
Dim nMb 'cuidong 2002.01.15
bCde = IsCde
If fsk Then
Me.WindowState = 2
Informtlb2 Tlbckd, ImageList1
Me.Icon = LoadResPicture(109, vbResIcon)
Me.Caption = "账户利息汇总"
Picture1.Width = ZjAccInfo.zjPictWidth
Picture1.Picture = LoadPicture(ZjAccInfo.zjRepPath & "BookBack.bmp")
Label0.Caption = "账户利息汇总"
Label1(0).Caption = "起始时间"
UfGridADO1.Redraw = False
UfGridADO1.FixedCols = 0
UfGridADO1.Cols = 9
UfGridADO1.ColWidth(0) = 1880
UfGridADO1.ColWidth(1) = 1900
UfGridADO1.ColWidth(2) = 830
UfGridADO1.ColWidth(3) = 440
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -