unitdatamodule.dfm.~35~

初中成绩录入系统网络版(firebird) firebird下的网络编程

object dm: Tdm
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 275
  Width = 389
  object Query1: TIBQuery
    Database = IBDB
    Transaction = Trans1
    SQL.Strings = (
      
        'select b.school,b.stdname,a.bmh,a.zkzh,a.yuwen1,a.yuwen2,a.shuxu' +
        'e,a.yingyu from achieve a,student b where a.bmh=b.bmh')
    Left = 48
    Top = 80
  end
  object IBDB: TIBDatabase
    Connected = True
    DatabaseName = 'E:\'#36719#20214#24320#21457'\'#25104#32489#24405#20837#31995#32479#32593#32476#29256'\server\achieve.GDB'
    LoginPrompt = False
    DefaultTransaction = Trans1
    Left = 48
    Top = 24
  end
  object Trans1: TIBTransaction
    DefaultDatabase = IBDB
    Left = 168
    Top = 24
  end
  object IBBS: TIBBackupService
    LoginPrompt = False
    TraceFlags = []
    BlockingFactor = 0
    Options = []
    Left = 72
    Top = 200
  end
  object IBRS: TIBRestoreService
    ServerName = 'localhost'
    Protocol = TCP
    LoginPrompt = False
    TraceFlags = []
    PageBuffers = 0
    Left = 144
    Top = 200
  end
  object IBSS: TIBSecurityService
    LoginPrompt = False
    TraceFlags = []
    Left = 208
    Top = 200
  end
  object Table1: TIBTable
    Database = IBDB
    Transaction = TransTable1
    Left = 168
    Top = 80
  end
  object Query2: TIBQuery
    Database = IBDB
    Transaction = Trans2
    Left = 48
    Top = 136
  end
  object Trans2: TIBTransaction
    DefaultDatabase = IBDB
    Left = 168
    Top = 136
  end
  object QueryIncept: TIBQuery
    Database = IBDB
    Transaction = TransIncept
    UpdateObject = UpdateIncept
    Left = 288
    Top = 136
  end
  object TransIncept: TIBTransaction
    DefaultDatabase = IBDB
    Left = 288
    Top = 80
  end
  object UpdateIncept: TIBUpdateSQL
    Left = 288
    Top = 192
  end
  object TransTable1: TIBTransaction
    DefaultDatabase = IBDB
    Left = 224
    Top = 80
  end
end