printgrade.dfm

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

            211.666666666667
            42.3333333333333
            171.979166666667)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Color = clWhite
          DataSet = queGrade
          DataField = #35838#31243#21517#31216
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 11
        end
        object QRDBText2: TQRDBText
          Left = 240
          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
            635
            42.3333333333333
            171.979166666667)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Color = clWhite
          DataSet = queGrade
          DataField = #24320#35838#31995#21035
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 11
        end
        object QRDBText3: TQRDBText
          Left = 368
          Top = 16
          Width = 33
          Height = 18
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            47.625
            973.666666666667
            42.3333333333333
            87.3125)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Color = clWhite
          DataSet = queGrade
          DataField = #25945#24072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 11
        end
        object QRDBText4: TQRDBText
          Left = 480
          Top = 16
          Width = 33
          Height = 18
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            47.625
            1270
            42.3333333333333
            87.3125)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Color = clWhite
          DataSet = queGrade
          DataField = #25104#32489
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 11
        end
      end
      object PageHeaderBand1: TQRBand
        Left = 38
        Top = 38
        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 = rbPageHeader
        object QRSysData1: TQRSysData
          Left = 64
          Top = 16
          Width = 36
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.9791666666667
            169.333333333333
            42.3333333333333
            95.25)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          Color = clWhite
          Data = qrsDate
          Transparent = False
          FontSize = 10
        end
        object QRSysData2: TQRSysData
          Left = 136
          Top = 16
          Width = 46
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.9791666666667
            359.833333333333
            42.3333333333333
            121.708333333333)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          Color = clWhite
          Data = qrsPageNumber
          Transparent = False
          FontSize = 10
        end
      end
      object TitleBand1: TQRBand
        Left = 38
        Top = 78
        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 = rbTitle
        object QRLabel1: TQRLabel
          Left = 224
          Top = 8
          Width = 75
          Height = 23
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            60.8541666666667
            592.666666666667
            21.1666666666667
            198.4375)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = '**'#25104#32489#21333
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 14
        end
        object QRLabel2: TQRLabel
          Left = 392
          Top = 24
          Width = 33
          Height = 18
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            47.625
            1037.16666666667
            63.5
            87.3125)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #23398#21495
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 11
        end
      end
    end
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 684
      Height = 379
      Align = alClient
      DataSource = DataSource1
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = #35838#31243#21517#31216
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24320#35838#31995#21035
          Visible = True
        end
        item
          Expanded = False
          FieldName = #25945#24072
          Visible = True
        end
        item
          Expanded = False
          FieldName = #25104#32489
          Visible = True
        end>
    end
  end
  object queQuery: TQuery
    DatabaseName = 'db'
    Left = 560
    Top = 16
  end
  object queGrade: TQuery
    Active = True
    DatabaseName = 'db'
    SQL.Strings = (
      
        'select b.'#35838#31243#21517#31216',b.'#24320#35838#31995#21035',b.'#25945#24072',a.'#25104#32489' from '#25104#32489#34920' as a, '#35838#31243#20449#24687' as b where a.' +
        #35838#31243#32534#21495'=b.'#35838#31243#32534#21495)
    Left = 384
    Top = 88
  end
  object DataSource1: TDataSource
    DataSet = queGrade
    Left = 416
    Top = 88
  end
end