rightfrm.dfm

基于Interbase的图书管理系统

inherited RightForm: TRightForm
  Left = 206
  Top = 169
  Width = 793
  Height = 474
  Caption = #12310#32972#26223#19982#26435#38480#12311
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [1]
    Left = 337
    Top = 0
    Width = 2
    Height = 440
    Cursor = crHSplit
  end
  object GroupBox1: TGroupBox [2]
    Left = 0
    Top = 0
    Width = 337
    Height = 440
    Align = alLeft
    Caption = #32972#26223#30011#38754#35774#23450
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 240
      Width = 121
      Height = 20
      AutoSize = False
      Caption = #32972#26223#22270#29255#65306
    end
    object pnlscreen: TPanel
      Left = 64
      Top = 56
      Width = 209
      Height = 153
      BevelInner = bvLowered
      BevelOuter = bvLowered
      BevelWidth = 3
      Color = clBtnText
      TabOrder = 0
      object imgScreen: TImage
        Left = 6
        Top = 6
        Width = 197
        Height = 141
        Align = alClient
        Stretch = True
      end
    end
    object Panel1: TPanel
      Left = 16
      Top = 267
      Width = 137
      Height = 162
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Caption = 'Panel1'
      TabOrder = 1
      object LBpicture: TListBox
        Left = 10
        Top = 10
        Width = 113
        Height = 138
        Style = lbOwnerDrawFixed
        Color = clInfoBk
        ItemHeight = 20
        TabOrder = 0
        OnClick = LBpictureClick
      end
    end
    object BBtnopen: TBitBtn
      Left = 208
      Top = 271
      Width = 75
      Height = 25
      Caption = #27983#35272
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = BBtnopenClick
    end
    object BBtnColor: TBitBtn
      Left = 208
      Top = 317
      Width = 75
      Height = 25
      Caption = #39068#33394
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = BBtnColorClick
    end
    object BBtnUse: TBitBtn
      Left = 208
      Top = 361
      Width = 75
      Height = 25
      Caption = #24212#29992
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = BBtnUseClick
    end
    object BBtnClose: TBitBtn
      Left = 208
      Top = 406
      Width = 75
      Height = 25
      Caption = #36820#22238
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = BBtnCloseClick
    end
  end
  object GroupBox2: TGroupBox [3]
    Left = 339
    Top = 0
    Width = 446
    Height = 440
    Align = alClient
    Caption = #30331#24405#26435#38480#35774#23450
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object GroupBox3: TGroupBox
      Left = 24
      Top = 34
      Width = 397
      Height = 86
      Caption = #22686#21152#26032#29992#25143
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clPurple
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object Label2: TLabel
        Left = 16
        Top = 32
        Width = 65
        Height = 20
        AutoSize = False
        Caption = #29992#25143#21517#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 13
        Top = 60
        Width = 378
        Height = 16
        AutoSize = False
        Caption = #26032#22686#30340#29992#25143#30340#21021#22987#23494#30721#37117#26159':12345678'#65292#20174#19979#21015#20462#25913#12290
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object edAdduser: TEdit
        Left = 80
        Top = 24
        Width = 121
        Height = 24
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 10
        ParentFont = False
        TabOrder = 0
        OnChange = edAdduserChange
        OnKeyPress = edAdduserKeyPress
      end
      object BBtnadduser: TBitBtn
        Left = 224
        Top = 29
        Width = 75
        Height = 25
        Caption = #26032#22686
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        OnClick = BBtnadduserClick
      end
      object BBtnAddCancel: TBitBtn
        Left = 312
        Top = 28
        Width = 75
        Height = 26
        Caption = #21462#28040
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        OnClick = BBtnAddCancelClick
      end
    end
    object GroupBox4: TGroupBox
      Left = 24
      Top = 131
      Width = 395
      Height = 159
      Caption = #20462#25913#29992#25143#23494#30721
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clPurple
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      object Label3: TLabel
        Left = 18
        Top = 41
        Width = 95
        Height = 16
        AutoSize = False
        Caption = #36873#25321#29992#25143#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 = 19
        Top = 79
        Width = 94
        Height = 16
        AutoSize = False
        Caption = #36755#20837#26032#23494#30721#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 = 18
        Top = 120
        Width = 95
        Height = 16
        AutoSize = False
        Caption = #26816#35270#26032#23494#30721#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object CBeguser: TComboBox
        Left = 118
        Top = 33
        Width = 115
        Height = 24
        Style = csDropDownList
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        ParentFont = False
        TabOrder = 0
        OnChange = CBeguserChange
      end
      object Edpasswd: TEdit
        Left = 118
        Top = 73
        Width = 113
        Height = 24
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        PasswordChar = '*'
        TabOrder = 1
        OnKeyPress = EdpasswdKeyPress
      end
      object edokpasswd: TEdit
        Left = 118
        Top = 113
        Width = 115
        Height = 24
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 8
        ParentFont = False
        PasswordChar = '*'
        TabOrder = 2
        OnKeyPress = edokpasswdKeyPress
      end
      object bbtnDel: TBitBtn
        Left = 280
        Top = 75
        Width = 75
        Height = 25
        Caption = #21024#38500
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        OnClick = bbtnDelClick
      end
      object bbtnEdcancel: TBitBtn
        Left = 280
        Top = 116
        Width = 75
        Height = 26
        Caption = #21462#28040
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 4
        OnClick = bbtnEdcancelClick
      end
      object bbtnEdit: TBitBtn
        Left = 280
        Top = 35
        Width = 75
        Height = 25
        Caption = #20462#25913
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 5
        OnClick = bbtnEditClick
      end
    end
    object GroupBox5: TGroupBox
      Left = 24
      Top = 300
      Width = 399
      Height = 132
      Caption = #20462#25913#29992#25143#26435#38480
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clPurple
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      object Label6: TLabel
        Left = 20
        Top = 38
        Width = 101
        Height = 16
        AutoSize = False
        Caption = #36873#25321#29992#25143#21517#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object CBrguser: TComboBox
        Left = 123
        Top = 30
        Width = 109
        Height = 24
        Style = csDropDownList
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        ParentFont = False
        TabOrder = 0
        OnChange = CBrguserChange
      end
      object RGrg: TRadioGroup
        Left = 272
        Top = 21
        Width = 115
        Height = 100
        Caption = #36873#25321#26435#38480
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Items.Strings = (
          #26597#35810#29992#25143
          #19968#33324#29992#25143
          #20511#20070#29992#25143
          #31649#29702#21592#29992#25143)
        ParentFont = False
        TabOrder = 1
      end
      object BBtnRgok: TBitBtn
        Left = 24
        Top = 85
        Width = 72
        Height = 25
        Caption = #30830#35748
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        OnClick = BBtnRgokClick
      end
      object bbtnRgHelp: TBitBtn
        Left = 156
        Top = 85
        Width = 78
        Height = 25
        Caption = #26435#38480#35828#26126
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
      end
    end
  end
  object CDcolor: TColorDialog
    Ctl3D = True
    Left = 296
    Top = 312
  end
  object OPDopen: TOpenPictureDialog
    Left = 296
    Top = 272
  end
end