unit14.dfm

来自「试卷生成系统 delphi 试卷生成系统 试卷生成系统」· DFM 代码 · 共 688 行 · 第 1/2 页

DFM
688 行
字号
12
      end
      object QRDBText4: TQRDBText
        Left = 216
        Top = 112
        Width = 101
        Height = 33
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          87.3125
          571.5
          296.333333333333
          267.229166666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = selfen
        DataField = #36873#25321#39064#20998#25968
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 14
      end
      object QRDBText5: TQRDBText
        Left = 600
        Top = 112
        Width = 101
        Height = 41
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          108.479166666667
          1587.5
          296.333333333333
          267.229166666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = selfen
        DataField = #22635#31354#39064#20998#25968
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 14
      end
      object QRDBText6: TQRDBText
        Left = 216
        Top = 184
        Width = 81
        Height = 33
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          87.3125
          571.5
          486.833333333333
          214.3125)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = selfen
        DataField = #32771#29983#24635#20998
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 14
      end
      object QRLabel2: TQRLabel
        Left = 56
        Top = 56
        Width = 94
        Height = 25
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          66.1458333333333
          148.166666666667
          148.166666666667
          248.708333333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = #23398#29983#23398#21495
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -21
        Font.Name = #38582#20070
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 16
      end
      object QRLabel3: TQRLabel
        Left = 432
        Top = 56
        Width = 94
        Height = 25
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          66.1458333333333
          1143
          148.166666666667
          248.708333333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = #23398#29983#22995#21517
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -21
        Font.Name = #38582#20070
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 16
      end
      object QRLabel4: TQRLabel
        Left = 56
        Top = 112
        Width = 117
        Height = 25
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          66.1458333333333
          148.166666666667
          296.333333333333
          309.5625)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = #36873#25321#39064#25104#32489
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -21
        Font.Name = #38582#20070
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 16
      end
      object QRLabel5: TQRLabel
        Left = 432
        Top = 112
        Width = 117
        Height = 25
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          66.1458333333333
          1143
          296.333333333333
          309.5625)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = #22635#31354#39064#25104#32489
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -21
        Font.Name = #38582#20070
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 16
      end
      object QRLabel6: TQRLabel
        Left = 56
        Top = 184
        Width = 94
        Height = 25
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          66.1458333333333
          148.166666666667
          486.833333333333
          248.708333333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = #32771#29983#24635#20998
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -21
        Font.Name = #38582#20070
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 16
      end
      object ql: TQRLabel
        Left = 432
        Top = 184
        Width = 60
        Height = 25
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          66.1458333333333
          1143
          486.833333333333
          158.75)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = #25490#21517':'
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -21
        Font.Name = #38582#20070
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = False
        WordWrap = True
        FontSize = 16
      end
      object qs: TQRSysData
        Left = 504
        Top = 184
        Width = 94
        Height = 25
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          66.1458333333333
          1333.5
          486.833333333333
          248.708333333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        Color = clWhite
        Data = qrsDetailNo
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -19
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = False
        FontSize = 14
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = selfen
    Left = 8
    Top = 264
  end
  object selfen: TQuery
    DatabaseName = #30005#23376#35797#21367#24211
    SQL.Strings = (
      'select '#23398#29983#23398#21495','#23398#29983#22995#21517','#36873#25321#39064#20998#25968','#22635#31354#39064#20998#25968','#32771#29983#24635#20998','#25152#36873#35797#21367#21495
      'from  '#32771#29983#25104#32489#34920
      'where  '#25152#36873#35797#21367#21495'=:no'
      'order by '#32771#29983#24635#20998' desc')
    Left = 8
    Top = 400
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'no'
        ParamType = ptUnknown
      end>
  end
  object selzongfen: TQuery
    DatabaseName = #30005#23376#35797#21367#24211
    SQL.Strings = (
      '')
    Left = 16
    Top = 224
  end
end
12

unit14.dfm - 源码说明

本页面展示了「试卷生成系统 delphi 试卷生成系统 试卷生成系统」中的 unit14.dfm 源码文件，采用 DFM 编程语言编写，共 688 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与试卷生成相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?