?? rgtselectformctrlfrmselect.dfm
object RgtSelectFormCtrlSelect: TRgtSelectFormCtrlSelect
Left = 91
Top = 254
Width = 665
Height = 461
ActiveControl = EdtFormName
BorderIcons = [biSystemMenu]
Caption = '選擇窗體和控件名稱'
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋體'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 14
object Label5: TLabel
Left = 6
Top = 45
Width = 56
Height = 14
Caption = '窗體名稱'
end
object Label6: TLabel
Left = 208
Top = 45
Width = 70
Height = 14
Caption = '標簽頁名稱'
end
object Label7: TLabel
Left = 427
Top = 45
Width = 84
Height = 14
Caption = '控制控件名稱'
end
object Label8: TLabel
Left = 6
Top = 69
Width = 56
Height = 14
Caption = '窗體名稱'
end
object Label9: TLabel
Left = 208
Top = 69
Width = 70
Height = 14
Caption = '標簽頁名稱'
end
object Label10: TLabel
Left = 427
Top = 69
Width = 84
Height = 14
Caption = '控制控件名稱'
end
object Label11: TLabel
Left = 14
Top = 77
Width = 56
Height = 14
Caption = '窗體名稱'
end
object Label12: TLabel
Left = 216
Top = 77
Width = 70
Height = 14
Caption = '標簽頁名稱'
end
object Label13: TLabel
Left = 435
Width = 84
Height = 14
Caption = '控制控件名稱'
end
object Splitter1: TSplitter
Left = 0
Top = 97
Width = 657
Height = 3
Cursor = crVSplit
Align = alTop
AutoSnap = False
end
object PnlQuery: TPanel
Left = 0
Top = 0
Width = 657
Height = 97
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object Label4: TLabel
Left = 10
Top = 6
Width = 56
Height = 14
Caption = '序 列 號'
end
object Label1: TLabel
Left = 10
Top = 69
Width = 56
Height = 14
Caption = '窗體標題'
end
object Label3: TLabel
Left = 227
Top = 69
Width = 56
Height = 14
Caption = '控件含義'
end
object Label14: TLabel
Left = 10
Top = 37
Width = 56
Height = 14
Caption = '窗體名稱'
end
object Label16: TLabel
Left = 227
Top = 37
Width = 56
Height = 14
Caption = '控件名稱'
end
object Label17: TLabel
Left = 233
Top = 6
Width = 42
Height = 14
Caption = '備 注'
end
object EdtFormName: TEdit
Left = 76
Top = 33
Width = 133
Height = 22
CharCase = ecUpperCase
TabOrder = 0
end
object EdtControlName: TEdit
Left = 292
Top = 33
Width = 205
Height = 22
CharCase = ecUpperCase
TabOrder = 1
end
object EdtLISTID: TEdit
Left = 76
Top = 2
Width = 133
Height = 22
CharCase = ecUpperCase
TabOrder = 2
OnKeyPress = EdtLISTIDKeyPress
end
object EdtExtra: TEdit
Left = 292
Top = 2
Width = 351
Height = 22
CharCase = ecUpperCase
TabOrder = 3
end
object EdtFormCaption: TEdit
Left = 76
Top = 65
Width = 133
Height = 22
CharCase = ecUpperCase
TabOrder = 4
end
object EdtControlCaption: TEdit
Left = 292
Top = 65
Width = 205
Height = 22
CharCase = ecUpperCase
TabOrder = 5
end
end
object PnlBtn: TPanel
Left = 0
Top = 393
Width = 657
Height = 41
Align = alBottom
TabOrder = 1
object BtnClear: TButton
Left = 151
Top = 8
Width = 60
Height = 25
Caption = '清空'
TabOrder = 0
OnClick = BtnClearClick
end
object BtnQuery: TButton
Left = 225
Top = 8
Width = 60
Height = 25
Caption = '查詢'
TabOrder = 1
OnClick = BtnQueryClick
end
object BtnSelect: TButton
Left = 372
Top = 8
Width = 60
Height = 25
Caption = '選定'
TabOrder = 2
OnClick = BtnSelectClick
end
object BtnCancel: TButton
Left = 445
Top = 8
Width = 60
Height = 25
Caption = '取消'
TabOrder = 3
OnClick = BtnCancelClick
end
object btn_sort: TButton
Left = 298
Top = 8
Width = 60
Height = 25
Caption = '排序'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = btn_sortClick
end
end
object DbgSysFormCtrlList: TDBGrid
Left = 0
Top = 100
Width = 657
Height = 293
Align = alClient
DataSource = DsSysFormCtrlList
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 2
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = '宋體'
TitleFont.Style = []
OnDblClick = DbgSysFormCtrlListDblClick
Columns = <
item
Expanded = False
FieldName = 'LISTID'
Title.Alignment = taCenter
Title.Caption = '序列號'
Width = 75
Visible = True
end
item
Expanded = False
FieldName = 'FORMNAME'
Title.Alignment = taCenter
Title.Caption = '窗體名稱'
Width = 139
Visible = True
end
item
Expanded = False
FieldName = 'FORMCAPTION'
Title.Alignment = taCenter
Title.Caption = '窗體標題'
Width = 102
Visible = True
end
item
Expanded = False
Title.Alignment = taCenter
Title.Caption = '控件名稱'
Width = 141
Visible = True
end
item
Expanded = False
FieldName = 'CONTROLCAPTION'
Title.Alignment = taCenter
Title.Caption = '控件含義 '
Width = 99
Visible = True
end
item
Expanded = False
FieldName = 'EXTRA'
Title.Alignment = taCenter
Title.Caption = '備注'
Width = 147
Visible = True
end>
end
object DsSysFormCtrlList: TDataSource
DataSet = CdsSysFormCtrlList
Left = 400
Top = 136
end
object CdsSysFormCtrlList: TQuery
AfterScroll = CdsSysFormCtrlListAfterScroll
DatabaseName = 'db_vipdl'
SQL.Strings = (
'select * from SYSFORMCTRLLIST')
Left = 312
Top = 136
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
減小字號
Ctrl + -