📄 budgetlist.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Object = "{F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0"; "MSRDC20.OCX"
Object = "{81110CCB-022B-11D3-A348-0080C89152FF}#1.3#0"; "ORAGLIST.OCX"
Begin VB.Form frmBudgetList
Caption = "财务预算列表"
ClientHeight = 4050
ClientLeft = 60
ClientTop = 345
ClientWidth = 6105
KeyPreview = -1 'True
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 4050
ScaleWidth = 6105
Begin MSRDC.MSRDC dtaBudget
Height = 330
Left = 3810
Top = 3540
Visible = 0 'False
Width = 1425
_ExtentX = 2514
_ExtentY = 582
_Version = 393216
Options = 0
CursorDriver = 0
BOFAction = 0
EOFAction = 0
RecordsetType = 1
LockType = 3
QueryType = 0
Prompt = 3
Appearance = 1
QueryTimeout = 30
RowsetSize = 100
LoginTimeout = 15
KeysetSize = 0
MaxRows = 0
ErrorThreshold = -1
BatchSize = 15
BackColor = -2147483643
ForeColor = -2147483640
Enabled = -1 'True
ReadOnly = 0 'False
Appearance = -1 'True
DataSourceName = ""
RecordSource = ""
UserName = ""
Password = ""
Connect = ""
LogMessages = ""
Caption = "MSRDC1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.ComboBox cboBudget
Height = 300
Left = 4320
Style = 2 'Dropdown List
TabIndex = 3
Top = 120
Width = 1005
End
Begin MSFlexGridLib.MSFlexGrid msgBudget
Bindings = "BudgetList.frx":0000
Height = 2415
Index = 1
Left = 75
TabIndex = 5
Top = 1005
Width = 5895
_ExtentX = 10398
_ExtentY = 4260
_Version = 393216
Cols = 30
FixedCols = 0
BackColorBkg = -2147483643
FocusRect = 0
SelectionMode = 1
AllowUserResizing= 1
BorderStyle = 0
End
Begin MSFlexGridLib.MSFlexGrid msgBudget
Height = 800
Index = 0
Left = 75
TabIndex = 4
Top = 555
Width = 5895
_ExtentX = 10398
_ExtentY = 1402
_Version = 393216
Rows = 3
Cols = 30
FixedRows = 2
FixedCols = 0
BackColorBkg = -2147483643
GridColor = 8421504
FocusRect = 0
HighLight = 0
ScrollBars = 1
AllowUserResizing= 1
BorderStyle = 0
End
Begin ListRefer.ListText lstBudget
Height = 315
Left = 1200
TabIndex = 1
Top = 120
Width = 1755
_ExtentX = 3096
_ExtentY = 556
Locked = -1 'True
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSForms.CommandButton cmdBudget
Height = 345
Index = 2
Left = 2520
TabIndex = 8
Tag = "1018"
Top = 3600
Visible = 0 'False
Width = 1215
Caption = "报表"
PicturePosition = 196613
Size = "2143;617"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdBudget
Height = 345
Index = 1
Left = 1290
TabIndex = 7
Tag = "1018"
Top = 3600
Width = 1215
Caption = "查看"
PicturePosition = 196613
Size = "2143;617"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdBudget
Height = 350
Index = 0
Left = 60
TabIndex = 6
Tag = "1018"
Top = 3600
Width = 1215
Caption = "编辑"
PicturePosition = 196613
Size = "2143;617"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin VB.Label lblBudget
Caption = "会计年度(&Y)"
Height = 255
Index = 1
Left = 3195
TabIndex = 2
Top = 150
Width = 1050
End
Begin VB.Label lblBudget
Caption = "预算方案(&B)"
Height = 255
Index = 0
Left = 120
TabIndex = 0
Top = 150
Width = 1125
End
End
Attribute VB_Name = "frmBudgetList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Private WithEvents mclsSubClassform As SubClass32.SubClass '窗体"钩子"对象
Attribute mclsSubClassform.VB_VarHelpID = -1
Private WithEvents mclsSubClass As SubClass32.SubClass '列表固定栏"钩子"对象
Attribute mclsSubClass.VB_VarHelpID = -1
Private mclsListSet As ListSet '列表设置对象
Private mintShowStatus As Integer
Private mlngBudgetID As Long '计划预算方案ID
Private mblnIsShow As Boolean '"科目期初明细"窗体是否打开
Private mintYear As Integer, mbytPeriod As Byte '会计年度,会计期间
Private mblnClose As Boolean '结帐标志
Private mintCol As Integer, mlngRow As Long '录入框所在行,列
Private mblnHscroll As Boolean, mblnVscroll As Boolean '横向及垂直滚动条出现标志
Private lngViewId As Long '计划预算视图ID
Private mintPeriodNO As Integer
Private mblnIsNatualCurrency As Boolean
Private mblnIsOriginalCurrency As Boolean
Private mblnIsQuantity As Boolean
Private mintFlag As Integer
Private mstrName(25) As String
Private mstrObjectName(2) As String
Private mstrDec As String
Private mintIndex As Integer
Private strFilterWhere As String
Public Sub Showlist(ByVal intFlag As Integer)
If intFlag = 0 Then
If Not IsCanDo(26, gclsBase.OperatorID) Then
ShowMsg Me.hwnd, "你没有财务预算权限！", vbInformation, "计划预算"
Exit Sub
End If
Else
If Not IsCanDo(224, gclsBase.OperatorID) Then
ShowMsg Me.hwnd, "你没有经营预算权限！", vbInformation, "计划预算"
Exit Sub
End If
End If
mintFlag = intFlag
If intFlag = 1 Then
mstrName(0) = "采购数量"
mstrName(1) = "销售数量"
mstrName(2) = "销售成本"
mstrName(3) = "库存数量"
mstrName(4) = "受托数量"
mstrName(5) = "委托数量"
mstrName(6) = "分期数量"
mstrName(7) = "加工数量"
mstrName(8) = "领用数量"
mstrName(9) = "采购金额"
mstrName(10) = "销售收入"
mstrName(11) = "销售毛利"
mstrName(12) = "库存金额"
mstrName(13) = "受托金额"
mstrName(14) = "委托金额"
mstrName(15) = "分期金额"
mstrName(16) = "加工金额"
mstrName(17) = "领用金额"
mstrName(18) = "回款数量"
mstrName(19) = "回款金额"
mstrName(20) = "付款数量"
mstrName(21) = "付款金额"
mstrName(22) = "采购订单数量"
mstrName(23) = "采购订单金额"
mstrName(24) = "销售订单数量"
mstrName(25) = "销售订单金额"
mstrDec = IIf(gclsBase.GetCurrencyDec("人民币") = 0, "#,###,###,###", "###,###,###,###,###,###,###,###,##0." + String(gclsBase.GetCurrencyDec("人民币"), "0"))
Me.Caption = "经营预算列表"
End If
Load Me
InitLoadForm
msgBudget(0).Visible = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -