📄
字号:
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 frmRjszx
Caption = "资金状况表"
ClientHeight = 3255
ClientLeft = 990
ClientTop = 3390
ClientWidth = 7365
HelpContextID = 88000060
Icon = "结算中心表.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 3255
ScaleWidth = 7365
WindowState = 2 'Maximized
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 540
Left = 0
TabIndex = 0
Top = 0
Width = 7365
_ExtentX = 12991
_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}
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}
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 = 372
Left = 1440
TabIndex = 7
Top = 2160
Width = 2052
_Version = 65536
_ExtentX = 3619
_ExtentY = 656
_StockProps = 253
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
Enabled = 0 'False
ForeColor = &H80000008&
Height = 945
Left = 0
ScaleHeight = 915
ScaleWidth = 8325
TabIndex = 1
Top = 610
Width = 8355
Begin RTPrnLib.RTPrn RTPrn1
Left = 1755
Top = 270
_Version = 524288
_ExtentX = 1270
_ExtentY = 582
_StockProps = 4
m_lngrtpFitRows = 30
End
Begin VB.Label lblTime
AutoSize = -1 'True
BackColor = &H00FFFF00&
BackStyle = 0 'Transparent
Caption = "rr"
ForeColor = &H80000008&
Height = 180
Left = 6810
TabIndex = 4
Top = 660
Width = 180
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 = 3150
TabIndex = 3
Top = 300
Width = 2715
End
Begin VB.Label Label0
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 285
Left = 3960
TabIndex = 2
Top = 360
Width = 150
End
End
Begin ComctlLib.ProgressBar ProBar1
Height = 165
Left = 4860
TabIndex = 5
Top = 120
Width = 2985
_ExtentX = 5265
_ExtentY = 291
_Version = 327682
Appearance = 1
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 345
Left = 0
TabIndex = 6
Top = 2910
Width = 7365
_ExtentX = 12991
_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 = "正在进行数据处理，请等待..."
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 3528
MinWidth = 3528
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 5292
MinWidth = 5292
Object.Tag = ""
EndProperty
EndProperty
End
Begin ComctlLib.ImageList ImageList1
Left = 6630
Top = 780
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
End
Attribute VB_Name = "frmRjszx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 结算中心资金状况表
'作者: 赵春立
Option Explicit
'本日时间，旬初时间，月初时间
Public dToday As Date
Private dTendayBegin As Date
Private dMonthBegin As Date
'本日余额，旬初余额，月初余额
Private toDayYe(1 To 4) As Double
Private TendayBeginYe(1 To 4) As Double
Private MonthBeginYe(1 To 4) As Double
'上一记录的级次
Private preGrade As Long
Private blnFirstRun As Boolean
Private Type JszxInfomation
mTodayMb As Double
mTenday As Double
mMonth As Double
End Type
Private JszxInfo As JszxInfomation
'----设置互斥
Private m_bExclude As Boolean
'********************************************************************
'*函数说明: 取月初、旬初 *
'*参 数: *
'* *
'*返回值 : *
'*********************************************************************
Private Sub ChangeDate()
dMonthBegin = CDate(Year(dToday) & "-" & Month(dToday) & "-1")
If Day(dToday) < 11 Then
dTendayBegin = Year(dToday) & "-" & Month(dToday) & "-1"
ElseIf Day(dToday) < 21 And Day(dToday) > 10 Then
dTendayBegin = Year(dToday) & "-" & Month(dToday) & "-11"
Else
dTendayBegin = Year(dToday) & "-" & Month(dToday) & "-21"
End If
End Sub
Private Sub ChangeStatus(cItemName As String, iChangeUnit As Long)
StatusBar1.Panels(2).Text = cItemName
ProBar1.Value = ProBar1.Value + iChangeUnit
DoEvents
End Sub
Private Sub DoUnload(blnLoad As Boolean)
DoUnloadInfo.blnRjszx = blnLoad
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"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -