?? unit_setupappeal.dfm
字號:
inherited Frm_SetupAppeal: TFrm_SetupAppeal
Left = 235
Top = 144
Caption = '投訴類別配置'
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 14
inherited DBGrid_PUB: TDBGrid
Options = [dgTitles, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
Columns = <
item
Expanded = False
FieldName = 'SUBJECT_NO'
PickList.Strings = ()
Title.Alignment = taCenter
Visible = False
end
item
Expanded = False
FieldName = 'APPEALSUBJECT'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '投訴主題'
Width = 459
Visible = True
end
item
Expanded = False
FieldName = 'INTRO'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '備注'
Width = 306
Visible = True
end>
end
inherited Pal_button: TPanel
inherited BitBtnAdd: TFlatButton
OnClick = BitBtnAddClick
end
inherited BitBtnAlter: TFlatButton
OnClick = BitBtnAlterClick
end
inherited BitBtnSave: TFlatButton
OnClick = BitBtnSaveClick
end
end
inherited Panel2: TPanel
inherited Label3: TLabel
Left = 11
Caption = '投訴類別'
end
object Label1: TLabel [1]
Left = 360
Top = 16
Width = 28
Height = 14
Caption = '備注'
end
inherited FlatEdit1: TFlatEdit
Left = 77
MaxLength = 60
Text = ''
OnKeyPress = FlatEdit1KeyPress
end
object FlatEdit2: TFlatEdit
Left = 400
Top = 8
Width = 176
Height = 22
ColorFlat = clBtnFace
ParentColor = True
MaxLength = 200
TabOrder = 1
OnKeyPress = FlatEdit2KeyPress
end
end
inherited DataSource_Pub: TDataSource
Left = 144
Top = 64
end
inherited Query_PUB: TQuery
CachedUpdates = True
AfterScroll = Query_PUBAfterScroll
SQL.Strings = (
'select * from t_d_appealsubject')
UpdateObject = UpdateSQL1
Left = 240
Top = 104
end
object UpdateSQL1: TUpdateSQL
Left = 296
Top = 56
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -