unit6.dfm

delphi 源码上传学校图书馆管理系统

          object Edit6: TEdit
            Left = 96
            Top = 24
            Width = 121
            Height = 21
            TabOrder = 5
          end
          object Edit7: TEdit
            Left = 96
            Top = 56
            Width = 121
            Height = 21
            TabOrder = 6
          end
          object Edit8: TEdit
            Left = 96
            Top = 88
            Width = 121
            Height = 21
            TabOrder = 7
          end
          object BitBtn5: TBitBtn
            Left = 32
            Top = 168
            Width = 75
            Height = 25
            Caption = #30830#35748
            TabOrder = 0
            OnClick = BitBtn5Click
          end
          object BitBtn6: TBitBtn
            Left = 168
            Top = 168
            Width = 75
            Height = 25
            Caption = #21462#28040
            TabOrder = 1
            OnClick = BitBtn6Click
          end
          object Edit15: TEdit
            Left = 96
            Top = 128
            Width = 121
            Height = 21
            TabOrder = 8
          end
        end
      end
      object BitBtn9: TBitBtn
        Left = 240
        Top = 383
        Width = 185
        Height = 35
        Caption = #36820'      '#22238
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -24
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        OnClick = BitBtn9Click
      end
    end
    object TabSheet3: TTabSheet
      Caption = #26410#36824#22270#20070#26597#35810
      ImageIndex = 2
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 433
        Height = 377
        Caption = 'Panel1'
        TabOrder = 0
        object DBGrid4: TDBGrid
          Left = 0
          Top = 8
          Width = 433
          Height = 361
          DataSource = DataSource4
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
        end
      end
      object Panel2: TPanel
        Left = 432
        Top = 0
        Width = 249
        Height = 377
        Caption = 'Panel2'
        TabOrder = 1
        object Panel10: TPanel
          Left = 0
          Top = 0
          Width = 249
          Height = 305
          TabOrder = 0
          object RadioButton10: TRadioButton
            Left = 16
            Top = 32
            Width = 73
            Height = 17
            Caption = #22270#20070'ID'
            TabOrder = 0
          end
          object RadioButton11: TRadioButton
            Left = 16
            Top = 96
            Width = 57
            Height = 17
            Caption = #23398#29983'ID'
            TabOrder = 1
          end
          object RadioButton12: TRadioButton
            Left = 16
            Top = 160
            Width = 65
            Height = 17
            Caption = #29677#32423
            TabOrder = 2
          end
          object RadioButton13: TRadioButton
            Left = 16
            Top = 224
            Width = 65
            Height = 17
            Caption = #38498#31995
            TabOrder = 3
          end
          object Edit16: TEdit
            Left = 104
            Top = 32
            Width = 89
            Height = 21
            TabOrder = 4
          end
          object Edit17: TEdit
            Left = 104
            Top = 96
            Width = 89
            Height = 21
            TabOrder = 5
          end
          object Edit18: TEdit
            Left = 104
            Top = 160
            Width = 89
            Height = 21
            TabOrder = 6
          end
          object Edit19: TEdit
            Left = 104
            Top = 224
            Width = 89
            Height = 21
            TabOrder = 7
          end
        end
        object BitBtn3: TBitBtn
          Left = 8
          Top = 320
          Width = 75
          Height = 25
          Caption = #26597#35810
          TabOrder = 1
          OnClick = BitBtn3Click
          Kind = bkOK
        end
        object BitBtn7: TBitBtn
          Left = 136
          Top = 320
          Width = 75
          Height = 25
          Caption = #21462#28040
          TabOrder = 2
          Kind = bkCancel
        end
      end
      object BitBtn10: TBitBtn
        Left = 240
        Top = 383
        Width = 185
        Height = 35
        Caption = #36820'      '#22238
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -24
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        OnClick = BitBtn10Click
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 44
    Top = 72
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 156
    Top = 72
  end
  object ADOQuery2: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tushuguan.mdb;Persi' +
      'st Security Info=False'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from bore where onceout=true')
    Left = 124
    Top = 72
    object ADOQuery2ids: TAutoIncField
      FieldName = 'ids'
      ReadOnly = True
    end
    object ADOQuery2bookid: TWideStringField
      FieldName = 'bookid'
      Size = 50
    end
    object ADOQuery2studentid: TWideStringField
      FieldName = 'studentid'
      Size = 50
    end
    object ADOQuery2onceout: TBooleanField
      FieldName = 'onceout'
    end
    object ADOQuery2outdata: TDateTimeField
      FieldName = 'outdata'
    end
    object ADOQuery2alreadyback: TBooleanField
      FieldName = 'alreadyback'
    end
    object ADOQuery2backdata: TDateTimeField
      FieldName = 'backdata'
    end
  end
  object ADOQuery1: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tushuguan.mdb;Persi' +
      'st Security Info=False'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from books')
    Left = 20
    Top = 72
    object ADOQuery1bookid: TWideStringField
      FieldName = 'bookid'
      Size = 50
    end
    object ADOQuery1bookname: TWideStringField
      FieldName = 'bookname'
      Size = 50
    end
    object ADOQuery1author: TWideStringField
      FieldName = 'author'
      Size = 50
    end
    object ADOQuery1in: TBooleanField
      FieldName = 'in'
    end
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery3
    Left = 452
    Top = 24
  end
  object ADOQuery3: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tushuguan.mdb;Persi' +
      'st Security Info=False'
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'alreadyback'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from bore where alreadyback=true')
    Left = 484
    Top = 24
    object ADOQuery3ids: TAutoIncField
      FieldName = 'ids'
      ReadOnly = True
    end
    object ADOQuery3bookid: TWideStringField
      FieldName = 'bookid'
      Size = 50
    end
    object ADOQuery3studentid: TWideStringField
      FieldName = 'studentid'
      Size = 50
    end
    object ADOQuery3onceout: TBooleanField
      FieldName = 'onceout'
    end
    object ADOQuery3outdata: TDateTimeField
      FieldName = 'outdata'
    end
    object ADOQuery3alreadyback: TBooleanField
      FieldName = 'alreadyback'
    end
    object ADOQuery3backdata: TDateTimeField
      FieldName = 'backdata'
    end
  end
  object ADOQuery4: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tushuguan.mdb;Persi' +
      'st Security Info=False'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from bore where onceout=true and alreadyback=false')
    Left = 260
    Top = 168
    object ADOQuery4ids: TAutoIncField
      FieldName = 'ids'
      ReadOnly = True
    end
    object ADOQuery4bookid: TWideStringField
      FieldName = 'bookid'
      Size = 50
    end
    object ADOQuery4studentid: TWideStringField
      FieldName = 'studentid'
      Size = 50
    end
    object ADOQuery4onceout: TBooleanField
      FieldName = 'onceout'
    end
    object ADOQuery4outdata: TDateTimeField
      FieldName = 'outdata'
    end
    object ADOQuery4alreadyback: TBooleanField
      FieldName = 'alreadyback'
    end
    object ADOQuery4backdata: TDateTimeField
      FieldName = 'backdata'
    end
  end
  object DataSource4: TDataSource
    DataSet = ADOQuery4
    Left = 204
    Top = 176
  end
end