📄 usalequery.~dfm
字号:
object fsalequery: Tfsalequery
Left = 233
Top = 226
Width = 696
Height = 480
Caption = #38144#21806#21333#26597#35810
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
WindowState = wsMaximized
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid
Left = 0
Top = 153
Width = 335
Height = 293
Align = alClient
Anchors = [akLeft, akTop, akBottom]
DataSource = saleDataSource
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'sale_id'
Title.Caption = #38144#21806#21333#32534#21495
Visible = True
end
item
Expanded = False
FieldName = 'unit_name'
Title.Caption = #21457#36135#21333#20301
Width = 117
Visible = True
end
item
Expanded = False
FieldName = 'reciever'
Title.Caption = #25552#36135#21333#20301
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'datetime'
Title.Caption = #36755#21333#26085#26399
Visible = True
end
item
Expanded = False
FieldName = 'manager'
Title.Caption = #20027#31649
Visible = True
end
item
Expanded = False
FieldName = 'clerk'
Title.Caption = #32463#21150#20154
Visible = True
end
item
Expanded = False
FieldName = 'operter'
Title.Caption = #25805#20316#21592
Visible = True
end>
end
object DBGrid2: TDBGrid
Left = 335
Top = 153
Width = 353
Height = 293
Align = alRight
DataSource = itemDataSource
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'SALE_ID'
Title.Caption = #38144#21806#21333#32534#21495
Visible = True
end
item
Expanded = False
FieldName = 'SALEITEM_ID'
Title.Caption = #32454#30446#32534#21495
Visible = True
end
item
Expanded = False
FieldName = 'FOOD_TYPE'
Title.Caption = #36135#29289#21517#31216
Visible = True
end
item
Expanded = False
FieldName = 'QUANTITY'
Title.Caption = #25968#37327
Visible = True
end
item
Expanded = False
FieldName = 'PRICE'
Title.Caption = #21333#20215
Visible = True
end
item
Expanded = False
FieldName = 'MEMO'
Title.Caption = #22791#27880
Visible = True
end>
end
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 688
Height = 153
Align = alTop
Caption = #26597#35810#26465#20214
TabOrder = 2
object Label1: TLabel
Left = 22
Top = 29
Width = 60
Height = 13
Caption = #25552#36135#21333#21495#65306
end
object Label4: TLabel
Left = 22
Top = 57
Width = 60
Height = 13
Caption = #21457#36135#21333#20301#65306
end
object Label5: TLabel
Left = 22
Top = 85
Width = 60
Height = 13
Caption = #25552#36135#21333#20301#65306
end
object Label7: TLabel
Left = 200
Top = 112
Width = 12
Height = 13
Caption = #33267
end
object Panel1: TPanel
Left = 504
Top = 15
Width = 182
Height = 136
Align = alRight
TabOrder = 0
object btnQuery: TBitBtn
Left = 32
Top = 11
Width = 105
Height = 29
Caption = #24320#22987#26597#35810' &O'
TabOrder = 0
OnClick = btnQueryClick
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
18000000000000030000C40E0000C40E00000000000000000000BFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
FFFF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
7F7F7FBFBFBFBFBFBFBFBFBFBFBFBF00FFFF000000BFBFBFBFBFBFBFBFBF0000
00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00FFFF000000BFBFBFBFBFBFBFBFBF00
FFFF000000BFBFBFBFBFBF7F7F7F00FFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBF00FFFF7F7F7FBFBFBFBFBFBF00FFFF000000BFBFBF00000000FFFFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00FFFF000000BFBFBF00
FFFF0000007F7F7F00FFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBF00FFFF7F7F7F00FFFF00000000FFFFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBF00000000000000000000000000000000000000FFFF00
FFFF00FFFF000000000000000000000000000000000000BFBFBF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7F00FFFF00
FFFF00FFFF7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBF00000000FFFFBFBFBF00FFFF00000000FFFF000000BFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7F00FFFFBFBFBFBFBFBF00
FFFF000000BFBFBF00FFFF7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
00000000FFFFBFBFBFBFBFBFBFBFBF00FFFF000000BFBFBFBFBFBF00FFFF0000
00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
FFFF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00FFFF000000BFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
FFFF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF}
end
object btnReset: TBitBtn
Left = 32
Top = 51
Width = 105
Height = 29
Caption = #37325#35774#26465#20214' &C'
TabOrder = 1
OnClick = btnResetClick
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
18000000000000030000C40E0000C40E00000000000000000000BFBFBFBFBFBF
BFBFBF0000000000000000000000000000000000000000000000000000000000
00000000000000000000BFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBF
BFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF007F00FFFFFFFFFFFFFFFF
FFFFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFF
FFFF007F00007F00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBF
BFBFBF000000FFFFFFFFFFFFFFFFFF007F00007F00007F00007F00007F00FFFF
FFFFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFF
FFFF007F00007F00FFFFFFFFFFFF007F00FFFFFFFFFFFF000000BFBFBFBFBFBF
BFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF007F00FFFFFFFFFFFF007F
00FFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFF007F00FF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF007F00FFFFFFFFFFFF000000BFBFBFBFBFBF
BFBFBF000000FFFFFFFFFFFF007F00FFFFFFFFFFFF007F00FFFFFFFFFFFFFFFF
FFFFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFF007F00FF
FFFFFFFFFF007F00007F00FFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBF
BFBFBF000000FFFFFFFFFFFFFFFFFF007F00007F00007F00007F00007F00FFFF
FFFFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFF007F00007F00FFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBF
BFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF007F00FFFFFFFFFFFF0000
00000000000000000000BFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFF000000BFBFBFBFBFBFBFBFBF
BFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
00000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000000000000000000000
0000000000000000000000000000000000BFBFBFBFBFBFBFBFBF}
end
object closebitbtn: TBitBtn
Left = 32
Top = 92
Width = 105
Height = 29
Caption = #36864' '#20986' &E'
TabOrder = 2
OnClick = closebitbtnClick
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
18000000000000030000C40E0000C40E00000000000000000000BFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBF0000007F7F7F0000007F7F7F0000007F7F7FFF
FF007F7F7FFFFF00000000BFBFBF7F7F000000000000007F7F7FBFBFBF000000
000000000000000000000000000000000000FFFF007F7F7F000000FFFFFF7F7F
7F7F7F00000000000000BFBFBFBFBFBFBFBFBFBFBFBF00000000000000000000
0000000000000000000000FFFFFF7F7F007F7F007F7F00000000BFBFBFBFBFBF
BFBFBFBFBFBF0000000000FF000000FFFF00FFFFFF00007F000000FFFFFF7F7F
7F7F7F007F7F7F0000000000000000000000000000000000000000FF0000FF00
0000FFFF0000007F000000FFFFFF7F7F007F7F7F7F7F000000000000000000FF
0000FF0000FF0000FF0000FF0000FF0000FF00000000007F000000FFFFFF7F7F
7F0000007F7F7F0000000000000000FF0000FF0000FF0000FF0000FF0000FF00
00FF00000000007F000000FFFFFF0000000000007F7F00000000000000000000
0000000000000000000000FF0000FF000000FFFF0000007F000000FFFFFF7F7F
000000007F7F7F000000BFBFBFBFBFBFBFBFBFBFBFBF0000000000FF000000FF
FF00FFFFFF00007F000000FFFFFF7F7F7F7F7F007F7F00000000BFBFBFBFBFBF
BFBFBFBFBFBF000000000000000000FFFFFFFFFF0000007F000000FFFFFF7F7F
7F7F7F007F7F7F000000BFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBF000000FF
FF00FFFFFF00007F000000FFFFFF7F7F007F7F007F7F00000000BFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFF0000007F000000FFFFFF7F7F
7F7F7F007F7F7F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FF
FF00FFFFFFFFFF00FFFFFF000000FFFFFF7F7F7F7F7F00000000BFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF
00FFFFFF7F7F7F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000
0000000000000000000000000000000000000000000000000000}
end
end
object Edit1: TEdit
Left = 96
Top = 27
Width = 121
Height = 21
TabOrder = 1
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 96
Top = 57
Width = 121
Height = 21
KeyField = 'unit_id'
ListField = 'unit_name'
ListSource = unitDataSource
TabOrder = 2
end
object Edit3: TEdit
Left = 96
Top = 84
Width = 121
Height = 21
TabOrder = 3
end
object DateTimePicker1: TDateTimePicker
Left = 104
Top = 112
Width = 89
Height = 21
CalAlignment = dtaLeft
Date = 38077.3890427778
Time = 38077.3890427778
DateFormat = dfShort
DateMode = dmComboBox
Enabled = False
Kind = dtkDate
ParseInput = False
TabOrder = 4
end
object DateTimePicker2: TDateTimePicker
Left = 220
Top = 112
Width = 89
Height = 21
CalAlignment = dtaLeft
Date = 38077.3890908912
Time = 38077.3890908912
DateFormat = dfShort
DateMode = dmComboBox
Enabled = False
Kind = dtkDate
ParseInput = False
TabOrder = 5
end
object CheckBox1: TCheckBox
Left = 22
Top = 114
Width = 81
Height = 17
Caption = #36755#21333#26085#26399#65306
TabOrder = 6
OnClick = CheckBox1Click
end
end
object unitQuery: TQuery
DatabaseName = 'LYDB'
SQL.Strings = (
'select unit_id,unit_name'
'from ent_unit_info'
'union select unit_id=99999,unit_name='#39#19981#25351#23450#39)
Left = 112
Top = 56
end
object unitDataSource: TDataSource
DataSet = unitQuery
Left = 144
Top = 56
end
object saleDataSource: TDataSource
DataSet = saleQuery
Left = 120
Top = 232
end
object itemDataSource: TDataSource
DataSet = itemQuery
Left = 464
Top = 240
end
object saleQuery: TQuery
AfterScroll = saleQueryAfterScroll
DatabaseName = 'LYDB'
SQL.Strings = (
'select unit_name,sale_id,'
' reciever,datetime,manager,clerk,operter'
'from ent_sale,ent_unit_info'
'where ent_sale.unit_id *= ent_unit_info.unit_id')
Left = 88
Top = 232
end
object itemQuery: TQuery
DatabaseName = 'LYDB'
SQL.Strings = (
'select * '
'from ent_sale_item'
'where sale_id=:sale_id')
Left = 432
Top = 240
ParamData = <
item
DataType = ftString
Name = 'sale_id'
ParamType = ptUnknown
end>
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -