printgrade.dfm

来自「C++ Builder数据库开发经典案例解析 示例程序都是在C++ Build」· DFM 代码 · 共 644 行 · 第 1/2 页

object fmPrintGrade: TfmPrintGrade
  Left = 163
  Top = 102
  Width = 696
  Height = 480
  Caption = #25171#21360#25104#32489#21333
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Scaled = False
  Visible = True
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 688
    Height = 57
    Align = alTop
    Caption = #23398#29983#20449#24687
    TabOrder = 0
    object Label1: TLabel
      Left = 35
      Top = 24
      Width = 24
      Height = 13
      Caption = #23398#21495
    end
    object Label2: TLabel
      Left = 184
      Top = 24
      Width = 24
      Height = 13
      Caption = #22995#21517
    end
    object Label3: TLabel
      Left = 304
      Top = 24
      Width = 24
      Height = 13
      Caption = #29677#32423
    end
    object edStuNum: TEdit
      Left = 64
      Top = 20
      Width = 97
      Height = 21
      TabOrder = 0
      Text = 'edStuNum'
      OnKeyPress = edStuNumKeyPress
    end
    object edStuName: TEdit
      Left = 211
      Top = 20
      Width = 62
      Height = 21
      Enabled = False
      ReadOnly = True
      TabOrder = 1
      Text = 'edStuName'
    end
    object edStuClass: TEdit
      Left = 331
      Top = 20
      Width = 102
      Height = 21
      Enabled = False
      ReadOnly = True
      TabOrder = 2
      Text = 'edStuClass'
    end
    object btPrint: TBitBtn
      Left = 478
      Top = 16
      Width = 67
      Height = 25
      Caption = #25171#21360
      TabOrder = 3
      OnClick = btPrintClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        888F8800000000000888808888888880808800000000000008080888888BBB88
        0008088888877788080800000000000008800888888888808080800000000008
        0800880FFFFFFFF080808880F00000F000088880FFFFFFFF088888880F00000F
        088888880FFFFFFFF08888888000000000888888888888888888}
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 57
    Width = 688
    Height = 396
    Align = alClient
    Caption = #25104#32489#21333
    TabOrder = 1
    object QuickRep1: TQuickRep
      Left = 48
      Top = 104
      Width = 794
      Height = 1123
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      DataSet = queQuery
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      Functions.Strings = (
        'PAGENUMBER'
        'COLUMNNUMBER'
        'REPORTTITLE')
      Functions.DATA = (
        '0'
        '0'
        #39#39)
      Options = [FirstPageHeader, LastPageFooter]
      Page.Columns = 1
      Page.Orientation = poPortrait
      Page.PaperSize = A4
      Page.Values = (
        100
        2970
        100
        2100
        100
        100
        0)
      PrinterSettings.Copies = 1
      PrinterSettings.Duplex = False
      PrinterSettings.FirstPage = 0
      PrinterSettings.LastPage = 0
      PrinterSettings.OutputBin = Auto
      PrintIfEmpty = True
      SnapToGrid = True
      Units = MM
      Zoom = 100
      object ColumnHeaderBand1: TQRBand
        Left = 38
        Top = 118
        Width = 718
        Height = 40
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        AlignToBottom = False
        Color = clWhite
        ForceNewColumn = False
        ForceNewPage = False
        Size.Values = (
          105.833333333333
          1899.70833333333)
        BandType = rbColumnHeader
        object QRLabel3: TQRLabel
          Left = 80
          Top = 16
          Width = 33
          Height = 23
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            60.8541666666667
            211.666666666667
            42.3333333333333
            87.3125)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #35838#31243
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 12
        end
        object QRLabel4: TQRLabel
          Left = 240
          Top = 16
          Width = 49
          Height = 23
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            60.8541666666667
            635
            42.3333333333333
            129.645833333333)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #24320#35838#31995
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 12
        end
        object QRLabel5: TQRLabel
          Left = 368
          Top = 16
          Width = 33
          Height = 23
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            60.8541666666667
            973.666666666667
            42.3333333333333
            87.3125)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #25945#24072
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 12
        end
        object QRLabel6: TQRLabel
          Left = 480
          Top = 16
          Width = 33
          Height = 23
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            60.8541666666667
            1270
            42.3333333333333
            87.3125)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #25104#32489
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 12
        end
      end
      object DetailBand1: TQRBand
        Left = 38
        Top = 158
        Width = 718
        Height = 40
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        AlignToBottom = False
        Color = clWhite
        ForceNewColumn = False
        ForceNewPage = False
        Size.Values = (
          105.833333333333
          1899.70833333333)
        BandType = rbDetail
        object QRDBText1: TQRDBText
          Left = 80
          Top = 16
          Width = 65
          Height = 18
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            47.625