bas_batchlist_qry.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_BatchList_Qry: TFrm_Bas_BatchList_Qry
  Left = 93
  Top = 228
  Caption = #25209#27425#20027#25991#20214#21015#34920#26597#35810
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = #25209#27425#20027#25991#20214#21015#34920#26597#35810
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_OrderTitle: TLabel
      Left = 14
      Caption = #25490#24207#20381#25454#65306
    end
    inherited Lbl_ConditionTitle: TLabel
      Left = 617
      Top = 25
      Visible = False
    end
    inherited Lbl_Condition: TLabel
      Left = 20
      Visible = False
    end
    inherited Lbl_Order: TLabel
      Left = 74
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 414
    Height = 29
    inherited Image4: TImage
      Height = 29
    end
    object Label1: TLabel
      Left = 16
      Top = 11
      Width = 60
      Height = 12
      Caption = #24403#21069#29289#26009#65306
    end
    object DBText1: TDBText
      Left = 78
      Top = 11
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemCode'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Height = 317
    inherited Image3: TImage
      Height = 317
    end
    inherited DBGridEh: TDBGridEh
      Height = 317
      FrozenCols = 3
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'ItemCode'
          Footers = <>
          Title.Caption = #29289#26009#26631#35782
          Width = 210
        end
        Item
          EditButtons = <>
          FieldName = 'Batchno'
          Footers = <>
          Title.Caption = #25209#27425#21495
        end
        Item
          EditButtons = <>
          FieldName = 'BatchName'
          Footers = <>
          Title.Caption = #25209#27425#25551#36848
          Width = 114
        end
        Item
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          Title.Caption = #35745#37327#21333#20301
        end
        Item
          EditButtons = <>
          FieldName = 'Backflush'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #21542
            #26159)
          Title.Caption = #26159#21542#20801#35768#25289#24335#39046#26009
          Width = 54
        end
        Item
          EditButtons = <>
          FieldName = 'usefulCtrl'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #21542
            #26159)
          Title.Caption = #26159#21542#25511#21046#26377#25928#26399
        end
        Item
          EditButtons = <>
          FieldName = 'usefuldate'
          Footers = <>
          Title.Caption = #26377#25928#22825#25968
          Width = 30
        end
        Item
          EditButtons = <>
          FieldName = 'usedate'
          Footers = <>
          Title.Caption = #21097#20313#26377#25928#22825#25968
          Width = 40
        end
        Item
          EditButtons = <>
          FieldName = 'Batchstatus'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #25171#24320
            #20851#38381)
          Title.Caption = #25209#27425#29366#24577
          Width = 59
        end
        Item
          EditButtons = <>
          FieldName = 'VendorCode'
          Footers = <>
          Title.Caption = #20379#24212#21830#26631#35782
          Width = 225
        end
        Item
          EditButtons = <>
          FieldName = 'VendorBatchno'
          Footers = <>
          Title.Caption = #20379#24212#21830#25209#27425#21495
        end
        Item
          EditButtons = <>
          FieldName = 'BatchlineremArk'
          Footers = <>
          Title.Caption = #22791#27880
          Width = 148
        end
        Item
          EditButtons = <>
          FieldName = 'Firstindate'
          Footers = <>
          Title.Caption = #26368#26089#20837#24211#26085#26399
          Width = 84
        end
        Item
          EditButtons = <>
          FieldName = 'Currentindate'
          Footers = <>
          Title.Caption = #26368#36817#20837#24211#26085#26399
          Width = 78
        end
        Item
          EditButtons = <>
          FieldName = 'Firstoutdate'
          Footers = <>
          Title.Caption = #26368#26089#20986#24211#26085#26399
          Width = 80
        end
        Item
          EditButtons = <>
          FieldName = 'Currentoutdate'
          Footers = <>
          Title.Caption = #26368#36817#20986#24211#26085#26399
          Width = 80
        end
        Item
          EditButtons = <>
          FieldName = 'InvQty'
          Footers = <>
          Title.Caption = #25209#27425#24211#23384
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 317
    Top = 195
  end
  inherited ActionList: TActionList
    Left = 176
    Top = 72
    inherited Act_Order: TAction
      Enabled = False
      Visible = False
    end
  end
  inherited AdoQry_Main: TAdoQuery
    CurSorType = ctStatic
    OnCalcFields = AdoQry_MainCalcFields
    SQL.Strings = (
      
        'select Batch.ItemCode+'#39' '#39'+Item.ItemName ItemCode,Batchline.Batch' +
        'no'
      '           ,Batchline.BatchName,Item.UomName,Batch.Backflush,'
      
        '           Batchline.usefulCtrl,Batchline.usefuldate,Batchline.b' +
        'atchstatus,'
      
        '           Batchline.VendorCode+'#39' '#39'+Vendor.VendorName VendorCode' +
        ','
      '           Batchline.VendorBatchno,Batchline.BatchlineremArk,'
      '           Batchline.Firstindate,Currentindate,Firstoutdate,'
      '           Currentoutdate,BatchInv,BatchCurrentInv.InvQty'
      
        '           from Batch join Batchline on Batch.Batchid=Batchline.' +
        'Batchid'
      
        '                        left join (select Batchno,sum(InvQty) in' +
        'vqty from BatchCurrentInv group by Batchno) BatchCurrentInv'
      
        '                                   on BatchCurrentInv.Batchno=ba' +
        'tchline.Batchno'
      
        '             join Vendor on Batchline.VendorCode=Vendor.Vendorco' +
        'de'
      
        '             join (select Item.*,Uom.UomName from Item join Uom ' +
        'on '
      
        '             Item.UomCode=Uom.UomCode) Item on Item.ItemCode=bat' +
        'ch.ItemCode')
    Left = 256
    Top = 73
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      ReadOnly = True
      Size = 77
    end
    object AdoQry_MainBatchno: TStringField
      FieldName = 'Batchno'
      Size = 16
    end
    object AdoQry_MainBatchName: TStringField
      FieldName = 'BatchName'
      Size = 60
    end
    object AdoQry_MainUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_MainBackflush: TIntegerField
      FieldName = 'Backflush'
    end
    object AdoQry_MainusefulCtrl: TIntegerField
      FieldName = 'usefulCtrl'
    end
    object AdoQry_Mainusefuldate: TIntegerField
      FieldName = 'usefuldate'
    end
    object AdoQry_MainBatchstatus: TIntegerField
      FieldName = 'Batchstatus'
    end
    object AdoQry_MaInvendorCode: TStringField
      FieldName = 'VendorCode'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_MaInvendorBatchno: TStringField
      FieldName = 'VendorBatchno'
    end
    object AdoQry_MainBatchlineremArk: TStringField
      FieldName = 'BatchlineremArk'
      Size = 250
    end
    object AdoQry_MainFirstindate: TDateTimeField
      FieldName = 'Firstindate'
    end
    object AdoQry_MainCurrentindate: TDateTimeField
      FieldName = 'Currentindate'
    end
    object AdoQry_MainFirstoutdate: TDateTimeField
      FieldName = 'Firstoutdate'
    end
    object AdoQry_MainCurrentoutdate: TDateTimeField
      FieldName = 'Currentoutdate'
    end
    object AdoQry_MainBatchInv: TFloatField
      FieldName = 'BatchInv'
    end
    object AdoQry_Mainusedate: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'usedate'
      Calculated = True
    end
    object AdoQry_MainInvQty: TFloatField
      FieldName = 'InvQty'
    end
  end
  object AdoQry_tmp1: TAdoQuery
    Parameters = <>
    Left = 480
    Top = 193
  end
end