unit2.~dfm

射频卡发卡管理系统的PC端软件

object DM1: TDM1
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 229
  Top = 254
  Height = 452
  Width = 431
  object IBTable1: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    FieldDefs = <
      item
        Name = 'ID'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'CARD_NO'
        Attributes = [faFixed]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'DATETIME'
        DataType = ftInteger
      end
      item
        Name = 'B_TIME'
        DataType = ftInteger
      end
      item
        Name = 'E_TIME'
        DataType = ftInteger
      end
      item
        Name = 'TAG'
        DataType = ftInteger
      end>
    StoreDefs = True
    TableName = 'STATUS'
    Left = 8
    Top = 56
  end
  object IBDatabase1: TIBDatabase
    Params.Strings = (
      'user_name=SYSDBA'
      'password=masterkey')
    LoginPrompt = False
    DefaultTransaction = IBTransaction1
    IdleTimer = 0
    SQLDialect = 3
    TraceFlags = []
    Left = 8
  end
  object IBTransaction1: TIBTransaction
    Active = False
    DefaultDatabase = IBDatabase1
    AutoStopAction = saNone
    Left = 104
  end
  object DataSource1: TDataSource
    DataSet = IBTable1
    Left = 104
    Top = 56
  end
  object IBTable2: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    FieldDefs = <
      item
        Name = 'STUID'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'CARD_NO'
        Attributes = [faRequired, faFixed]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'STU_NO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'NAME'
        Attributes = [faRequired, faFixed]
        DataType = ftString
        Size = 10
      end
      item
        Name = 'SCHOOLID'
        DataType = ftInteger
      end
      item
        Name = 'DEPID'
        DataType = ftInteger
      end
      item
        Name = 'CLASSID'
        DataType = ftInteger
      end
      item
        Name = 'ZUOWEI_ID'
        DataType = ftInteger
      end
      item
        Name = 'RANK'
        DataType = ftInteger
      end
      item
        Name = 'SPEND_RANK'
        DataType = ftFloat
      end
      item
        Name = 'PHOTO'
        DataType = ftBlob
        Size = 8
      end
      item
        Name = 'LOCK_FLAG'
        DataType = ftInteger
      end
      item
        Name = 'PHOTO1'
        DataType = ftBlob
        Size = 8
      end
      item
        Name = 'TMP1'
        DataType = ftInteger
      end
      item
        Name = 'TMP2'
        DataType = ftInteger
      end
      item
        Name = 'TMP3'
        DataType = ftInteger
      end
      item
        Name = 'TMP4'
        DataType = ftInteger
      end
      item
        Name = 'TMP5'
        DataType = ftInteger
      end
      item
        Name = 'TMP6'
        DataType = ftInteger
      end
      item
        Name = 'TMP7'
        DataType = ftInteger
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY33'
        Fields = 'STUID'
        Options = [ixPrimary, ixUnique]
      end>
    StoreDefs = True
    TableName = 'STUDENT'
    Left = 8
    Top = 104
  end
  object DataSource2: TDataSource
    DataSet = IBTable2
    Left = 104
    Top = 104
  end
  object IBQuery1: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      
        'select s.STU_NO,s.NAME,s.CARD_NO,s.PHOTO,s.RANK,s.SPEND_RANK,s.L' +
        'OCK_FLAG,'
      'sh.SCHOOLNAME,dep.DEPARTMENTNAME,cl.CLASSNAME,'
      'st.B_TIME,st.E_TIME,st.Tag'
      'from STATUS st,STUDENT s,CLASS cl,SCHOOL sh,DEPARTMENT dep'
      
        'where st.CARD_NO=s.CARD_NO and cl.CLASSID = s.CLASSID and dep.DE' +
        'PID = s.DEPID'
      'and s.SCHOOLID = sh.SCHOOLID')
    Left = 8
    Top = 152
  end
  object DataSource3: TDataSource
    DataSet = IBQuery1
    Left = 104
    Top = 152
  end
  object IBQuery2: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select d.DEPARTMENTNAME'
      'from DEPARTMENT d,STUDENT s where d.DEPID = s.DEPID')
    Left = 8
    Top = 208
  end
  object DataSource4: TDataSource
    DataSet = IBQuery2
    Left = 104
    Top = 208
  end
  object IBQuery3: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select sh.SCHOOLNAME'
      'from SCHOOL sh,STUDENT s where sh.SCHOOLID = s.SCHOOLID')
    Left = 8
    Top = 264
  end
  object DataSource5: TDataSource
    DataSet = IBQuery3
    Left = 104
    Top = 264
  end
  object IBQuery4: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select cl.CLASSNAME'
      'from CLASS cl,STUDENT s where cl.CLASSID = s.CLASSID')
    Left = 8
    Top = 336
  end
  object DataSource6: TDataSource
    DataSet = IBQuery4
    Left = 112
    Top = 328
  end
  object ClassTable: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    FieldDefs = <
      item
        Name = 'CLASSID'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'CLASSNAME'
        Attributes = [faFixed]
        DataType = ftString
        Size = 50
      end
      item
        Name = 'DEPID'
        DataType = ftInteger
      end
      item
        Name = 'SCHOOLID'
        DataType = ftInteger
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY29'
        Fields = 'CLASSID'
        Options = [ixPrimary, ixUnique]
      end>
    IndexFieldNames = 'SCHOOLID'
    MasterFields = 'SCHOOLID'
    MasterSource = Shool
    StoreDefs = True
    TableName = 'CLASS'
    Left = 176
    Top = 160
  end
  object Class: TDataSource
    DataSet = ClassTable
    Left = 248
    Top = 160
  end
  object ShoolTable: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    FieldDefs = <
      item
        Name = 'SCHOOLID'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'SCHOOLNAME'
        Attributes = [faFixed]
        DataType = ftString
        Size = 40
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY32'
        Fields = 'SCHOOLID'
        Options = [ixPrimary, ixUnique]
      end>
    StoreDefs = True
    TableName = 'SCHOOL'
    Left = 176
    Top = 56
  end
  object DepTable: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    FieldDefs = <
      item
        Name = 'DEPID'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'DEPARTMENTNAME'
        Attributes = [faFixed]
        DataType = ftString
        Size = 50
      end
      item
        Name = 'SCHOOLID'
        DataType = ftInteger
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY28'
        Fields = 'DEPID'
        Options = [ixPrimary, ixUnique]
      end>
    StoreDefs = True
    TableName = 'DEPARTMENT'
    Left = 176
    Top = 104
  end
  object Shool: TDataSource
    DataSet = ShoolTable
    Left = 248
    Top = 56
  end
  object Dep: TDataSource
    DataSet = DepTable
    Left = 248
    Top = 104
  end
  object IBQueryExe: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'COMMIT')
    Left = 184
    Top = 240
  end
  object DataSourceExe: TDataSource
    DataSet = IBQueryExe
    Left = 248
    Top = 240
  end
end