📄 单据格式定义.frm
字号:
VERSION 5.00
Object = "{B0475000-7740-11D1-BDC3-0020AF9F8E6E}#6.1#0"; "TTF16.ocx"
Object = "{18F95930-A715-11D1-92AC-A8AE05C10000}#7.0#0"; "UFSize.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{5AD81966-3173-4597-A32E-4F4620DA3B57}#3.4#0"; "U8TBCtl.ocx"
Begin VB.Form frmVchDefine
Caption = "单据格式定义"
ClientHeight = 4695
ClientLeft = 60
ClientTop = 345
ClientWidth = 8925
KeyPreview = -1 'True
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 4695
ScaleWidth = 8925
WindowState = 2 'Maximized
Begin VB.PictureBox picContainer
AutoRedraw = -1 'True
BackColor = &H80000009&
Height = 3930
Left = 2400
ScaleHeight = 3870
ScaleWidth = 6405
TabIndex = 0
Top = 720
Width = 6465
Begin TTF160Ctl.F1Book objF1Book
Height = 3615
Left = 0
TabIndex = 4
Top = 0
Width = 6135
_ExtentX = 10821
_ExtentY = 6376
_0 = $"单据格式定义.frx":0000
_1 = $"单据格式定义.frx":0409
_2 = $"单据格式定义.frx":0812
_3 = $"单据格式定义.frx":0C1C
_4 = $"单据格式定义.frx":1025
_5 = $"单据格式定义.frx":142E
_6 = $"单据格式定义.frx":1837
_7 = $"单据格式定义.frx":1C40
_8 = $"单据格式定义.frx":2049
_9 = $"单据格式定义.frx":2452
_10 = $"单据格式定义.frx":285B
_11 = $"单据格式定义.frx":2C64
_12 = $"单据格式定义.frx":306D
_13 = $"单据格式定义.frx":3476
_14 = $"单据格式定义.frx":387F
_15 = $"单据格式定义.frx":3C88
_16 = $"单据格式定义.frx":4091
_17 = $"单据格式定义.frx":449A
_18 = $"单据格式定义.frx":48A3
_19 = $"单据格式定义.frx":4CAC
_20 = $"单据格式定义.frx":50B5
_21 = $"单据格式定义.frx":54BE
_22 = $"单据格式定义.frx":58C7
_23 = $"单据格式定义.frx":5CD0
_24 = $"单据格式定义.frx":60D9
_25 = $"单据格式定义.frx":64E2
_26 = $"单据格式定义.frx":68EB
_27 = $"单据格式定义.frx":6CF4
_28 = $"单据格式定义.frx":70FD
_29 = $"单据格式定义.frx":7506
_30 = $"单据格式定义.frx":790F
_31 = $"单据格式定义.frx":7D18
_32 = $"单据格式定义.frx":8121
_33 = $"单据格式定义.frx":852A
_34 = $"单据格式定义.frx":8933
_35 = $"单据格式定义.frx":8D3C
_36 = $"单据格式定义.frx":9145
_37 = $"单据格式定义.frx":954E
_38 = $"单据格式定义.frx":9957
_39 = $"单据格式定义.frx":9D60
_40 = $"单据格式定义.frx":A169
_41 = $"单据格式定义.frx":A572
_42 = $"单据格式定义.frx":A97B
_43 = $"单据格式定义.frx":AD84
_44 = $"单据格式定义.frx":B18D
_45 = $"单据格式定义.frx":B596
_46 = $"单据格式定义.frx":B99F
_47 = $"单据格式定义.frx":BDA8
_48 = $"单据格式定义.frx":C1B1
_49 = $"单据格式定义.frx":C5BA
_50 = $"单据格式定义.frx":C9C3
_51 = $"单据格式定义.frx":CDCC
_52 = $"单据格式定义.frx":D1D5
_53 = $"单据格式定义.frx":D5DD
_54 = $"单据格式定义.frx":D9E6
_55 = $"单据格式定义.frx":DDEF
_56 = $"单据格式定义.frx":E1F8
_57 = $"单据格式定义.frx":E601
_58 = $"单据格式定义.frx":EA0A
_59 = $"单据格式定义.frx":EE14
_60 = $"单据格式定义.frx":F21D
_61 = $"单据格式定义.frx":F626
_62 = $"单据格式定义.frx":FA2F
_63 = $"单据格式定义.frx":FE38
_64 = $"单据格式定义.frx":10241
_65 = $"单据格式定义.frx":1064A
_66 = $"单据格式定义.frx":10A53
_67 = $"单据格式定义.frx":10E5C
_68 = $"单据格式定义.frx":11265
_69 = $"单据格式定义.frx":1166E
_70 = $"单据格式定义.frx":11A77
_71 = $"单据格式定义.frx":11E80
_72 = $"单据格式定义.frx":1228A
_73 = $"单据格式定义.frx":12693
_74 = $"单据格式定义.frx":12A9C
_75 = $"单据格式定义.frx":12EA5
_76 = $"单据格式定义.frx":132AE
_77 = $"单据格式定义.frx":136B7
_78 = $"单据格式定义.frx":13AC0
_79 = $"单据格式定义.frx":13EC9
_80 = $"单据格式定义.frx":142D2
_81 = $"单据格式定义.frx":146DB
_82 = $"单据格式定义.frx":14AE5
_83 = $"单据格式定义.frx":14EEE
_84 = $"单据格式定义.frx":152F7
_85 = $"单据格式定义.frx":15700
_86 = $"单据格式定义.frx":15B09
_87 = $"单据格式定义.frx":15F13
_88 = $"单据格式定义.frx":1631C
_89 = $"单据格式定义.frx":16725
_90 = $"单据格式定义.frx":16B2E
_91 = $"单据格式定义.frx":16F37
_92 = $"单据格式定义.frx":17340
_93 = $"单据格式定义.frx":17749
_94 = $"单据格式定义.frx":17B52
_95 = $"单据格式定义.frx":17F5B
_96 = $"单据格式定义.frx":18364
_97 = $"单据格式定义.frx":1876D
_98 = $"单据格式定义.frx":18B77
_99 = $"单据格式定义.frx":18F80
_100 = $"单据格式定义.frx":19389
_101 = $"单据格式定义.frx":19792
_102 = $"单据格式定义.frx":19B9C
_103 = $"单据格式定义.frx":19FA5
_104 = $"单据格式定义.frx":1A3AD
_105 = $"单据格式定义.frx":1A7B6
_106 = $"单据格式定义.frx":1ABBF
_107 = $"单据格式定义.frx":1AFC8
_108 = $"单据格式定义.frx":1B3D1
_109 = $"单据格式定义.frx":1B7DA
_110 = $"单据格式定义.frx":1BBE3
_111 = $"单据格式定义.frx":1BFEC
_112 = $"单据格式定义.frx":1C3F5
_113 = $"单据格式定义.frx":1C7FE
_114 = $"单据格式定义.frx":1CC08
_115 = $"单据格式定义.frx":1D011
_116 = $"单据格式定义.frx":1D41A
_117 = $"单据格式定义.frx":1D823
_118 = $"单据格式定义.frx":1DC2C
_119 = $"单据格式定义.frx":1E035
_120 = $"单据格式定义.frx":1E43E
_121 = $"单据格式定义.frx":1E847
_122 = $"单据格式定义.frx":1EC50
_123 = $"单据格式定义.frx":1F059
_124 = $"单据格式定义.frx":1F462
_125 = $"单据格式定义.frx":1F86B
_126 = $"单据格式定义.frx":1FC74
_127 = $"单据格式定义.frx":2007D
_128 = $"单据格式定义.frx":20486
_129 = $"单据格式定义.frx":2088F
_130 = $"单据格式定义.frx":20C98
_131 = $"单据格式定义.frx":210A1
_132 = $"单据格式定义.frx":214AA
_133 = $"单据格式定义.frx":218B3
_134 = $"单据格式定义.frx":21CBC
_135 = $"单据格式定义.frx":220C5
_136 = $"单据格式定义.frx":224CE
_137 = $"单据格式定义.frx":228D7
_138 = $"单据格式定义.frx":22CE0
_139 = $"单据格式定义.frx":230E9
_140 = $"单据格式定义.frx":234F2
_count = 141
_ver = 2
End
End
Begin JackSize.JackResize jkrTree
Height = 3825
Left = 2205
TabIndex = 2
Top = 825
Width = 105
_ExtentX = 185
_ExtentY = 6747
End
Begin MSComctlLib.Toolbar tlbAction
Align = 1 'Align Top
Height = 540
Left = 0
TabIndex = 3
Top = 0
Width = 8925
_ExtentX = 15743
_ExtentY = 953
ButtonWidth = 820
ButtonHeight = 953
AllowCustomize = 0 'False
Wrappable = 0 'False
Style = 1
ImageList = "ilsTlb"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 5
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改"
Key = "Edit"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "保存"
Key = "Save"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "Help"
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "Exit"
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ilsTlbTre
Left = 600
Top = 3000
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 3
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单据格式定义.frx":2367A
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单据格式定义.frx":23ACC
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单据格式定义.frx":23F1E
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.TreeView treStyle
Height = 3810
Left = 45
TabIndex = 1
Top = 735
Width = 2085
_ExtentX = 3678
_ExtentY = 6720
_Version = 393217
HideSelection = 0 'False
Indentation = 529
LabelEdit = 1
Style = 7
HotTracking = -1 'True
ImageList = "ilsTlbTre"
Appearance = 1
End
Begin MSComctlLib.ImageList ilsTlb
Left = 200
Top = 2000
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 3
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单据格式定义.frx":24370
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单据格式定义.frx":247C2
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单据格式定义.frx":24C14
Key = ""
EndProperty
EndProperty
End
Begin prjTBCtrl.CTBCtrl ocxCtbTool
Height = 660
Left = 0
Top = 0
Width = 3975
_ExtentX = 7011
_ExtentY = 1164
End
End
Attribute VB_Name = "frmVchDefine"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'--------------------------------
'时间:2001.11.12
'版权:北京用友软件股份有限公司
'设计:章景峰
'编码:章景峰
'说明:U8资金管理---单据格式定义
'--------------------------------
Option Explicit
Private m_EO As New U8FDEso.EntityObject
Private CellFormat As F1CellFormat
Private MergeCell As Boolean
Public NodeKey As Long
Private TopLeft As Boolean
Private lRow As Long
Private lStartCol As Long
Private lInputCol As Long
Private lEndCol As Long
Public lDownRow As Long
Public lDownCol As Long
Public lUpRow As Long
Public lUpCol As Long
Public Property Get EO() As U8FDEso.EntityObject
Set EO = m_EO
End Property
Public Property Set EO(NewEO As U8FDEso.EntityObject)
Set m_EO = NewEO
End Property
Public Function FieldObjectRC(Row As Long, StartCol As Long, Optional EndCol As Long, Optional IsMatching As Boolean = False) As U8FDEso.FieldObject
Dim oFO As U8FDEso.FieldObject
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -