📄 项目定义.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmItem
BorderStyle = 1 'Fixed Single
Caption = "项目定义"
ClientHeight = 4800
ClientLeft = 4050
ClientTop = 1950
ClientWidth = 7275
HelpContextID = 88000058
Icon = "项目定义.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4800
ScaleWidth = 7275
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 420
Left = 0
TabIndex = 14
Top = 0
Width = 7275
_ExtentX = 12832
_ExtentY = 741
ButtonWidth = 635
ButtonHeight = 582
AllowCustomize = 0 'False
Appearance = 1
ImageList = "ImageList1"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 4
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Modify"
Object.Tag = ""
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Help"
Object.Tag = ""
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Exit"
Object.Tag = ""
EndProperty
EndProperty
End
Begin TabDlg.SSTab SSTab1
Height = 3855
Left = 210
TabIndex = 0
Top = 720
Width = 6795
_ExtentX = 11986
_ExtentY = 6800
_Version = 393216
TabHeight = 520
TabCaption(0) = "大类信息"
TabPicture(0) = "项目定义.frx":000C
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "cobDl1"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Frame1"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).ControlCount= 3
TabCaption(1) = "项目目录"
TabPicture(1) = "项目定义.frx":0028
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "cobDl2"
Tab(1).Control(1)= "Frame2"
Tab(1).Control(2)= "Label2"
Tab(1).ControlCount= 3
TabCaption(2) = "末级项目信息"
TabPicture(2) = "项目定义.frx":0044
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "cobDl3"
Tab(2).Control(1)= "cobXm"
Tab(2).Control(2)= "Frame3"
Tab(2).Control(3)= "Label3"
Tab(2).Control(4)= "Label4"
Tab(2).ControlCount= 5
Begin VB.ComboBox cobDl2
Height = 300
Left = -73410
Style = 2 'Dropdown List
TabIndex = 9
Top = 540
Width = 2865
End
Begin VB.ComboBox cobDl3
Height = 300
Left = -73890
Style = 2 'Dropdown List
TabIndex = 8
Top = 540
Width = 2085
End
Begin VB.ComboBox cobXm
Height = 300
Left = -70950
Style = 2 'Dropdown List
TabIndex = 7
Top = 540
Width = 2265
End
Begin VB.Frame Frame1
Height = 2505
Left = 450
TabIndex = 6
Top = 930
Width = 5895
Begin VB.OptionButton Option1
Caption = "核算科目"
Height = 435
Index = 1
Left = 1680
TabIndex = 17
Top = 120
Width = 1035
End
Begin VB.OptionButton Option1
Caption = "核算账户"
Height = 435
Index = 0
Left = 360
TabIndex = 16
Top = 120
Value = -1 'True
Width = 1035
End
Begin VB.ListBox lstKm1
Height = 1500
Left = 390
TabIndex = 15
Top = 570
Width = 5085
End
End
Begin VB.ComboBox cobDl1
Height = 300
ItemData = "项目定义.frx":0060
Left = 1500
List = "项目定义.frx":0062
Style = 2 'Dropdown List
TabIndex = 5
Top = 540
Width = 2565
End
Begin VB.Frame Frame2
Caption = "项目目录"
Height = 2535
Left = -74430
TabIndex = 3
Top = 960
Width = 5505
Begin MSFlexGridLib.MSFlexGrid flgXm
Height = 2055
Left = 360
TabIndex = 4
Top = 330
Width = 4755
_ExtentX = 8387
_ExtentY = 3625
_Version = 393216
FixedCols = 0
End
End
Begin VB.Frame Frame3
Height = 2535
Left = -74520
TabIndex = 1
Top = 960
Width = 5505
Begin VB.OptionButton Option2
Caption = "核算科目"
Height = 435
Index = 1
Left = 1770
TabIndex = 19
Top = 120
Width = 1035
End
Begin VB.OptionButton Option2
Caption = "核算账户"
Height = 435
Index = 0
Left = 450
TabIndex = 18
Top = 120
Value = -1 'True
Width = 1035
End
Begin VB.ListBox lstKm2
Height = 1500
Left = 390
TabIndex = 2
Top = 570
Width = 4695
End
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "大类名称"
Height = 180
Left = -74250
TabIndex = 13
Top = 600
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "大类名称"
Height = 180
Left = -74670
TabIndex = 12
Top = 600
Width = 720
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "项目名称"
Height = 180
Left = -71730
TabIndex = 11
Top = 600
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "项目大类"
Height = 180
Left = 630
TabIndex = 10
Top = 600
Width = 720
End
End
Begin ComctlLib.ImageList ImageList1
Left = 3360
Top = 2130
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
End
Attribute VB_Name = "frmItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 项目定义
'作者: 赵春立
Option Explicit
'项目表主键[iitem_id] 与 CobXm 列表中项目名称之间的一一对应
Private lngXmID() As Long
Const iXmID = 10
Private blnRuned As Boolean
Private blnDlXmKm As Boolean
Public blnRefresh As Boolean
'Public WithEvents RefreshMe As frmItmWzd
Private Sub cobDl1_Click()
If blnRuned Then
cobDl2.ListIndex = cobDl1.ListIndex
cobDl3.ListIndex = cobDl1.ListIndex
End If
Static lngDl1 As Long
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -