unit8.dfm

Delphi 7基础编程的源代码

object readerselectform: Treaderselectform
  Left = 372
  Top = 255
  Width = 339
  Height = 402
  Caption = #35835#32773#26597#35810#31383#21475
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 24
    Top = 0
    Width = 297
    Height = 193
    Caption = #26597#35810#32467#26524
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 32
      Width = 100
      Height = 19
      Caption = #20070'    '#21495#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #38582#20070
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 16
      Top = 64
      Width = 100
      Height = 19
      Caption = #20070'    '#21517#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #38582#20070
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 16
      Top = 94
      Width = 100
      Height = 19
      Caption = #20316'    '#32773#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #38582#20070
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 16
      Top = 126
      Width = 100
      Height = 19
      Caption = #20986' '#29256' '#31038#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #38582#20070
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 16
      Top = 158
      Width = 100
      Height = 19
      Caption = #26159#21542#21487#20511#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #38582#20070
      Font.Style = []
      ParentFont = False
    end
    object DBEdit1: TDBEdit
      Left = 112
      Top = 32
      Width = 161
      Height = 21
      DataField = 'bookno'
      DataSource = DataSource1
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 112
      Top = 64
      Width = 161
      Height = 21
      DataField = 'bookname'
      DataSource = DataSource1
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 112
      Top = 92
      Width = 161
      Height = 21
      DataField = 'auther'
      DataSource = DataSource1
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 112
      Top = 124
      Width = 161
      Height = 21
      DataField = 'press'
      DataSource = DataSource1
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 112
      Top = 156
      Width = 161
      Height = 21
      DataField = 'borrowstate'
      DataSource = DataSource1
      TabOrder = 4
    end
  end
  object GroupBox2: TGroupBox
    Left = 24
    Top = 200
    Width = 297
    Height = 57
    Caption = #25353#20070#21517#23383#26597#35810
    TabOrder = 1
    object Label6: TLabel
      Left = 16
      Top = 22
      Width = 60
      Height = 19
      Caption = #20070#21517#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #38582#20070
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 72
      Top = 24
      Width = 121
      Height = 21
      TabOrder = 0
    end
    object Button1: TButton
      Left = 200
      Top = 24
      Width = 75
      Height = 25
      Caption = #26597#35810
      TabOrder = 1
      OnClick = Button1Click
    end
  end
  object GroupBox3: TGroupBox
    Left = 24
    Top = 264
    Width = 297
    Height = 57
    Caption = #25353#20316#32773#26597#35810
    TabOrder = 2
    object Label7: TLabel
      Left = 16
      Top = 22
      Width = 60
      Height = 19
      Caption = #20316#32773#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #38582#20070
      Font.Style = []
      ParentFont = False
    end
    object Edit2: TEdit
      Left = 72
      Top = 24
      Width = 121
      Height = 21
      TabOrder = 0
    end
    object Button2: TButton
      Left = 200
      Top = 24
      Width = 75
      Height = 25
      Caption = #26597#35810
      TabOrder = 1
      OnClick = Button2Click
    end
  end
  object Button3: TButton
    Left = 56
    Top = 328
    Width = 97
    Height = 25
    Caption = #20511#20070
    TabOrder = 3
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 176
    Top = 328
    Width = 97
    Height = 25
    Caption = #36864#20986#31995#32479
    TabOrder = 4
    OnClick = Button4Click
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Top = 8
  end
  object Table1: TTable
    DatabaseName = 'libmaster'
    TableName = 'dbo.book'
    Top = 56
  end
  object Table2: TTable
    CachedUpdates = True
    DatabaseName = 'libmaster'
    TableName = 'dbo.student'
    Top = 104
  end
  object Table3: TTable
    DatabaseName = 'libmaster'
    TableName = 'dbo.borrow'
    Top = 160
  end
end