📄 开户单位定义.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Object = "{18F95930-A715-11D1-92AC-A8AE05C10000}#7.0#0"; "UFSIZE.OCX"
Object = "{B03157BC-EBCD-11D1-9D4B-000021017F3D}#4.0#0"; "UFUSEFLG.OCX"
Begin VB.Form frmEntDef
Caption = "单位定义"
ClientHeight = 4425
ClientLeft = 1410
ClientTop = 2805
ClientWidth = 8880
ForeColor = &H00C0E0FF&
HelpContextID = 88000011
Icon = "开户单位定义.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 4425
ScaleWidth = 8880
Begin ComctlLib.Toolbar tlb_dwdy
Align = 1 'Align Top
Height = 600
Left = 0
TabIndex = 6
Top = 0
Width = 8880
_ExtentX = 15663
_ExtentY = 1058
ButtonWidth = 820
ButtonHeight = 953
AllowCustomize = 0 'False
Wrappable = 0 'False
ImageList = "ImageList1"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 13
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "打印"
Key = "Print"
Description = "打印"
Object.ToolTipText = "打印"
Object.Tag = ""
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Preview"
Description = "预览"
Object.ToolTipText = "预览"
Object.Tag = ""
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Dataout"
Description = "数据输出"
Object.ToolTipText = "数据输出"
Object.Tag = ""
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "add"
Description = "增加"
Object.ToolTipText = "增加"
Object.Tag = ""
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "del"
Object.ToolTipText = "删除"
Object.Tag = ""
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "refresh"
Object.Tag = ""
EndProperty
BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "import"
Object.Tag = ""
EndProperty
BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "find"
Object.ToolTipText = "定位"
Object.Tag = ""
EndProperty
BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button12 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "help"
Object.ToolTipText = "帮助"
Object.Tag = ""
EndProperty
BeginProperty Button13 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "exit"
Object.ToolTipText = "退出"
Object.Tag = ""
EndProperty
EndProperty
End
Begin JackSize.JackResize Resize
Height = 3690
Left = 3705
TabIndex = 12
Top = 675
Width = 45
_ExtentX = 79
_ExtentY = 6509
End
Begin VB.PictureBox Picture1
Height = 3735
Left = 3750
ScaleHeight = 3675
ScaleWidth = 5130
TabIndex = 7
TabStop = 0 'False
Top = 675
Width = 5190
Begin zjUseFlg.UsedFlag uf1
Height = 360
Left = 3480
TabIndex = 13
Top = 360
Width = 795
_ExtentX = 1402
_ExtentY = 635
Object.visible = "True"
Caption = "已使用"
End
Begin VB.ComboBox cobtype
BackColor = &H00FFFFFF&
Height = 300
Left = 720
Style = 2 'Dropdown List
TabIndex = 1
Top = 375
Width = 1815
End
Begin VB.CommandButton cmdOk
Height = 375
Left = 720
Style = 1 'Graphical
TabIndex = 5
Top = 2925
Width = 1035
End
Begin EDITLib.Edit txt
Height = 300
Index = 0
Left = 720
TabIndex = 2
Top = 1020
Width = 2535
_Version = 65536
_ExtentX = 4471
_ExtentY = 529
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 1
MaxLength = 22
BadStr = "| "
End
Begin EDITLib.Edit txt
Height = 300
Index = 1
Left = 720
TabIndex = 3
Top = 1665
Width = 3960
_Version = 65536
_ExtentX = 6985
_ExtentY = 529
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 1
BadStr = "|"
End
Begin EDITLib.Edit txt
Height = 300
Index = 2
Left = 720
TabIndex = 4
Top = 2310
Width = 3960
_Version = 65536
_ExtentX = 6985
_ExtentY = 529
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 1
BadStr = "|"
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "类型"
Height = 180
Left = 210
TabIndex = 11
Top = 435
Width = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "编码"
Height = 180
Left = 210
TabIndex = 10
Top = 1080
Width = 360
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "名称"
Height = 180
Left = 210
TabIndex = 9
Top = 1725
Width = 360
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "备注"
Height = 180
Left = 210
TabIndex = 8
Top = 2370
Width = 360
End
End
Begin ComctlLib.TreeView tvEnt
Height = 3735
Left = 30
TabIndex = 0
Top = 675
Width = 3705
_ExtentX = 6535
_ExtentY = 6588
_Version = 327682
Indentation = 471
LabelEdit = 1
LineStyle = 1
Style = 7
ImageList = "ImageList1"
Appearance = 1
End
Begin ComctlLib.ImageList ImageList1
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
End
Attribute VB_Name = "frmEntDef"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件（集团）有限公司
'系统名称: 资金管理8.0
'功能说明: 开户单位设置
'作者: 魏小黎
Option Explicit
Dim drag As Boolean
Dim startx As Single, endx As Single
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -