readerinf.~dfm

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

object admin_readerinf: Tadmin_readerinf
  Left = 141
  Top = 103
  BorderStyle = bsDialog
  Caption = #35835#32773#20449#24687#32500#25252
  ClientHeight = 544
  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 = 489
    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 = 'libcard_id'
        Title.Alignment = taCenter
        Title.Caption = #20511#20070#35777#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'reader_name'
        Title.Alignment = taCenter
        Title.Caption = #35835#32773#22995#21517
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'password'
        Title.Alignment = taCenter
        Title.Caption = #23494#30721
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sex'
        Title.Alignment = taCenter
        Title.Caption = #24615#21035
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'birth_date'
        Title.Alignment = taCenter
        Title.Caption = #20986#29983#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'dept'
        Title.Alignment = taCenter
        Title.Caption = #25152#22312#21333#20301
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'phone'
        Title.Alignment = taCenter
        Title.Caption = #32852#31995#30005#35805
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'address'
        Title.Alignment = taCenter
        Title.Caption = #29616#20303#22336
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'status'
        Title.Alignment = taCenter
        Title.Caption = #29366#24577
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'card_date'
        Title.Alignment = taCenter
        Title.Caption = #21150#35777#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'mem'
        Title.Alignment = taCenter
        Title.Caption = #22791#27880
        Visible = True
      end>
  end
  object btnExit: TButton
    Left = 728
    Top = 507
    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 = 496
    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
        #20511#20070#35777#21495
        #35835#32773#22995#21517
        #24615#21035
        #20986#29983#26085#26399
        #25152#22312#21333#20301
        #32852#31995#30005#35805
        #20303#22336
        #29366#24577
        #21150#35777#26085#26399
        #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 = 496
    Width = 217
    Height = 41
    TabOrder = 3
    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 = 0
      OnClick = btnAppendClick
    end
    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 = 1
      OnClick = btnDeleteClick
    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 DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 696
    Top = 504
  end
  object ADOQuery1: TADOQuery
    Connection = frmAdmin.ADOCon
    BeforeDelete = ADOQuery1BeforeDelete
    Parameters = <>
    Left = 632
    Top = 504
  end
  object ADODataSet1: TADODataSet
    Connection = frmAdmin.ADOCon
    Parameters = <>
    Left = 664
    Top = 504
  end
end