unit1.dfm

一个管理系统

object Form1: TForm1
  Left = 138
  Top = 71
  Width = 722
  Height = 542
  Caption = 'QReportMaker Demo'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 714
    Height = 515
    ActivePage = TabSheet1
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #25968#25454#34920#25171#21360#28436#31034'1(&A)'
      object Panel4: TPanel
        Left = 610
        Top = 25
        Width = 96
        Height = 463
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 0
        object Button1: TButton
          Left = 8
          Top = 8
          Width = 75
          Height = 25
          Hint = 'TQMPrintEhGrid.Preview'
          Caption = #39044#35272'(&V)'
          TabOrder = 0
          OnClick = Button1Click
          OnMouseMove = Button1MouseMove
        end
        object Button2: TButton
          Tag = 1
          Left = 8
          Top = 40
          Width = 75
          Height = 25
          Hint = 'TQMPrintEhGrid.Print'
          Caption = #25171#21360'(&P)'
          TabOrder = 1
          OnClick = Button1Click
          OnMouseMove = Button1MouseMove
        end
        object Button3: TButton
          Left = 8
          Top = 72
          Width = 75
          Height = 25
          Hint = 'TQMPrintEhGrid.ColumnSetup'
          Caption = #21015#35774#32622'(&S)'
          TabOrder = 2
          OnClick = Button3Click
          OnMouseMove = Button1MouseMove
        end
        object Button4: TButton
          Left = 8
          Top = 104
          Width = 75
          Height = 25
          Hint = 'TQMPrintEhGrid.ExportData'
          Caption = #36755#20986'(&O)'
          TabOrder = 3
          OnClick = Button4Click
          OnMouseMove = Button1MouseMove
        end
      end
      object pnlHead: TPanel
        Left = 0
        Top = 0
        Width = 706
        Height = 25
        Align = alTop
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Caption = #28436' '#31034' '#25253' '#34920
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
      end
      object DBGridEh1: TDBGridEh
        Left = 0
        Top = 25
        Width = 610
        Height = 463
        Align = alClient
        AllowedSelections = [gstRectangle]
        Ctl3D = True
        DataSource = DataSource1
        Flat = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        FooterColor = clInfoBk
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -13
        FooterFont.Name = #23435#20307
        FooterFont.Style = [fsItalic]
        FooterRowCount = 2
        FrozenCols = 1
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        OptionsEh = [dghFixed3D, dghFrozen3D, dghHighlightFocus, dghClearSelection, dghRowHighlight]
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        RowHeight = 22
        RowSizingAllowed = True
        SumList.Active = True
        TabOrder = 2
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        TitleHeight = 24
        UseMultiTitle = True
        Columns = <
          item
            Alignment = taCenter
            EditButtons = <>
            FieldName = 'CustNo'
            Footers = <
              item
                Alignment = taCenter
                Value = #21512#35745
                ValueType = fvtStaticText
              end>
            Title.Caption = #23458#25143#21495
            Width = 56
          end
          item
            EditButtons = <>
            FieldName = 'Company'
            Footers = <
              item
              end
              item
                Alignment = taRightJustify
                Value = 'Record Count'
                ValueType = fvtStaticText
              end>
            Title.Caption = #20844#21496#21517
            Width = 199
          end
          item
            EditButtons = <>
            FieldName = 'Addr1'
            Footers = <
              item
              end
              item
                Alignment = taCenter
                ValueType = fvtCount
              end>
            Title.Caption = #32852#31995#20449#24687'|'#22320#22336'|1'
            Width = 175
          end
          item
            EditButtons = <>
            FieldName = 'City'
            Footers = <>
            Title.Caption = #32852#31995#20449#24687'|'#22478#24066'|2'
            Width = 105
          end
          item
            EditButtons = <>
            FieldName = 'Zip'
            Footers = <>
            Title.Caption = #32852#31995#20449#24687'|'#37038#32534'|3'
            Width = 79
          end
          item
            EditButtons = <>
            FieldName = 'Country'
            Footers = <>
            Title.Caption = #32852#31995#20449#24687'|'#22269#23478'|4'
          end
          item
            EditButtons = <>
            FieldName = 'Phone'
            Footers = <>
            Title.Caption = #32852#31995#20449#24687'|'#30005#35805'|5'
            Width = 98
          end
          item
            DisplayFormat = '0.0%'
            EditButtons = <>
            FieldName = 'TaxRate'
            Footer.DisplayFormat = '0.0'
            Footer.FieldName = 'TaxRate'
            Footers = <
              item
                DisplayFormat = '0.0%'
                FieldName = 'TaxRate'
                ValueType = fvtSum
              end>
            Title.Caption = #31246#29575
            Width = 49
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = #25968#25454#34920#25171#21360#28436#31034'2(&B)'
      ImageIndex = 1
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 521
        Height = 488
        Align = alClient
        DataSource = DataSource2
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -14
        TitleFont.Name = #23435#20307
        TitleFont.Style = [fsBold]
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'EmpNo'
            Width = 46
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LastName'
            Width = 99
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FirstName'
            Width = 93
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PhoneExt'
            Width = 73
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'HireDate'
            Width = 86
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Salary'
            Width = 84
            Visible = True
          end>
      end
      object Panel5: TPanel
        Left = 521
        Top = 0
        Width = 185
        Height = 488
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 1
        object GroupBox1: TGroupBox
          Left = 8
          Top = 141
          Width = 169
          Height = 169
          Hint = 'TQMPrintDBGrid.Grid.Options (set)'
          Caption = 'Grid'#35774#32622
          TabOrder = 0
          OnMouseMove = Button1MouseMove
          object CheckListBox1: TCheckListBox
            Left = 8
            Top = 16
            Width = 153
            Height = 145
            Hint = 'TQMPrintDBGrid.Grid.Options (set)'
            ItemHeight = 12
            Items.Strings = (
              #25171#21360#32447#26465
              #25171#21360#31446#32447
              #25171#21360#27178#32447
              #25171#21360#24038#21491#36793#26694#32447
              #25171#21360#34920#22836
              #20445#30041#34920#22836#36317#31163
              #25171#21360#34920#22836#25991#23383#32447
              #21152#31895#22806#36793#26694
              #21152#31895#34920#22836#26368#21518#19968#26465#27178#32447)
            TabOrder = 0
            OnMouseMove = Button1MouseMove
          end
        end
        object Button5: TButton
          Left = 56
          Top = 24
          Width = 75
          Height = 25
          Hint = 'TQMPrintDBGrid.Preview'
          Caption = #39044#35272'(&V)'
          TabOrder = 1
          OnClick = Button5Click
          OnMouseMove = Button1MouseMove
        end
        object Button6: TButton
          Tag = 1
          Left = 56
          Top = 56
          Width = 75
          Height = 25
          Hint = 'TQMPrintDBGrid.Print'
          Caption = #25171#21360'(&P)'
          TabOrder = 2
          OnClick = Button5Click
          OnMouseMove = Button1MouseMove
        end
        object Button7: TButton
          Left = 56
          Top = 88
          Width = 75
          Height = 25
          Hint = 'TQMPrintDBGrid.ColumnSetup'
          Caption = #21015#35774#32622'(&S)'
          TabOrder = 3
          OnClick = Button7Click
          OnMouseMove = Button1MouseMove
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #31080#25454#34920#21333#25171#21360#28436#31034'(&C)'
      ImageIndex = 3
      object Label28: TLabel
        Left = 456
        Top = 32
        Width = 54
        Height = 12
        Caption = #25171#21360#30446#26631':'
      end
      object Panel1: TPanel
        Left = 8
        Top = 8
        Width = 409
        Height = 223
        Color = clWhite
        TabOrder = 0
        object Shape1: TShape
          Tag = 100
          Left = 336
          Top = 8
          Width = 49
          Height = 25
          Brush.Style = bsClear