readereditfrm.dfm

基于Interbase的图书管理系统

inherited ReaderEditForm: TReaderEditForm
  Left = 248
  Top = 172
  Width = 752
  Height = 507
  Caption = #12310#35835#32773#24211#32500#25252#12311
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Bevel1: TBevel
    Width = 744
  end
  inherited Buttonpanel: TPanel
    Width = 744
    inherited BBdelete: TBitBtn
      OnClick = BBdeleteClick
    end
    inherited BBfirst: TBitBtn
      OnClick = BBfirstClick
    end
    inherited BBprior: TBitBtn
      OnClick = BBpriorClick
    end
    inherited BBsearch: TBitBtn
      OnClick = BBsearchClick
    end
    inherited BBnext: TBitBtn
      OnClick = BBnextClick
    end
    inherited BBlast: TBitBtn
      OnClick = BBlastClick
    end
  end
  inherited Pnlcompontparent: TPanel
    Width = 744
    Height = 164
    Align = alTop
    Font.Color = clNavy
    Font.Height = -13
    Font.Style = [fsBold]
    object Label1: TLabel
      Left = 24
      Top = 24
      Width = 69
      Height = 16
      AutoSize = False
      Caption = #20511#20070#35777#21495#65306'   '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 24
      Top = 77
      Width = 54
      Height = 16
      AutoSize = False
      Caption = #24037'   '#21495#65306'   '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 24
      Top = 128
      Width = 51
      Height = 16
      AutoSize = False
      Caption = #22995'   '#21517#65306'  '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 264
      Top = 24
      Width = 54
      Height = 16
      AutoSize = False
      Caption = #21333'   '#20301#65306'   '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 256
      Top = 79
      Width = 81
      Height = 16
      AutoSize = False
      Caption = #21150#35777#26085#26399#65306'  '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 560
      Top = 24
      Width = 36
      Height = 16
      AutoSize = False
      Caption = #29031#29255#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBEdit1: TDBEdit
      Left = 104
      Top = 16
      Width = 121
      Height = 21
      Color = clInfoBk
      DataField = 'READER_ID'
      DataSource = DMbook.DSreader
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnKeyPress = DBEdit1KeyPress
    end
    object DBEdit2: TDBEdit
      Left = 104
      Top = 70
      Width = 121
      Height = 21
      Color = clInfoBk
      DataField = 'READER_NO'
      DataSource = DMbook.DSreader
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnKeyPress = DBEdit1KeyPress
    end
    object DBEdit3: TDBEdit
      Left = 104
      Top = 120
      Width = 121
      Height = 21
      Color = clInfoBk
      DataField = 'READER_NAME'
      DataSource = DMbook.DSreader
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnKeyPress = DBEdit3KeyPress
    end
    object DBEdit4: TDBEdit
      Left = 336
      Top = 16
      Width = 201
      Height = 21
      Color = clInfoBk
      DataField = 'READER_DEPT'
      DataSource = DMbook.DSreader
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnKeyPress = DBEdit3KeyPress
    end
    object DBEdit5: TDBEdit
      Left = 336
      Top = 71
      Width = 121
      Height = 21
      Color = clInfoBk
      DataField = 'READER_DODATE'
      DataSource = DMbook.DSreader
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnExit = DBEdit5Exit
      OnKeyPress = DBEdit3KeyPress
    end
    object DBImage1: TDBImage
      Left = 608
      Top = 16
      Width = 161
      Height = 129
      Color = clInfoBk
      Ctl3D = True
      DataField = 'READER_PHOTO'
      DataSource = DMbook.DSreader
      ParentCtl3D = False
      Stretch = True
      TabOrder = 5
    end
  end
  object DBGreader: TDBGrid [4]
    Left = 0
    Top = 225
    Width = 744
    Height = 248
    Align = alClient
    Color = clCream
    DataSource = DMbook.DSreader
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'READER_ID'
        Title.Caption = ' '#20511#20070#35777#21495
        Title.Color = clSilver
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'READER_NO'
        Title.Caption = #24037' '#21495
        Title.Color = clSilver
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'READER_NAME'
        Title.Caption = ' '#22995'   '#21517
        Title.Color = clSilver
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'READER_DEPT'
        Title.Caption = ' '#21333'      '#20301
        Title.Color = clSilver
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'READER_DODATE'
        Title.Caption = ' '#21150#35777#26085#26399
        Title.Color = clSilver
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end>
  end
end