leftpas.dfm

一个桌球室收费系统

object LeftForm: TLeftForm
  Left = 183
  Top = 75
  BorderStyle = bsSingle
  Caption = #23458#25143#32467#24080#31383#21475'('#27880#24847#20462#25913#25240#25187#21644#32467#26463#26102#38388')'
  ClientHeight = 414
  ClientWidth = 468
  Color = clBtnFace
  UseDockManager = True
  Font.Charset = GB2312_CHARSET
  Font.Color = clBlack
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnActivate = FormActivate
  OnCanResize = FormCanResize
  OnClose = FormClose
  OnCreate = FormCreate
  DesignSize = (
    468
    414)
  PixelsPerInch = 96
  TextHeight = 14
  object Image1: TImage
    Left = 280
    Top = 212
    Width = 175
    Height = 170
    Anchors = [akRight, akBottom]
    Stretch = True
  end
  object SBar: TStatusBar
    Left = 0
    Top = 395
    Width = 468
    Height = 19
    Panels = <>
    SimplePanel = True
    SimpleText = #25552#31034#20449#24687#65306
  end
  object GroupBox1: TGroupBox
    Left = 12
    Top = 8
    Width = 257
    Height = 375
    Anchors = [akLeft, akTop, akRight, akBottom]
    Caption = ' '#23458#25143#32467#24080' '
    TabOrder = 1
    DesignSize = (
      257
      375)
    object Label1: TLabel
      Left = 19
      Top = 28
      Width = 70
      Height = 14
      Caption = #27969' '#27700' '#21495#65306
    end
    object Label2: TLabel
      Left = 19
      Top = 62
      Width = 70
      Height = 14
      Caption = #23089#20048#21517#31216#65306
    end
    object Label4: TLabel
      Left = 19
      Top = 131
      Width = 70
      Height = 14
      Caption = #32467#26463#26102#38388#65306
    end
    object Label10: TLabel
      Left = 19
      Top = 201
      Width = 70
      Height = 14
      Caption = #23454#25910#37329#39069#65306
    end
    object Label9: TLabel
      Left = 19
      Top = 166
      Width = 70
      Height = 14
      Caption = #25240#25187#27604#29575#65306
    end
    object Label3: TLabel
      Left = 19
      Top = 96
      Width = 70
      Height = 14
      Caption = #24320#21488#26102#38388#65306
    end
    object Edit3: TDBEdit
      Left = 88
      Top = 92
      Width = 151
      Height = 22
      Anchors = [akLeft, akTop, akRight]
      DataField = #24320#22987#26102#38388
      DataSource = P1s
      Enabled = False
      ReadOnly = True
      TabOrder = 0
    end
    object Edit10: TDBEdit
      Left = 88
      Top = 197
      Width = 151
      Height = 22
      Anchors = [akLeft, akTop, akRight]
      DataField = #23454#25910#37329#39069
      DataSource = P1s
      ReadOnly = True
      TabOrder = 1
    end
    object Edit2: TEdit
      Left = 88
      Top = 58
      Width = 151
      Height = 22
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 2
    end
    object Edit9: TDBLookupComboBox
      Left = 89
      Top = 162
      Width = 151
      Height = 22
      Anchors = [akLeft, akTop, akRight]
      Color = clGreen
      DataField = #25240#25187#27604#29575
      DataSource = P1s
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      KeyField = #25240#25187#27604#29575
      ListField = #25240#25187#21517#31216
      ListSource = DM.Rates
      ParentFont = False
      TabOrder = 3
    end
    object Edit4: TDBEdit
      Left = 88
      Top = 127
      Width = 151
      Height = 22
      Anchors = [akLeft, akTop, akRight]
      DataField = #32467#26463#26102#38388
      DataSource = P1s
      Enabled = False
      ReadOnly = True
      TabOrder = 4
    end
    object Memo1: TMemo
      Left = 12
      Top = 234
      Width = 231
      Height = 127
      Anchors = [akLeft, akTop, akRight, akBottom]
      ReadOnly = True
      TabOrder = 5
    end
    object Edit1: TComboBox
      Left = 88
      Top = 24
      Width = 152
      Height = 22
      Style = csOwnerDrawFixed
      Anchors = [akLeft, akTop, akRight]
      Color = clGreen
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 6
      OnClick = Edit1Click
      OnDrawItem = Edit1DrawItem
    end
  end
  object Panel1: TPanel
    Left = 280
    Top = 14
    Width = 175
    Height = 191
    Anchors = [akTop, akRight, akBottom]
    BevelInner = bvLowered
    TabOrder = 3
    object Button1: TButton
      Left = 40
      Top = 17
      Width = 97
      Height = 25
      Caption = #25171#21333'(&P)'
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button3: TButton
      Left = 40
      Top = 87
      Width = 97
      Height = 25
      Cancel = True
      Caption = #36864#20986'(&X)'
      ModalResult = 2
      TabOrder = 2
      OnClick = Button3Click
    end
    object Button2: TButton
      Left = 40
      Top = 52
      Width = 97
      Height = 25
      Caption = #32467#36716'(&Z)'
      Enabled = False
      TabOrder = 0
      OnClick = Button2Click
    end
  end
  object QuickRep1: TQuickRep
    Left = 24
    Top = 24
    Width = 380
    Height = 353
    Frame.Color = clBlack
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    DataSet = P1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    Functions.Strings = (
      'PAGENUMBER'
      'COLUMNNUMBER'
      'REPORTTITLE')
    Functions.DATA = (
      '0'
      '0'
      #39#39)
    OnPreview = QuickRep1Preview
    Options = [FirstPageHeader, LastPageFooter]
    Page.Columns = 1
    Page.Orientation = poPortrait
    Page.PaperSize = Custom
    Page.Values = (
      20
      935
      20
      1005.4
      20
      20
      0)
    PrinterSettings.Copies = 1
    PrinterSettings.Duplex = False
    PrinterSettings.FirstPage = 0
    PrinterSettings.LastPage = 0
    PrinterSettings.OutputBin = Auto
    PrintIfEmpty = True
    ReportTitle = #36825#37324#26159#25253#34920#26631#39064
    SnapToGrid = True
    Units = MM
    Zoom = 100
    object PageHeaderBand1: TQRBand
      Left = 8
      Top = 8
      Width = 365
      Height = 35
      Frame.Color = clBlack
      Frame.DrawTop = True
      Frame.DrawBottom = True
      Frame.DrawLeft = True
      Frame.DrawRight = True
      AlignToBottom = False
      Color = clWhite
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        92.6041666666667
        965.729166666667)
      BandType = rbPageHeader
      object QRLabel1: TQRLabel
        Left = 93
        Top = 5
        Width = 178
        Height = 25
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          66.1458333333333
          246.0625
          13.2291666666667
          470.958333333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = #38596#31098#20307#32946#27963#21160#20013#24515
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -21
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 16
      end
    end
    object QRBand1: TQRBand
      Left = 8
      Top = 197
      Width = 365
      Height = 24
      Frame.Color = clBlack
      Frame.DrawTop = True
      Frame.DrawBottom = True
      Frame.DrawLeft = True
      Frame.DrawRight = True
      AlignToBottom = False
      BeforePrint = PrintBall02
      Color = clWhite
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        63.5
        965.729166666667)
      BandType = rbGroupFooter
      object QRExpr2: TQRExpr
        Left = 267
        Top = 3
        Width = 83
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          706.4375
          7.9375
          219.604166666667)
        Alignment = taRightJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        Master = QRSubDetail1
        ResetAfterPrint = False
        Transparent = False
        WordWrap = True
        Expression = 'SUM(P2.'#37329#39069')'
        Mask = #65509'0.00'#20803
        FontSize = 10
      end
    end
    object ChildBand1: TQRChildBand
      Left = 8
      Top = 221
      Width = 365
      Height = 7
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      AlignToBottom = False
      BeforePrint = PrintBall02
      Color = clWhite
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        18.5208333333333
        965.729166666667)
      ParentBand = QRBand1
    end
    object QRBand2: TQRBand
      Left = 8
      Top = 276
      Width = 365
      Height = 67
      Frame.Color = clBlack
      Frame.DrawTop = True
      Frame.DrawBottom = True
      Frame.DrawLeft = True
      Frame.DrawRight = True
      AlignToBottom = False
      Color = clWhite
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        177.270833333333
        965.729166666667)
      BandType = rbGroupFooter
      object QRDBText13: TQRDBText
        Left = 86
        Top = 7
        Width = 53
        Height = 16
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          42.3333333333333
          227.541666666667
          18.5208333333333
          140.229166666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = P1
        DataField = #23454#25910#37329#39069
        Mask = #65509'0.00'#20803
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRLabel17: TQRLabel
        Left = 8
        Top = 28
        Width = 157
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          21.1666666666667
          74.0833333333333
          415.395833333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = #22320#22336#65306#24800#26223#22478#24800#26223#24066#22330#20108#27004
        Color = clWhite
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRLabel18: TQRLabel
        Left = 8
        Top = 47
        Width = 196
        Height = 17
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          44.9791666666667
          21.1666666666667
          124.354166666667
          518.583333333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = #30005#35805#65306#65296#65303#65301#65303#65293#65299#65304#65297#65303#65297#65303#65303
        Color = clWhite
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRLabel16: TQRLabel
        Left = 8
        Top = 7
        Width = 66
        Height = 16
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          42.3333333333333
          21.1666666666667
          18.5208333333333
          174.625)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = #23454#25910#37329#39069#65306
        Color = clWhite
        Transparent = False
        WordWrap = True