unit11.dfm

试卷生成系统 delphi 试卷生成系统 试卷生成系统

object selchengji: Tselchengji
  Left = 200
  Top = 179
  Width = 437
  Height = 315
  Caption = #32771#29983#26597#20998
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 104
    Top = 16
    Width = 225
    Height = 33
    BevelInner = bvRaised
    BevelWidth = 2
    Caption = #32771#29983#26597#20998
    Color = clPurple
    Font.Charset = GB2312_CHARSET
    Font.Color = clYellow
    Font.Height = -19
    Font.Name = #38582#20070
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
  end
  object Panel2: TPanel
    Left = 16
    Top = 64
    Width = 393
    Height = 217
    BevelWidth = 2
    Color = clSkyBlue
    TabOrder = 1
    object Label1: TLabel
      Left = 48
      Top = 32
      Width = 93
      Height = 21
      Caption = #23398#29983#23398#21495
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 48
      Top = 72
      Width = 93
      Height = 21
      Caption = #23398#29983#22995#21517
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 48
      Top = 112
      Width = 70
      Height = 21
      Caption = #35797#21367#21495
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object no: TEdit
      Left = 176
      Top = 32
      Width = 153
      Height = 27
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -19
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      PasswordChar = '*'
      TabOrder = 0
    end
    object name: TEdit
      Left = 176
      Top = 72
      Width = 153
      Height = 27
      CharCase = ecUpperCase
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -19
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
    object Button1: TButton
      Left = 144
      Top = 168
      Width = 113
      Height = 33
      Caption = #30830#35748
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -20
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = Button1Click
    end
    object juanhao: TEdit
      Left = 176
      Top = 112
      Width = 97
      Height = 27
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -19
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
    end
    object xf: TEdit
      Left = 32
      Top = 8
      Width = 81
      Height = 21
      TabOrder = 4
      Text = 'xf'
      Visible = False
    end
    object tf: TEdit
      Left = 128
      Top = 8
      Width = 65
      Height = 21
      TabOrder = 5
      Text = 'tf'
      Visible = False
    end
    object zf: TEdit
      Left = 216
      Top = 8
      Width = 65
      Height = 21
      TabOrder = 6
      Visible = False
    end
  end
  object selfen: TQuery
    DatabaseName = #30005#23376#35797#21367#24211
    SQL.Strings = (
      'select '#36873#25321#39064#20998#25968','#22635#31354#39064#20998#25968','#32771#29983#24635#20998
      'from '#32771#29983#25104#32489#34920
      'where '#23398#29983#23398#21495'=:no and '#25152#36873#35797#21367#21495'=:juanno')
    Left = 32
    Top = 16
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'no'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'juanno'
        ParamType = ptUnknown
      end>
  end
end