server_data.dfm

delphi的一个开发实例

object Easy_Dcom_Server: TEasy_Dcom_Server
  OldCreateOrder = False
  Left = 210
  Top = 223
  Height = 523
  Width = 435
  object ADOQuery_Server: TADOQuery
    Connection = frm_Chain_Data.ADO_Connection
    Parameters = <>
    Left = 48
    Top = 8
  end
  object DataSetProvider_Server: TDataSetProvider
    DataSet = ADOQuery_Server
    Constraints = True
    ResolveToDataSet = True
    Options = [poAllowCommandText]
    Left = 42
    Top = 64
  end
  object Ado_Temp: TADOStoredProc
    Active = False
    Connection = frm_Chain_Data.ADO_Connection
    CursorType = ctStatic
    Filtered = True
    ProcedureName = 'SP_Company;1'
    Parameters = <>
    Prepared = True
    Left = 160
    Top = 8
  end
  object Data_Temp: TDataSetProvider
    DataSet = Ado_Temp
    Constraints = True
    Left = 248
    Top = 8
  end
  object DataSetProvider_Store_Prodc: TDataSetProvider
    DataSet = Ado_Temp
    Constraints = True
    ResolveToDataSet = True
    Options = [poFetchBlobsOnDemand, poIncFieldProps, poAllowCommandText]
    Left = 186
    Top = 64
  end
  object Stored_Sp_Part_set: TADOStoredProc
    Connection = frm_Chain_Data.ADO_Connection
    CursorType = ctStatic
    Filtered = True
    ProcedureName = 'SP_Part_Set;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end>
    Prepared = True
    Left = 48
    Top = 136
  end
  object Data_Sp_Part_set: TDataSetProvider
    DataSet = Stored_Sp_Part_set
    Constraints = True
    ResolveToDataSet = True
    Options = [poFetchBlobsOnDemand, poIncFieldProps, poAllowCommandText]
    Left = 50
    Top = 208
  end
end