?? budgetlist.frm
字號(hào):
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 = "財(cái)務(wù)預(yù)算列表"
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 = "報(bào)表"
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 = "會(huì)計(jì)年度(&Y)"
Height = 255
Index = 1
Left = 3195
TabIndex = 2
Top = 150
Width = 1050
End
Begin VB.Label lblBudget
Caption = "預(yù)算方案(&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 '主控對(duì)象
Attribute mclsMainControl.VB_VarHelpID = -1
Private WithEvents mclsSubClassform As SubClass32.SubClass '窗體"鉤子"對(duì)象
Attribute mclsSubClassform.VB_VarHelpID = -1
Private WithEvents mclsSubClass As SubClass32.SubClass '列表固定欄"鉤子"對(duì)象
Attribute mclsSubClass.VB_VarHelpID = -1
Private mclsListSet As ListSet '列表設(shè)置對(duì)象
Private mintShowStatus As Integer
Private mlngBudgetID As Long '計(jì)劃預(yù)算方案ID
Private mblnIsShow As Boolean '"科目期初明細(xì)"窗體是否打開(kāi)
Private mintYear As Integer, mbytPeriod As Byte '會(huì)計(jì)年度,會(huì)計(jì)期間
Private mblnClose As Boolean '結(jié)帳標(biāo)志
Private mintCol As Integer, mlngRow As Long '錄入框所在行,列
Private mblnHscroll As Boolean, mblnVscroll As Boolean '橫向及垂直滾動(dòng)條出現(xiàn)標(biāo)志
Private lngViewId As Long '計(jì)劃預(yù)算視圖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, "你沒(méi)有財(cái)務(wù)預(yù)算權(quán)限！", vbInformation, "計(jì)劃預(yù)算"
Exit Sub
End If
Else
If Not IsCanDo(224, gclsBase.OperatorID) Then
ShowMsg Me.hwnd, "你沒(méi)有經(jīng)營(yíng)預(yù)算權(quán)限！", vbInformation, "計(jì)劃預(yù)算"
Exit Sub
End If
End If
mintFlag = intFlag
If intFlag = 1 Then
mstrName(0) = "采購(gòu)數(shù)量"
mstrName(1) = "銷(xiāo)售數(shù)量"
mstrName(2) = "銷(xiāo)售成本"
mstrName(3) = "庫(kù)存數(shù)量"
mstrName(4) = "受托數(shù)量"
mstrName(5) = "委托數(shù)量"
mstrName(6) = "分期數(shù)量"
mstrName(7) = "加工數(shù)量"
mstrName(8) = "領(lǐng)用數(shù)量"
mstrName(9) = "采購(gòu)金額"
mstrName(10) = "銷(xiāo)售收入"
mstrName(11) = "銷(xiāo)售毛利"
mstrName(12) = "庫(kù)存金額"
mstrName(13) = "受托金額"
mstrName(14) = "委托金額"
mstrName(15) = "分期金額"
mstrName(16) = "加工金額"
mstrName(17) = "領(lǐng)用金額"
mstrName(18) = "回款數(shù)量"
mstrName(19) = "回款金額"
mstrName(20) = "付款數(shù)量"
mstrName(21) = "付款金額"
mstrName(22) = "采購(gòu)訂單數(shù)量"
mstrName(23) = "采購(gòu)訂單金額"
mstrName(24) = "銷(xiāo)售訂單數(shù)量"
mstrName(25) = "銷(xiāo)售訂單金額"
mstrDec = IIf(gclsBase.GetCurrencyDec("人民幣") = 0, "#,###,###,###", "###,###,###,###,###,###,###,###,##0." + String(gclsBase.GetCurrencyDec("人民幣"), "0"))
Me.Caption = "經(jīng)營(yíng)預(yù)算列表"
End If
Load Me
InitLoadForm
msgBudget(0).Visible = True
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -