bookinf.~dfm

这是《Delphi程序设计基础》由李文池写的书的示例代码

object admin_bookinf: Tadmin_bookinf
  Left = 146
  Top = 213
  BorderStyle = bsDialog
  Caption = #22270#20070#30446#24405#32500#25252
  ClientHeight = 385
  ClientWidth = 818
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object DBGrid1: TDBGrid
    Left = 4
    Top = 0
    Width = 805
    Height = 329
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
    Columns = <
      item
        Expanded = False
        FieldName = 'book_id'
        Title.Alignment = taCenter
        Title.Caption = #22270#20070#32534#21495
        Width = 71
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'book_name'
        Title.Alignment = taCenter
        Title.Caption = #20070#21517
        Width = 175
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'book_type'
        Title.Alignment = taCenter
        Title.Caption = #31867#21035
        Width = 89
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'author'
        Title.Alignment = taCenter
        Title.Caption = #20316#32773
        Width = 96
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'publisher'
        Title.Alignment = taCenter
        Title.Caption = #20986#29256#31038
        Width = 135
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'pub_date'
        Title.Alignment = taCenter
        Title.Caption = #20986#29256#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'book_num'
        Title.Alignment = taCenter
        Title.Caption = #39302#34255#25968
        Width = 57
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'borrow_num'
        Title.Alignment = taCenter
        Title.Caption = #20511#20986#25968
        Width = 58
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'booking_num'
        Title.Alignment = taCenter
        Title.Caption = #39044#32422#25968
        Width = 51
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'price'
        Title.Alignment = taCenter
        Title.Caption = #21333#20215
        Width = 59
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'locality'
        Title.Alignment = taCenter
        Title.Caption = #23384#25918#20301#32622
        Width = 85
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'mem'
        Title.Alignment = taCenter
        Title.Caption = #22791#27880
        Width = 140
        Visible = True
      end>
  end
  object btnExit: TButton
    Left = 728
    Top = 347
    Width = 73
    Height = 25
    Caption = #36864#20986
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = btnExitClick
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 336
    Width = 353
    Height = 41
    TabOrder = 2
    object Edit1: TEdit
      Left = 176
      Top = 12
      Width = 104
      Height = 24
      TabOrder = 0
      Visible = False
    end
    object ComboBox2: TComboBox
      Left = 8
      Top = 12
      Width = 97
      Height = 24
      ItemHeight = 16
      TabOrder = 1
      Text = #25152#26377#30340
      OnChange = ComboBox2Change
      Items.Strings = (
        #25152#26377#30340
        #22270#20070#32534#21495
        #20070#21517
        #31867#21035
        #20316#32773
        #20986#29256#31038
        #20986#29256#26085#26399
        #20511#20986#25968
        #39044#35746#25968
        #34255#20070#25968#37327
        #20215#26684
        #23384#25918#20301#32622
        #22791#27880)
    end
    object ComboBox1: TComboBox
      Left = 107
      Top = 12
      Width = 70
      Height = 24
      ItemHeight = 16
      TabOrder = 2
      Text = '='
      Visible = False
      Items.Strings = (
        '='
        '<>'
        '<'
        '>'
        '<='
        '>='
        ' like ')
    end
    object btnSeek: TButton
      Left = 288
      Top = 12
      Width = 57
      Height = 25
      Caption = #26597#35810
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = btnSeekClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 408
    Top = 336
    Width = 217
    Height = 41
    TabOrder = 3
    object btnDelete: TButton
      Left = 80
      Top = 12
      Width = 57
      Height = 25
      Caption = #21024#38500
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = btnDeleteClick
    end
    object btnAppend: TButton
      Left = 8
      Top = 12
      Width = 57
      Height = 25
      Caption = #28155#21152
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = btnAppendClick
    end
    object btnModify: TButton
      Left = 152
      Top = 12
      Width = 57
      Height = 25
      Caption = #20462#25913
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = btnModifyClick
    end
  end
  object ADOQuery1: TADOQuery
    Connection = frmAdmin.ADOCon
    Parameters = <>
    Left = 640
    Top = 344
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 680
    Top = 344
  end
end