datamodule.dfm

delphi下 数据库图书馆管理系统的实现

object DataModule1: TDataModule1
  OldCreateOrder = True
  Left = 238
  Top = 144
  Height = 358
  Width = 478
  object Table2: TTable
    DatabaseName = 'DB'
    TableName = 'dbo.BJ'
    Left = 216
    Top = 8
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 64
    Top = 56
  end
  object Table1: TTable
    DatabaseName = 'DB'
    TableName = 'dbo.JIBEN'
    Left = 168
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 64
    Top = 8
  end
  object DataSource3: TDataSource
    DataSet = Table3
    Left = 64
    Top = 152
  end
  object Table3: TTable
    DatabaseName = 'DB'
    TableName = 'dbo.ZC'
    Left = 128
    Top = 8
  end
  object DataSource4: TDataSource
    DataSet = Table4
    Left = 64
    Top = 104
  end
  object DataSource5: TDataSource
    DataSet = Table5
    Left = 16
    Top = 160
  end
  object DataSource6: TDataSource
    DataSet = Table6
    Left = 24
    Top = 208
  end
  object Table4: TTable
    DatabaseName = 'DB'
    TableName = 'dbo.CJ'
    Left = 128
    Top = 64
  end
  object Table5: TTable
    DatabaseName = 'DB'
    TableName = 'dbo.BJKC'
    Left = 176
    Top = 64
  end
  object Table6: TTable
    DatabaseName = 'DB'
    TableName = 'dbo.BK'
    Left = 272
    Top = 64
  end
  object DataSource7: TDataSource
    DataSet = Table7
    Left = 16
    Top = 8
  end
  object DataSource8: TDataSource
    Left = 16
    Top = 56
  end
  object DataSource9: TDataSource
    DataSet = Table9
    Left = 16
    Top = 112
  end
  object Table7: TTable
    DatabaseName = 'DB'
    TableName = 'dbo.JXJH'
    Left = 272
    Top = 8
  end
  object Table9: TTable
    DatabaseName = 'DB'
    TableName = 'dbo.KC'
    Left = 320
    Top = 64
  end
  object Query1: TQuery
    DatabaseName = 'DB'
    SQL.Strings = (
      'select kcmc from bjkc.dbf where bjbh='#39'001'#39)
    Left = 128
    Top = 120
    object Query1kcmc: TStringField
      FieldName = 'kcmc'
      Origin = 'XSXJMIS."bjkc.DBF".KCMC'
    end
  end
  object DataSource10: TDataSource
    DataSet = Query1
    Left = 24
    Top = 264
  end
  object Query2: TQuery
    DatabaseName = 'DB'
    Left = 176
    Top = 120
  end
  object DataSource11: TDataSource
    DataSet = Query2
    Left = 64
    Top = 208
  end
  object DataSource12: TDataSource
    DataSet = Query3
    Left = 80
    Top = 264
  end
  object Query3: TQuery
    DatabaseName = 'DB'
    SQL.Strings = (
      'select * from bjkc')
    Left = 224
    Top = 120
  end
  object Database1: TDatabase
    AliasName = 'MS SQL Server'
    DatabaseName = 'DB'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sa'
      'PASSWORD='#39#39)
    SessionName = 'Default'
    Left = 384
    Top = 16
  end
  object Table8: TTable
    DatabaseName = 'DB'
    TableName = 'dbo.ZY'
    Left = 224
    Top = 64
  end
end