📄 budgetcard.frm
字号:
Left = 4320
TabIndex = 23
Top = 1380
Width = 2010
_ExtentX = 3545
_ExtentY = 529
CodeSort = -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 ListRefer.ListText lstBudget
Height = 300
Index = 8
Left = 4320
TabIndex = 15
Top = 60
Width = 2010
_ExtentX = 3545
_ExtentY = 529
CodeSort = -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 ListRefer.ListText lstBudget
Height = 300
Index = 9
Left = 4950
TabIndex = 33
Top = 2130
Width = 1440
_ExtentX = 2540
_ExtentY = 529
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 ListRefer.ListText lstBudget
Height = 300
Index = 10
Left = 1110
TabIndex = 9
Top = 1365
Width = 2010
_ExtentX = 3545
_ExtentY = 529
CodeSort = -1 'True
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ListRefer.ListText lstBudget
Height = 300
Index = 11
Left = 1110
TabIndex = 11
Top = 1695
Width = 2010
_ExtentX = 3545
_ExtentY = 529
CodeSort = -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 ListRefer.ListText lstBudget
Height = 300
Index = 12
Left = 1110
TabIndex = 13
Top = 1560
Width = 2010
_ExtentX = 3545
_ExtentY = 529
CodeSort = -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 VB.Label lblBudget
Caption = "年度(&Y)"
Height = 180
Index = 0
Left = 120
TabIndex = 0
Top = 120
Width = 1005
End
Begin VB.Label lblBudget
Caption = "科目(&A)"
Height = 180
Index = 1
Left = 120
TabIndex = 2
Top = 435
Width = 1005
End
Begin VB.Label lblBudget
Caption = "商品(&I)"
Height = 180
Index = 2
Left = 120
TabIndex = 6
Top = 1140
Width = 1005
End
Begin VB.Label lblBudget
Caption = "单位(&C)"
Height = 180
Index = 3
Left = 120
TabIndex = 4
Top = 765
Width = 1005
End
Begin VB.Label lblBudget
Caption = "部门(&D)"
Height = 180
Index = 4
Left = 3540
TabIndex = 16
Top = 450
Width = 1005
End
Begin VB.Label lblBudget
Caption = "币种(&M)"
Height = 180
Index = 5
Left = 3540
TabIndex = 14
Top = 120
Width = 1005
End
Begin VB.Label lblBudget
Caption = "职员(&E)"
Height = 180
Index = 6
Left = 3540
TabIndex = 18
Top = 780
Width = 1005
End
Begin VB.Label lblBudget
Caption = "工程(&J)"
Height = 180
Index = 7
Left = 3540
TabIndex = 24
Top = 1770
Width = 1005
End
Begin VB.Label lblBudget
Caption = "统计(&L)"
Height = 180
Index = 8
Left = 3540
TabIndex = 20
Top = 1110
Width = 1005
End
Begin VB.Label lblBudget
Caption = "项目(&T)"
Height = 180
Index = 9
Left = 3540
TabIndex = 22
Top = 1440
Width = 1005
End
Begin VB.Label lblBudget
Caption = "预算名称："
Height = 180
Index = 10
Left = 90
TabIndex = 26
Top = 2175
Width = 900
End
Begin VB.Label lblBudget
Height = 180
Index = 11
Left = 1170
TabIndex = 27
Top = 2175
Width = 1770
End
Begin VB.Label lblBudget
Caption = "参照"
Height = 180
Index = 12
Left = 3540
TabIndex = 30
Top = 2175
Width = 420
End
Begin VB.Label lblBudget
Caption = "年"
Height = 180
Index = 13
Left = 4740
TabIndex = 32
Top = 2175
Width = 240
End
Begin VB.Label lblBudget
Caption = "地区(&Q)"
Height = 180
Index = 14
Left = 120
TabIndex = 12
Top = 1590
Width = 1005
End
Begin VB.Label lblBudget
Caption = "单位类型(&W)"
Height = 180
Index = 15
Left = 120
TabIndex = 10
Top = 1755
Width = 1005
End
Begin VB.Label lblBudget
Caption = "商品类型(&X)"
Height = 180
Index = 16
Left = 120
TabIndex = 8
Top = 1425
Width = 1005
End
End
Attribute VB_Name = "frmBudgetCard"
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 mclsSubClass As SubClass32.SubClass
Attribute mclsSubClass.VB_VarHelpID = -1
Private WithEvents mclsSubClass1 As SubClass32.SubClass
Attribute mclsSubClass1.VB_VarHelpID = -1
Private Type Account
ID As Long
IsMultCurrency As Boolean
IsAllCurrency As Boolean
IsQuantity As Boolean
Direction As Integer
End Type
Private mintPeriodNO As Integer
Private mudtAccount As Account
Private mblnIsload(12) As Boolean
Private mintRow As Integer
Private mintCol As Integer
Private mblnIsInput As Boolean
Private mlngBudgetID As Long
Private mstrYear As String
Private mlngID(12) As Long
Private mlngListID(9) As Long
Private mblnIsAddNew As Boolean
Private mblnIsArrow As Boolean
Private mblnIsNatualCurrency As Boolean
Private mblnIsOriginalCurrency As Boolean
Private mblnIsQuantity As Boolean
Private mintFlag As Integer
Private mstrObjectName(2) As String
Private mblnIsChange As Boolean
Private mstrCurrDec As String
Private mstrDec As String
Private mstrQuantityDec As String
Private mdblFactor As Double
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -