dmfrm.~dfm

基于Interbase的图书管理系统

    SQL.Strings = (
      'select * from borrowitems')
    Left = 664
    Top = 8
  end
  object SPreturn: TStoredProc
    DatabaseName = 'guibook'
    SessionName = 'Default'
    StoredProcName = 'RETURN_BORROW_BOOK'
    Left = 600
    Top = 72
    ParamData = <
      item
        DataType = ftString
        Name = 'IREADER_ID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'IBOOK_ID'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'IRETURN_DATE'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'IBORROW_DATE'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'IBORROW_DAY'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'IRENEWAL_DATE'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'IRENEWAL_DAY'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'IBORROWPASS_DAY'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'IRENEWALPASS_DAY'
        ParamType = ptInput
      end>
  end
  object SPgoid: TStoredProc
    DatabaseName = 'guibook'
    SessionName = 'Default'
    StoredProcName = 'GOID_READER'
    Left = 664
    Top = 64
    ParamData = <
      item
        DataType = ftString
        Name = 'IREADER_ID'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'IREADER_QUITDATE'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'RVALUES'
        ParamType = ptOutput
      end>
  end
  object SPbigtype: TStoredProc
    DatabaseName = 'guibook'
    SessionName = 'Default'
    StoredProcName = 'INSERT_BOOKBIGTYPE'
    Left = 104
    Top = 88
  end
  object SPsmalltype: TStoredProc
    DatabaseName = 'guibook'
    SessionName = 'Default'
    StoredProcName = 'INSERT_BOOKSMALLTYPE'
    Left = 160
    Top = 88
  end
  object Qryborrowitems: TQuery
    DatabaseName = 'guibook'
    SessionName = 'Default'
    SQL.Strings = (
      'select * from borrowitems')
    Left = 56
    Top = 144
  end
  object QryborrowHistory: TQuery
    DatabaseName = 'guibook'
    SessionName = 'Default'
    SQL.Strings = (
      'select * from borrowhistory')
    Left = 160
    Top = 136
  end
  object QryReturnHistory: TQuery
    DatabaseName = 'guibook'
    SessionName = 'Default'
    SQL.Strings = (
      'select * from returnhistory')
    Left = 248
    Top = 136
  end
  object Qryclosetime: TQuery
    OnCalcFields = QryclosetimeCalcFields
    DatabaseName = 'guibook'
    SessionName = 'Default'
    SQL.Strings = (
      'select * from timeclose')
    Left = 320
    Top = 136
    object QryclosetimeTIMECLOSE_ID: TIntegerField
      FieldName = 'TIMECLOSE_ID'
      Origin = 'GUIBOOK.TIMECLOSE.TIMECLOSE_ID'
    end
    object QryclosetimeBOOK_ID: TStringField
      FieldName = 'BOOK_ID'
      Origin = 'GUIBOOK.TIMECLOSE.BOOK_ID'
      Size = 8
    end
    object QryclosetimeREADER_ID: TStringField
      FieldName = 'READER_ID'
      Origin = 'GUIBOOK.TIMECLOSE.READER_ID'
      Size = 14
    end
    object QryclosetimeBORROW_TIME: TIntegerField
      FieldName = 'BORROW_TIME'
      Origin = 'GUIBOOK.TIMECLOSE.BORROW_TIME'
    end
    object QryclosetimeRENEWAL_TIME: TIntegerField
      FieldName = 'RENEWAL_TIME'
      Origin = 'GUIBOOK.TIMECLOSE.RENEWAL_TIME'
    end
    object QryclosetimeBORROW_DATE: TDateTimeField
      FieldName = 'BORROW_DATE'
      Origin = 'GUIBOOK.TIMECLOSE.BORROW_DATE'
    end
    object QryclosetimeBORROW_DAY: TIntegerField
      FieldName = 'BORROW_DAY'
      Origin = 'GUIBOOK.TIMECLOSE.BORROW_DAY'
    end
    object QryclosetimeRENEWAL_DATE: TDateTimeField
      FieldName = 'RENEWAL_DATE'
      Origin = 'GUIBOOK.TIMECLOSE.RENEWAL_DATE'
    end
    object QryclosetimeRENEWAL_DAY: TIntegerField
      FieldName = 'RENEWAL_DAY'
      Origin = 'GUIBOOK.TIMECLOSE.RENEWAL_DAY'
    end
    object QryclosetimeRETURN_DATE: TDateTimeField
      FieldName = 'RETURN_DATE'
      Origin = 'GUIBOOK.TIMECLOSE.RETURN_DATE'
    end
    object Qryclosetimepasscount: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'passcount'
      Calculated = True
    end
  end
  object Qrybooklose: TQuery
    DatabaseName = 'guibook'
    SessionName = 'Default'
    SQL.Strings = (
      'select * from booklose')
    Left = 400
    Top = 136
  end
  object Qryclear: TQuery
    DatabaseName = 'guibook'
    Left = 456
    Top = 136
  end
  object Qrymaster: TQuery
    DatabaseName = 'guibook'
    SessionName = 'Default'
    SQL.Strings = (
      'select m.reader_id,'
      'm.borrow_number,'
      'd.book_id,'
      'd.book_name,'
      'd.borrow_date,'
      'd.borrow_day,'
      'd.renewal_date,'
      'd.renewal_day'
      'from borrowbooks m,borrowitems d'
      'where m.borrow_id=d.borrow_id'
      'order by reader_id,book_id'
      '')
    Left = 32
    Top = 208
    object QrymasterREADER_ID: TStringField
      FieldName = 'READER_ID'
      Size = 14
    end
    object QrymasterBORROW_NUMBER: TIntegerField
      FieldName = 'BORROW_NUMBER'
    end
    object QrymasterBOOK_ID: TStringField
      FieldName = 'BOOK_ID'
      Size = 8
    end
    object QrymasterBOOK_NAME: TStringField
      FieldName = 'BOOK_NAME'
      FixedChar = True
      Size = 25
    end
    object QrymasterBORROW_DATE: TDateTimeField
      FieldName = 'BORROW_DATE'
    end
    object QrymasterBORROW_DAY: TIntegerField
      FieldName = 'BORROW_DAY'
    end
    object QrymasterRENEWAL_DATE: TDateTimeField
      FieldName = 'RENEWAL_DATE'
    end
    object QrymasterRENEWAL_DAY: TIntegerField
      FieldName = 'RENEWAL_DAY'
    end
  end
  object Qrytypemaster: TQuery
    DatabaseName = 'guibook'
    SessionName = 'Default'
    SQL.Strings = (
      'select b.book_bigtype,'
      'b.book_bigname,'
      's.book_type,'
      's.book_smallname'
      'from bookbigtype b,booksmalltype s'
      'where b.book_bigtype=s.book_bigtype'
      'order by book_bigtype,book_type')
    Left = 96
    Top = 208
    object QrytypemasterBOOK_BIGTYPE: TStringField
      FieldName = 'BOOK_BIGTYPE'
      FixedChar = True
      Size = 1
    end
    object QrytypemasterBOOK_BIGNAME: TStringField
      FieldName = 'BOOK_BIGNAME'
      FixedChar = True
    end
    object QrytypemasterBOOK_TYPE: TStringField
      FieldName = 'BOOK_TYPE'
      FixedChar = True
      Size = 4
    end
    object QrytypemasterBOOK_SMALLNAME: TStringField
      FieldName = 'BOOK_SMALLNAME'
      FixedChar = True
    end
  end
  object QryReaderQuit: TQuery
    DatabaseName = 'guibook'
    SQL.Strings = (
      'select * from readerquit')
    Left = 160
    Top = 208
    object QryReaderQuitREADER_NO: TStringField
      FieldName = 'READER_NO'
      Origin = 'GUIBOOK.READERQUIT.READER_NO'
      Size = 6
    end
    object QryReaderQuitREADER_ID: TStringField
      FieldName = 'READER_ID'
      Origin = 'GUIBOOK.READERQUIT.READER_ID'
      Size = 14
    end
    object QryReaderQuitREADER_NAME: TStringField
      FieldName = 'READER_NAME'
      Origin = 'GUIBOOK.READERQUIT.READER_NAME'
      FixedChar = True
      Size = 10
    end
    object QryReaderQuitREADER_DEPT: TStringField
      FieldName = 'READER_DEPT'
      Origin = 'GUIBOOK.READERQUIT.READER_DEPT'
      FixedChar = True
      Size = 30
    end
    object QryReaderQuitREADER_QUITDATE: TDateTimeField
      FieldName = 'READER_QUITDATE'
      Origin = 'GUIBOOK.READERQUIT.READER_QUITDATE'
    end
    object QryReaderQuitREADER_DODATE: TDateTimeField
      FieldName = 'READER_DODATE'
      Origin = 'GUIBOOK.READERQUIT.READER_DODATE'
    end
  end
  object USQLbook: TUpdateSQL
    ModifySQL.Strings = (
      'update BOOK'
      'set'
      'BOOK_ID=:BOOK_ID,'
      'BOOK_NAME=:BOOK_NAME,'
      'BOOK_PENSTER=:BOOK_PENSTER,'
      'BOOK_PRICE=:BOOK_PRICE,'
      'BOOK_PUBLISH=:BOOK_PUBLISH,'
      'BOOK_PUBDATE=:BOOK_PUBDATE,'
      'BOOK_DATE=:BOOK_DATE,'
      'BOOK_NUMBER=:BOOK_NUMBER,'
      'BOOK_REMARK=:BOOK_REMARK,'
      'BOOK_RESIDE=:BOOK_RESIDE'
      'where'
      ' BOOK_ID=:OLD_BOOK_ID')
    InsertSQL.Strings = (
      'insert into book'
      '  (BOOK_ID, BOOK_NAME, BOOK_PENSTER,BOOK_PRICE,BOOK_PUBLISH, '
      'BOOK_PUBDATE,BOOK_DATE,BOOK_NUMBER,BOOK_REMARK,BOOK_RESIDE)'
      'values'
      
        '  (:BOOK_ID, :BOOK_NAME, :BOOK_PENSTER,:BOOK_PRICE,:BOOK_PUBLISH' +
        ', '
      ':BOOK_PUBDATE,:BOOK_DATE,:BOOK_NUMBER,:BOOK_REMARK,:BOOK_NUMBER)')
    DeleteSQL.Strings = (
      'delete from book'
      'where'
      '  BOOK_ID = :OLD_BOOK_ID')
    Left = 240
    Top = 208
  end
  object USQLreader: TUpdateSQL
    ModifySQL.Strings = (
      'update reader'
      'set'
      'READER_ID=:READER_ID,'
      'READER_NO=:READER_NO,'
      'READER_NAME=:READER_NAME,'
      'READER_DEPT=:READER_DEPT,'
      'READER_DODATE=:READER_DODATE'
      'where'
      ' READER_ID=:OLD_READER_ID'
      '')
    InsertSQL.Strings = (
      'insert into reader'
      '  (READER_ID,READER_NO,READER_NAME,READER_DEPT,READER_DODATE)'
      'values'
      
        '  (:READER_ID,:READER_NO,:READER_NAME,:READER_DEPT,:READER_DODAT' +
        'E)'
      '')
    DeleteSQL.Strings = (
      'delete from reader'
      'where'
      '  READER_ID = :OLD_READER_ID')
    Left = 296
    Top = 216
  end
  object QryStatisticBook: TQuery
    DatabaseName = 'guibook'
    SessionName = 'Default'
    SQL.Strings = (
      'select * from bookbigtype')
    Left = 520
    Top = 144
  end
  object QryStatisticReader: TQuery
    DatabaseName = 'guibook'
    Left = 608
    Top = 144
  end
  object QryStatisticBorrow: TQuery
    DatabaseName = 'guibook'
    Left = 688
    Top = 144
  end
  object dsStatisticBook: TDataSource
    DataSet = QryStatisticBook
    Left = 482
    Top = 204
  end
  object dsStatisticReader: TDataSource
    DataSet = QryStatisticReader
    Left = 576
    Top = 208
  end
  object dsStatisticBorrow: TDataSource
    DataSet = QryStatisticBorrow
    Left = 664
    Top = 200
  end
end