📄 bas_editipdata.dfm
字号:
object Bas_EditIPDataForm: TBas_EditIPDataForm
Left = 206
Top = 112
BorderIcons = []
BorderStyle = bsSingle
ClientHeight = 453
ClientWidth = 609
Color = 14085099
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
OnCreate = FormCreate
OnKeyPress = FormKeyPress
PixelsPerInch = 96
TextHeight = 12
object CoolBar1: TCoolBar
Left = 0
Top = 0
Width = 609
Height = 60
AutoSize = True
Bands = <
item
Control = RzToolbar1
ImageIndex = -1
MinHeight = 56
Width = 605
end>
FixedSize = True
FixedOrder = True
object RzToolbar1: TRzToolbar
Left = 0
Top = 0
Width = 601
Height = 56
Images = MainForm.ImageList2
RowHeight = 40
ButtonLayout = blGlyphTop
ButtonWidth = 60
ButtonHeight = 40
ShowButtonCaptions = True
TextOptions = ttoShowTextLabels
AutoSize = True
BorderInner = fsNone
BorderOuter = fsGroove
BorderSides = [sdTop]
BorderWidth = 0
TabOrder = 0
VisualStyle = vsGradient
ToolbarControls = (
RzSpacer1
ToolButton1
RzSpacer2
ToolButton3
RzSpacer3
RzToolButton1
RzSpacer4
ToolButton4
RzSpacer6
ToolButton7
RzSpacer8)
object ToolButton1: TRzToolButton
Left = 12
Top = 0
Width = 60
Height = 56
Cursor = crHandPoint
ImageIndex = 6
Layout = blGlyphTop
UseToolbarButtonLayout = False
UseToolbarButtonSize = False
Caption = #26597#35810
OnClick = ToolButton1Click
end
object ToolButton3: TRzToolButton
Left = 80
Top = 0
Width = 60
Height = 56
Cursor = crHandPoint
ImageIndex = 5
Layout = blGlyphTop
UseToolbarButtonLayout = False
UseToolbarButtonSize = False
Caption = #20462#25913
OnClick = ToolButton3Click
end
object ToolButton4: TRzToolButton
Left = 216
Top = 0
Width = 60
Height = 56
Cursor = crHandPoint
ImageIndex = 3
Layout = blGlyphTop
UseToolbarButtonLayout = False
UseToolbarButtonSize = False
Caption = #20445#23384
OnClick = ToolButton4Click
end
object ToolButton7: TRzToolButton
Left = 284
Top = 0
Width = 60
Height = 56
Cursor = crHandPoint
ImageIndex = 9
Layout = blGlyphTop
UseToolbarButtonLayout = False
UseToolbarButtonSize = False
Caption = #20851#38381
OnClick = ToolButton7Click
end
object RzSpacer1: TRzSpacer
Left = 4
Top = 2
Height = 52
Grooved = True
end
object RzSpacer2: TRzSpacer
Left = 72
Top = 2
Height = 52
Grooved = True
end
object RzSpacer4: TRzSpacer
Left = 208
Top = 2
Height = 52
Grooved = True
end
object RzSpacer6: TRzSpacer
Left = 276
Top = 2
Height = 52
Grooved = True
end
object RzSpacer8: TRzSpacer
Left = 344
Top = 2
Height = 52
Grooved = True
end
object RzToolButton1: TRzToolButton
Left = 148
Top = 0
Width = 60
Height = 56
ImageIndex = 2
Layout = blGlyphTop
UseToolbarButtonLayout = False
UseToolbarButtonSize = False
Caption = #21024#38500
OnClick = RzToolButton1Click
end
object RzSpacer3: TRzSpacer
Left = 140
Top = 2
Height = 52
Grooved = True
end
end
end
object GroupBox2: TGroupBox
Left = 0
Top = 60
Width = 609
Height = 35
Align = alTop
Color = 15268861
ParentColor = False
TabOrder = 1
object Label10: TLabel
Left = 124
Top = 14
Width = 48
Height = 12
Caption = #26465#20214#31867#21035
Transparent = True
end
object Label11: TLabel
Left = 308
Top = 14
Width = 48
Height = 12
Caption = #26597#35810#26465#20214
Transparent = True
end
object ComboBox2: TcxComboBox
Left = 180
Top = 9
Style.Edges = [bBottom]
TabOrder = 0
Width = 121
end
object Edit10: TcxTextEdit
Left = 364
Top = 9
Style.Edges = [bBottom]
TabOrder = 1
Width = 121
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 429
Width = 609
Height = 24
Panels = <
item
Alignment = taCenter
Text = #25805#20316#25552#31034
Width = 60
end
item
Width = 50
end>
end
object GroupBox1: TGroupBox
Left = 0
Top = 95
Width = 609
Height = 109
Align = alTop
Color = 16250871
Enabled = False
ParentColor = False
TabOrder = 3
object Label1: TLabel
Left = 10
Top = 16
Width = 24
Height = 12
Caption = #31867#21035
Transparent = True
end
object Label2: TLabel
Left = 152
Top = 16
Width = 48
Height = 12
Caption = #33521#25991#21517#31216
Transparent = True
end
object Label3: TLabel
Left = 376
Top = 16
Width = 48
Height = 12
Caption = #20013#25991#21517#31216
Transparent = True
end
object Label4: TLabel
Left = 10
Top = 40
Width = 24
Height = 12
Caption = #32593#22336
Transparent = True
end
object Label5: TLabel
Left = 210
Top = 38
Width = 48
Height = 12
Caption = #20135#21697#26381#21153
Transparent = True
end
object Label6: TLabel
Left = 376
Top = 62
Width = 24
Height = 12
Caption = #22320#22336
Transparent = True
end
object Label7: TLabel
Left = 8
Top = 62
Width = 24
Height = 12
Caption = #30005#35805
Transparent = True
end
object Label8: TLabel
Left = 210
Top = 62
Width = 24
Height = 12
Caption = #20256#30495
Transparent = True
end
object Label9: TLabel
Left = 10
Top = 86
Width = 48
Height = 12
Caption = #30005#23376#37038#31665
Transparent = True
end
object Label12: TLabel
Left = 272
Top = 88
Width = 6
Height = 12
Transparent = True
Visible = False
end
object Combobox1: TcxLookupComboBox
Left = 40
Top = 9
ImeMode = imOpen
ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
Properties.ImeMode = imOpen
Properties.ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
Properties.KeyFieldNames = 'SortName'
Properties.ListColumns = <
item
FieldName = 'SortName'
end>
Properties.ListSource = DataSource2
Style.Edges = [bBottom]
TabOrder = 0
Width = 105
end
object Edit1: TcxTextEdit
Left = 208
Top = 9
ImeMode = imClose
Properties.ImeMode = imClose
Style.Edges = [bBottom]
TabOrder = 1
Width = 161
end
object Edit2: TcxTextEdit
Left = 432
Top = 9
ImeMode = imOpen
ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
Properties.ImeMode = imOpen
Properties.ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
Style.Edges = [bBottom]
TabOrder = 2
Width = 161
end
object Edit3: TcxTextEdit
Left = 40
Top = 33
ImeMode = imClose
Properties.ImeMode = imClose
Style.Edges = [bBottom]
TabOrder = 3
Width = 161
end
object Edit4: TcxTextEdit
Left = 264
Top = 32
ImeMode = imOpen
ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
Properties.ImeMode = imOpen
Properties.ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
Style.Edges = [bBottom]
TabOrder = 4
Width = 329
end
object Edit5: TcxTextEdit
Left = 408
Top = 56
ImeMode = imOpen
ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
Properties.ImeMode = imOpen
Properties.ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
Style.Edges = [bBottom]
TabOrder = 5
Width = 185
end
object Edit6: TcxTextEdit
Left = 40
Top = 56
ImeMode = imClose
Properties.ImeMode = imClose
Style.Edges = [bBottom]
TabOrder = 6
Width = 161
end
object Edit7: TcxTextEdit
Left = 240
Top = 56
ImeMode = imClose
Properties.ImeMode = imClose
Style.Edges = [bBottom]
TabOrder = 7
Width = 113
end
object Edit8: TcxTextEdit
Left = 72
Top = 80
ImeMode = imClose
Properties.ImeMode = imClose
Style.Edges = [bBottom]
TabOrder = 8
Width = 185
end
end
object DBGridEh1: TDBGridEh
Left = 0
Top = 204
Width = 609
Height = 225
Align = alClient
DataSource = DataSource1
FixedColor = 14085099
Flat = True
FooterColor = clYellow
FooterFont.Charset = DEFAULT_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -12
FooterFont.Name = #23435#20307
FooterFont.Style = []
FooterRowCount = 1
FrozenCols = 1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
OptionsEh = [dghFixed3D, dghFrozen3D, dghFooter3D, dghHighlightFocus, dghClearSelection, dghEnterAsTab, dghTraceColSizing, dghRowHighlight, dghDblClickOptimizeColWidth, dghDialogFind]
ReadOnly = True
TabOrder = 4
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
UseMultiTitle = True
Columns = <
item
EditButtons = <>
FieldName = 'SortName'
Footers = <>
Title.Caption = #31867#21035
Width = 92
end
item
EditButtons = <>
FieldName = 'EnglishName'
Footers = <>
Title.Caption = #33521#25991#21517#31216
Width = 172
end
item
EditButtons = <>
FieldName = 'ChineseName'
Footers = <>
Title.Caption = #20013#25991#21517#31216
Width = 134
end
item
EditButtons = <>
FieldName = 'WebSite'
Footers = <>
Title.Caption = #32593#22336
Width = 170
end
item
EditButtons = <>
FieldName = 'ServiceAndProduct'
Footers = <>
Title.Caption = #20135#21697#26381#21153
Width = 219
end
item
EditButtons = <>
FieldName = 'Address'
Footers = <>
Title.Caption = #22320#22336
Width = 142
end
item
EditButtons = <>
FieldName = 'PhoneNo'
Footers = <>
Title.Caption = #30005#35805#21495#30721
Width = 134
end
item
EditButtons = <>
FieldName = 'FaxNo'
Footers = <>
Title.Caption = #20256#30495#21495#30721
Width = 109
end
item
EditButtons = <>
FieldName = 'EMailAddress'
Footers = <>
Title.Caption = #30005#37038
Width = 140
end>
end
object DataQuery: TMSQuery
Connection = MainForm.MC
SQL.Strings = (
'Select * From Bas_IPRecord Order By WebSite')
FetchAll = False
Left = 168
Top = 312
end
object WorkQuery: TMSQuery
Connection = MainForm.MC
Left = 264
Top = 320
end
object SortQuery: TMSQuery
Connection = MainForm.MC
SQL.Strings = (
'Select * From Bas_SortTable Order By SortName')
Active = True
Left = 33
Top = 275
end
object DataSource2: TDataSource
DataSet = SortQuery
Left = 33
Top = 227
end
object DataSource1: TDataSource
DataSet = DataQuery
Left = 216
Top = 256
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -