datam.dfm

这是一个DELPHI7应用案例开发篇有配套程序种子光盘

object DataModule1: TDataModule1
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 254
  Top = 315
  Height = 305
  Width = 412
  object DCOMConnection1: TDCOMConnection
    Connected = True
    ServerGUID = '{9915ADAF-F317-448B-BFA8-2024AB419873}'
    ServerName = 'AppServer.BookAppServ'
    Left = 32
    Top = 16
  end
  object cdsBookBySerial: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'Serial'
        ParamType = ptInput
      end>
    ProviderName = 'dpBookBySerial'
    RemoteServer = DCOMConnection1
    Left = 32
    Top = 72
  end
  object cdsBook: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dpBook'
    RemoteServer = DCOMConnection1
    Left = 120
    Top = 76
  end
  object dsBook: TDataSource
    DataSet = cdsBook
    OnDataChange = dsBookDataChange
    Left = 176
    Top = 76
  end
  object cdsBuy2: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dpBuy'
    RemoteServer = DCOMConnection1
    Left = 32
    Top = 136
    object cdsBuy2BuySerial: TIntegerField
      FieldName = 'BuySerial'
      Required = True
    end
    object cdsBuy2BuyDate: TDateField
      FieldName = 'BuyDate'
    end
    object cdsBuy2Memoir: TMemoField
      FieldName = 'Memoir'
      BlobType = ftMemo
      Size = 1
    end
    object cdsBuy2tbBuy1: TDataSetField
      FieldName = 'tbBuy1'
    end
  end
  object cdsBuy1: TClientDataSet
    Active = True
    Aggregates = <>
    DataSetField = cdsBuy2tbBuy1
    Params = <>
    RemoteServer = DCOMConnection1
    BeforePost = cdsBuy1BeforePost
    Left = 36
    Top = 192
    object cdsBuy1BuySerial: TIntegerField
      FieldName = 'BuySerial'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object cdsBuy1BookSerial: TStringField
      FieldName = 'BookSerial'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      FixedChar = True
      Size = 30
    end
    object cdsBuy1BookCount: TBCDField
      FieldName = 'BookCount'
      Required = True
      Precision = 6
      Size = 0
    end
    object cdsBuy1TotalPrice: TBCDField
      FieldName = 'TotalPrice'
      Required = True
      DisplayFormat = #65509'#.00'
      currency = True
      Precision = 8
      Size = 2
    end
    object cdsBuy1BookName: TStringField
      FieldKind = fkLookup
      FieldName = 'BookName'
      LookupDataSet = cdsBook
      LookupKeyFields = 'BookSerial'
      LookupResultField = 'BookName'
      KeyFields = 'BookSerial'
      Lookup = True
    end
  end
  object dsBuy2: TDataSource
    DataSet = cdsBuy2
    Left = 92
    Top = 140
  end
  object dsBuy1: TDataSource
    DataSet = cdsBuy1
    Left = 92
    Top = 200
  end
  object dsTmpBuy1: TDataSource
    DataSet = cdsTmpBuy1
    Left = 260
    Top = 148
  end
  object cdsTmpBuy1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dpTmpBuy1'
    RemoteServer = DCOMConnection1
    Left = 200
    Top = 148
    object cdsTmpBuy1BookSerial: TStringField
      FieldName = 'BookSerial'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      FixedChar = True
      Size = 30
    end
    object cdsTmpBuy1BookCount: TBCDField
      FieldName = 'BookCount'
      Required = True
      Precision = 6
      Size = 0
    end
    object cdsTmpBuy1TotalPrice: TBCDField
      FieldName = 'TotalPrice'
      Precision = 8
      Size = 2
    end
  end
  object cdsUser: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dpUser'
    RemoteServer = DCOMConnection1
    Left = 200
    Top = 216
  end
  object dsUser: TDataSource
    DataSet = cdsUser
    Left = 256
    Top = 216
  end
  object RvProject1: TRvProject
    ProjectFile = 'C:\Samples\'#26696#20363'\Step01\ManagerSoft\Project1.rav'
    Left = 240
    Top = 32
  end
  object RvDataSetBook: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = cdsBook
    Left = 328
    Top = 32
  end
  object RvDataSetBuy2: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = cdsBuy2
    Left = 244
    Top = 88
  end
  object RvDataSetBuy1: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = cdsBuy1
    Left = 332
    Top = 88
  end
end