ufundserver.dfm

Delphi Com编程的简单例子

object FundServer: TFundServer
  OldCreateOrder = False
  OnCreate = MtsDataModuleCreate
  Pooled = False
  Left = 510
  Top = 182
  Height = 289
  Width = 375
  object Conn_Fund: TADOConnection
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 48
    Top = 48
  end
  object ads_Fund: TADODataSet
    Connection = Conn_Fund
    CursorType = ctStatic
    Parameters = <>
    Left = 128
    Top = 48
  end
  object dsp_Fund: TDataSetProvider
    DataSet = ads_Fund
    Options = [poAllowCommandText]
    Left = 48
    Top = 112
  end
  object cds_Fund: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_Fund'
    Left = 128
    Top = 112
  end
  object sp_Fund: TADOStoredProc
    Connection = Conn_Fund
    Parameters = <>
    Left = 216
    Top = 48
  end
  object sq_Fund: TADOQuery
    Connection = Conn_Fund
    Parameters = <>
    Left = 216
    Top = 112
  end
  object dsp_Qry: TDataSetProvider
    DataSet = sp_Fund
    Options = [poAllowCommandText]
    Left = 48
    Top = 192
  end
  object cds_Qry: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_Qry'
    Left = 128
    Top = 192
  end
  object adc_Fund: TADOCommand
    Connection = Conn_Fund
    Parameters = <>
    Left = 216
    Top = 192
  end
end