?? unit3.dfm
字號:
object cjts: Tcjts
Left = 292
Top = 224
Width = 887
Height = 639
Caption = #20986#20511#22270#20070#26597#35810
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 Label3: TLabel
Left = 248
Top = 16
Width = 343
Height = 51
Caption = #20986#20511#22270#20070#19968#35272#34920
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -48
Font.Name = #21326#25991#34892#26999
Font.Style = [fsBold]
ParentFont = False
end
object GroupBox1: TGroupBox
Left = 40
Top = 392
Width = 777
Height = 169
Caption = #26597#35810#25805#20316
TabOrder = 0
object Label1: TLabel
Left = 40
Top = 48
Width = 153
Height = 25
AutoSize = False
Caption = #26597#35810#20851#38190#23383#36873#25321#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 408
Top = 48
Width = 113
Height = 20
AutoSize = False
Caption = #20851#38190#23383#35774#32622#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object ComboBox1: TComboBox
Left = 200
Top = 48
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 0
OnChange = ComboBox1Change
Items.Strings = (
#22270#20070#32534#21495
#22270#20070#21517#31216
#20511#20070#35777#21495
#35835#32773#22995#21517)
end
object Edit1: TEdit
Left = 544
Top = 48
Width = 121
Height = 21
TabOrder = 1
end
object BitBtn1: TBitBtn
Left = 352
Top = 120
Width = 75
Height = 25
Caption = #26597#35810
Default = True
TabOrder = 2
OnClick = BitBtn1Click
end
end
object BitBtn2: TBitBtn
Left = 400
Top = 576
Width = 75
Height = 25
Cancel = True
Caption = #36820#22238
TabOrder = 1
OnClick = BitBtn2Click
end
object DBGrid1: TDBGrid
Left = 16
Top = 72
Width = 817
Height = 305
DataSource = DataSource1
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
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 = 112
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
Width = 227
Visible = True
end>
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 40
Top = 568
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 = 88
Top = 568
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -