sfc_mnlistrequest_hint.dfm

一个MRPII系统源代码版本

inherited Frm_Sfc_MnListRequest_Hint: TFrm_Sfc_MnListRequest_Hint
  Left = 245
  Top = 52
  ActiveControl = DBGridEh
  Caption = '高级组合提示'
  ClientHeight = 417
  ClientWidth = 497
  OldCreateOrder = True
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 12
  object Panel: TPanel
    Left = 0
    Top = 376
    Width = 497
    Height = 41
    Align = alBottom
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 16
      Width = 60
      Height = 12
      Caption = '快速定位：'
    end
    object Btn_OK: TButton
      Left = 321
      Top = 8
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = '确定(&O)'
      Default = True
      ModalResult = 1
      TabOrder = 0
      TabStop = False
    end
    object Btn_Cancel: TButton
      Left = 399
      Top = 8
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Cancel = True
      Caption = '取消(&C)'
      ModalResult = 2
      TabOrder = 1
      TabStop = False
    end
    object Edt_Locate: TEdit
      Left = 84
      Top = 12
      Width = 121
      Height = 20
      TabOrder = 2
      OnChange = Edt_LocateChange
    end
  end
  object DBGridEh: TDBGridEh
    Left = 0
    Top = 0
    Width = 497
    Height = 376
    TabStop = False
    Align = alClient
    DataSource = DataSource
    ReadOnly = True
    TabOrder = 1
    TitleFont.ChArset = GB2312_CHArSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnDblClick = DBGridEhDblClick
    OnKeyDown = DBGridEhKeyDown
    Columns = <
      Item
        FieldName = 'whCode'
        Title.Alignment = taCenter
        Title.Caption = '仓库标识'
        Width = 124
      end
      Item
        FieldName = 'WhPositionCode'
        Title.Alignment = taCenter
        Title.Caption = '货位标识'
        Width = 191
      end
      Item
        FieldName = 'Batchno'
        Title.Alignment = taCenter
        Title.Caption = '批次号'
        Width = 76
      end
      Item
        FieldName = 'InvQty'
        Title.Alignment = taCenter
        Title.Caption = '库存数量'
        Width = 81
      end>
  end
  object AdoQuery: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=192.168.0.15' +
      '1'
    CurSorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select bc.whCode+'#39' '#39'+w.whName whCode,bc.WhPositionCode+'#39' '#39'+'
      
        '          whp.WhPositionName WhPositionCode,'#39' '#39' Batchno,bc.onhan' +
        'dInv InvQty'
      '         from CurrentInv bc,Warehouse w,'
      '                 WhPosition whp'
      '        where bc.whCode=w.whCode and '
      '               bc.WhPositionCode=whp.WhPositionCode '
      '                            ')
    Left = 176
    Top = 128
  end
  object DataSource: TDataSource
    DataSet = AdoQuery
    Left = 224
    Top = 128
  end
end