?? usearch.dfm
字號:
inherited frmsearch: Tfrmsearch
Left = 245
Top = 249
ActiveControl = tiaoset
BorderIcons = [biSystemMenu, biMaximize]
BorderStyle = bsDialog
Caption = #36164#26009#26597#35810
ClientHeight = 227
ClientWidth = 547
Font.Charset = GB2312_CHARSET
Font.Height = -12
Font.Name = #23435#20307
KeyPreview = False
OldCreateOrder = True
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 281
Height = 170
Caption = #26465#20214#23450#20041
TabOrder = 0
object fieldname: TLabel
Left = 114
Top = 32
Width = 151
Height = 17
AutoSize = False
Caption = 'fieldname'
Font.Charset = ANSI_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 114
Top = 59
Width = 63
Height = 17
AutoSize = False
Caption = #27604#36739#31526
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 114
Top = 107
Width = 63
Height = 17
AutoSize = False
Caption = #26465#20214#20540
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Grid: TDBGridEh
Left = 2
Top = 14
Width = 95
Height = 154
Align = alLeft
DataSource = dssearch
FixedColor = 12835543
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FooterColor = clWindow
FooterFont.Charset = DEFAULT_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -11
FooterFont.Name = 'MS Sans Serif'
FooterFont.Style = []
Options = [dgEditing, dgTitles, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
ReadOnly = True
TabOrder = 2
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
EditButtons = <>
FieldName = 'field'
Footers = <>
Visible = False
end
item
EditButtons = <>
FieldName = 'value'
Footers = <>
Title.Caption = #26465#20214#39033#30446
end>
end
object tiaovalue: TEdit
Left = 114
Top = 128
Width = 153
Height = 20
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
end
object tiaoset: TwwDBLookupCombo
Left = 114
Top = 80
Width = 81
Height = 20
DropDownAlignment = taLeftJustify
Selected.Strings = (
#27604#36739#31526#9'8'#9#27604#36739#31526#9#9)
LookupTable = CDStiaoset
LookupField = #27604#36739#31526
Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
Style = csDropDownList
TabOrder = 0
AutoDropDown = False
ShowButton = True
PreciseEditRegion = False
AllowClearKey = False
end
end
object GroupBox2: TGroupBox
Left = 287
Top = 8
Width = 251
Height = 170
BiDiMode = bdRightToLeft
Caption = #24050#23450#20041#25968#25454#36807#28388#26465#20214
ParentBiDiMode = False
TabOrder = 1
object ListView1: TListView
Left = 2
Top = 14
Width = 247
Height = 154
Align = alClient
BorderStyle = bsNone
Color = clBtnFace
Columns = <
item
Caption = #26465#20214#39033#30446
Width = 100
end
item
Alignment = taCenter
AutoSize = True
Caption = #26465#20214#31526#21495#21450#26465#20214#20540
end>
ColumnClick = False
TabOrder = 0
ViewStyle = vsReport
end
end
object createtiao: TButton
Left = 232
Top = 192
Width = 75
Height = 25
Caption = #29983#20135#26465#20214
TabOrder = 2
OnClick = createtiaoClick
end
object cleartiao: TButton
Left = 309
Top = 192
Width = 75
Height = 25
Caption = #28165#38500#26465#20214
TabOrder = 3
OnClick = cleartiaoClick
end
object search: TButton
Left = 386
Top = 192
Width = 75
Height = 25
Caption = #26597#35810
TabOrder = 4
OnClick = searchClick
end
object exit: TButton
Left = 464
Top = 192
Width = 75
Height = 25
Caption = #36864#20986
TabOrder = 5
OnClick = exitClick
end
object CDSsearch: TClientDataSet
Aggregates = <>
Params = <>
Left = 168
Top = 112
object CDSsearchfield: TStringField
FieldName = 'field'
Size = 50
end
object CDSsearchvalue: TStringField
FieldName = 'value'
Size = 50
end
end
object dssearch: TDataSource
AutoEdit = False
DataSet = CDSsearch
OnDataChange = dssearchDataChange
Left = 136
Top = 112
end
object CDStiaoset: TClientDataSet
Aggregates = <>
Params = <>
Left = 216
Top = 88
object CDStiaosetField: TStringField
DisplayWidth = 8
FieldName = #27604#36739#31526
Size = 8
end
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -