unit5.dfm

数据库开发

object jieyueguanli: Tjieyueguanli
  Left = 164
  Top = 74
  Width = 696
  Height = 480
  BorderIcons = [biMinimize, biMaximize]
  Caption = #20511#38405#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 688
    Height = 446
    ActivePage = TabSheet2
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #20511#20070
      OnShow = TabSheet1Show
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 393
        Height = 377
        TabOrder = 0
        object DBGrid1: TDBGrid
          Left = 0
          Top = 0
          Width = 393
          Height = 377
          DataSource = DataSource1
          ImeName = 'itABC 5.22 '
          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 = 392
        Top = 0
        Width = 289
        Height = 377
        TabOrder = 1
        object Label1: TLabel
          Left = 32
          Top = 48
          Width = 57
          Height = 13
          AutoSize = False
          Caption = #22270#20070'ID'
        end
        object Label2: TLabel
          Left = 32
          Top = 136
          Width = 49
          Height = 13
          AutoSize = False
          Caption = #23398#29983'ID'
        end
        object Label3: TLabel
          Left = 32
          Top = 224
          Width = 49
          Height = 13
          AutoSize = False
          Caption = #26085#26399
        end
        object edit1: TEdit
          Left = 104
          Top = 40
          Width = 121
          Height = 21
          ImeName = 'itABC 5.22 '
          TabOrder = 0
        end
        object edit2: TEdit
          Left = 104
          Top = 128
          Width = 121
          Height = 21
          ImeName = 'itABC 5.22 '
          TabOrder = 1
        end
        object edit3: TEdit
          Left = 104
          Top = 216
          Width = 121
          Height = 21
          ImeName = 'itABC 5.22 '
          TabOrder = 2
        end
        object BitBtn1: TBitBtn
          Left = 24
          Top = 296
          Width = 75
          Height = 25
          TabOrder = 3
          OnClick = BitBtn1Click
          Kind = bkOK
        end
        object BitBtn2: TBitBtn
          Left = 160
          Top = 296
          Width = 75
          Height = 25
          TabOrder = 4
          OnClick = BitBtn2Click
          Kind = bkCancel
        end
      end
      object BitBtn5: 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 = BitBtn5Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = #36824#20070
      ImageIndex = 1
      OnShow = TabSheet2Show
      object Panel3: TPanel
        Left = 392
        Top = 0
        Width = 289
        Height = 377
        TabOrder = 0
        object Label5: TLabel
          Left = 32
          Top = 48
          Width = 49
          Height = 13
          AutoSize = False
          Caption = #22270#20070'ID'
        end
        object Label6: TLabel
          Left = 32
          Top = 136
          Width = 57
          Height = 13
          AutoSize = False
          Caption = #23398#29983'ID'
        end
        object Label7: TLabel
          Left = 32
          Top = 224
          Width = 49
          Height = 13
          AutoSize = False
          Caption = #26085#26399
        end
        object edit4: TEdit
          Left = 104
          Top = 40
          Width = 121
          Height = 21
          ImeName = 'itABC 5.22 '
          TabOrder = 0
        end
        object edit5: TEdit
          Left = 104
          Top = 128
          Width = 121
          Height = 21
          ImeName = 'itABC 5.22 '
          TabOrder = 1
        end
        object edit6: TEdit
          Left = 104
          Top = 216
          Width = 121
          Height = 21
          ImeName = 'itABC 5.22 '
          TabOrder = 2
        end
        object BitBtn3: TBitBtn
          Left = 24
          Top = 296
          Width = 75
          Height = 25
          TabOrder = 3
          OnClick = BitBtn3Click
          Kind = bkOK
        end
        object BitBtn4: TBitBtn
          Left = 168
          Top = 296
          Width = 75
          Height = 25
          TabOrder = 4
          OnClick = BitBtn4Click
          Kind = bkCancel
        end
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 393
        Height = 377
        TabOrder = 1
        object DBGrid2: TDBGrid
          Left = 0
          Top = 0
          Width = 393
          Height = 377
          DataSource = DataSource2
          ImeName = 'itABC 5.22 '
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
        end
      end
      object BitBtn8: 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 = BitBtn8Click
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 12
    Top = 32
  end
  object ADOTable1: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tushuguan.mdb;Persi' +
      'st Security Info=False'
    CursorType = ctStatic
    TableName = 'bore'
    Left = 44
    Top = 32
    object ADOTable1ids: TAutoIncField
      DisplayWidth = 12
      FieldName = 'ids'
      ReadOnly = True
    end
    object ADOTable1bookid: TWideStringField
      DisplayWidth = 17
      FieldName = 'bookid'
      Size = 50
    end
    object ADOTable1studentid: TWideStringField
      DisplayWidth = 13
      FieldName = 'studentid'
      Size = 50
    end
    object ADOTable1onceout: TBooleanField
      DisplayWidth = 8
      FieldName = 'onceout'
    end
    object ADOTable1outdata: TDateTimeField
      DisplayWidth = 19
      FieldName = 'outdata'
    end
  end
  object ADOTable2: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tushuguan.mdb;Persi' +
      'st Security Info=False'
    CursorType = ctStatic
    TableName = 'bore'
    Left = 124
    Top = 32
    object ADOTable2ids: TAutoIncField
      DisplayWidth = 10
      FieldName = 'ids'
      ReadOnly = True
    end
    object ADOTable2bookid: TWideStringField
      DisplayWidth = 13
      FieldName = 'bookid'
      Size = 50
    end
    object ADOTable2studentid: TWideStringField
      DisplayWidth = 15
      FieldName = 'studentid'
      Size = 50
    end
    object ADOTable2alreadyback: TBooleanField
      DisplayWidth = 12
      FieldName = 'alreadyback'
    end
    object ADOTable2backdata: TDateTimeField
      DisplayWidth = 19
      FieldName = 'backdata'
    end
  end
  object DataSource2: TDataSource
    DataSet = ADOTable2
    Left = 84
    Top = 32
  end
  object ADOTable3: TADOTable
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tushuguan.mdb;Persi' +
      'st Security Info=False'
    TableName = 'books'
    Left = 436
    Top = 360
  end
  object ADOTable4: TADOTable
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tushuguan.mdb;Persi' +
      'st Security Info=False'
    TableName = 'students'
    Left = 508
    Top = 360
  end
end