unit5.~dfm

学生选课系统 DELPHI+ ACCE

object FormRep: TFormRep
  Left = 263
  Top = 169
  Width = 696
  Height = 480
  Caption = 'FormRep'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  PixelsPerInch = 96
  TextHeight = 13
  object QRLabel1: TQRLabel
    Left = 144
    Top = 8
    Width = 10
    Height = 10
    Frame.Color = clBlack
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    Size.Values = (
      26.4583333333333
      381
      21.1666666666667
      26.4583333333333)
    Alignment = taLeftJustify
    AlignToBand = False
    AutoSize = True
    AutoStretch = False
    Caption = 'QRLabel1'
    Color = clWhite
    Transparent = False
    WordWrap = True
    FontSize = 8
  end
  object QRDBText1: TQRDBText
    Left = 32
    Top = 424
    Width = 10
    Height = 10
    Frame.Color = clBlack
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    Size.Values = (
      26.4583333333333
      84.6666666666667
      1121.83333333333
      26.4583333333333)
    Alignment = taLeftJustify
    AlignToBand = False
    AutoSize = True
    AutoStretch = False
    Color = clWhite
    Transparent = False
    WordWrap = True
    FontSize = 8
  end
  object QuickRep1: TQuickRep
    Left = 64
    Top = 40
    Width = 794
    Height = 1123
    Frame.Color = clBlack
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    Description.Strings = (
      #35838#31243#21517#31216'   '#22995#21517'   '#24615#21035'   '#23398#21495'   '#29677#32423
      #35838#31243#21517#31216'   '#22995#21517'   '#24615#21035'   '#23398#21495'   '#29677#32423
      'Page(Page#)')
    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 = 1
    PrinterSettings.LastPage = 1
    PrinterSettings.OutputBin = Auto
    PrintIfEmpty = True
    ReportTitle = #36873#35838#25253#34920
    SnapToGrid = True
    Units = MM
    Zoom = 100
    object QRSysData1: TQRSysData
      Left = 168
      Top = 56
      Width = 37
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        444.5
        148.166666666667
        97.8958333333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      Color = clWhite
      Data = qrsTime
      Transparent = False
      FontSize = 10
    end
  end
  object Query1: TQuery
    DatabaseName = 'course'
    SQL.Strings = (
      'select course.'#35838#31243#21517#31216',select.'#23398#21495',stu_info.'#22995#21517',stu_info.'#24615#21035',stu_info.'#29677#32423
      'from "select" '#24050#36873#35838#31243
      '    inner join"course" '#35838#31243
      '    on (select.'#23398#21495'=stu_info.'#23398#21495#65289
      'where select.'#35838#31243#32534#21495' like:id;')
    Left = 72
    Top = 48
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'id'
        ParamType = ptUnknown
      end>
  end
end