untslctsaleitemid.dfm
来自「是分布式粮库程序,是采用Delphi实现的」· DFM 代码 · 共 110 行
DFM
110 行
inherited FrmSlctSaleItemID: TFrmSlctSaleItemID
Left = 522
Top = 294
Caption = #38144#21333#32454#30446#36873#25321
OldCreateOrder = True
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
inherited DataSource1: TDataSource
DataSet = QrySlct
end
inherited TblSlct: TTable
TableName = 'dbo.ENT_SALE_ITEM'
object TblSlctSALEITEM_ID: TStringField
DisplayLabel = #38144#21333#32454#30446
FieldName = 'SALEITEM_ID'
Required = True
Size = 12
end
object TblSlctSALE_ID: TStringField
DisplayLabel = #38144#21806#21333#32534#21495
FieldName = 'SALE_ID'
Required = True
Size = 12
end
object TblSlctFOOD_TYPE: TStringField
DisplayLabel = #21697#31181
FieldName = 'FOOD_TYPE'
Size = 12
end
object TblSlctQUANTITY: TFloatField
DisplayLabel = #25968#37327
FieldName = 'QUANTITY'
end
object TblSlctPRICE: TFloatField
DisplayLabel = #20215#26684
FieldName = 'PRICE'
end
object TblSlctREMAIN: TFloatField
DisplayLabel = #26410#25552#37327
FieldName = 'REMAIN'
end
object TblSlctSTATUS: TIntegerField
DisplayLabel = #29366#24577
FieldName = 'STATUS'
end
object TblSlctMEMO: TStringField
DisplayLabel = #22791#27880
FieldName = 'MEMO'
Size = 100
end
end
object QrySlct: TQuery
Active = True
DatabaseName = 'LYDB'
SQL.Strings = (
'select * from ENT_SALE_ITEM')
Left = 160
Top = 72
object QrySlctSALEITEM_ID: TStringField
DisplayLabel = #38144#21333#32454#30446
FieldName = 'SALEITEM_ID'
Origin = 'LYDB.ENT_SALE_ITEM.SALEITEM_ID'
Size = 12
end
object QrySlctSALE_ID: TStringField
DisplayLabel = #38144#21333#32534#21495
FieldName = 'SALE_ID'
Origin = 'LYDB.ENT_SALE_ITEM.SALE_ID'
Size = 12
end
object QrySlctsitename: TStringField
DisplayLabel = #24211#28857#21517#31216
FieldName = 'sitename'
Origin = 'LYDB.ENT_SALE_ITEM.sitename'
end
object QrySlctdepotname: TStringField
DisplayLabel = #24211#25151#32534#21495
FieldName = 'depotname'
Origin = 'LYDB.ENT_SALE_ITEM.depotname'
end
object QrySlctfoodposition: TStringField
DisplayLabel = #36135#20301#21517#31216
FieldName = 'foodposition'
Origin = 'LYDB.ENT_SALE_ITEM.foodposition'
end
object QrySlctFOOD_TYPE: TStringField
DisplayLabel = #21697#31181
FieldName = 'FOOD_TYPE'
Origin = 'LYDB.ENT_SALE_ITEM.FOOD_TYPE'
Size = 12
end
object QrySlctQUANTITY: TFloatField
DisplayLabel = #25968#37327
FieldName = 'QUANTITY'
Origin = 'LYDB.ENT_SALE_ITEM.QUANTITY'
end
object QrySlctPRICE: TFloatField
DisplayLabel = #20215#26684
FieldName = 'PRICE'
Origin = 'LYDB.ENT_SALE_ITEM.PRICE'
end
object QrySlctREMAIN: TFloatField
DisplayLabel = #26410#25552#37327
FieldName = 'REMAIN'
Origin = 'LYDB.ENT_SALE_ITEM.REMAIN'
end
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?