dmfrm.~dfm

基于Interbase的图书管理系统

object DMbook: TDMbook
  OldCreateOrder = False
  Left = 48
  Top = 141
  Height = 303
  Width = 752
  object Dbasebook: TDatabase
    DatabaseName = 'guibook'
    Params.Strings = (
      'USER NAME=SYSDBA'
      'PASSWORD=masterkey')
    SessionName = 'Default'
    OnLogin = DbasebookLogin
    Left = 56
    Top = 8
  end
  object QryLogin: TQuery
    DatabaseName = 'guibook'
    SessionName = 'Default'
    SQL.Strings = (
      'select * from loginright')
    Left = 104
    Top = 16
  end
  object DSLogin: TDataSource
    DataSet = QryLogin
    Left = 168
    Top = 16
  end
  object Qrybigtype: TQuery
    CachedUpdates = True
    DatabaseName = 'guibook'
    SessionName = 'Default'
    SQL.Strings = (
      'select * from bookbigtype')
    Left = 8
    Top = 56
  end
  object Qrysmalltype: TQuery
    CachedUpdates = True
    DatabaseName = 'guibook'
    SessionName = 'Default'
    SQL.Strings = (
      'select * from booksmalltype')
    Left = 48
    Top = 88
  end
  object Qrybook: TQuery
    CachedUpdates = True
    OnCalcFields = QrybookCalcFields
    DatabaseName = 'guibook'
    SessionName = 'Default'
    SQL.Strings = (
      'select * from book order by book_id asc')
    UpdateObject = USQLbook
    Left = 224
    Top = 8
    object QrybookBOOK_ID: TStringField
      FieldName = 'BOOK_ID'
      Origin = 'GUIBOOK.BOOK.BOOK_ID'
      Size = 8
    end
    object QrybookBOOK_NAME: TStringField
      FieldName = 'BOOK_NAME'
      Origin = 'GUIBOOK.BOOK.BOOK_NAME'
      FixedChar = True
      Size = 25
    end
    object QrybookBOOK_PENSTER: TStringField
      FieldName = 'BOOK_PENSTER'
      Origin = 'GUIBOOK.BOOK.BOOK_PENSTER'
      Size = 10
    end
    object QrybookBOOK_PRICE: TFloatField
      FieldName = 'BOOK_PRICE'
      Origin = 'GUIBOOK.BOOK.BOOK_PRICE'
    end
    object QrybookBOOK_NUMBER: TIntegerField
      FieldName = 'BOOK_NUMBER'
      Origin = 'GUIBOOK.BOOK.BOOK_NUMBER'
    end
    object QrybookBOOK_DATE: TDateTimeField
      FieldName = 'BOOK_DATE'
      Origin = 'GUIBOOK.BOOK.BOOK_DATE'
      DisplayFormat = 'yyyy.mm.dd'
      EditMask = '!0000/00/00;1;_'
    end
    object QrybookBOOK_REMARK: TMemoField
      FieldName = 'BOOK_REMARK'
      Origin = 'GUIBOOK.BOOK.BOOK_REMARK'
      BlobType = ftMemo
      Size = 1
    end
    object QrybookBOOK_PUBLISH: TStringField
      FieldName = 'BOOK_PUBLISH'
      Origin = 'GUIBOOK.BOOK.BOOK_PUBLISH'
      FixedChar = True
      Size = 25
    end
    object QrybookBOOK_RESIDE: TIntegerField
      FieldName = 'BOOK_RESIDE'
      Origin = 'GUIBOOK.BOOK.BOOK_RESIDE'
    end
    object QrybookBook_borrowed: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'Book_borrowed'
      Calculated = True
    end
    object QrybookBOOK_PUBDATE: TDateTimeField
      FieldName = 'BOOK_PUBDATE'
      Origin = 'GUIBOOK.BOOK.BOOK_PUBDATE'
      DisplayFormat = 'yyyy.mm.dd'
      EditMask = '!0000/00/00;1;_'
    end
  end
  object DSbigtyp: TDataSource
    DataSet = Qrybigtype
    Left = 216
    Top = 72
  end
  object DSsmalltype: TDataSource
    DataSet = Qrysmalltype
    Left = 272
    Top = 72
  end
  object DSbook: TDataSource
    DataSet = Qrybook
    Left = 288
    Top = 8
  end
  object SPbook: TStoredProc
    DatabaseName = 'guibook'
    SessionName = 'Default'
    StoredProcName = 'INSERT_BOOK'
    Left = 336
    Top = 8
    ParamData = <
      item
        DataType = ftString
        Name = 'IBOOK_ID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'IBOOK_NAME'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'IBOOK_PENSTER'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'IBOOK_PRICE'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'IBOOK_NUMBER'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'IBOOK_DATE'
        ParamType = ptInput
      end
      item
        DataType = ftBlob
        Name = 'IBOOK_REMARK'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'IBOOK_PUBLISH'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'IBOOK_RESIDE'
        ParamType = ptInput
      end>
  end
  object SPreader: TStoredProc
    DatabaseName = 'guibook'
    SessionName = 'Default'
    StoredProcName = 'INSERT_READER'
    Left = 400
    ParamData = <
      item
        DataType = ftString
        Name = 'IREADER_ID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'IREADER_NO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'IREADER_NAME'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'IREADER_DEPT'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'IREADER_DODATE'
        ParamType = ptInput
      end
      item
        DataType = ftBlob
        Name = 'IREADER_PHOTO'
        ParamType = ptInput
      end>
  end
  object Qryreader: TQuery
    CachedUpdates = True
    DatabaseName = 'guibook'
    SessionName = 'Default'
    SQL.Strings = (
      'select * from reader order by reader_id asc'
      '')
    UpdateObject = USQLreader
    Left = 464
    Top = 8
    object QryreaderREADER_ID: TStringField
      FieldName = 'READER_ID'
      Origin = 'GUIBOOK.READER.READER_ID'
      Size = 14
    end
    object QryreaderREADER_NO: TStringField
      FieldName = 'READER_NO'
      Origin = 'GUIBOOK.READER.READER_NO'
      Size = 6
    end
    object QryreaderREADER_DEPT: TStringField
      FieldName = 'READER_DEPT'
      Origin = 'GUIBOOK.READER.READER_DEPT'
      FixedChar = True
      Size = 30
    end
    object QryreaderREADER_DODATE: TDateTimeField
      FieldName = 'READER_DODATE'
      Origin = 'GUIBOOK.READER.READER_DODATE'
      DisplayFormat = 'yyyy.mm.dd'
      EditMask = '!0000/00/00;1;_'
    end
    object QryreaderREADER_PHOTO: TBlobField
      FieldName = 'READER_PHOTO'
      Origin = 'GUIBOOK.READER.READER_PHOTO'
      BlobType = ftGraphic
      Size = 1
    end
    object QryreaderREADER_NAME: TStringField
      FieldName = 'READER_NAME'
      Origin = 'GUIBOOK.READER.READER_NAME'
      FixedChar = True
      Size = 10
    end
  end
  object DSreader: TDataSource
    DataSet = Qryreader
    Left = 336
    Top = 72
  end
  object SPborrow: TStoredProc
    DatabaseName = 'guibook'
    SessionName = 'Default'
    StoredProcName = 'INSERT_BORROW_BOOK'
    Left = 400
    Top = 72
    ParamData = <
      item
        DataType = ftString
        Name = 'IREADER_ID'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'IBORROW_NUMBER'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'RBORROW_ID'
        ParamType = ptOutput
      end>
  end
  object SPborrowitems: TStoredProc
    DatabaseName = 'guibook'
    SessionName = 'Default'
    StoredProcName = 'INSERT_BORROW_ITEMS'
    Left = 464
    Top = 72
    ParamData = <
      item
        DataType = ftInteger
        Name = 'IBORROW_ID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'IBOOK_ID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'IBOOK_NAME'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'IBORROW_DATE'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'IBORROW_DAY'
        ParamType = ptInput
      end>
  end
  object SPborrowhistory: TStoredProc
    DatabaseName = 'guibook'
    SessionName = 'Default'
    StoredProcName = 'INSERT_BORROW_HISTORY'
    Left = 528
    Top = 72
    ParamData = <
      item
        DataType = ftString
        Name = 'IREADER_ID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'IBOOK_ID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'IBOOK_NAME'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'IBORROW_DATE'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'IBORROW_DAY'
        ParamType = ptInput
      end>
  end
  object Qryborrow: TQuery
    DatabaseName = 'guibook'
    SessionName = 'Default'
    SQL.Strings = (
      'select * from borrowbooks')
    Left = 520
    Top = 8
  end
  object SPrenewal: TStoredProc
    DatabaseName = 'guibook'
    SessionName = 'Default'
    StoredProcName = 'RENEWAL_BORROW_ITEMS'
    Left = 592
    Top = 8
    ParamData = <
      item
        DataType = ftString
        Name = 'IREADER_ID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'IBOOK_ID'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'IRENEWAL_DATE'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'IRENEWAL_DAY'
        ParamType = ptInput
      end>
  end
  object QryRenewal: TQuery
    DatabaseName = 'guibook'
    SessionName = 'Default'