📄 sys_gssz.frm
字号:
VERSION 5.00
Object = "{A964BDA3-3E93-11CF-9A0F-9E6261DACD1C}#3.0#0"; "Resize32.ocx"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{0D6234D1-DBA2-11D1-B5DF-0060976089D0}#6.0#0"; "TODG6.OCX"
Begin VB.Form sys_gssz
BorderStyle = 1 'Fixed Single
Caption = "公司名称设置"
ClientHeight = 7305
ClientLeft = 1830
ClientTop = 1605
ClientWidth = 10620
Icon = "sys_gssz.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
MousePointer = 1 'Arrow
Moveable = 0 'False
ScaleHeight = 7305
ScaleWidth = 10620
Begin TrueOleDBGrid60.TDBGrid TDBGrid3
Bindings = "sys_gssz.frx":030A
Height = 7275
Left = 45
OleObjectBlob = "sys_gssz.frx":0325
TabIndex = 26
Top = 0
Width = 3105
End
Begin ResizeLibCtl.ReSize ReSize1
Left = 600
Top = 4350
_Version = 196608
_ExtentX = 741
_ExtentY = 741
_StockProps = 64
Enabled = -1 'True
Enabled = -1 'True
FormMinWidth = 0
FormMinHeight = 0
FormDesignHeight= 7305
FormDesignWidth = 10620
End
Begin VB.Frame Frame2
Height = 825
Left = 3180
TabIndex = 13
Top = 6480
Width = 7425
Begin VB.CommandButton Cmdreturn
Caption = "返回"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 610
Left = 6750
Picture = "sys_gssz.frx":2944
Style = 1 'Graphical
TabIndex = 23
Top = 150
Width = 615
End
Begin VB.CommandButton Cmdcancel
Caption = "取消"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 610
Left = 6120
Picture = "sys_gssz.frx":2BC7
Style = 1 'Graphical
TabIndex = 22
Top = 150
Width = 615
End
Begin VB.CommandButton Cmdedit
Caption = "编辑"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 610
Left = 4860
Picture = "sys_gssz.frx":3199
Style = 1 'Graphical
TabIndex = 21
Top = 150
Width = 615
End
Begin VB.CommandButton Cmddelete
Caption = "删除"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 610
Left = 4230
Picture = "sys_gssz.frx":376B
Style = 1 'Graphical
TabIndex = 20
Top = 150
Width = 615
End
Begin VB.CommandButton CmdOK
Caption = "确认"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 610
Left = 5490
Picture = "sys_gssz.frx":3D3D
Style = 1 'Graphical
TabIndex = 19
Top = 150
Width = 615
End
Begin VB.CommandButton Cmdadd
Caption = "添加"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 610
Left = 3600
Picture = "sys_gssz.frx":3E2F
Style = 1 'Graphical
TabIndex = 18
Top = 150
Width = 615
End
Begin VB.CommandButton cmdqd
Caption = "前端"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 610
Left = 60
Picture = "sys_gssz.frx":4451
Style = 1 'Graphical
TabIndex = 17
Top = 150
Width = 615
End
Begin VB.CommandButton cmdxq
Caption = "向前"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 610
Left = 675
Picture = "sys_gssz.frx":4A23
Style = 1 'Graphical
TabIndex = 16
Top = 150
Width = 615
End
Begin VB.CommandButton cmdnext
Caption = "向后"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 610
Left = 1290
Picture = "sys_gssz.frx":4FF5
Style = 1 'Graphical
TabIndex = 15
Top = 150
Width = 615
End
Begin VB.CommandButton cmdmd
Caption = "后端"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 610
Left = 1905
Picture = "sys_gssz.frx":55C7
Style = 1 'Graphical
TabIndex = 14
Top = 150
Width = 615
End
End
Begin VB.Frame Frame1
Height = 6555
Left = 3180
TabIndex = 0
Top = -90
Width = 7395
Begin VB.TextBox Text
BackColor = &H00FFFFC0&
DataField = "FPZT"
DataSource = "AdoprimaryRs"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 7
Left = 1095
Locked = -1 'True
TabIndex = 27
Top = 4095
Width = 1920
End
Begin VB.TextBox Text
BackColor = &H00FFFFC0&
DataField = "gsBH"
DataSource = "AdoprimaryRs"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 1125
Locked = -1 'True
TabIndex = 24
Top = 465
Width = 6210
End
Begin VB.TextBox Text
BackColor = &H00FFFFC0&
DataField = "gsdz"
DataSource = "AdoprimaryRs"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 3
Left = 1125
Locked = -1 'True
TabIndex = 4
Top = 2025
Width = 6210
End
Begin VB.TextBox Text
BackColor = &H00FFFFC0&
DataField = "E_gsmc"
DataSource = "AdoprimaryRs"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 2
Left = 1125
Locked = -1 'True
TabIndex = 2
Top = 1500
Width = 6210
End
Begin VB.TextBox Text
BackColor = &H00FFFFC0&
DataField = "gsmc"
DataSource = "AdoprimaryRs"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 1
Left = 1125
Locked = -1 'True
TabIndex = 1
Top = 990
Width = 6210
End
Begin VB.TextBox Text
BackColor = &H00FFFFC0&
DataField = "E_gsdz"
DataSource = "AdoprimaryRs"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 4
Left = 1125
Locked = -1 'True
TabIndex = 3
Top = 2535
Width = 6210
End
Begin VB.TextBox Text
BackColor = &H00FFFFC0&
DataField = "gs_phone"
DataSource = "AdoprimaryRs"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 5
Left = 1125
Locked = -1 'True
TabIndex = 5
Top = 3060
Width = 6210
End
Begin VB.TextBox Text
BackColor = &H00FFFFC0&
DataField = "gs_fax"
DataSource = "AdoprimaryRs"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 6
Left = 1125
Locked = -1 'True
TabIndex = 6
Top = 3570
Width = 6210
End
Begin VB.Label Label1
Caption = "限两位字母(如:HM)"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 8
Left = 3060
TabIndex = 29
Top = 4185
Width = 2055
End
Begin VB.Label Label1
Caption = "发票字头:"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -