ufrmborrowbook.~dfm

一款不错的图书馆借阅系统

object frmBorrowBook: TfrmBorrowBook
  Left = 137
  Top = 136
  Width = 765
  Height = 495
  Caption = #20070#31821#20511#38405
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 420
    Width = 757
    Height = 41
    Align = alBottom
    TabOrder = 0
    object btnQuit: TButton
      Left = 568
      Top = 8
      Width = 75
      Height = 25
      Caption = #20851#38381'(&C)'
      TabOrder = 0
      OnClick = btnQuitClick
    end
    object btnBorrowBook: TButton
      Left = 176
      Top = 8
      Width = 75
      Height = 25
      Caption = #20511#20070'(&B)'
      TabOrder = 1
      OnClick = btnBorrowBookClick
    end
    object btnReturnBook: TButton
      Left = 328
      Top = 8
      Width = 75
      Height = 25
      Caption = #36824#20070'(&R)'
      TabOrder = 2
      OnClick = btnReturnBookClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 757
    Height = 105
    Align = alTop
    TabOrder = 1
    object Label1: TLabel
      Left = 24
      Top = 16
      Width = 56
      Height = 14
      Caption = #29992#25143#20195#21495
    end
    object Label2: TLabel
      Left = 216
      Top = 16
      Width = 28
      Height = 14
      Caption = #22995#21517
    end
    object Label3: TLabel
      Left = 192
      Top = 40
      Width = 56
      Height = 14
      Caption = #20986#29983#26085#26399
    end
    object Label4: TLabel
      Left = 216
      Top = 80
      Width = 28
      Height = 14
      Caption = #24615#21035
    end
    object edUserID: TEdit
      Left = 24
      Top = 32
      Width = 121
      Height = 22
      TabOrder = 0
      Text = '10001'
      OnKeyPress = edUserIDKeyPress
    end
    object Panel4: TPanel
      Left = 168
      Top = 0
      Width = 9
      Height = 105
      TabOrder = 1
    end
    object edName: TDBEdit
      Left = 248
      Top = 8
      Width = 121
      Height = 22
      DataField = 'Name'
      DataSource = dsReader
      ReadOnly = True
      TabOrder = 2
    end
    object edGender: TDBEdit
      Left = 248
      Top = 72
      Width = 121
      Height = 22
      DataField = 'Gender'
      DataSource = dsReader
      ReadOnly = True
      TabOrder = 3
    end
    object edBirthday: TDBEdit
      Left = 248
      Top = 40
      Width = 121
      Height = 22
      DataField = 'Birthday'
      DataSource = dsReader
      ReadOnly = True
      TabOrder = 4
    end
    object DBRadioGroup1: TDBRadioGroup
      Left = 416
      Top = 16
      Width = 185
      Height = 73
      Caption = 'DBRadioGroup1'
      DataField = 'Status'
      DataSource = dsReader
      Items.Strings = (
        #21487#20197#20511#38405
        #20572#27490#20351#29992)
      ReadOnly = True
      TabOrder = 5
      Values.Strings = (
        '1'
        '2')
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 105
    Width = 757
    Height = 315
    Align = alClient
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 755
      Height = 313
      Align = alClient
      DataSource = dsBorrow
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'BookCode'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BookName'
          Width = 222
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Author'
          Width = 85
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Press'
          Width = 150
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BorrowDate'
          Width = 93
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ReturnDate'
          Width = 82
          Visible = True
        end>
    end
  end
  object qryBorrow: TADOQuery
    Connection = dmData.ADOConnection1
    CursorType = ctStatic
    DataSource = dsReader
    Parameters = <
      item
        Name = 'UserID'
        Attributes = [paNullable]
        DataType = ftInteger
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '10001'
      end>
    SQL.Strings = (
      'select a.*,c.*'
      'from book a,borrow c'
      'where a.BookID = c.BookID'
      '  and c.UserID = :UserID')
    Left = 32
    Top = 168
  end
  object dsBorrow: TDataSource
    DataSet = qryBorrow
    Left = 96
    Top = 168
  end
  object cmdBorrow: TADOCommand
    CommandText = 
      'insert into Borrow'#13#10'(UserID, BookID, BorrowDate, ReturnDate )'#13#10'v' +
      'alues'#13#10'(:UserID, :BookID, :BorrowDate, :ReturnDate )'
    Connection = dmData.ADOConnection1
    Parameters = <
      item
        Name = 'UserID'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'BookID'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'BorrowDate'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'ReturnDate'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    Left = 208
    Top = 184
  end
  object cmdReturn: TADOCommand
    CommandText = 
      'delete from borrow'#13#10'where UserID=:UserID '#13#10'    and BookID=:BookI' +
      'D'#13#10
    Connection = dmData.ADOConnection1
    Parameters = <
      item
        Name = 'UserID'
        Attributes = [paNullable]
        DataType = ftInteger
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'BookID'
        Attributes = [paNullable]
        DataType = ftInteger
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    Left = 264
    Top = 184
  end
  object qryReader: TADOQuery
    Connection = dmData.ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'UserID'
        Attributes = [paNullable]
        DataType = ftInteger
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from reader'
      'where UserID=:UserID')
    Left = 136
    Top = 16
  end
  object dsReader: TDataSource
    DataSet = qryReader
    Left = 152
    Top = 64
  end
end