bas_batchclose.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_BatchClose: TFrm_Bas_BatchClose
  Left = -34
  Top = 168
  Caption = #25209#27425#20027#25991#20214#20851#38381
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    inherited ToolBar: TToolBar
      inherited TlBtn_Check: TToolButton
        Hint = #20851#38381
      end
      inherited TlBtn_CancelCheck: TToolButton
        Hint = #25171#24320
      end
    end
  end
  inherited Pnl_Title: TPanel
    Caption = #25209#27425#20027#25991#20214#20851#38381
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 84
      Caption = #25209#27425#29366#24577#65306#25171#24320
    end
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = #29289#26009#26631#35782
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 415
    Height = 26
    inherited Image4: TImage
      Height = 26
    end
    object DBText2: TDBText
      Left = 79
      Top = 8
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemCode'
      DataSource = DataSource
    end
    object Label2: TLabel
      Left = 16
      Top = 8
      Width = 60
      Height = 12
      Caption = #24403#21069#29289#26009#65306
    end
  end
  inherited Pnl_Body: TPanel
    Height = 318
    inherited Image3: TImage
      Height = 318
    end
    inherited DBGridEh: TDBGridEh
      Height = 318
      FrozenCols = 3
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = False
      OnTitleBtnClick = DBGridEhTitleBtnClick
      Columns = <
        Item
          ButtonStyle = cbsNone
          Checkboxes = True
          Color = clWhite
          EditButtons = <>
          FieldName = 'tmpflag'
          Footers = <>
          KeyList.Strings = (
            '1'
            '0')
          Title.Caption = #26631#35760
          Title.Color = clActiveBOrder
          Title.TitleButton = True
          Width = 28
        end
        Item
          EditButtons = <>
          FieldName = 'ItemCode'
          Footers = <>
          Title.Caption = #29289#26009#26631#35782
          Width = 176
        end
        Item
          EditButtons = <>
          FieldName = 'Batchno'
          Footers = <>
          Title.Caption = #25209#27425#21495
          Width = 88
        end
        Item
          EditButtons = <>
          FieldName = 'BatchName'
          Footers = <>
          Title.Caption = #25209#27425#25551#36848
          Width = 119
        end
        Item
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          Title.Caption = #35745#37327#21333#20301
          Width = 59
        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 = 55
        end
        Item
          EditButtons = <>
          FieldName = 'usefulCtrl'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #21542
            #26159)
          Title.Caption = #26159#21542#25511#21046#26377#25928#26399
          Width = 56
        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 = 46
        end
        Item
          EditButtons = <>
          FieldName = 'Batchstatus'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #25171#24320
            #20851#38381)
          Title.Caption = #25209#27425#29366#24577
          Width = 57
        end
        Item
          EditButtons = <>
          FieldName = 'VendorCode'
          Footers = <>
          Title.Caption = #20379#24212#21830#26631#35782
          Width = 227
        end
        Item
          EditButtons = <>
          FieldName = 'VendorBatchno'
          Footers = <>
          Title.Caption = #20379#24212#21830#25209#27425#21495
          Width = 87
        end
        Item
          EditButtons = <>
          FieldName = 'BatchlineremArk'
          Footers = <>
          Title.Caption = #22791#27880
          Width = 165
        end
        Item
          EditButtons = <>
          FieldName = 'Firstindate'
          Footers = <>
          Title.Caption = #26368#26089#20837#24211#26085#26399
          Width = 82
        end
        Item
          EditButtons = <>
          FieldName = 'Currentindate'
          Footers = <>
          Title.Caption = #26368#36817#20837#24211#26085#26399
          Width = 80
        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 ActionList: TActionList
    inherited Act_CancelCheck: TAction
      OnExecute = Act_CancelCheckExecute
    end
    inherited Act_Check: TAction
      OnExecute = Act_CheckExecute
    end
  end
  inherited AdoQry_Head: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=192.168.0.15' +
      '1;Use procedure for Prepare=1;Auto Translate=True;Packet Size=40' +
      '96;Workstation ID=XYB'
    OnCalcFields = AdoQry_HeadCalcFields
    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,Batchl' +
        'ine.Batchstatus tmpflag'
      
        '           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')
    object AdoQry_HeadItemCode: TStringField
      FieldName = 'ItemCode'
      ReadOnly = True
      Size = 77
    end
    object AdoQry_HeadBatchno: TStringField
      FieldName = 'Batchno'
      Size = 16
    end
    object AdoQry_HeadBatchName: TStringField
      FieldName = 'BatchName'
      Size = 60
    end
    object AdoQry_HeadUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_HeadBackflush: TIntegerField
      FieldName = 'Backflush'
    end
    object AdoQry_HeadusefulCtrl: TIntegerField
      FieldName = 'usefulCtrl'
    end
    object AdoQry_Headusefuldate: TIntegerField
      FieldName = 'usefuldate'
    end
    object AdoQry_HeadBatchstatus: TIntegerField
      FieldName = 'Batchstatus'
    end
    object AdoQry_HeadVendorCode: TStringField
      FieldName = 'VendorCode'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_HeadVendorBatchno: TStringField
      FieldName = 'VendorBatchno'
    end
    object AdoQry_HeadBatchlineremArk: TStringField
      FieldName = 'BatchlineremArk'
      Size = 250
    end
    object AdoQry_HeadFirstindate: TDateTimeField
      FieldName = 'Firstindate'
    end
    object AdoQry_HeadCurrentindate: TDateTimeField
      FieldName = 'Currentindate'
    end
    object AdoQry_HeadFirstoutdate: TDateTimeField
      FieldName = 'Firstoutdate'
    end
    object AdoQry_HeadCurrentoutdate: TDateTimeField
      FieldName = 'Currentoutdate'
    end
    object AdoQry_HeadBatchInv: TFloatField
      FieldName = 'BatchInv'
    end
    object AdoQry_HeadInvQty: TFloatField
      FieldName = 'InvQty'
    end
    object AdoQry_Headtmpflag: TIntegerField
      FieldName = 'tmpflag'
    end
    object AdoQry_Headusedate: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'usedate'
      Calculated = True
    end
  end
end