frmreaderu.dfm

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

object frmReader: TfrmReader
  Left = 225
  Top = 108
  BorderStyle = bsNone
  Caption = #26597#25214#35835#32773
  ClientHeight = 535
  ClientWidth = 718
  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 GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 718
    Height = 81
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 52
      Height = 13
      Caption = #20511#20070#35777#65306
    end
    object Label2: TLabel
      Left = 184
      Top = 16
      Width = 39
      Height = 13
      Caption = #22995#21517#65306
    end
    object Label3: TLabel
      Left = 352
      Top = 16
      Width = 52
      Height = 13
      Caption = #36523#20221#35777#65306
    end
    object edLeaseNo: TEdit
      Left = 56
      Top = 16
      Width = 121
      Height = 21
      TabOrder = 0
      Text = 'edLeaseNo'
    end
    object edName: TEdit
      Left = 224
      Top = 16
      Width = 121
      Height = 21
      MaxLength = 18
      TabOrder = 1
      Text = 'edName'
    end
    object edIDCard: TEdit
      Left = 408
      Top = 16
      Width = 121
      Height = 21
      MaxLength = 18
      TabOrder = 2
      Text = 'edIDCard'
    end
    object BitBtn1: TBitBtn
      Left = 536
      Top = 16
      Width = 75
      Height = 25
      Caption = #26597#25214'(&S)'
      Default = True
      TabOrder = 3
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 624
      Top = 16
      Width = 75
      Height = 25
      Cancel = True
      Caption = #20851#38381'(&C)'
      TabOrder = 4
      OnClick = BitBtn2Click
    end
    object BitBtn3: TBitBtn
      Left = 520
      Top = 48
      Width = 91
      Height = 25
      Caption = #23548#20986#21040'Excel'
      TabOrder = 5
      OnClick = Excel1Click
    end
    object BitBtn4: TBitBtn
      Left = 624
      Top = 48
      Width = 75
      Height = 25
      Caption = #25171#21360
      TabOrder = 6
      OnClick = N8Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 81
    Width = 718
    Height = 454
    Align = alClient
    TabOrder = 1
    object cxgReader: TcxGrid
      Left = 2
      Top = 15
      Width = 714
      Height = 437
      Align = alClient
      BevelKind = bkSoft
      TabOrder = 0
      object cxgReaderDBTableView1: TcxGridDBTableView
        PopupMenu = PopupMenu
        DataController.DataSource = dsReader
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        NavigatorButtons.ConfirmDelete = False
        OnCellDblClick = cxgReaderDBTableView1CellDblClick
        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 cxgReaderDBTableView1DBColumn1: TcxGridDBColumn
          Caption = #20511#20070#35777#21495
          DataBinding.FieldName = 'LeaseNo'
          Width = 100
        end
        object cxgReaderDBTableView1DBColumn2: TcxGridDBColumn
          Caption = #22995#21517
          DataBinding.FieldName = 'Name'
          Width = 60
        end
        object cxgReaderDBTableView1DBColumn3: TcxGridDBColumn
          Caption = #36523#20221#35777#21495#30721
          DataBinding.FieldName = 'IDCard'
          Width = 135
        end
        object cxgReaderDBTableView1DBColumn4: TcxGridDBColumn
          Caption = #21253#26376#21046'(0'#20026#21253#26376')'
          DataBinding.FieldName = 'BagMonth'
          Width = 45
        end
        object cxgReaderDBTableView1DBColumn9: TcxGridDBColumn
          Caption = #21253#26376#21040#26399#26085
          DataBinding.FieldName = 'BagMoTim'
          Width = 80
        end
        object cxgReaderDBTableView1DBColumn10: TcxGridDBColumn
          Caption = #20313#39069
          DataBinding.FieldName = 'Balance'
          Width = 60
        end
        object cxgReaderDBTableView1DBColumn5: TcxGridDBColumn
          Caption = #24615#21035'(0'#20026#30007')'
          DataBinding.FieldName = 'Sex'
          Width = 30
        end
        object cxgReaderDBTableView1DBColumn6: TcxGridDBColumn
          Caption = #30005#35805#21495#30721
          DataBinding.FieldName = 'PhoneNo'
          Width = 100
        end
        object cxgReaderDBTableView1DBColumn7: TcxGridDBColumn
          Caption = #22320#22336
          DataBinding.FieldName = 'Address'
          Width = 200
        end
        object cxgReaderDBTableView1DBColumn8: TcxGridDBColumn
          Caption = 'E-Mail'
          DataBinding.FieldName = 'EMail'
          Width = 200
        end
      end
      object cxgReaderLevel1: TcxGridLevel
        GridView = cxgReaderDBTableView1
      end
    end
  end
  object dsReader: TDataSource
    DataSet = DM.adoReader
    Left = 608
    Top = 353
  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
  object PopupMenu: TPopupMenu
    Left = 608
    Top = 321
    object N1: TMenuItem
      Caption = #27983#35272#35813#35835#32773#20449#24687
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #20462#25913#35813#35835#32773#20449#24687
      OnClick = N2Click
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object N4: TMenuItem
      Caption = #35835#32773#27880#20876
      OnClick = N4Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object N6: TMenuItem
      Caption = #35835#32773#20805#20540
      OnClick = N6Click
    end
    object N7: TMenuItem
      Caption = '-'
    end
    object Excel1: TMenuItem
      Caption = #23548#20986#21040'Excel...'
      OnClick = Excel1Click
    end
    object N8: TMenuItem
      Caption = #25171#21360#26597#35810#35760#24405
      OnClick = N8Click
    end
  end
  object RMReport1: TRMReport
    SaveReportOptions.UseRegistry = True
    SaveReportOptions.RegistryPath = 'ReportMachine\ReportSettings\'
    InitialZoom = pzDefault
    ModifyPrepared = False
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS]
    Left = 144
    Top = 185
    ReportForm = {2B000000}
  end
end