?? unit2.dfm
字號:
object dzcx: Tdzcx
Left = -43
Top = 541
Width = 870
Height = 639
Caption = #35835#32773#20449#24687#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 = #30331#35760#35835#32773#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 = (
#20511#20070#35777#21495
#22995#21517
#24615#21035
#32844#19994
#21333#20301)
end
object Edit1: TEdit
Left = 544
Top = 48
Width = 121
Height = 21
TabOrder = 1
end
object BitBtn1: TBitBtn
Left = 376
Top = 120
Width = 75
Height = 25
Caption = #26597#35810
Default = True
TabOrder = 2
OnClick = BitBtn1Click
Style = bsNew
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 = 24
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 = 'JSZH'
Title.Caption = #20511#20070#35777#21495
Width = 97
Visible = True
end
item
Expanded = False
FieldName = 'XM'
Title.Caption = #22995#21517
Visible = True
end
item
Expanded = False
FieldName = 'XB'
Title.Caption = #24615#21035
Width = 57
Visible = True
end
item
Expanded = False
FieldName = 'ZY'
Title.Caption = #32844#19994
Width = 47
Visible = True
end
item
Expanded = False
FieldName = 'DW'
Title.Caption = #21333#20301
Width = 81
Visible = True
end
item
Expanded = False
FieldName = 'BZ'
Title.Caption = #22791#27880
Visible = True
end>
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 40
Top = 568
end
object ADOQuery1: TADOQuery
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=TSGL'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from dzmc order by jszh')
Left = 88
Top = 568
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -