unitdm.dfm

SQL2000跟课件学习的源代码 分享共同学习

object DM_Data: TDM_Data
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 271
  Top = 132
  Height = 211
  Width = 327
  object DatabaseEdu: TDatabase
    AliasName = 'EduDSN'
    Connected = True
    DatabaseName = 'Edu'
    LoginPrompt = False
    Params.Strings = (
      'DATABASE NAME='
      'USER NAME=useredu'
      'ODBC DSN=EduDSN'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'SQLQRYMODE='
      'LANGDRIVER='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'SCHEMA CACHE TIME=-1'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'ENABLE BCD=FALSE'
      'ROWSET SIZE=20'
      'BLOBS TO CACHE=64'
      'PASSWORD=edu')
    SessionName = 'Default'
    Left = 46
    Top = 18
  end
  object QueryStudent: TQuery
    DatabaseName = 'Edu'
    RequestLive = True
    SQL.Strings = (
      'SELECT * FROM Student')
    UpdateObject = UpdateSQL1
    Left = 154
    Top = 96
  end
  object DataSourceStudent: TDataSource
    DataSet = QueryStudent
    Left = 42
    Top = 92
  end
  object TableClass: TTable
    Active = True
    DatabaseName = 'Edu'
    TableName = 'Class'
    Left = 254
    Top = 24
  end
  object DataSourceClass: TDataSource
    DataSet = TableClass
    Left = 152
    Top = 24
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update Student'
      'set'
      '  StudentID = :StudentID,'
      '  StudentName = :StudentName,'
      '  Sex = :Sex,'
      '  Birthday = :Birthday,'
      '  ClassID = :ClassID,'
      '  TelePhone = :TelePhone,'
      '  CreditHour = :CreditHour,'
      '  Pwd = :Pwd'
      'where'
      '  StudentID = :OLD_StudentID')
    InsertSQL.Strings = (
      'insert into Student'
      
        '  (StudentID, StudentName, Sex, Birthday, ClassID, TelePhone, Cr' +
        'editHour, '
      '   Pwd)'
      'values'
      
        '  (:StudentID, :StudentName, :Sex, :Birthday, :ClassID, :TelePho' +
        'ne, :CreditHour, '
      '   :Pwd)')
    DeleteSQL.Strings = (
      'delete from Student'
      'where'
      '  StudentID = :OLD_StudentID')
    Left = 256
    Top = 100
  end
end