datamoduleunit.dfm

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

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 351
  Top = 298
  Height = 351
  Width = 447
  object cdsCustomer: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dpCustomer'
    Left = 24
    Top = 160
  end
  object SQLConnection1: TSQLConnection
    ConnectionName = 'MySQLConnection'
    DriverName = 'MySQL'
    GetDriverFunc = 'getSQLDriverMYSQL'
    LibraryName = 'dbexpmysql.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=MySQL'
      'HostName=localhost'
      'Database=bookstore'
      'User_Name=ganzhi'
      'Password=password'
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000')
    VendorLib = 'libmySQL.dll'
    Connected = True
    Left = 32
    Top = 8
  end
  object tbCustomer: TSQLTable
    MaxBlobSize = -1
    SQLConnection = SQLConnection1
    TableName = 'tb_customer'
    Left = 24
    Top = 72
  end
  object dpCustomer: TDataSetProvider
    DataSet = tbCustomer
    Left = 24
    Top = 116
  end
  object qrBook: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 132
    Top = 76
  end
  object dpBook: TDataSetProvider
    DataSet = qrBook
    Left = 132
    Top = 120
  end
  object cdsBook: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dpBook'
    Left = 132
    Top = 168
  end
  object tbOrder2: TSQLTable
    MaxBlobSize = -1
    SQLConnection = SQLConnection1
    TableName = 'tb_order2'
    Left = 224
    Top = 228
  end
  object tbOrder1: TSQLTable
    IndexFieldNames = 'OrderSerial'
    MasterFields = 'OrderSerial'
    MasterSource = dsOrder2
    MaxBlobSize = -1
    SQLConnection = SQLConnection1
    TableName = 'tb_order1'
    Left = 272
    Top = 228
  end
  object dsOrder2: TDataSource
    DataSet = tbOrder2
    Left = 316
    Top = 228
  end
  object cdsCarter: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'BookSerial'
        Attributes = [faRequired]
        DataType = ftString
        Size = 30
      end
      item
        Name = 'BookCount'
        Attributes = [faRequired]
        DataType = ftBCD
        Precision = 6
        Size = 4
      end
      item
        Name = 'TotalPrice'
        DataType = ftBCD
        Precision = 8
        Size = 2
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 20
    Top = 228
    Data = {
      940000009619E0BD01000000180000000300000000000300000094000A426F6F
      6B53657269616C0100490004000100055749445448020002001E0009426F6F6B
      436F756E74050005000400020008444543494D414C5302000200040005574944
      54480200020006000A546F74616C507269636506000500000002000844454349
      4D414C530200020002000557494454480200020008000000}
    object cdsCarterBookSerial: TStringField
      FieldName = 'BookSerial'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      FixedChar = True
      Size = 30
    end
    object cdsCarterBookCount: TBCDField
      CustomConstraint = 'Value>0'
      ConstraintErrorMessage = #20070#31821#25968#37327#33267#23569#20026'1'#65281
      FieldName = 'BookCount'
      Required = True
      Precision = 6
    end
    object cdsCarterSellPrice: TBCDField
      FieldKind = fkLookup
      FieldName = 'SellPrice'
      LookupDataSet = tb_book
      LookupKeyFields = 'BookSerial'
      LookupResultField = 'SellPrice'
      KeyFields = 'BookSerial'
      Size = 6
      Lookup = True
    end
    object cdsCarterBookName: TStringField
      FieldKind = fkLookup
      FieldName = 'BookName'
      LookupDataSet = tb_book
      LookupKeyFields = 'BookSerial'
      LookupResultField = 'BookName'
      KeyFields = 'BookSerial'
      Lookup = True
    end
  end
  object tb_book: TSQLTable
    Active = True
    MaxBlobSize = -1
    SQLConnection = SQLConnection1
    TableName = 'tb_book'
    Left = 76
    Top = 228
  end
end