datam.dfm

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

object BookAppServ: TBookAppServ
  OldCreateOrder = False
  OnCreate = RemoteDataModuleCreate
  OnDestroy = RemoteDataModuleDestroy
  Left = 276
  Top = 251
  Height = 347
  Width = 480
  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 = 44
    Top = 8
  end
  object qrBookBySerial: TSQLQuery
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'Serial'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'SELECT * FROM tb_book WHERE BookSerial=:Serial')
    SQLConnection = SQLConnection1
    Left = 24
    Top = 76
  end
  object dpBookBySerial: TDataSetProvider
    DataSet = qrBookBySerial
    Left = 100
    Top = 76
  end
  object tbBook: TSQLTable
    MaxBlobSize = -1
    SQLConnection = SQLConnection1
    TableName = 'tb_book'
    Left = 32
    Top = 128
  end
  object dpBook: TDataSetProvider
    DataSet = tbBook
    Left = 104
    Top = 128
  end
  object tbBuy1: TSQLTable
    IndexFieldNames = 'BuySerial'
    MasterFields = 'BuySerial'
    MasterSource = dsBuy2
    MaxBlobSize = -1
    SQLConnection = SQLConnection1
    TableName = 'tb_buy1'
    Left = 32
    Top = 188
    object tbBuy1BuySerial: TIntegerField
      FieldName = 'BuySerial'
      Required = True
    end
    object tbBuy1BookSerial: TStringField
      FieldName = 'BookSerial'
      Required = True
      FixedChar = True
      Size = 30
    end
    object tbBuy1BookCount: TBCDField
      FieldName = 'BookCount'
      Required = True
      Precision = 6
      Size = 0
    end
    object tbBuy1TotalPrice: TBCDField
      FieldName = 'TotalPrice'
      Required = True
      DisplayFormat = '#.00'
      Precision = 8
      Size = 2
    end
  end
  object tbBuy2: TSQLTable
    MaxBlobSize = -1
    SQLConnection = SQLConnection1
    TableName = 'tb_buy2'
    Left = 36
    Top = 248
    object tbBuy2BuySerial: TIntegerField
      FieldName = 'BuySerial'
      Required = True
    end
    object tbBuy2BuyDate: TDateField
      FieldName = 'BuyDate'
    end
    object tbBuy2Memoir: TMemoField
      FieldName = 'Memoir'
      BlobType = ftMemo
      Size = 1
    end
  end
  object dsBuy2: TDataSource
    DataSet = tbBuy2
    Left = 100
    Top = 252
  end
  object dpBuy: TDataSetProvider
    DataSet = tbBuy2
    Left = 160
    Top = 252
  end
  object dpTmpBuy1: TDataSetProvider
    DataSet = cdsTmpBuy1
    ResolveToDataSet = True
    Left = 352
    Top = 80
  end
  object cdsTmpBuy1: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'BookSerial'
        Attributes = [faRequired]
        DataType = ftString
        Size = 30
      end
      item
        Name = 'BookCount'
        Attributes = [faRequired]
        DataType = ftBCD
        Precision = 6
      end
      item
        Name = 'TotalPrice'
        DataType = ftBCD
        Precision = 8
        Size = 2
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 284
    Top = 84
    Data = {
      850000009619E0BD01000000180000000300000000000300000085000A426F6F
      6B53657269616C0100490004000100055749445448020002001E0009426F6F6B
      436F756E7405000500040001000557494454480200020006000A546F74616C50
      72696365060005000000020008444543494D414C530200020002000557494454
      480200020008000000}
    object cdsTmpBuy1BookSerial: TStringField
      FieldName = 'BookSerial'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      FixedChar = True
      Size = 30
    end
    object cdsTmpBuy1BookCount: TBCDField
      CustomConstraint = 'Value>0'
      ConstraintErrorMessage = #20070#31821#25968#37327#33267#23569#20026'1'#65281
      FieldName = 'BookCount'
      Required = True
      Precision = 6
      Size = 0
    end
    object cdsTmpBuy1TotalPrice: TBCDField
      CustomConstraint = 'Value>0'
      ConstraintErrorMessage = #20070#20215#26684#24212#35813#22823#20110'0'#65281
      FieldName = 'TotalPrice'
      Precision = 8
      Size = 2
    end
  end
  object tbUser: TSQLTable
    MaxBlobSize = -1
    SQLConnection = SQLConnection1
    TableName = 'tb_user'
    Left = 288
    Top = 144
  end
  object dpUser: TDataSetProvider
    DataSet = tbUser
    Left = 352
    Top = 148
  end
  object tbCustomer: TSQLTable
    MaxBlobSize = -1
    SQLConnection = SQLConnection1
    TableName = 'tb_customer'
    Left = 288
    Top = 212
  end
  object dpCustomer: TDataSetProvider
    DataSet = tbCustomer
    Left = 356
    Top = 212
  end
end