📄 bas_item.dfm
字号:
Width = 67
end
item
EditButtons = <>
FieldName = 'CurrentOnCheckInv'
Footers = <>
Title.Caption = #24453#26816#24211#23384#37327
Width = 65
end
item
EditButtons = <>
FieldName = 'CurrentFreezeInv'
Footers = <>
Title.Caption = #20923#32467#24211#23384#37327
Width = 65
end
item
EditButtons = <>
FieldName = 'CurrentOnShipInv'
Footers = <>
Title.Caption = #22312#36816#24211#23384#37327
Width = 65
end
item
EditButtons = <>
FieldName = 'CurrentWasterInv'
Footers = <>
Title.Caption = #24223#21697#24211#23384#37327
Width = 68
end
item
EditButtons = <>
FieldName = 'opInv'
Footers = <>
Title.Caption = #22996#22806#26448#26009#24211#23384
Width = 82
end
item
EditButtons = <>
FieldName = 'UomCode'
Footers = <>
Title.Caption = #35745#37327#21333#20301#20195#30721
Visible = False
end
item
EditButtons = <>
FieldName = 'EmployeeCode'
Footers = <>
Title.Caption = #37319#36141#21592#20195#30721
Visible = False
end
item
EditButtons = <>
FieldName = 'whCode'
Footers = <>
Title.Caption = #20179#24211#20195#30721
Visible = False
end
item
EditButtons = <>
FieldName = 'Pla_EmployeeCode'
Footers = <>
Title.Caption = #35745#21010#21592#20195#30721
Visible = False
end
item
EditButtons = <>
FieldName = 'DeptCode'
Footers = <>
Title.Caption = #37096#38376#20195#30721
Visible = False
end
item
EditButtons = <>
FieldName = 'wh_EmployeeCode'
Footers = <>
Title.Caption = #20179#31649#21592#20195#30721
Visible = False
end
item
EditButtons = <>
FieldName = 'InspecTEmployeeCode'
Footers = <>
Title.Caption = #36136#26816#21592#20195#30721
Visible = False
Width = 70
end
item
EditButtons = <>
FieldName = 'InspecTEmployeeName'
Footers = <>
Title.Caption = #36136#26816#21592#22995#21517
Width = 72
end>
end
object tmp_grid: TDBGridEh
Left = 344
Top = 240
Width = 232
Height = 120
DataSource = DataSource
FooterColor = clWindow
FooterFont.Charset = GB2312_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -12
FooterFont.Name = #23435#20307
FooterFont.Style = []
ImeName = #32043#20809#25340#38899#36755#20837#27861
TabOrder = 1
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Visible = False
end
end
inherited AdoQry_Tmp: TADOQuery
Top = 203
end
inherited ActionList: TActionList
Left = 192
Top = 160
inherited Act_Look: TAction
Enabled = True
Visible = True
end
inherited Act_auto: TAction
Caption = #33258#21160#33719#21462
Hint = #33258#21160#33719#21462
ShortCut = 0
end
inherited Action1: TAction
ShortCut = 0
end
inherited Action3: TAction
Hint = #26080#25928'/'#26377#25928'('#31354#26684')'
ShortCut = 32
OnExecute = Action3Execute
end
end
inherited AdoQry_Main: TADOQuery
CursorType = ctStatic
SQL.Strings = (
'Select Item.ItemCode,'
' Item.ItemName,'
' Item.ItemshortName,'
' Item.UomCode,'
' u.UomName,'
' Item.EmployeeCode,'
' c.EmployeeName as CaiGou,'
' Item.whCode,'
' Warehouse.whName,'
' Item.Pla_EmployeeCode,'
' Item.wh_EmployeeCode, '
' k.EmployeeName as wh_EmployeeName,'
' j.EmployeeName as JiHua,'
' Item.ItemType,'
' Item.designno,'
' Item.ItemUsable,'
' Item.maxqty,'
' Item.minqty,'
' Item.limitout,'
' Item.greateout,'
' Item.purchldtime,'
' Item.mnldtime,'
' Item.PrepareLT,'
' Item.runLT,'
' Item.QcLT,'
' Item.PmCode,'
' Item.PmBatch,'
' Item.onlydefaultwh,'
' Item.BarCode,'
' Item.ItemCode2,'
' Item.canSale,'
' Item.remArk,'
' Item.Itemcreatetime,'
' Item.Itemmodifytime,'
' Item.Itemdisabletime,'
' Item.LongPurchLT,'
' Item.iScheck,'
' Item.CurrentOnHandInv,'
' Item.CurrentOnCheckInv,'
' Item.CurrentFreezeInv,'
' Item.CurrentOnShipInv,'
' Item.CurrentWasterInv,'
' Item.ClassCode,'
' Item.ProductClass,'
' Item.QcClass,'
' Item.DeptCode,'
' ItemClass.ClassName,'
' Item.UomCode+'#39' '#39'+u.UomName as UomCodenam' +
'e,'
' Item.EmployeeCode+'#39' '#39'+c.EmployeeName as ' +
'CaiGouyuan, '
' Item.whCode+'#39' '#39'+Warehouse.whName as whco' +
'deName,'
' Item.Pla_EmployeeCode+'#39' '#39'+j.EmployeeName' +
' as JiHuayuan,'
' d.DeptName,'
' Item.Batchstrat,'
' Item.BatchCtrl,'
' Item.Capacityhours, '
' Item.ItemClass1,'
' Item.ItemClass2,'
' Item.ItemClass3,'
' Item.ItemClass4,'
' Item.ItemClass5,'
' opCurrentInv.opInv'
' from Item left join Warehouse on Item.whCode=wa' +
'rehouse.whCode '
' left join Employee c on Item.Employee' +
'Code=c.EmployeeCode '
' left join Employee j on Item.Pla_empl' +
'oyeeCode=j.EmployeeCode '
' left join Employee k on Item.wh_emplo' +
'yeeCode=k.EmployeeCode '
' left join Uom u on Item.UomCode=u.Uom' +
'Code '
' left join Dept d on Item.DeptCode=d.d' +
'eptCode '
' left join (select ItemCode,sum(OPInv)' +
' opInv from OPCurrentInv group by ItemCode) opCurrentInv'
' on Item.ItemCode=opCurrentInv.Itemcod' +
'e'
' left join ItemClass on Item.ClassCode' +
'=ItemClass.ClassCode'
''
''
'')
Left = 336
Top = 241
object AdoQry_MainItemCode: TStringField
FieldName = 'ItemCode'
Size = 16
end
object AdoQry_MainItemName: TStringField
FieldName = 'ItemName'
Size = 80
end
object AdoQry_MainItemshortName: TStringField
FieldName = 'ItemshortName'
Size = 40
end
object AdoQry_MainUomCode: TStringField
FieldName = 'UomCode'
Size = 4
end
object AdoQry_MainUomName: TStringField
FieldName = 'UomName'
Size = 10
end
object AdoQry_MainEmployeeCode: TStringField
FieldName = 'EmployeeCode'
Size = 30
end
object AdoQry_MainCaiGou: TStringField
FieldName = 'CaiGou'
Size = 60
end
object AdoQry_MainwhCode: TStringField
FieldName = 'whCode'
Size = 4
end
object AdoQry_MainwhName: TStringField
FieldName = 'whName'
Size = 40
end
object AdoQry_MainPla_EmployeeCode: TStringField
FieldName = 'Pla_EmployeeCode'
Size = 30
end
object AdoQry_Mainwh_EmployeeCode: TStringField
FieldName = 'wh_EmployeeCode'
Size = 30
end
object AdoQry_Mainwh_EmployeeName: TStringField
FieldName = 'wh_EmployeeName'
Size = 60
end
object AdoQry_MainJiHua: TStringField
FieldName = 'JiHua'
Size = 60
end
object AdoQry_MainItemType: TIntegerField
FieldName = 'ItemType'
end
object AdoQry_Maindesignno: TStringField
FieldName = 'designno'
Size = 40
end
object AdoQry_MainItemUsable: TIntegerField
FieldName = 'ItemUsable'
end
object AdoQry_Mainmaxqty: TFloatField
FieldName = 'maxqty'
end
object AdoQry_Mainminqty: TFloatField
FieldName = 'minqty'
end
object AdoQry_Mainlimitout: TIntegerField
FieldName = 'limitout'
end
object AdoQry_Maingreateout: TIntegerField
FieldName = 'greateout'
end
object AdoQry_Mainpurchldtime: TFloatField
FieldName = 'purchldtime'
end
object AdoQry_Mainmnldtime: TFloatField
FieldName = 'mnldtime'
end
object AdoQry_MainPrepareLT: TIntegerField
FieldName = 'PrepareLT'
end
object AdoQry_MainrunLT: TIntegerField
FieldName = 'runLT'
end
object AdoQry_MainQcLT: TIntegerField
FieldName = 'QcLT'
end
object AdoQry_MainPmCode: TIntegerField
FieldName = 'PmCode'
end
object AdoQry_MainPmBatch: TIntegerField
FieldName = 'PmBatch'
end
object AdoQry_Mainonlydefaultwh: TIntegerField
FieldName = 'onlydefaultwh'
end
object AdoQry_MainBarCode: TStringField
FieldName = 'BarCode'
end
object AdoQry_MainItemCode2: TStringField
FieldName = 'ItemCode2'
Size = 16
end
object AdoQry_MaincanSale: TIntegerField
FieldName = 'canSale'
end
object AdoQry_MainremArk: TStringField
FieldName = 'remArk'
Size = 60
end
object AdoQry_MainItemcreatetime: TDateTimeField
FieldName = 'Itemcreatetime'
end
object AdoQry_MainItemmodifytime: TDateTimeField
FieldName = 'Itemmodifytime'
end
object AdoQry_MainItemdisabletime: TDateTimeField
FieldName = 'Itemdisabletime'
end
object AdoQry_MainLongPurchLT: TIntegerField
FieldName = 'LongPurchLT'
end
object AdoQry_MainiScheck: TIntegerField
FieldName = 'iScheck'
end
object AdoQry_MainCurrentOnHandInv: TFloatField
FieldName = 'CurrentOnHandInv'
end
object AdoQry_MainCurrentOnCheckInv: TFloatField
FieldName = 'CurrentOnCheckInv'
end
object AdoQry_MainCurrentFreezeInv: TFloatField
FieldName = 'CurrentFreezeInv'
end
object AdoQry_MainCurrentOnShipInv: TFloatField
FieldName = 'CurrentOnShipInv'
end
object AdoQry_MainCurrentWasterInv: TFloatField
FieldName = 'CurrentWasterInv'
end
object AdoQry_MainClassCode: TStringField
FieldName = 'ClassCode'
Size = 16
end
object AdoQry_MainProductClass: TStringField
FieldName = 'ProductClass'
Size = 40
end
object AdoQry_MainQcClass: TStringField
FieldName = 'QcClass'
Size = 40
end
object AdoQry_MainDeptCode: TStringField
FieldName = 'DeptCode'
Size = 8
end
object AdoQry_MainClassName: TStringField
FieldName = 'ClassName'
Size = 60
end
object AdoQry_MainUomCodeName: TStringField
FieldName = 'UomCodeName'
ReadOnly = True
Size = 15
end
object AdoQry_MainCaiGouyuan: TStringField
FieldName = 'CaiGouyuan'
ReadOnly = True
Size = 91
end
object AdoQry_MainwhCodeName: TStringField
FieldName = 'whCodeName'
ReadOnly = True
Size = 45
end
object AdoQry_MainJiHuayuan: TStringField
FieldName = 'JiHuayuan'
ReadOnly = True
Size = 91
end
object AdoQry_MainDeptName: TStringField
FieldName = 'DeptName'
Size = 40
end
object AdoQry_MainBatchstrat: TIntegerField
FieldName = 'Batchstrat'
end
object AdoQry_MainBatchCtrl: TIntegerField
FieldName = 'BatchCtrl'
end
object AdoQry_MainCapacityhours: TFloatField
FieldName = 'Capacityhours'
end
object AdoQry_MainItemClass1: TStringField
FieldName = 'ItemClass1'
Size = 40
end
object AdoQry_MainItemClass2: TStringField
FieldName = 'ItemClass2'
Size = 40
end
object AdoQry_MainItemClass3: TStringField
FieldName = 'ItemClass3'
Size = 40
end
object AdoQry_MainItemClass4: TStringField
FieldName = 'ItemClass4'
Size = 40
end
object AdoQry_MainItemClass5: TStringField
FieldName = 'ItemClass5'
Size = 40
end
object AdoQry_MainopInv: TFloatField
FieldName = 'opInv'
end
object AdoQry_MainInspecTEmployeeCode: TStringField
FieldName = 'InspecTEmployeeCode'
end
object AdoQry_MainInspecTEmployeeName: TStringField
FieldName = 'InspecTEmployeeName'
end
end
inherited DataSource: TDataSource
Left = 320
Top = 145
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -