?? 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 + -