bas_batch_qry.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_Batch_Qry: TFrm_Bas_Batch_Qry
  Left = -4
  Top = -4
  Caption = #25209#27425#20027#25991#20214#26597#35810
  ClientHeight = 553
  ClientWidth = 800
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 800
  end
  inherited Pnl_Title: TPanel
    Width = 800
    Caption = #25209#27425#20027#25991#20214#26597#35810
    inherited Image2: TImage
      Width = 800
    end
  end
  inherited Pnl_Head: TPanel
    Width = 800
    Height = 22
    inherited Image1: TImage
      Width = 800
      Height = 22
    end
    inherited Lbl_OrderTitle: TLabel
      Left = 28
      Top = 6
    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 = 96
      Top = 6
    end
    object Label1: TLabel
      Left = 526
      Top = 7
      Width = 60
      Height = 12
      Caption = #24555#36895#23450#20301#65306
    end
    object edt_find: TEdit
      Left = 586
      Top = 0
      Width = 125
      Height = 20
      TabOrder = 0
      OnChange = edt_findChange
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 300
    Width = 800
    Height = 253
    inherited Image4: TImage
      Width = 800
      Height = 8
    end
    object DBGridEh1: TDBGridEh
      Left = 0
      Top = 8
      Width = 800
      Height = 245
      Align = alBottom
      DataSource = DataSource1
      FooterColor = clWindow
      FooterFont.ChArset = GB2312_CHArSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      FrozenCols = 2
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.ChArset = GB2312_CHArSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      UseMultiTitle = True
      OnGetCellParams = DBGridEh1GetCellParams
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'BatchNo'
          Footers = <>
          Title.Caption = #25209#27425#21495
          Width = 92
        end
        Item
          EditButtons = <>
          FieldName = 'BatchName'
          Footers = <>
          Title.Caption = #25209#27425#25551#36848
          Width = 135
        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 = 37
        end
        Item
          EditButtons = <>
          FieldName = 'usedates'
          Footers = <>
          Title.Caption = #21097#20313#26377#25928#22825#25968
          Width = 43
        end
        Item
          EditButtons = <>
          FieldName = 'BatchStatus'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #25171#24320
            #20851#38381)
          Title.Caption = #25209#27425#29366#24577
          Width = 33
        end
        Item
          EditButtons = <>
          FieldName = 'VendorCode1'
          Footers = <>
          Title.Caption = #20379#24212#21830#26631#35782
          Width = 226
        end
        Item
          EditButtons = <>
          FieldName = 'VendorBatchNo'
          Footers = <>
          Title.Caption = #20379#24212#21830#25209#27425#21495
          Width = 77
        end
        Item
          EditButtons = <>
          FieldName = 'BatchLineRemArk'
          Footers = <>
          Title.Caption = #22791#27880
          Width = 162
        end
        Item
          EditButtons = <>
          FieldName = 'FirstInDate'
          Footers = <>
          Title.Caption = #26368#26089#20837#24211#26085#26399
          Width = 85
        end
        Item
          EditButtons = <>
          FieldName = 'CurrentInDate'
          Footers = <>
          Title.Caption = #26368#36817#20837#24211#26085#26399
          Width = 79
        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 = 85
        end
        Item
          EditButtons = <>
          FieldName = 'InvQty'
          Footers = <>
          Title.Caption = #25209#27425#24211#23384
          Width = 65
        end>
    end
  end
  inherited Pnl_Body: TPanel
    Top = 79
    Width = 800
    Height = 221
    inherited Image3: TImage
      Width = 800
      Height = 221
    end
    inherited DBGridEh: TDBGridEh
      Width = 800
      Height = 221
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'ItemCode'
          Footers = <>
          Title.Caption = #29289#26009#26631#35782
          Width = 331
        end
        Item
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          Title.Caption = #35745#37327#21333#20301
          Width = 60
        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 = 102
        end
        Item
          EditButtons = <>
          FieldName = 'BatchremArk'
          Footers = <>
          Title.Caption = #22791#27880
          Width = 250
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 389
    Top = 243
  end
  inherited ActionList: TActionList
    Left = 128
    Top = 120
  end
  inherited AdoQry_Main: TAdoQuery
    CurSorType = ctStatic
    SQL.Strings = (
      
        'select  Batch.ItemCode+'#39'  '#39'+Item.ItemName ItemCode,Backflush,bat' +
        'chremArk,'
      '           Uom.UomName,Batch.Batchid'
      '            from Batch join Item on Batch.ItemCode=Item.ItemCode'
      
        '                              join Uom on Item.UomCode=Uom.Uomco' +
        'de')
    Left = 192
    Top = 129
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      ReadOnly = True
      Size = 78
    end
    object AdoQry_MainBackflush: TIntegerField
      FieldName = 'Backflush'
    end
    object AdoQry_MainBatchremArk: TStringField
      FieldName = 'BatchremArk'
      Size = 250
    end
    object AdoQry_MainUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_MainBatchId: TIntegerField
      FieldName = 'BatchId'
    end
  end
  inherited DataSource: TDataSource
    OnDataChange = DataSourceDataChange
  end
  object AdoQry_tmp1: TAdoQuery
    Parameters = <>
    Left = 472
    Top = 233
  end
  object DataSource1: TDataSource
    DataSet = AdoQry_Detail
    Left = 336
    Top = 264
  end
  object AdoQry_Detail: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_test_zcw;Data Source=192' +
      '.168.0.151'
    CurSorType = ctStatic
    OnCalcFields = AdoQry_DetailCalcFields
    Parameters = <>
    SQL.Strings = (
      
        'select Batchline.*,Batchline.VendorCode+'#39'  '#39'+Vendor.VendorName v' +
        'endorCode1,'
      '               BatchCurrentInv.InvQty '
      '            from Batchline '
      
        '                       join Vendor on Batchline.VendorCode=vendo' +
        'r.VendorCode'
      
        '            join (select Batchno,sum(InvQty) InvQty from Batchcu' +
        'rrentInv group by Batchno) BatchCurrentInv'
      
        '                       on BatchCurrentInv.Batchno=Batchline.batc' +
        'hno')
    Left = 264
    Top = 248
    object AdoQry_DetailBatchId: TIntegerField
      FieldName = 'BatchId'
    end
    object AdoQry_DetailBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 16
    end
    object AdoQry_DetailBatchName: TStringField
      FieldName = 'BatchName'
      Size = 60
    end
    object AdoQry_DetailVendorCode: TStringField
      FieldName = 'VendorCode'
      Size = 12
    end
    object AdoQry_DetailVendorBatchNo: TStringField
      FieldName = 'VendorBatchNo'
    end
    object AdoQry_DetailUsefulCtrl: TIntegerField
      FieldName = 'UsefulCtrl'
    end
    object AdoQry_DetailUsefulDate: TIntegerField
      FieldName = 'UsefulDate'
    end
    object AdoQry_DetailBatchStatus: TIntegerField
      FieldName = 'BatchStatus'
    end
    object AdoQry_DetailBatchLineRemArk: TStringField
      FieldName = 'BatchLineRemArk'
      Size = 250
    end
    object AdoQry_DetailFirstInDate: TDateTimeField
      FieldName = 'FirstInDate'
    end
    object AdoQry_DetailCurrentInDate: TDateTimeField
      FieldName = 'CurrentInDate'
    end
    object AdoQry_DetailFirstOutDate: TDateTimeField
      FieldName = 'FirstOutDate'
    end
    object AdoQry_DetailCurrentOutDate: TDateTimeField
      FieldName = 'CurrentOutDate'
    end
    object AdoQry_DetailVendorCode1: TStringField
      FieldName = 'VendorCode1'
      ReadOnly = True
      Size = 74
    end
    object AdoQry_Detailusedates: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'usedates'
      Calculated = True
    end
    object AdoQry_DetailInvQty: TBCDField
      FieldName = 'InvQty'
      Precision = 32
      Size = 8
    end
    object AdoQry_DetailBatchInv: TBCDField
      FieldName = 'BatchInv'
      Precision = 20
      Size = 8
    end
  end
end