inv_poheadhint.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_PoHeadHint: TFrm_Inv_PoHeadHint
  Left = 83
  Top = 17
  BOrderIcons = [biSystemMenu, biMinimize]
  Caption = '采购订单信息提示'
  ClientHeight = 501
  ClientWidth = 596
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 216
    Top = 16
    Width = 96
    Height = 12
    Caption = '采购订单信息提示'
  end
  inherited btn_ok: TButton
    Left = 403
    Top = 437
  end
  inherited btn_Cancel: TButton
    Left = 488
    Top = 437
  end
  object DBGridEh1: TDBGridEh [3]
    Left = 4
    Top = 48
    Width = 577
    Height = 369
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 2
    TitleFont.ChArset = GB2312_CHArSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnDblClick = DBGridEh1DblClick
    OnKeyDown = DBGridEh1KeyDown
    Columns = <
      Item
        FieldName = 'pono'
        Title.Alignment = taCenter
        Title.Caption = '采购订单号'
        Width = 80
      end
      Item
        FieldName = 'podate'
        Title.Alignment = taCenter
        Title.Caption = '下单日期'
        Width = 80
      end
      Item
        FieldName = 'PoType'
        PickList.Strings = (
          '普通采购'
          '委外加工'
          '进口采购')
        Title.Alignment = taCenter
        Title.Caption = '单据类型'
        KeyList.Strings = (
          '0'
          '1'
          '2')
      end
      Item
        FieldName = 'poremArk'
        Title.Alignment = taCenter
        Title.Caption = '备注'
        Width = 295
      end>
  end
  inherited AdoQry_Tmp: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_test_zcw;Data Source=192' +
      '.168.0.8'
    CurSorType = ctStatic
    SQL.Strings = (
      'select pono,podate,PoType,poremArk'
      '      from po '
      '      where VendorCode='#39'2'#39'  and '
      '            poType=1 '
      '     Order by Podate DESC')
  end
  object DataSource1: TDataSource
    DataSet = AdoQry_Tmp
    Left = 232
    Top = 144
  end
end