📄 +-+
字号:
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 frmRkhye
Caption = "客户资金余额明细表"
ClientHeight = 5355
ClientLeft = 540
ClientTop = 3480
ClientWidth = 8100
HelpContextID = 88000063
Icon = "客户余额表.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 5355
ScaleWidth = 8100
WindowState = 2 'Maximized
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 540
Left = 0
TabIndex = 0
Top = 0
Width = 8100
_ExtentX = 14288
_ExtentY = 953
ButtonWidth = 826
ButtonHeight = 804
AllowCustomize = 0 'False
Wrappable = 0 'False
Appearance = 1
ImageList = "ImageList1"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 9
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}
Caption = "recx"
Key = "Recx"
Object.Tag = ""
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Item"
Object.Tag = ""
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
EndProperty
BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Help"
Object.Tag = ""
EndProperty
BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Exit"
Object.Tag = ""
EndProperty
EndProperty
End
Begin UFGRIDADOLib.UfGridADO UfGridADO1
Height = 972
Left = 960
TabIndex = 6
Top = 2520
Width = 2532
_Version = 65536
_ExtentX = 4466
_ExtentY = 1714
_StockProps = 253
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
Enabled = 0 'False
ForeColor = &H80000008&
Height = 945
Left = 0
ScaleHeight = 915
ScaleWidth = 8070
TabIndex = 1
Top = 610
Width = 8100
Begin RTPrnLib.RTPrn RTPrn1
Left = 1515
Top = 195
_Version = 524288
_ExtentX = 1455
_ExtentY = 609
_StockProps = 4
m_lngrtpFitRows = 30
End
Begin VB.Label lblTime
AutoSize = -1 'True
BackColor = &H00FFFF00&
BackStyle = 0 'Transparent
Caption = " 年 月 日"
ForeColor = &H80000008&
Height = 180
Left = 6690
TabIndex = 3
Top = 690
Width = 1080
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "客户资金余额明细表"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 285
Left = 2970
TabIndex = 2
Top = 300
Width = 2715
End
End
Begin ComctlLib.ProgressBar ProBar1
Height = 165
Left = 4950
TabIndex = 4
Top = 5100
Width = 2985
_ExtentX = 5265
_ExtentY = 291
_Version = 327682
Appearance = 1
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 348
Left = 0
TabIndex = 5
Top = 5004
Width = 8100
_ExtentX = 14288
_ExtentY = 609
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 3
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 4939
MinWidth = 4939
Text = "正在进行数据处理，请等待..."
TextSave = "正在进行数据处理，请等待..."
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 3528
MinWidth = 3528
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 5292
MinWidth = 5292
Key = ""
Object.Tag = ""
EndProperty
EndProperty
End
Begin ComctlLib.ImageList ImageList1
Left = 3780
Top = 2400
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
End
Attribute VB_Name = "frmRkhye"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明:客户资金余额明细表
'作者: 赵春立
Option Explicit
'本日余额，本日积数
Private toDayYe(1 To 4) As Double, toMh(1 To 4) As Double
'上一记录的级次
Private preGrade As Long
'系统启用时间
Public dStartDate As Date
Private Type KhyeInformation
Mb As Double
Mh As Double
End Type
Private KhyeInfor As KhyeInformation
'----设置互斥
Private m_bExclude As Boolean
Private Sub InitDataOut()
ReDim prnReport1(7)
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 = 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 = dbCurrency
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
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Shift = Shift And 7
Select Case KeyCode
Case vbKeyF3
If Shift = 0 Then
Gen_Key "Item"
End If
Case vbKeyP
If Shift = vbCtrlMask And Toolbar1.Buttons("Print").Enabled Then
Gen_Key "Print"
End If
KeyCode = 0
Case vbKeyS
'cuidong 2001.01.15
'If Shift = vbCtrlMask And Toolbar1.Buttons("Preview").Enabled Then
' Gen_Key "Preview"
'End If
KeyCode = 0
Case vbKeyW
If Shift = vbCtrlMask And Toolbar1.Buttons("Dataout").Enabled Then
Gen_Key "Dataout"
End If
KeyCode = 0
Case vbKeyF4
If Shift = vbCtrlMask And Toolbar1.Buttons("Exit").Enabled Then
Gen_Key "Exit"
End If
KeyCode = 0
Case vbKeyF
If Shift = vbCtrlMask Then Gen_Key "Recx"
End Select
End Sub
Private Sub Form_Load()
Me.Icon = LoadResPicture(109, vbResIcon)
RptTlb Toolbar1, ImageList1
Picture1.Width = ZjAccInfo.zjPictWidth
Picture1.Picture = LoadPicture(ZjAccInfo.zjRepPath & "BookBack.BMP")
initGrid
Me.Show
DoEvents
mCale
End Sub
'********************************************************************
'*函数说明: 填充 Grid *
'*参 数: *
'* *
'*返回值 : *
'*********************************************************************
Public Sub mCale()
'----设置互斥
m_bExclude = True
Dim rsItem As New UfRecordset
Dim rsCale As New UfRecordset
Dim sqlItem As String
Dim sqlCale As String
Dim strTotal As String
Dim f0 As String
Dim cExch As String
Dim dblHl As Variant
Dim dblX As Variant
Dim iTotal As Boolean
Dim i As Long
Dim todayMb As Double
Dim todayMh As Double
Dim sqlSubSelect As String
Dim dblHl_er As Double
sqlItem = "SELECT * FROM FD_Items WHERE iitems_id=3 ORDER BY citem_id"
Set rsItem = dbsZJ.OpenRecordset(sqlItem, dbOpenSnapshot)
StatusBar1.Visible = True
ProBar1.Visible = True
Form_Resize
If Not rsItem.EOF Then
rsItem.MoveLast
ProBar1.Max = rsItem.RecordCount
ProBar1.Value = 0
ProBar1.Min = 0
rsItem.MoveFirst
DoUnload True
End If
With rsItem
While Not .EOF
ChangeStatus "项目：" & !cItem_Name, 1
preGrade = !iGrade
If !bend Then ' 末级，计算
If !bSource Then '从科目取数
cExch = ZjAccInfo.zjStandExch
dblHl = 1
f0 = ""
dblX = ""
Cal_KhyeKm !iItem_id
With KhyeInfor
todayMb = .Mb
todayMh = .Mh
dblX = .Mb
End With
For i = 1 To preGrade
toDayYe(i) = toDayYe(i) + todayMb
toMh(i) = toMh(i) + todayMh
Next i
Else '从账户取数
'取出币别和汇率
cExch = GetExch(!iItem_id)
If cExch <> "" Then
dblHl = GetCurHl(cExch, zjLogInfo.curDate)
If dblHl = 0 Then
MsgBox "币别" & cExch & "未设置汇率！", vbInformation, zjGl_Name
dblHl = ""
End If
Else
dblHl = ""
End If
Dim sqlAccCount As String
Dim rsAccCount As New UfRecordset
Dim bFromZw As Boolean '---从帐务取数
sqlSubSelect = " (SELECT ccode FROM FD_Itemss WHERE iitem_id=" & !iItem_id & ") "
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -