📄 storequery.~dfm
字号:
object fmStoreQuery: TfmStoreQuery
Left = 211
Top = 246
Width = 557
Height = 298
Caption = #24211#23384#26597#35810
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDefault
Visible = True
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel
Left = 0
Top = 0
Width = 549
Height = 57
Align = alTop
TabOrder = 0
object Label1: TLabel
Left = 32
Top = 24
Width = 24
Height = 12
Caption = #36135#21495
end
object Label2: TLabel
Left = 152
Top = 24
Width = 48
Height = 12
Caption = #21830#21697#25340#38899
end
object Label3: TLabel
Left = 304
Top = 24
Width = 24
Height = 12
Caption = #20179#24211
end
object edGoodCode: TEdit
Left = 56
Top = 20
Width = 73
Height = 20
TabOrder = 0
Text = 'edGoodCode'
end
object edGoodPY: TEdit
Left = 200
Top = 20
Width = 73
Height = 20
TabOrder = 1
Text = 'edGoodPY'
end
object cboStore: TComboBox
Left = 328
Top = 20
Width = 97
Height = 20
ItemHeight = 12
TabOrder = 2
Text = 'cboStore'
end
object btQuery: TButton
Left = 448
Top = 16
Width = 75
Height = 25
Caption = #26597#35810
TabOrder = 3
OnClick = btQueryClick
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 57
Width = 549
Height = 214
Align = alClient
DataSource = DataSource1
TabOrder = 1
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #36135#21495
Visible = True
end
item
Expanded = False
FieldName = #21697#21517
Width = 140
Visible = True
end
item
Expanded = False
FieldName = #21333#20301
Visible = True
end
item
Expanded = False
FieldName = #20179#24211
Width = 48
Visible = True
end
item
Expanded = False
FieldName = #24211#23384#25968#37327
Width = 56
Visible = True
end
item
Expanded = False
FieldName = #24211#23384#21333#20215
Width = 54
Visible = True
end
item
Expanded = False
FieldName = #24211#23384#37329#39069
Width = 57
Visible = True
end>
end
object Query1: TQuery
Active = True
DatabaseName = 'db'
SQL.Strings = (
'select a.'#36135#21495',b.'#21697#21517','#25340#38899#32534#30721','#21333#20301','#20179#24211','#24211#23384#25968#37327','#24211#23384#21333#20215','#24211#23384#37329#39069' from '#24211#23384#24211' as a,'#21830#21697#28165#21333' as' +
' b where a.'#36135#21495'=b.'#36135#21495)
Left = 520
Top = 128
end
object DataSource1: TDataSource
DataSet = Query1
Left = 512
Top = 88
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -