u_datamodule.dfm

很好地delphi书籍源码

object DM: TDM
  OldCreateOrder = False
  Left = 356
  Top = 371
  Height = 178
  Width = 426
  object WriteTable: TTable
    Active = True
    DatabaseName = 'FootBall'
    TableName = #25237#27880#34920'.DB'
    Left = 56
    Top = 16
  end
  object DSWriteTable: TDataSource
    DataSet = WriteTable
    Left = 56
    Top = 72
  end
  object DSBookQuery: TDataSource
    DataSet = BookQuery
    Left = 136
    Top = 72
  end
  object DSPhoneTable: TDataSource
    DataSet = PhoneTable
    Left = 232
    Top = 72
  end
  object PhoneTable: TTable
    Active = True
    DatabaseName = 'd:\Delphi_Book\Ch8\'#25552#39640'\database\'
    TableName = #30005#35805#21495#30721#31807'.db'
    Left = 224
    Top = 16
  end
  object Database1: TDatabase
    Connected = True
    DatabaseName = 'AAA'
    DriverName = 'MSSQL'
    LoginPrompt = False
    Params.Strings = (
      'DATABASE NAME='#35746#31080#31995#32479
      'SERVER NAME=ZSC'
      'USER NAME=sa'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'BLOB EDIT LOGGING='
      'LANGDRIVER='
      'SQLQRYMODE='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'DATE MODE=0'
      'SCHEMA CACHE TIME=-1'
      'MAX QUERY TIME=300'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'HOST NAME='
      'APPLICATION NAME='
      'NATIONAL LANG NAME='
      'ENABLE BCD=FALSE'
      'TDS PACKET SIZE=4096'
      'BLOBS TO CACHE=64'
      'BLOB SIZE=32'
      'PASSWORD=123')
    SessionName = 'Default'
    Left = 304
    Top = 48
  end
  object BookQuery: TQuery
    Active = True
    DatabaseName = 'AAA'
    SQL.Strings = (
      'select * from tbBookTicket')
    Left = 136
    Top = 16
  end
end