inv_mpshint.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_MpsHint: TFrm_Inv_MpsHint
  Left = 227
  Top = 179
  ActiveControl = DBGridEh
  Caption = #20027#29983#20135#35745#21010#20449#24687#25552#31034
  ClientHeight = 442
  ClientWidth = 585
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 24
    Top = 20
    Width = 36
    Height = 12
    Caption = #29289#26009#65306
  end
  object Lbl_Item: TLabel [1]
    Left = 64
    Top = 20
    Width = 48
    Height = 12
    Caption = 'Lbl_Item'
  end
  inherited btn_ok: TButton
    Left = 371
    Top = 405
  end
  inherited btn_Cancel: TButton
    Left = 480
    Top = 405
  end
  object DBGridEh: TDBGridEh [4]
    Left = 1
    Top = 43
    Width = 583
    Height = 353
    DataSource = DS_Hint
    FooterColor = clWindow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking]
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = btn_okClick
    Columns = <
      item
        EditButtons = <>
        FieldName = 'MpsId'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20027#29983#20135#35745#21010'Id'
        Title.TitleButton = True
        Width = 80
      end
      item
        EditButtons = <>
        FieldName = 'MpsDate'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #38656#29992#26085#26399
        Title.TitleButton = True
        Width = 111
      end
      item
        EditButtons = <>
        FieldName = 'MpsQty'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #29983#20135#35746#36135#37327
        Width = 82
      end
      item
        EditButtons = <>
        FieldName = 'MpsFinishQty'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #32047#35745#23436#25104#25968#37327
        Width = 91
      end
      item
        EditButtons = <>
        FieldName = 'MpsOutQty'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #32047#35745#21457#36135#25968#37327
        Width = 86
      end
      item
        EditButtons = <>
        FieldName = 'Qty'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21487#21457#36135#37327
        Width = 77
      end>
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 368
    Top = 8
  end
  object AdoQry_Hint: 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
    Parameters = <>
    SQL.Strings = (
      'Select MpsId,MpsDate,MpsQty,MpsFinishQty,MpsOutQty'
      '    MpsOutQty,MpsQty-MpsFinishQty-MpsOutQty As Qty'
      '     From Mps    '
      '   Order By MpsDate')
    Left = 176
    Top = 16
  end
  object DS_Hint: TDataSource
    DataSet = AdoQry_Hint
    Left = 208
    Top = 16
  end
end