frminquireu.dfm

这是一款用java做的图书管理系统

object frmInquire: TfrmInquire
  Left = 171
  Top = 128
  BorderStyle = bsNone
  Caption = #26597#35810#20070#31821
  ClientHeight = 508
  ClientWidth = 711
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 711
    Height = 121
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 65
      Height = 13
      Caption = #22270#20070#32534#21495#65306
    end
    object Label2: TLabel
      Left = 32
      Top = 40
      Width = 39
      Height = 13
      Caption = #20070#21517#65306
    end
    object Label3: TLabel
      Left = 32
      Top = 64
      Width = 39
      Height = 13
      Caption = #20316#32773#65306
    end
    object Label4: TLabel
      Left = 210
      Top = 40
      Width = 52
      Height = 13
      Caption = #20986#29256#31038#65306
    end
    object Label5: TLabel
      Left = 224
      Top = 16
      Width = 39
      Height = 13
      Caption = #20998#31867#65306
    end
    object Label6: TLabel
      Left = 8
      Top = 88
      Width = 65
      Height = 13
      Caption = #20511#20986#26085#26399#65306
    end
    object Label7: TLabel
      Left = 224
      Top = 88
      Width = 13
      Height = 13
      Caption = #33267
    end
    object edBookNo: TEdit
      Left = 72
      Top = 16
      Width = 121
      Height = 21
      TabOrder = 0
      Text = 'edBookNo'
    end
    object edTitle: TEdit
      Left = 72
      Top = 40
      Width = 121
      Height = 21
      MaxLength = 40
      TabOrder = 1
      Text = 'edTitle'
    end
    object edAuthor: TEdit
      Left = 72
      Top = 64
      Width = 121
      Height = 21
      MaxLength = 18
      TabOrder = 2
      Text = 'edAuthor'
    end
    object comClass: TComboBox
      Left = 264
      Top = 16
      Width = 121
      Height = 21
      AutoDropDown = True
      ItemHeight = 13
      MaxLength = 20
      Sorted = True
      TabOrder = 3
      Text = 'comClass'
    end
    object dtDate1: TDateTimePicker
      Left = 72
      Top = 88
      Width = 121
      Height = 21
      Date = 36526.000000000000000000
      Time = 36526.000000000000000000
      DateFormat = dfLong
      Enabled = False
      TabOrder = 4
    end
    object dtDate2: TDateTimePicker
      Left = 264
      Top = 88
      Width = 121
      Height = 21
      Date = 38854.999988425930000000
      Time = 38854.999988425930000000
      DateFormat = dfLong
      Enabled = False
      TabOrder = 5
    end
    object BitBtn1: TBitBtn
      Left = 408
      Top = 88
      Width = 75
      Height = 25
      Caption = #26597#25214'(&S)'
      Default = True
      TabOrder = 6
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 488
      Top = 88
      Width = 75
      Height = 25
      Caption = #28165#31354'(&S)'
      TabOrder = 7
      OnClick = BitBtn2Click
    end
    object RG: TRadioGroup
      Left = 408
      Top = 8
      Width = 153
      Height = 73
      ItemIndex = 0
      Items.Strings = (
        #20840#37096
        #26410#20511#20986
        #24050#20511#20986)
      TabOrder = 8
      OnClick = RGClick
      OnEnter = RGEnter
    end
    object BitBtn3: TBitBtn
      Left = 568
      Top = 88
      Width = 81
      Height = 25
      Cancel = True
      Caption = #20851#38381'(&C)'
      TabOrder = 9
      OnClick = BitBtn3Click
    end
    object comBoConName: TComboBox
      Left = 264
      Top = 40
      Width = 121
      Height = 21
      AutoDropDown = True
      ItemHeight = 13
      Sorted = True
      TabOrder = 10
      Text = 'comBoConName'
    end
    object SetToExcel: TButton
      Left = 568
      Top = 56
      Width = 81
      Height = 25
      Caption = #23548#20986#21040'Excel'
      TabOrder = 11
      OnClick = Excel2Click
    end
    object bitPrint: TBitBtn
      Left = 568
      Top = 24
      Width = 81
      Height = 25
      Caption = #25171#21360
      TabOrder = 12
      OnClick = N9Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 121
    Width = 711
    Height = 387
    Align = alClient
    TabOrder = 1
    object cxgInquire: TcxGrid
      Left = 2
      Top = 15
      Width = 707
      Height = 370
      Align = alClient
      BevelKind = bkSoft
      TabOrder = 0
      object cxgInquireDBTableView1: TcxGridDBTableView
        PopupMenu = PopupMenu1
        OnDblClick = N1Click
        DataController.DataSource = datsInquire
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        NavigatorButtons.ConfirmDelete = False
        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 cxgInquireDBTableView1DBColumn4: TcxGridDBColumn
          Caption = #22270#20070#32534#21495
          DataBinding.FieldName = 'BookNO'
          Width = 60
        end
        object cxgInquireDBTableView1Title: TcxGridDBColumn
          Caption = #20070#21517
          DataBinding.FieldName = 'Title'
          Width = 200
        end
        object cxgInquireDBTableView1LoanDate: TcxGridDBColumn
          Caption = #20511#20986#26085#26399
          DataBinding.FieldName = 'LoanDate'
          Width = 90
        end
        object cxgInquireDBTableView1Loan: TcxGridDBColumn
          Caption = #20511#20986#65288'0'#27809#65292'1'#26377#65289
          DataBinding.FieldName = 'Loan'
          Width = 102
        end
        object cxgInquireDBTableView1Class: TcxGridDBColumn
          Caption = #20998#31867
          DataBinding.FieldName = 'Class'
          Width = 80
        end
        object cxgInquireDBTableView1Term: TcxGridDBColumn
          DataBinding.FieldName = 'Term'
          IsCaptionAssigned = True
        end
        object cxgInquireDBTableView1DBColumn2: TcxGridDBColumn
          Caption = #20316#32773
          DataBinding.FieldName = 'Author'
        end
        object cxgInquireDBTableView1DBColumn1: TcxGridDBColumn
          Caption = #20986#29256#31038
          DataBinding.FieldName = 'boConName'
        end
        object cxgInquireDBTableView1DBColumn3: TcxGridDBColumn
          Caption = #20070#26550
          DataBinding.FieldName = 'BookCaseName'
          Width = 60
        end
      end
      object cxgInquireLevel1: TcxGridLevel
        GridView = cxgInquireDBTableView1
      end
    end
  end
  object datsInquire: TDataSource
    DataSet = DM.adoInquire
    Left = 400
    Top = 449
  end
  object cxStyleRepository1: TcxStyleRepository
    Left = 400
    Top = 417
    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 = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      TextColor = clBtnText
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 624
    Top = 297
    object N1: TMenuItem
      Caption = #26597#30475#35813#20070#20449#24687
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #20462#25913#35813#20070#20449#24687
      OnClick = N2Click
    end
    object N4: TMenuItem
      Caption = #28155#21152#26032#30340#22270#20070
      OnClick = N4Click
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Caption = #21024#38500#36825#26412#20070
      OnClick = N3Click
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object N7: TMenuItem
      Caption = #26597#30475#35813#20986#29256#31038#20449#24687
      OnClick = N7Click
    end
    object N8: TMenuItem
      Caption = #26597#30475#35813#20070#26550#20301#32622
      OnClick = N8Click
    end
    object Excel1: TMenuItem
      Caption = '-'
    end
    object Excel2: TMenuItem
      Caption = #23548#20986#21040'Excel...'
      OnClick = Excel2Click
    end
    object N9: TMenuItem
      Caption = #25171#21360#26597#35810#35760#24405
      OnClick = N9Click
    end
  end
end