bas_batch_h.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_Batch_H: TFrm_Bas_Batch_H
  Left = -77
  Top = 122
  Caption = ''
  ClientHeight = 459
  ClientWidth = 750
  Position = poMainformCenter
  Windowstate = wsMaximized
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 750
  end
  inherited Pnl_Title: TPanel
    Width = 750
    inherited Image2: TImage
      Width = 750
    end
  end
  inherited Pnl_Head: TPanel
    Width = 750
    inherited Image1: TImage
      Width = 750
    end
    inherited Lbl_ConditionTitle: TLabel
      Visible = False
    end
    inherited Lbl_Condition: TLabel
      Visible = False
    end
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = #29289#26009#20195#30721
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 450
    Width = 750
    inherited Image4: TImage
      Width = 750
    end
  end
  inherited Pnl_Body: TPanel
    Width = 750
    Height = 353
    inherited Image3: TImage
      Width = 750
      Height = 353
    end
    inherited DBGridEh: TDBGridEh
      Width = 750
      Height = 353
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'ItemCode'
          Footers = <>
          Title.Caption = #29289#26009#20195#30721
          Width = 125
        end
        Item
          EditButtons = <>
          FieldName = 'ItemName'
          Footers = <>
          Title.Caption = #29289#26009#25551#36848
          Width = 250
        end
        Item
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          Title.Caption = #35745#37327#21333#20301
          Width = 52
        end
        Item
          EditButtons = <>
          FieldName = 'Backflush1'
          Footers = <>
          Title.Caption = #26159#21542#20801#35768#25289#24335#39046#26009
          Width = 55
        end
        Item
          EditButtons = <>
          FieldName = 'BatchremArk'
          Footers = <>
          Title.Caption = #22791#27880
          Width = 270
        end>
    end
  end
  inherited AdoQry_Head: TAdoQuery
    CurSorType = ctStatic
    SQL.Strings = (
      
        'select a.ItemCode,case a.Backflush when 1 then '#39#26159#39' else '#39#21542#39' end ' +
        'Backflush1'
      '              ,a.BatchremArk,a.Backflush,'
      '              b.ItemName,c.UomName,a.Batchid '
      '       from Batch a join Item b on a.ItemCode=b.ItemCode'
      '       join Uom c on b.UomCode=c.UomCode')
    object AdoQry_HeadItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_HeadBackflush: TIntegerField
      FieldName = 'Backflush'
    end
    object AdoQry_HeadBatchremArk: TStringField
      FieldName = 'BatchremArk'
      Size = 250
    end
    object AdoQry_HeadItemName: TStringField
      FieldName = 'ItemName'
      Size = 60
    end
    object AdoQry_HeadUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_HeadBatchid: TAutoIncField
      FieldName = 'Batchid'
      ReadOnly = True
    end
    object AdoQry_HeadBackflush1: TStringField
      FieldName = 'Backflush1'
      ReadOnly = True
      Size = 2
    end
  end
end