qprintform.dfm

腾龙校园综合管理系统delphi源码 也是在网络上找到的 不过很好

        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          129.645833333333
          886.354166666667
          0
          2.64583333333333)
        Shape = qrsVertLine
      end
      object QRShape4: TQRShape
        Left = 261
        Top = -1
        Width = 1
        Height = 51
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          134.9375
          690.5625
          -2.64583333333333
          2.64583333333333)
        Shape = qrsVertLine
      end
      object QRShape5: TQRShape
        Left = 173
        Top = -1
        Width = 1
        Height = 51
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          134.9375
          457.729166666667
          -2.64583333333333
          2.64583333333333)
        Shape = qrsVertLine
      end
      object QRShape12: TQRShape
        Left = 613
        Top = -1
        Width = 1
        Height = 51
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          134.9375
          1621.89583333333
          -2.64583333333333
          2.64583333333333)
        Shape = qrsVertLine
      end
      object QRShape13: TQRShape
        Left = 517
        Top = -1
        Width = 1
        Height = 51
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          134.9375
          1367.89583333333
          -2.64583333333333
          2.64583333333333)
        Shape = qrsVertLine
      end
      object QRShape14: TQRShape
        Left = 429
        Top = 0
        Width = 1
        Height = 51
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          134.9375
          1135.0625
          0
          2.64583333333333)
        Shape = qrsVertLine
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 460
    Height = 271
    Align = alClient
    BevelInner = bvRaised
    TabOrder = 1
    object Label1: TLabel
      Left = 88
      Top = 11
      Width = 181
      Height = 29
      Caption = '报表打印系统'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -29
      Font.Name = '宋体'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object Image2: TImage
      Left = 22
      Top = 6
      Width = 43
      Height = 43
      Center = True
      Picture.Data = {
        07544269746D617076020000424D760200000000000076000000280000002000
        0000200000000100040000000000000200000000000000000000100000000000
        0000000000000000800000800000008080008000000080008000808000008080
        8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
        FF00888888888888888888888888888888888800000000000000000000000000
        888888C40FBF6FBFBFBFBFBFBFBFBFB0888888C40BFB6BFBFBFBFBFBFBFBFBF0
        888888C40FBF6FBFBFBFBFBFBFBFBFB0888888C4066666666666666666666660
        888888C40FBF6FBFBFBFBFBFBFBFBFB0888888C40BFB6BFBFBFBFBFBFBFBFBF0
        888888C4066666666666666666666660888888C40BFB6BFBFBFBFBFBFBFBFBF0
        888888C40FBF6FBFBFBFBFBFBFBFBFB0888888C4066666666666666666666660
        888888C40FBF6FBFBFBFBFBFBFBFBFB0888888C40BFB6BFBFBFBFBFBFBFBFBF0
        888888C4066666666666666666666660888888C40BFB6BFBFBFBFBFBFBFBFBF0
        888888C40FBF6FBFBFBFBFBFBFBFBFB0888888C4066666666666666666666660
        888888C40FBF6FBFBFBFBFBFBFBFBFB0888888C40BFB6BFBFBFBFBFBFBFBFBF0
        888888C4066666666666666666666660888888C40BFB6BFBFBFBFBFBFBFBFBF0
        888888C40FBF6FBFBFBFBFBFBFBFBFB0888888C4066666666666666666666660
        888888C40FBF6FBFBFBFBFBFBFBFBFB0888888C40BFB6BFBFBFBFBFBFBFBFBF0
        888888C4066666666666666666666660888888C40BFB6BFBFBFBFBFBFBFBFBF0
        888888C40FBF6FBFBFBFBFBFBFBFBFB0888888C40BFB6BFBFBFBFBFBFBFBFBF0
        888888C407777777777777777777777088888888888888888888888888888888
        8888}
      Stretch = True
      Transparent = True
    end
    object Label2: TLabel
      Left = 89
      Top = 12
      Width = 181
      Height = 29
      Caption = '报表打印系统'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -29
      Font.Name = '宋体'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
      Transparent = True
    end
    object Panel2: TPanel
      Left = 16
      Top = 184
      Width = 433
      Height = 74
      BevelInner = bvLowered
      BevelOuter = bvNone
      TabOrder = 0
      object SpeedButton1: TSpeedButton
        Left = 8
        Top = 8
        Width = 76
        Height = 53
        Caption = '打印机设置'
        Flat = True
        Glyph.Data = {
          36080000424D3608000000000000360400002800000020000000200000000100
          0800000000000004000000000000000000000001000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
          A600CCFFFF0099FFFF0066FFFF0033FFFF00FFCCFF00CCCCFF0099CCFF0066CC
          FF0033CCFF0000CCFF00FF99FF00CC99FF009999FF006699FF003399FF000099
          FF00FF66FF00CC66FF009966FF006666FF003366FF000066FF00FF33FF00CC33
          FF009933FF006633FF003333FF000033FF00CC00FF009900FF006600FF003300
          FF00FFFFCC00CCFFCC0099FFCC0066FFCC0066FFCC0033FFCC0000FFCC00FFCC
          CC00CCCCCC0099CCCC0066CCCC0033CCCC0000CCCC00FF99CC00CC99CC009999
          CC006699CC003399CC000099CC00FF66CC00CC66CC009966CC006666CC003366
          CC000066CC00FF33CC00CC33CC009933CC006633CC003333CC000033CC00FF00
          CC00CC00CC009900CC006600CC003300CC000000CC00FFFF9900CCFF990099FF
          990066FF990033FF990000FF9900FFCC9900CCCC990099CC990066CC990033CC
          990000CC9900FF999900CC99990099999900669999003399990000999900FF66
          9900CC66990099669900666699003366990000669900FF339900CC3399009933
          9900663399003333990000339900FF009900CC00990099009900660099003300
          990000009900FFFF6600CCFF660099FF660066FF660033FF660000FF6600FFCC
          6600CCCC660099CC660066CC660033CC660000CC6600FF996600CC9966009999
          6600669966003399660000996600FF666600CC66660099666600666666003366
          660000666600FF336600CC33660099336600663366003333660000336600FF00
          6600CC00660099006600660066003300660000006600FFFF3300CCFF330099FF
          330066FF330033FF330000FF3300FFCC3300CCCC330099CC330066CC330033CC
          330000CC3300FF993300CC99330099993300669933003399330000993300FF66
          3300CC66330099663300666633003366330000663300FF333300CC3333009933
          3300663333003333330000333300FF003300CC00330099003300660033003300
          330000003300CCFF000099FF000066FF000033FF0000FFCC0000CCCC000099CC
          000066CC000033CC000000CC0000FF990000CC99000099990000669900003399
          000000990000FF660000CC66000099660000666600000066000033660000FF33
          0000CC33000099330000663300003333000000330000CC000000990000006600
          0000330000000000DD000000BB000000AA000000880000007700000055000000
          44000000220000DD000000BB000000AA00000088000000770000005500000044
          000000220000DDDDDD0055555500777777007777770044444400222222001111
          110077000000550000004400000022000000F0FBFF00A4A0A000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00323232323232
          323232320000EDEDED32323232323200EDEDED32320000EDED32323232323232
          32320000F7ED00EDEDED32323232001F00EDED0000191F00EDED323232323232
          0000F7F7F7EDED00EDEDED3232ED001F1F00001919191F1F00ED323232320000
          F7F7F7F7F7EDEDEF00EDEDEDEDED001F1F1F191919FF131F00ED32320000EDEB
          F7F7F7F7F7EDEDEFF700EDEDEDED00FF1F1F19FFFF13131300320000F7F7EDEB
          F7F7F7F7F7EDEDEFF7ED00EDEDED00FF1313FF1313130000323200F7F7F7EDEB
          F7F7F7F7F7EDEDEFF7EDED00EDED00FF131313130000EDEDED3200F7F7F7EDEB
          F7F7F7F7F7EDEDEFF7EDEDED00000019191313131F1F00EDEDED00F7F7F7EDEB
          F7F7F7F7F7EDEDEFF7EDED0000F0001F19191313131F00EDEDED00F7F7F7EDEB
          F7F7F7F7F7EDEDEFF70000F7F7F0000000000000000000EDEDED00F7F7F7EDEB
          F7F7F7F7F7EDED0000F700FFFFECF0F000EDEDEDEDEDEDEDED3200F7F7F7EDEB
          F7F7F7F7F70000F7F7FF0007ECECECF0F000EDEDEDEDEDED323200F7F7F7EDEB
          F7F7F70000F7F7FFFF07070007ECECECF0F000EDEDED3232323200F7F7F7EDEB
          F70000F7F7FFFF07070707070007ECECECF0F00032323232323200F7F7F7ED00
          00F700FFFF00F007070707070700ECECECECF0F000323232323200F7F7F700F7
          F7FF000707F000F00707070000ECECECECECECF0F0003232323200F7F7F700FF
          FFECF7000707F0EC070000ECECECECEC07ECECECF0F00032323200F7F7F700EC
          ECECECF70007070000ECECECECEC07070007ECECECF0F000323200F7F7F7FF00
          ECECECECF70000ECECECECEC07070000FF0007ECECECF0F0003200F7FFFFEBEB
          00ECECECECECECECECEC07070000FFFFFFFF0007ECECECF0F00000FFEBEBEBF7
          F700ECECECECECEC07070000FFFFFFFFFFFFFF0007ECECECF0003200EBF7F7FF
          FFEB00ECECECEC070000FFFFFFFFFFFFFFFFFFFF0007ECECEC00323200FFFFEB
          EBEBEB00ECECF000FFFFFFFFFFFFFFFFFFFFFFAFAF000700003232323200EBEB
          EBEBEBEB00ECECF000FFFFFFFFFFFFFFFFAFAFAFAF00003232323232323200EB
          EBEBEBEBEB00ECECF000FFFFFFFFFFAFAFAFAF00003232323232323232323200
          EBEBEBEBEBEB00ECECF000FFFFDD72DDAF000032323232323232323232323232
          00EBEBEBEBEBEB00ECECF000DD72DD0000323232323232323232323232323232
          3200EBEBEBEBEBEB00ECECF00000003232323232323232323232323232323232
          323200EBEBEBEB000000EC000032323232323232323232323232323232323232
          32323200EB000032323200323232323232323232323232323232323232323232
          3232323200323232323232323232323232323232323232323232323232323232
          3232323232323232323232323232323232323232323232323232}
        Layout = blGlyphTop
        OnClick = SpeedButton1Click
      end
      object SpeedButton2: TSpeedButton
        Left = 128
        Top = 8
        Width = 76
        Height = 53
        Caption = '打印预览'
        Flat = True
        Glyph.Data = {
          56020000424D5602000000000000560000002800000020000000200000000100
          0400000000000002000000000000000000000800000008000000FFFFFF009999
          9900CCCCCC000000000099000000FFFF0000FF00000000000000111111111111
          1111111111111111111101111111111111111111111111111111002222222222
          2222222222222222221100222222222222222222222222222211002222222222
          2222222222222222221100222222222222222222222222222211002222222222
          2222222222222222221100222222222222222222222222222211002222222222
          2222222222332222221100222222222222222222235632222211002222222222
          2222222235643222221100222222222222222223564322222211002222222222
          3333223564322222221100222222223322223356432222222211002222222322
          2222223432222222221100222222322222222223222222222211002222223222
          2222222322222222221100222223222222222222322222222211002222232222
          2222222232222222221100222223222022222222322222222211002222232220
          0222222232222222221100222222322000222223222222222211002222223222
          0002222322222222221100222222232222222232222222222211002222222233
          2222332222222222221100222222222233332222222222222211002222222222
          2222222222222222221100222222222222222222222222222211002222222222
          2222222222222222221100222222222222222222222222222211000000000000
          0000000000000000001100000000000000000000000000000001}
        Layout = blGlyphTop
        OnClick = SpeedButton2Click
      end
      object SpeedButton3: TSpeedButton
        Left = 224
        Top = 8
        Width = 76
        Height = 53
        Caption = '打印输出'
        Flat = True
        Glyph.Data = {
          76020000424D7602000000000000760000002800000020000000200000000100
          0400000000000002000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777778888888
          8888888888888888777777788880088888888888888888008777778800000000
          000000000000000000777880007FFFFFFFFFFFFFFFFFFFFFF077888080877777
          7777777777777777707788808088888888888888888888888077880800000000
          00000000000000000007708087777777777777777777777777F0708087070707
          070707070707070707F0708087777777777777777777777777F0708087777777
          777447777777774477F0708087777777777EE777777777EE77F0708087777777
          777777777777777777F077007FFFFFFFFFFFFFFFFFFFFFFFFFF0770000000000
          0000000000000000000777707000000000000000000007F07777777078077777
          77777777777707F0777777077807788887888878887F0F077777770778077777
          77777777777F0F0777777077880778788878878888FF0077777770FF880FFFFF
          FFFFFFFFFFF0F0777777700000FF77F7F777F7777FF000777777777770FFFFFF
          FFFFFFFFFFF07777777777770FF77F777F77F777FF077777777777770FFFFFFF
          FFFFFFFFFF07777777777770FF777F777F77F77FF077777777777770FFFFFFFF
          FFFFFFFFF07777777777770FF77F7777F77F77FF077777777777770FFFFFFFFF
          FFFFFFFF07777777777770FF777F777F7F777FF0777777777777707777777777
          7777777077777777777770000000000000000007777777777777}
        Layout = blGlyphTop
        OnClick = SpeedButton3Click
      end
      object SpeedButton4: TSpeedButton
        Left = 344
        Top = 8
        Width = 76
        Height = 53
        Caption = '关  闭'
        Flat = True
        Glyph.Data = {
          76020000424D7602000000000000760000002800000020000000200000000100
          0400000000000002000000000000000000001000000010000000000000009900
          000000FF000099993300FFFF00000000FF0000FFFF0099999900C8B4C800CCCC
          CC00FFFFFF00C8B4C80000000000000000000000000000000000AAAAAAAAAAAA
          AAAAAAAAAAA6A7777777AAAAAAAAAAAAAAAA6A6A6A677777777AAAAAAAAAAAAA
          AAAAAAAAA777AA777AAAAAAAAAAAAAAA0A6A6A677A6A677A6A6AAAAAAAAAAAA0
          0AAAA77AAAA77AAAAAA6AAAAAAAA7A070A670A6A077A6A6A6A6AAAAAAAA7A077
          0A7016A007AAAAA6AAAAAAAA7A7A07770A6A176A176A6AAAAAAAA7A7A7A07777
          0AAA11A71AAAAAAAAAAA7A7A7A0777770A6A11617AAAAAAAAAAA000000777777
          0777117110000000000077777077777702223111777777777777777770777777
          0222211177777777777777777077700705A22111777777777777777770777007
          06AA21017777777777777777707777770226A7A7777777777777777770777777
          0229AAAA77777777777777777077777704446AAA777777777777777770777777
          04446AAAA77777777777777770777777044446AAA77777777777777770777777
          0444456977777777777777777077777704444650777777777777777770777777
          0444460077777777777777777077777704444990777777777777777770777777
          0444440777777777777777777077777704444407777777777777777770777779
          6444440777777777777777777077796444444407777777777777777770796A4A
          4A4A4A0777777777777777777064A4A4A4A4A407777777777777777770000000
          0000000777777777777777777777777777777777777777777777}
        Layout = blGlyphTop
        OnClick = SpeedButton4Click
      end
    end
    object Memo1: TMemo
      Left = 16
      Top = 56
      Width = 433
      Height = 121
      Color = clMenu
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      Lines.Strings = (
        ''
        '* 学生欠（交）费情况报表'
        ''
        '* 可打印学生编号、姓名、所在系名、所在年'
        '  级、所在班级。'
        '* 可打印学生学费情况、杂费情况、课管费情况、课本费情况、'
        '  班费情况、上机费情况、住宿费情况、 补习费情况等等。'
        '* 按打印预览可查看打印效果、按打印机设置可调整打印机相关'
        '  选项、按打印输出直接打印报表。')
      ParentFont = False
      TabOrder = 1
    end
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 160
    Top = 104
  end
end