ufrmselectbook.dfm

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

object frmSelectBook: TfrmSelectBook
  Left = 297
  Top = 187
  Width = 525
  Height = 330
  Caption = #36873#25321#35201#20511#30340#20070
  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 Label1: TLabel
    Left = 24
    Top = 16
    Width = 28
    Height = 14
    Caption = #20070#31821
  end
  object Panel1: TPanel
    Left = 0
    Top = 255
    Width = 517
    Height = 41
    Align = alBottom
    TabOrder = 0
    object Button1: TButton
      Left = 104
      Top = 8
      Width = 75
      Height = 25
      Caption = 'OK'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 296
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Cancel'
      TabOrder = 1
      OnClick = Button2Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 517
    Height = 255
    Align = alClient
    TabOrder = 1
    object Label3: TLabel
      Left = 32
      Top = 72
      Width = 28
      Height = 14
      Caption = #20195#30721
    end
    object Label4: TLabel
      Left = 32
      Top = 104
      Width = 28
      Height = 14
      Caption = #20070#21517
    end
    object Label5: TLabel
      Left = 32
      Top = 128
      Width = 28
      Height = 14
      Caption = #20316#32773
    end
    object Label6: TLabel
      Left = 16
      Top = 168
      Width = 42
      Height = 14
      Caption = #20986#29256#31038
    end
    object Label7: TLabel
      Left = 24
      Top = 200
      Width = 28
      Height = 14
      Caption = #20215#26684
    end
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 515
      Height = 41
      Align = alTop
      BevelOuter = bvLowered
      TabOrder = 0
      object Label2: TLabel
        Left = 8
        Top = 16
        Width = 56
        Height = 14
        Caption = #20070#31821#20195#21495
      end
      object edBookID: TEdit
        Left = 72
        Top = 8
        Width = 121
        Height = 22
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        TabOrder = 0
        OnKeyPress = edBookIDKeyPress
      end
    end
    object edBookCode: TDBEdit
      Left = 64
      Top = 64
      Width = 121
      Height = 22
      DataField = 'BookCode'
      DataSource = dsBook
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 1
    end
    object edBookName: TDBEdit
      Left = 64
      Top = 96
      Width = 121
      Height = 22
      DataField = 'BookName'
      DataSource = dsBook
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 2
    end
    object edAuthor: TDBEdit
      Left = 64
      Top = 128
      Width = 121
      Height = 22
      DataField = 'Author'
      DataSource = dsBook
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 3
    end
    object edPress: TDBEdit
      Left = 64
      Top = 160
      Width = 121
      Height = 22
      DataField = 'Press'
      DataSource = dsBook
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 4
    end
    object edPrice: TDBEdit
      Left = 64
      Top = 192
      Width = 121
      Height = 22
      DataField = 'Price'
      DataSource = dsBook
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 5
    end
  end
  object qryBook: TADOQuery
    Connection = dmData.ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'BookID'
        Attributes = [paNullable]
        DataType = ftInteger
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from book'
      'where'
      '  BookID =:BookID')
    Left = 232
    Top = 56
  end
  object dsBook: TDataSource
    DataSet = qryBook
    Left = 272
    Top = 56
  end
end