?? unit_setupservtype.dfm
字號:
inherited Frm_Setupservtype: TFrm_Setupservtype
Left = 134
Top = 19
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 = 'TYPECODE'
PickList.Strings = ()
Title.Alignment = taCenter
Visible = False
end
item
Expanded = False
FieldName = 'SERVTYPE'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '服務類型'
Width = 288
Visible = True
end
item
Expanded = False
FieldName = 'REMARK'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '備注'
Width = 384
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 = 12
Text = ''
OnKeyPress = FlatEdit1KeyPress
end
object FlatEdit2: TFlatEdit
Left = 416
Top = 8
Width = 161
Height = 22
ColorFlat = clBtnFace
ParentColor = True
MaxLength = 20
TabOrder = 1
OnKeyPress = FlatEdit2KeyPress
end
end
inherited Query_PUB: TQuery
CachedUpdates = True
AfterScroll = Query_PUBAfterScroll
SQL.Strings = (
'select * from t_d_servtype')
UpdateObject = UpdateSQL1
end
object UpdateSQL1: TUpdateSQL
Left = 296
Top = 56
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -