frmaddreaderu.dfm

图书借阅管理系统含源代码

object frmAddReader: TfrmAddReader
  Left = 151
  Top = 129
  BorderStyle = bsNone
  Caption = #35835#32773#20449#24687
  ClientHeight = 533
  ClientWidth = 717
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 717
    Height = 321
    Align = alTop
    BevelOuter = bvNone
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 0
    object Label9: TLabel
      Left = 40
      Top = 112
      Width = 39
      Height = 13
      Caption = #22320#22336#65306
    end
    object Label8: TLabel
      Left = 208
      Top = 80
      Width = 39
      Height = 13
      Caption = #30005#35805#65306
    end
    object Label7: TLabel
      Left = 40
      Top = 80
      Width = 39
      Height = 13
      Caption = #32844#21153#65306
    end
    object Label6: TLabel
      Left = 376
      Top = 48
      Width = 39
      Height = 13
      Caption = #37096#38376#65306
    end
    object Label5: TLabel
      Left = 208
      Top = 48
      Width = 39
      Height = 13
      Caption = #21333#20301#65306
    end
    object Label4: TLabel
      Left = 16
      Top = 48
      Width = 65
      Height = 13
      Caption = #36523#20221#35777#21495#65306
    end
    object Label3: TLabel
      Left = 376
      Top = 16
      Width = 39
      Height = 13
      Caption = #24615#21035#65306
    end
    object Label2: TLabel
      Left = 208
      Top = 16
      Width = 39
      Height = 13
      Caption = #22995#21517#65306
    end
    object Label12: TLabel
      Left = 32
      Top = 176
      Width = 39
      Height = 13
      Caption = #22791#27880#65306
    end
    object Label10: TLabel
      Left = 24
      Top = 144
      Width = 55
      Height = 13
      Caption = 'E-Mail'#65306
    end
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 65
      Height = 13
      Caption = #20511#20070#35777#21495#65306
    end
    object rabMan: TRadioButton
      Left = 416
      Top = 16
      Width = 33
      Height = 17
      Caption = #30007
      Checked = True
      TabOrder = 3
      TabStop = True
    end
    object rabLady: TRadioButton
      Left = 456
      Top = 16
      Width = 33
      Height = 17
      Caption = #22899
      TabOrder = 0
    end
    object Panel3: TPanel
      Left = 552
      Top = 0
      Width = 165
      Height = 321
      Align = alRight
      BevelOuter = bvNone
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 14
      object GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 165
        Height = 256
        Align = alTop
        Caption = #22836#20687#65306
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 0
        object imgPhoto: TImage
          Left = 2
          Top = 15
          Width = 161
          Height = 239
          Align = alClient
          Proportional = True
        end
      end
      object btnBrowse: TBitBtn
        Left = 8
        Top = 264
        Width = 145
        Height = 25
        Caption = #27983#35272'...(&B)'
        TabOrder = 1
        OnClick = btnBrowseClick
      end
    end
    object moRemark: TMemo
      Left = 80
      Top = 176
      Width = 289
      Height = 81
      Lines.Strings = (
        'moRemark')
      ScrollBars = ssBoth
      TabOrder = 11
    end
    object edPhoneNo: TEdit
      Left = 248
      Top = 80
      Width = 121
      Height = 21
      MaxLength = 60
      TabOrder = 8
      Text = 'edPhoneNo'
    end
    object edName: TEdit
      Left = 248
      Top = 16
      Width = 121
      Height = 21
      Ctl3D = True
      MaxLength = 18
      ParentCtl3D = False
      TabOrder = 2
      Text = 'edName'
    end
    object edLeaseNo: TEdit
      Left = 80
      Top = 16
      Width = 121
      Height = 21
      Ctl3D = True
      MaxLength = 50
      ParentCtl3D = False
      TabOrder = 1
      Text = 'edLeaseNo'
    end
    object edEMail: TEdit
      Left = 80
      Top = 144
      Width = 289
      Height = 21
      TabOrder = 10
      Text = 'edEMail'
    end
    object edUnit: TEdit
      Left = 248
      Top = 48
      Width = 121
      Height = 21
      MaxLength = 40
      TabOrder = 5
      Text = 'edUnit'
    end
    object edIDCard: TEdit
      Left = 80
      Top = 48
      Width = 121
      Height = 21
      MaxLength = 18
      TabOrder = 4
      Text = 'edIDCard'
    end
    object edDuty: TEdit
      Left = 80
      Top = 80
      Width = 121
      Height = 21
      MaxLength = 40
      TabOrder = 7
      Text = 'edDuty'
    end
    object edDept: TEdit
      Left = 416
      Top = 48
      Width = 121
      Height = 21
      MaxLength = 40
      TabOrder = 6
      Text = 'edDept'
    end
    object edAddress: TEdit
      Left = 80
      Top = 112
      Width = 289
      Height = 21
      TabOrder = 9
      Text = 'edAddress'
    end
    object btnSave: TBitBtn
      Left = 16
      Top = 296
      Width = 73
      Height = 25
      Caption = #20445#23384'(&S)'
      Default = True
      TabOrder = 12
      OnClick = btnSaveClick
    end
    object btnEdit: TBitBtn
      Left = 104
      Top = 264
      Width = 81
      Height = 25
      Caption = #20462#25913#20449#24687'(&E)'
      TabOrder = 15
      OnClick = btnEditClick
    end
    object btnDel: TBitBtn
      Left = 192
      Top = 264
      Width = 81
      Height = 25
      Caption = #21024#38500#26412#20154'(&D)'
      TabOrder = 16
      OnClick = btnDelClick
    end
    object btnClose: TBitBtn
      Left = 176
      Top = 296
      Width = 73
      Height = 25
      Cancel = True
      Caption = #20851#38381'(&C)'
      TabOrder = 17
      OnClick = btnCloseClick
    end
    object btnCancel: TBitBtn
      Left = 96
      Top = 296
      Width = 73
      Height = 25
      Cancel = True
      Caption = #21462#28040'(&C)'
      TabOrder = 13
      OnClick = btnCancelClick
    end
    object btnAdd: TBitBtn
      Left = 16
      Top = 264
      Width = 81
      Height = 25
      Caption = #28155#21152#20449#24687'(&A)'
      TabOrder = 18
      OnClick = btnAddClick
    end
    object btnInfoList: TBitBtn
      Left = 256
      Top = 296
      Width = 113
      Height = 25
      Caption = #26174#31034#25152#26377#35835#32773#20449#24687
      TabOrder = 19
      OnClick = btnInfoListClick
    end
    object gbRechargeable: TGroupBox
      Left = 376
      Top = 72
      Width = 169
      Height = 249
      Caption = #24080#25143#20184#36153#26041#24335#65306
      TabOrder = 20
      object Label11: TLabel
        Left = 10
        Top = 66
        Width = 39
        Height = 13
        Caption = #20313#39069#65306
      end
      object labBagMoTim: TLabel
        Left = 8
        Top = 145
        Width = 65
        Height = 13
        Caption = #21253#26376#26102#38388#65306
      end
      object Label14: TLabel
        Left = 8
        Top = 104
        Width = 39
        Height = 13
        Caption = #25353#37329#65306
      end
      object labBagMoTim2: TLabel
        Left = 144
        Top = 168
        Width = 13
        Height = 13
        Caption = #33267
      end
      object rgBagMonth: TRadioGroup
        Left = 8
        Top = 20
        Width = 153
        Height = 45
        Caption = #20511#20070#20184#27454#26041#24335#65306
        Ctl3D = True
        Items.Strings = (
          #21253#26376#21046
          #25187#27454#21046)
        ParentCtl3D = False
        TabOrder = 0
      end
      object edBalance: TEdit
        Left = 8
        Top = 81
        Width = 153
        Height = 21
        MaxLength = 20
        TabOrder = 1
        Text = 'edBalance'
      end
      object dtBagMoTim: TDateTimePicker
        Left = 8
        Top = 188
        Width = 153
        Height = 21
        Date = 38854.889516597220000000
        Time = 38854.889516597220000000
        DateFormat = dfLong
        TabOrder = 2
      end
      object btnRechargeable: TBitBtn
        Left = 8
        Top = 216
        Width = 153
        Height = 25
        Caption = #20805#20540'(&R)'
        TabOrder = 3
        OnClick = btnRechargeableClick
      end
      object edPressGold: TEdit
        Left = 8
        Top = 120
        Width = 153
        Height = 21
        TabOrder = 5
        Text = 'edPressGold'
      end
      object dtBagMoStTim: TDateTimePicker
        Left = 8
        Top = 164
        Width = 129
        Height = 21
        Date = 38854.889516597220000000
        Time = 38854.889516597220000000
        DateFormat = dfLong
        TabOrder = 6
      end
      object panRechargeable: TPanel
        Left = 8
        Top = 16
        Width = 153
        Height = 193
        Caption = #35835#32773#23578#26410#20805#20540
        TabOrder = 4
      end
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 321
    Width = 717
    Height = 212
    Align = alClient
    TabOrder = 1
    object cxgAddReader: TcxGrid
      Left = 2
      Top = 15
      Width = 713
      Height = 195
      Align = alClient
      BevelKind = bkSoft
      TabOrder = 0
      object cxgAddReaderDBTableView1: TcxGridDBTableView
        OnKeyUp = cxgAddReaderDBTableView1KeyUp
        DataController.DataSource = dsAddReader
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        NavigatorButtons.ConfirmDelete = False
        OnCellClick = cxgAddReaderDBTableView1CellClick
        OnEditKeyPress = cxgAddReaderDBTableView1EditKeyPress
        OptionsBehavior.DragHighlighting = False
        OptionsBehavior.DragOpening = False
        OptionsBehavior.DragScrolling = False
        OptionsBehavior.ImmediateEditor = False
        OptionsBehavior.ExpandMasterRowOnDblClick = False
        OptionsCustomize.ColumnFiltering = False
        OptionsCustomize.ColumnGrouping = False
        OptionsCustomize.ColumnHidingOnGrouping = False
        OptionsCustomize.ColumnMoving = False
        OptionsData.CancelOnExit = False
        OptionsData.Deleting = False
        OptionsData.DeletingConfirmation = False
        OptionsData.Editing = False
        OptionsData.Inserting = False
        OptionsSelection.CellSelect = False
        OptionsView.CellAutoHeight = True
        OptionsView.GroupByBox = False
        Styles.ContentOdd = cxStyle2
        Styles.Selection = cxStyle3
        Styles.Header = cxStyle1
        object cxgAddReaderDBTableView1DBColumn1: TcxGridDBColumn
          Caption = #20511#20070#35777#21495
          DataBinding.FieldName = 'LeaseNo'
          Width = 100
        end
        object cxgAddReaderDBTableView1DBColumn2: TcxGridDBColumn
          Caption = #22995#21517
          DataBinding.FieldName = 'Name'
          Width = 60
        end
        object cxgAddReaderDBTableView1DBColumn3: TcxGridDBColumn
          Caption = #36523#20221#35777#21495#30721
          DataBinding.FieldName = 'IDCard'
          Width = 135
        end
        object cxgAddReaderDBTableView1DBColumn4: TcxGridDBColumn
          Caption = #21253#26376#21046'(0'#20026#21253#26376')'
          DataBinding.FieldName = 'BagMonth'
          Width = 45
        end
        object cxgAddReaderDBTableView1DBColumn5: TcxGridDBColumn
          Caption = #24615#21035'(0'#20026#30007')'
          DataBinding.FieldName = 'Sex'
          Width = 30
        end
        object cxgAddReaderDBTableView1DBColumn6: TcxGridDBColumn
          Caption = #30005#35805#21495#30721
          DataBinding.FieldName = 'PhoneNo'
          Width = 100
        end
        object cxgAddReaderDBTableView1DBColumn7: TcxGridDBColumn
          Caption = #22320#22336
          DataBinding.FieldName = 'Address'
          Width = 200
        end
        object cxgAddReaderDBTableView1DBColumn8: TcxGridDBColumn
          Caption = 'E-Mail'
          DataBinding.FieldName = 'EMail'
          Width = 200
        end
      end
      object cxgAddReaderLevel1: TcxGridLevel
        GridView = cxgAddReaderDBTableView1
      end
    end
  end
  object dsAddReader: TDataSource
    DataSet = DM.adoAddReader
    Left = 608
    Top = 353
  end
  object OpenPictureDialog: TOpenPictureDialog
    Filter = 'JPEG Image File (*.jpg)|*.jpg'
    Left = 672
    Top = 264
  end
  object cxStyleRepository1: TcxStyleRepository
    Left = 608
    Top = 392
    object cxStyle1: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      TextColor = clAppWorkSpace
    end
    object cxStyle2: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = clGradientActiveCaption
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      TextColor = clCaptionText
    end
    object cxStyle3: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = clInfoBk
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      TextColor = clBtnText
    end
  end
end