📄 umakesales.~dfm
字号:
Height = 13
Caption = #20803
end
object Label11: TLabel
Left = 506
Top = 24
Width = 36
Height = 13
Caption = #22791#27880#65306
end
object Label20: TLabel
Left = 264
Top = 70
Width = 63
Height = 13
Caption = #24211' '#28857#65306
end
object Label21: TLabel
Left = 263
Top = 110
Width = 63
Height = 13
Caption = #20179' '#24211#65306
end
object Label32: TLabel
Left = 263
Top = 150
Width = 63
Height = 13
Caption = #36135' '#20301#65306
end
object Edit1: TEdit
Left = 95
Top = 24
Width = 121
Height = 21
TabOrder = 0
Text = 'Edit1'
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 332
Top = 24
Width = 141
Height = 21
KeyField = 'FOOD_TYPE'
ListField = 'FOOD_TYPE'
ListSource = foodDataSource
TabOrder = 1
end
object Edit2: TEdit
Left = 95
Top = 67
Width = 90
Height = 21
TabOrder = 2
Text = 'Edit2'
OnExit = Edit2Exit
OnKeyPress = Edit2KeyPress
end
object Edit4: TEdit
Left = 95
Top = 153
Width = 106
Height = 21
Color = cl3DLight
Enabled = False
TabOrder = 10
Text = 'Edit4'
end
object DBGrid2: TDBGrid
Left = 2
Top = 192
Width = 784
Height = 249
Align = alBottom
Anchors = [akLeft, akTop, akRight, akBottom]
DataSource = saleitemlistDataSource
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 9
TitleFont.Charset = ANSI_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
Width = 79
Visible = True
end
item
Expanded = False
FieldName = 'SALEITEM_ID'
Title.Caption = #32454#30446#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#65288#20844#26020#65289
Width = 89
Visible = True
end
item
Expanded = False
FieldName = 'PRICE'
Title.Caption = #21333#20215#65288#20803'/'#30334')'#20844#26020#65289
Width = 95
Visible = True
end
item
Expanded = False
FieldName = 'sitename'
Title.Caption = #24211#28857
Width = 59
Visible = True
end
item
Expanded = False
FieldName = 'depotname'
Title.Caption = #20179#24211
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'foodposition'
Title.Caption = #36135#20301
Width = 59
Visible = True
end
item
Expanded = False
FieldName = 'MEMO'
Title.Caption = #22791#27880
Width = 141
Visible = True
end>
end
object Panel3: TPanel
Left = 627
Top = 24
Width = 137
Height = 153
Anchors = [akTop, akRight]
TabOrder = 8
object additemBitBtn: TBitBtn
Left = 32
Top = 11
Width = 75
Height = 25
Caption = #28155#21152
TabOrder = 0
OnClick = additemBitBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333FF33333333FF333993333333300033377F3333333777333993333333
300033F77FFF3333377739999993333333333777777F3333333F399999933333
33003777777333333377333993333333330033377F3333333377333993333333
3333333773333333333F333333333333330033333333F33333773333333C3333
330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
333333333337733333FF3333333C333330003333333733333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
object deleteitemBitBtn: TBitBtn
Left = 32
Top = 43
Width = 75
Height = 25
Caption = #21024#38500
TabOrder = 1
OnClick = deleteitemBitBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003333333333333777333333333333
300033FFFFFF3333377739999993333333333777777F3333333F399999933333
3300377777733333337733333333333333003333333333333377333333333333
3333333333333333333F333333333333330033333F33333333773333C3333333
330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
333333377F33333333FF3333C333333330003333733333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
object modifyitemBitBtn: TBitBtn
Left = 32
Top = 75
Width = 75
Height = 25
Caption = #20462#25913
TabOrder = 2
OnClick = modifyitemBitBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
00333377737FFFFF773333303300000003333337337777777333}
NumGlyphs = 2
end
object cancelitemBitBtn: TBitBtn
Left = 32
Top = 107
Width = 75
Height = 25
Caption = #21462#28040
TabOrder = 3
OnClick = cancelitemBitBtnClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888888888808888888888088800088888888888880000888888
8088888000888888088888880008888008888888800088008888888888000008
8888888888800088888888888800000888888888800088008888888000088880
0888880000888888008888000888888888088888888888888888}
end
end
object Memo2: TMemo
Left = 504
Top = 48
Width = 105
Height = 129
Lines.Strings = (
'Memo2')
TabOrder = 7
end
object kudianDBLookupComboBox: TDBLookupComboBox
Left = 332
Top = 66
Width = 141
Height = 21
KeyField = 'SITE_NAME'
ListField = 'site_name'
ListSource = kudianDataSource
TabOrder = 4
OnCloseUp = kudianDBLookupComboBoxCloseUp
end
object changkuDBLookupComboBox: TDBLookupComboBox
Left = 332
Top = 109
Width = 141
Height = 21
KeyField = 'DEPOT_NAME'
ListField = 'depot_name'
ListSource = changkuDataSource
TabOrder = 5
OnCloseUp = changkuDBLookupComboBoxCloseUp
end
object huoweiDBLookupComboBox: TDBLookupComboBox
Left = 332
Top = 152
Width = 141
Height = 21
KeyField = 'name'
ListField = 'name'
ListSource = huoweiDataSource
TabOrder = 6
end
object Edit3: TEdit
Left = 95
Top = 110
Width = 90
Height = 21
TabOrder = 3
Text = 'Edit3'
OnExit = Edit3Exit
OnKeyPress = Edit3KeyPress
end
end
object salelistDataSource: TDataSource
DataSet = salelistQuery
Left = 72
Top = 128
end
object salelistQuery: TQuery
AfterScroll = salelistQueryAfterScroll
DatabaseName = 'LYDB'
SQL.Strings = (
'select sale_id,datetime,'
'case status when 0 then '#39#26410#22788#29702#39' when 1 then '#39#37096#20998#22788#29702#39' when 2 then '#39#24050#22788 +
#29702#39' end'
'as bbb'
'from ent_sale'
'order by datetime desc')
Left = 40
Top = 128
end
object deletesaleQuery: TQuery
DatabaseName = 'LYDB'
SQL.Strings = (
'delete from ent_sale'
'where sale_id=:salelistid')
Left = 72
Top = 208
ParamData = <
item
DataType = ftUnknown
Name = 'salelistid'
ParamType = ptUnknown
end>
end
object deletesaleitemQuery: TQuery
DatabaseName = 'LYDB'
SQL.Strings = (
'delete from ent_sale_item'
'where sale_id=:salelistid')
Left = 104
Top = 208
ParamData = <
item
DataType = ftUnknown
Name = 'salelistid'
ParamType = ptUnknown
end>
end
object PopupMenu1: TPopupMenu
Left = 240
object NNew: TMenuItem
Bitmap.Data = {
E6000000424DE60000000000000076000000280000000F0000000E0000000100
04000000000070000000130B0000130B00001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8880888888888888888088888888888888808888880008888880888888070888
8880888888070888888088800007000088808880777777708880888000070000
8880888888070888888088888807088888808888880008888880888888888888
88808888888888888880}
Caption = #26032#22686#38144#21806#21333
OnClick = NNewClick
end
object Nmodify: TMenuItem
Bitmap.Data = {
E6000000424DE60000000000000076000000280000000F0000000E0000000100
04000000000070000000130B0000130B00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7770777777777777777077777777777777707777777777777770777777777777
7770770000000000077077708888888077707777088888077770777770888077
7770777777080777777077777770777777707777777777777770777777777777
77707777777777777770}
Caption = #20462#25913#38144#21806#21333
OnClick = NmodifyClick
end
object Ndelete: TMenuItem
Bitmap.Data = {
E6000000424DE60000000000000076000000280000000F0000000E0000000100
04000000000070000000130B0000130B00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7770777777777777777077777777777777707777777777777770777777777777
7770777777777777777077700000000077707770888888807770777000000000
7770777777777777777077777777777777707777777777777770777777777777
77707777777777777770}
Caption = #21024#38500#38144#21806#21333
OnClick = NdeleteClick
end
end
object saleQuery: TQuery
DatabaseName = 'LYDB'
SQL.Strings = (
'select *'
'from ent_sale'
'where sale_id=:salelistid')
Left = 128
Top = 128
ParamData = <
item
DataType = ftUnknown
Name = 'salelistid'
ParamType = ptUnknown
end>
end
object unitTable: TTable
DatabaseName = 'LYDB'
TableName = 'dbo.ENT_UNIT_INFO'
Left = 488
Top = 16
end
object foodTable: TTable
DatabaseName = 'LYDB'
TableName = 'dbo.ENT_FOOD_TYPE'
Left = 512
Top = 528
end
object unitDataSource: TDataSource
DataSet = unitTable
Left = 520
Top = 24
end
object foodDataSource: TDataSource
DataSet = foodTable
Left = 544
Top = 528
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -