inv_batchhint.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_BatchHint: TFrm_Inv_BatchHint
  Left = 249
  Top = 219
  ActiveControl = DBGridEh
  Caption = #25209#27425#25552#31034
  ClientHeight = 392
  ClientWidth = 685
  PixelsPerInch = 96
  TextHeight = 12
  inherited btn_ok: TButton
    Left = 468
    Top = 356
    Default = True
    ModalResult = 1
  end
  inherited btn_Cancel: TButton
    Left = 577
    Top = 356
  end
  object DBGridEh: TDBGridEh [2]
    Left = 0
    Top = 0
    Width = 685
    Height = 335
    Align = alTop
    Color = 15727341
    DataSource = DataSource
    FixedColor = 14673912
    FooterColor = clWindow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGridEhDblClick
    Columns = <
      item
        EditButtons = <>
        FieldName = 'BatchNo'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25209#27425#21495
        Width = 88
      end
      item
        EditButtons = <>
        FieldName = 'BatchName'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = ' '#25209#27425#25551#36848
        Width = 125
      end
      item
        EditButtons = <>
        FieldName = 'UsefulDate'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #26377#25928#26399
        Width = 47
      end
      item
        EditButtons = <>
        FieldName = 'InvQty'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25209#27425#24211#23384
        Width = 60
      end
      item
        EditButtons = <>
        FieldName = 'FirstInDate'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #26368#26089#20837#24211#26085#26399
        Width = 77
      end
      item
        EditButtons = <>
        FieldName = 'CurrentInDate'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #26368#36817#20837#24211#26085#26399
        Width = 77
      end
      item
        EditButtons = <>
        FieldName = 'FirstOutDate'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #26368#26089#20986#24211#26085#26399
        Width = 82
      end
      item
        EditButtons = <>
        FieldName = 'CurrentOutDate'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #26368#36817#20986#24211#26085#26399
        Width = 78
      end>
  end
  object Btn_AddBatchNo: TButton [3]
    Left = 24
    Top = 355
    Width = 105
    Height = 25
    Caption = #22686#21152#25209#27425'(&A)'
    TabOrder = 3
    OnClick = Btn_AddBatchNoClick
  end
  inherited AdoQry_Tmp: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=192.168.0.8;' +
      'Use procedure for Prepare=1;Auto Translate=True;Packet Size=4096' +
      ';Workstation ID=XYB'
    CursorType = ctStatic
    SQL.Strings = (
      'Select BatchLine.BatchNo,BatchLine.BatchName'
      
        '      ,BatchLine.UsefulDate,BatchLine.BatchInv,BatchLine.FirstIn' +
        'Date'
      
        '      ,BatchLine.CurrentInDate,BatchLine.FirstOutDate,BatchLine.' +
        'CurrentOutDate'
      
        '       From BatchLine Join Batch On BatchLine.BatchId=Batch.Batc' +
        'hId')
    Left = 216
    Top = 80
  end
  object DataSource: TDataSource
    DataSet = AdoQry_Tmp
    Left = 288
    Top = 88
  end
end