?? unit4.dfm
字號:
object ghts: Tghts
Left = 304
Top = 272
Width = 870
Height = 640
Caption = #24402#36824#22270#20070
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 96
Top = 16
Width = 345
Height = 33
AutoSize = False
Caption = ' '#20511#20986#22270#20070#19968#35272#34920
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #38582#20070
Font.Style = []
ParentFont = False
end
object GroupBox1: TGroupBox
Left = 608
Top = 24
Width = 233
Height = 377
Caption = #20511#20986#22270#20070#31579#36873
TabOrder = 0
object Label2: TLabel
Left = 10
Top = 48
Width = 55
Height = 24
AutoSize = False
Caption = #20070#21495
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 10
Top = 104
Width = 63
Height = 24
AutoSize = False
Caption = #20070#21517
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 10
Top = 160
Width = 56
Height = 24
AutoSize = False
Caption = #35777#21495
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 10
Top = 216
Width = 55
Height = 24
AutoSize = False
Caption = #35835#32773
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Edit1: TEdit
Left = 80
Top = 48
Width = 121
Height = 21
TabOrder = 0
end
object Edit2: TEdit
Left = 80
Top = 104
Width = 121
Height = 21
TabOrder = 1
end
object Edit3: TEdit
Left = 80
Top = 160
Width = 121
Height = 21
TabOrder = 2
end
object Edit4: TEdit
Left = 80
Top = 216
Width = 121
Height = 21
TabOrder = 3
end
object Button2: TButton
Left = 64
Top = 304
Width = 75
Height = 25
Caption = #31579#36873
TabOrder = 4
OnClick = Button2Click
end
end
object GroupBox2: TGroupBox
Left = 24
Top = 408
Width = 817
Height = 153
Caption = #24402#36824#22270#20070#25805#20316
TabOrder = 1
object Label6: TLabel
Left = 16
Top = 48
Width = 169
Height = 24
AutoSize = False
Caption = ' '#24402#36824#22270#20070#32534#21495' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 424
Top = 48
Width = 169
Height = 24
AutoSize = False
Caption = #35835#32773#20511#20070#35777#21495
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Edit5: TEdit
Left = 192
Top = 51
Width = 121
Height = 21
TabOrder = 0
end
object Edit6: TEdit
Left = 632
Top = 51
Width = 121
Height = 21
TabOrder = 1
end
object BitBtn1: TBitBtn
Left = 352
Top = 120
Width = 75
Height = 25
Caption = #24402#36824
Default = True
TabOrder = 2
OnClick = BitBtn1Click
end
end
object DBGrid1: TDBGrid
Left = 16
Top = 64
Width = 569
Height = 329
DataSource = DataSource1
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
Columns = <
item
Expanded = False
FieldName = 'sh'
Title.Caption = #22270#20070#32534#21495
Visible = True
end
item
Expanded = False
FieldName = 'sm'
Title.Caption = #22270#20070#21517#31216
Width = 141
Visible = True
end
item
Expanded = False
FieldName = 'jszh'
Title.Caption = #20511#20070#35777#21495
Visible = True
end
item
Expanded = False
FieldName = 'xm'
Title.Caption = #35835#32773#22995#21517
Visible = True
end
item
Expanded = False
FieldName = 'jcrq'
Title.Caption = #20511#20986#26085#26399
Visible = True
end>
end
object Button1: TButton
Left = 368
Top = 576
Width = 75
Height = 25
Cancel = True
Caption = #36820#22238
TabOrder = 3
OnClick = Button1Click
end
object ADOQuery1: TADOQuery
Active = True
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=TSGL'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select tsbm.sh,tsbm.sm,dzmc.jszh,dzmc.xm,tsjy.jcrq'
'from tsbm,dzmc,tsjy'
'where (tsbm.sh=tsjy.sh) and (dzmc.jszh=tsjy.jszh) and (tsjy.jcbz' +
'='#39#20511#20986#39')'
'order by tsbm.sh')
Left = 104
Top = 568
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 32
Top = 568
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -