📄 +-+
字号:
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 frmRkhdt
Caption = "客户资金动态汇总表"
ClientHeight = 5625
ClientLeft = 1035
ClientTop = 2130
ClientWidth = 8580
HelpContextID = 88000064
Icon = "客户动态表.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 5625
ScaleWidth = 8580
Visible = 0 'False
WindowState = 2 'Maximized
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 540
Left = 0
TabIndex = 0
Top = 0
Width = 8580
_ExtentX = 15134
_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
MixedState = -1 'True
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 = 1332
Left = 1200
TabIndex = 6
Top = 2400
Width = 2172
_Version = 65536
_ExtentX = 3831
_ExtentY = 2350
_StockProps = 253
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
Enabled = 0 'False
ForeColor = &H80000008&
Height = 945
Left = 0
ScaleHeight = 915
ScaleWidth = 8550
TabIndex = 1
Top = 610
Width = 8580
Begin RTPrnLib.RTPrn RTPrn1
Left = 6225
Top = 330
_Version = 524288
_ExtentX = 1296
_ExtentY = 556
_StockProps = 4
m_lngrtpFitRows = 30
End
Begin VB.Label lblTime
AutoSize = -1 'True
BackColor = &H00FFFF00&
BackStyle = 0 'Transparent
Caption = " 年 月 日"
ForeColor = &H80000008&
Height = 180
Left = 6870
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 = 3180
TabIndex = 2
Top = 300
Width = 2715
End
End
Begin ComctlLib.ProgressBar ProBar1
Height = 165
Left = 4860
TabIndex = 4
Top = 5400
Width = 2985
_ExtentX = 5265
_ExtentY = 291
_Version = 327682
Appearance = 1
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 345
Left = 0
TabIndex = 5
Top = 5280
Width = 8580
_ExtentX = 15134
_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 = 3840
Top = 2400
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
End
Attribute VB_Name = "frmRkhdt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明:客户资金动态汇总表
'作者: 赵春立
Option Explicit
'日期
Public dSearchDate As Date
'上日余额，本日余额
Private preDayYe(1 To 4) As Double
Private toDayYe(1 To 4) As Double
'本日收入，本日支出，本日净收支
Private toDaySr(1 To 4) As Double
Private toDayZc(1 To 4) As Double
'本日收入笔数与支出笔数
Private toDayBsr(1 To 4) As Double
Private toDayBzc(1 To 4) As Double
'上一记录的级次
Private preGrade As Long
Private Type KhdtInfomation
todayMb As Double
CurMd As Double
curMc As Double
preMb As Double
mInTemp As Long
mOut As Long
End Type
Private KhdtInfo As KhdtInfomation
'----设置互斥
Private m_bExclude As Boolean
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"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -