📄 unit2select.dfm
字号:
object frmInfoSearch: TfrmInfoSearch
Left = 195
Top = 120
Width = 696
Height = 480
Caption = #20449#24687#26597#35810
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {
0000010002002020100000000000E80200002600000010101000000000002801
00000E0300002800000020000000400000000100040000000000800200000000
0000000000000000000000000000000000000000800000800000008080008000
0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00
0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000
00000000BBBBBBBB000000000000000000000BBBBBBBBBBBBBB0000000000000
0000BBBBBBBBBBBBBBBB00000000000000BBBBBBBBBBBBBBBBBBBB0000000000
0BBBBBBBBBBBBBBBBBBBBBB000000000BBBBBBBBB0000000BBBBBBBB00000000
BBBBBBB00BBBBBBB00BBBBBB0000000BBBBBBB00BBBBBBBBB00BBBBBB00000BB
BBBBB00BBBBBBBBBBB00BBBBBB0000BBBBBBB0BBBBBBBBBBBBB0BBBBBB0000BB
BBBB0BBBBBBBBBBBBBBB0BBBBB000BBBBBBB0BBBBBBBBBBBBBBB0BBBBBB00BBB
BBBB0BBBBBBBBBBBBBBB0BBBBBB00BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB00BBB
BBBBBBBBBBBBBBBBBBBBBBBBBBB00BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB00BBB
BBBBBBB00BBBBBB00BBBBBBBBBB00BBBBBBBBB0000BBBB0000BBBBBBBBB00BBB
BBBBBB0000BBBB0000BBBBBBBBB000BBBBBBBB0000BBBB0000BBBBBBBB0000BB
BBBBBB0000BBBB0000BBBBBBBB0000BBBBBBBB0000BBBB0000BBBBBBBB00000B
BBBBBBB00BBBBBB00BBBBBBBB0000000BBBBBBBBBBBBBBBBBBBBBBBB00000000
BBBBBBBBBBBBBBBBBBBBBBBB000000000BBBBBBBBBBBBBBBBBBBBBB000000000
00BBBBBBBBBBBBBBBBBBBB00000000000000BBBBBBBBBBBBBBBB000000000000
00000BBBBBBBBBBBBBB000000000000000000000BBBBBBBB0000000000000000
0000000000000000000000000000FFF00FFFFF8001FFFE00007FFC00003FF800
001FF000000FE0000007C0000003C00000038000000180000001800000010000
0000000000000000000000000000000000000000000000000000000000008000
00018000000180000001C0000003C0000003E0000007F000000FF800001FFC00
003FFE00007FFF8001FFFFF00FFF280000001000000020000000010004000000
0000C00000000000000000000000000000000000000000000000000080000080
00000080800080000000800080008080000080808000C0C0C0000000FF0000FF
000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000000
0BBBBBB00000000BBBBBBBBBB00000BBB000003BBB0000BB00BBBB03BB000BBB
0BBBBBB0BBB00BBB0BBBBBB0BBB00BBBBBBBBBBBBBB00BBBB00BB00BBBB00BBB
B00BB00BBBB00BBBB00BB00BBBB000BBB00BB00BBB0000BBBBBBBBBBBB00000B
BBBBBBBBB00000000BBBBBB000000000000000000000F81F0000E0070000C003
0000840100008801000000000000000000000000000000000000000000000000
00008001000080010000C0030000E0070000F81F0000}
OldCreateOrder = False
PopupMenu = PopupMenu1
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 40
Top = 21
Width = 36
Height = 13
Caption = #36710#21495#65306
end
object SpeedButton2: TSpeedButton
Left = 240
Top = 16
Width = 57
Height = 22
Caption = #26597#35810
Flat = True
OnClick = SpeedButton2Click
end
object Edit1: TEdit
Left = 104
Top = 17
Width = 121
Height = 21
TabOrder = 0
Text = 'Edit1'
end
object DBGrid1: TDBGrid
Left = 24
Top = 40
Width = 633
Height = 153
DataSource = DataSource1
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'car_num'
Title.Caption = #21345#21495
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'date'
Title.Caption = #26085#26399
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'xi_car'
Title.Caption = #27927#36710
Visible = True
end
item
Expanded = False
FieldName = 'car_main'
Title.Caption = #36710#38754
Visible = True
end
item
Expanded = False
FieldName = 'room'
Title.Caption = #39550#39542#23460
Visible = True
end
item
Expanded = False
FieldName = 'baoyang'
Title.Caption = #20445#20859
Visible = True
end
item
Expanded = False
FieldName = 'luntai'
Title.Caption = #36718#32974
Visible = True
end
item
Expanded = False
FieldName = 'jiazhuang'
Title.Caption = #21152#35013
Visible = True
end
item
Expanded = False
FieldName = 'weixiu'
Title.Caption = #32500#20462
Visible = True
end
item
Expanded = False
FieldName = 'jingpin'
Title.Caption = #31934#21697
Visible = True
end
item
Expanded = False
FieldName = 'text'
Title.Caption = #22791#27880
Visible = True
end
item
Expanded = False
FieldName = 'sum'
Title.Caption = #21512#35745
Visible = True
end>
end
object DBGrid2: TDBGrid
Left = 24
Top = 208
Width = 633
Height = 161
DataSource = DataSource2
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'name'
Title.Caption = #22995#21517
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'phone'
Title.Caption = #30005#35805
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'workplace'
Title.Caption = #24037#20316#21333#20301
Width = 120
Visible = True
end
item
Expanded = False
FieldName = 'car_number'
Title.Caption = #36710#29260#21495
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'text'
Title.Caption = #22791#27880
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'car_num'
Title.Caption = #21345#21495
Width = 80
Visible = True
end>
end
object ADOQuery1: TADOQuery
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from main')
Left = 360
Top = 8
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 392
Top = 8
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=master;Data Source=.'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'SQLOLEDB.1'
Left = 424
Top = 8
end
object ADOQuery2: TADOQuery
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from name')
Left = 464
Top = 8
end
object DataSource2: TDataSource
DataSet = ADOQuery2
Left = 496
Top = 8
end
object PopupMenu1: TPopupMenu
Left = 144
Top = 384
object N1: TMenuItem
Caption = #20027#30028#38754#31383#20307
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20250#21592#30028#38754#31383#20307
OnClick = N2Click
end
object N3: TMenuItem
Caption = #27719#24635#30028#38754#31383#20307
OnClick = N3Click
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -