📄 i-+
字号:
VERSION 5.00
Object = "{9ADF72AD-DDA9-11D1-9D4B-000021006D51}#1.2#0"; "UFSpGrid.ocx"
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Object = "{18F95930-A715-11D1-92AC-A8AE05C10000}#7.0#0"; "UFSize.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{7E0DF0CE-703B-11D3-8E57-0000210152D8}#1.0#0"; "UsRefBut.ocx"
Object = "{B03157BC-EBCD-11D1-9D4B-000021017F3D}#4.0#0"; "UfUseFlg.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{5AD81966-3173-4597-A32E-4F4620DA3B57}#3.4#0"; "U8TBCtl.ocx"
Object = "{1A756D10-188A-48FB-B0C1-36BE7B352DAC}#2.0#0"; "U8RefBut.ocx"
Begin VB.Form frmAccDef
AutoRedraw = -1 'True
Caption = "账户定义"
ClientHeight = 6420
ClientLeft = 60
ClientTop = 345
ClientWidth = 11250
KeyPreview = -1 'True
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 6420
ScaleWidth = 11250
WindowState = 2 'Maximized
Begin VB.PictureBox picView
Height = 5655
Left = 2040
ScaleHeight = 5595
ScaleWidth = 9795
TabIndex = 25
Top = 720
Width = 9855
Begin VB.CommandButton cmdCode
Height = 285
Left = 5230
TabIndex = 1
Top = 120
Visible = 0 'False
Width = 270
End
Begin MSComctlLib.ImageList ilsTlb
Left = 6840
Top = 240
_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":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "账户定义.frx":0452
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "账户定义.frx":08A4
Key = ""
EndProperty
EndProperty
End
Begin TabDlg.SSTab tabAccDef
Height = 4065
Left = 120
TabIndex = 31
Top = 1320
Width = 8880
_ExtentX = 15663
_ExtentY = 7170
_Version = 393216
Tabs = 2
TabsPerRow = 2
TabHeight = 520
TabCaption(0) = "基本信息"
TabPicture(0) = "账户定义.frx":0CF6
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "fraGeneral"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "入账科目"
TabPicture(1) = "账户定义.frx":0D12
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "fraEnter"
Tab(1).ControlCount= 1
Begin VB.Frame fraGeneral
BorderStyle = 0 'None
Height = 3615
Left = 120
TabIndex = 34
Top = 360
Width = 8655
Begin U8RefBut.RefCmd RefCmd4
Height = 270
Left = 2400
TabIndex = 68
Top = 668
Width = 270
_ExtentX = 476
_ExtentY = 476
End
Begin EDITLib.Edit txtbwQcYe
Height = 300
Left = 1155
TabIndex = 15
Top = 2280
Width = 1215
_Version = 65536
_ExtentX = 2143
_ExtentY = 529
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
End
Begin VB.Frame fraFreeze
Caption = "冻结状态"
Height = 975
Left = 5400
TabIndex = 37
Top = 2430
Width = 1500
Begin VB.PictureBox picFreeze
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 600
Left = 180
ScaleHeight = 600
ScaleWidth = 1155
TabIndex = 38
Top = 240
Width = 1155
Begin VB.Shape shpFreeze
BorderColor = &H000000FF&
Height = 300
Left = 275
Shape = 4 'Rounded Rectangle
Top = 150
Width = 600
End
Begin VB.Label lblFreeze
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "冻 结"
ForeColor = &H000000FF&
Height = 195
Left = 375
TabIndex = 39
Top = 203
Width = 405
End
End
End
Begin VB.Frame fraDestroy
Caption = "销户状态"
Height = 975
Left = 6885
TabIndex = 40
Top = 2430
Width = 1500
Begin VB.PictureBox picDestroy
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 600
Left = 180
ScaleHeight = 600
ScaleWidth = 1155
TabIndex = 41
Top = 240
Width = 1155
Begin VB.Shape shpDestroy
BorderColor = &H000000FF&
Height = 300
Left = 275
Shape = 4 'Rounded Rectangle
Top = 150
Width = 600
End
Begin VB.Label lblDestroy
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "销 户"
ForeColor = &H000000FF&
Height = 195
Left = 375
TabIndex = 42
Top = 203
Width = 405
End
End
End
Begin VB.CommandButton cmdOpendate
Height = 285
Left = 2400
TabIndex = 4
Top = 240
Width = 270
End
Begin VB.ComboBox cboAccIO
BackColor = &H00FFFFFF&
Height = 315
ItemData = "账户定义.frx":0D2E
Left = 3765
List = "账户定义.frx":0D38
Style = 2 'Dropdown List
TabIndex = 12
Top = 1463
Width = 1215
End
Begin VB.ComboBox cboAccType
BackColor = &H00FFFFFF&
Height = 315
ItemData = "账户定义.frx":0D48
Left = 1155
List = "账户定义.frx":0D55
Style = 2 'Dropdown List
TabIndex = 11
Top = 1463
Width = 1215
End
Begin VB.Frame fraYt
Height = 840
Left = 5430
TabIndex = 43
Top = 1455
Width = 2955
Begin VB.CheckBox chkYt
Caption = "计算预提利息"
Height = 255
Left = 120
TabIndex = 22
Top = 0
Width = 1515
End
Begin EDITLib.Edit txtYtCad
Height = 300
Index = 1
Left = 390
TabIndex = 23
Top = 360
Width = 1935
_Version = 65536
_ExtentX = 3413
_ExtentY = 529
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
End
Begin EDITLib.Edit txtYtCad
Height = 300
Index = 0
Left = 390
TabIndex = 55
Top = 360
Visible = 0 'False
Width = 1935
_Version = 65536
_ExtentX = 3413
_ExtentY = 529
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
End
Begin UsRefBut.RefCmd RefCmd3
Height = 270
Left = 2355
TabIndex = 67
Top = 360
Width = 270
_ExtentX = 476
_ExtentY = 476
RefMode = 3
RefUnitMode = 0
RefAccMode = 0
Enabled = -1 'True
End
Begin VB.CommandButton cmdYtCad
Height = 285
Left = 2355
TabIndex = 24
Top = 360
Visible = 0 'False
Width = 270
End
End
Begin VB.Frame fraDeficit
Height = 1095
Left = 5430
TabIndex = 35
Top = 240
Width = 2955
Begin VB.CheckBox chkDeficitRestrict
Caption = "赤字时限制操作"
Height = 240
Left = 930
TabIndex = 21
Top = 720
Width = 1575
End
Begin VB.CheckBox chkDeficit
Caption = "赤字控制"
Height = 255
Left = 120
TabIndex = 19
Top = 0
Width = 1095
End
Begin EDITLib.Edit txtDeficit
Height = 300
Left = 1200
TabIndex = 20
Top = 315
Width = 1335
_Version = 65536
_ExtentX = 2355
_ExtentY = 529
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
End
Begin VB.Label lblAccDef
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "赤字金额"
Height = 180
Index = 10
Left = 390
TabIndex = 36
Top = 375
Width = 720
End
End
Begin VB.ComboBox cboSource
BackColor = &H00FFFFFF&
Height = 315
ItemData = "账户定义.frx":0D6B
Left = 1155
List = "账户定义.frx":0D75
Style = 2 'Dropdown List
TabIndex = 9
Top = 1080
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -