inherited Frm_Pm_Qry_AnalyzerVendorSupply: TFrm_Pm_Qry_AnalyzerVendorSupply
  Left = 206
  Top = 99
  Caption = '供應商交貨及時性評價表'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '供應商交貨及時性評價表'
  end
  inherited Pnl_Head: TPanel
    Height = 33
    inherited Image1: TImage
      Height = 33
    end
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 60
      Caption = '及時交貨率'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 392
    Height = 37
    inherited Image4: TImage
      Height = 37
    end
    object Label3: TLabel
      Left = 18
      Top = 24
      Width = 78
      Height = 12
      Caption = '名 次 序 號：'
    end
    object dbtxtOrderno: TDBText
      Left = 96
      Top = 23
      Width = 72
      Height = 12
      AutoSize = True
      DataField = 'Orderno'
      DataSource = DataSource
    end
    object dbtxtVendorflag: TDBText
      Left = 96
      Top = 7
      Width = 90
      Height = 12
      AutoSize = True
      DataField = 'Vendorflag'
      DataSource = DataSource
    end
    object Label2: TLabel
      Left = 24
      Top = 6
      Width = 72
      Height = 12
      Caption = '供應商標識：'
    end
  end
  inherited Pnl_Body: TPanel
    Top = 90
    Height = 302
    inherited Image3: TImage
      Height = 302
    end
    inherited DBGridEh: TDBGridEh
      Height = 302
      ReadOnly = False
      FrozenCols = 1
      TitlEHeight = 13
      OptionsEh = [dghFixed3D, dghFrozen3D, dghHighlightFocus, dghclearSelection]
      Columns = <
        Item
          FieldName = 'Vendorflag'
          PickList.Strings = ()
          Width = 200
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorCode'
          PickList.Strings = ()
          Width = 83
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorName'
          PickList.Strings = ()
          Width = 175
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Countdilivertimes'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ontimedilivertimes'
          PickList.Strings = ()
          Width = 76
          KeyList.Strings = ()
        end
        Item
          FieldName = 'diliverrate'
          PickList.Strings = ()
          Width = 69
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Orderno'
          PickList.Strings = ()
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 157
    Top = 123
  end
  inherited ActionList: TActionList
    Top = 160
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=NT2'
    CurSorType = ctStatic
    SQL.Strings = (
      'select VendorCode,VendorName,'
      '       Vendorflag=VendorCode+'#39' '#39'+VendorName,'
      'Countdilivertimes=0,ontimedilivertimes=0,'
      'diliverrate='#39'aaa'#39', Orderno=0'
      'from Vendor')
    Left = 304
    Top = 233
    object AdoQry_MaInvendorCode: TStringField
      DisplayLabel = '供應商代碼'
      FieldName = 'VendorCode'
      Origin = '#tmpres'
      Size = 12
    end
    object AdoQry_MaInvendorName: TStringField
      DisplayLabel = '供應商名稱'
      FieldName = 'VendorName'
      Origin = '#tmpres'
      Size = 60
    end
    object AdoQry_MainCountdilivertimes: TIntegerField
      DisplayLabel = '總交貨次數'
      FieldName = 'Countdilivertimes'
      Origin = '#tmpres'
    end
    object AdoQry_Mainontimedilivertimes: TIntegerField
      DisplayLabel = '及時交貨次數'
      FieldName = 'ontimedilivertimes'
      Origin = '#tmpres'
    end
    object AdoQry_Maindiliverrate: TStringField
      DisplayLabel = '及時交貨率'
      FieldName = 'diliverrate'
      Origin = '#tmpres'
      Size = 8
    end
    object AdoQry_MaInvendorflag: TStringField
      DisplayLabel = '供應商標識'
      FieldName = 'Vendorflag'
      Origin = '#tmpres'
      Size = 73
    end
    object AdoQry_MaInOrderno: TIntegerField
      DisplayLabel = '名次序號'
      FieldName = 'Orderno'
      Origin = '#tmpres'
    end
  end
  inherited DataSource: TDataSource
    Top = 137
  end
end