unit5.dfm

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

object Form5: TForm5
  Left = 125
  Top = 105
  Width = 572
  Height = 461
  Caption = 'Form5'
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 144
    Top = 16
    Width = 289
    Height = 41
    BevelInner = bvRaised
    BevelWidth = 2
    Caption = #35831#36873#25321#29983#25104#35797#21367#26041#24335
    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 jiegou: TPanel
    Left = 24
    Top = 80
    Width = 521
    Height = 313
    BevelInner = bvRaised
    Color = clSkyBlue
    TabOrder = 1
    object quanzidong: TRadioButton
      Left = 64
      Top = 56
      Width = 345
      Height = 17
      Caption = #30001#31995#32479#20840#33258#21160#29983#25104#35797#21367
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -20
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = quanzidongClick
    end
    object banzidong: TRadioButton
      Left = 64
      Top = 136
      Width = 369
      Height = 17
      Caption = #30001#31995#32479#21322#33258#21160#29983#25104#35797#21367
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -20
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = banzidongClick
    end
    object shougong: TRadioButton
      Left = 64
      Top = 224
      Width = 369
      Height = 17
      Caption = #26681#25454#25945#24072#38656#27714#29983#25104#35797#21367' '
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -20
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = shougongClick
    end
    object Button1: TButton
      Left = 368
      Top = 56
      Width = 97
      Height = 25
      Caption = #21151#33021#27880#37322
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 368
      Top = 136
      Width = 97
      Height = 25
      Caption = #21151#33021#27880#37322
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 368
      Top = 224
      Width = 97
      Height = 25
      Caption = #21151#33021#27880#37322
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnClick = Button3Click
    end
    object cunrnd: TComboBox
      Left = 8
      Top = 16
      Width = 121
      Height = 21
      ImeName = #26234#33021'ABC'#36755#20837#27861
      ItemHeight = 13
      TabOrder = 6
      Text = 'cunrnd'
      Visible = False
    end
  end
  object xk: TEdit
    Left = 32
    Top = 8
    Width = 89
    Height = 21
    ImeName = #26234#33021'ABC'#36755#20837#27861
    TabOrder = 2
    Visible = False
  end
  object tk: TEdit
    Left = 32
    Top = 64
    Width = 89
    Height = 21
    ImeName = #26234#33021'ABC'#36755#20837#27861
    TabOrder = 3
    Visible = False
  end
  object chuansong: TQuery
    DatabaseName = #30005#23376#35797#21367#24211
    SQL.Strings = (
      '')
    Left = 40
    Top = 32
  end
  object qktk: TQuery
    DatabaseName = #30005#23376#35797#21367#24211
    SQL.Strings = (
      'delete'
      'from   '#32771#21367#35797#39064#24211)
    Left = 80
    Top = 32
  end
  object seljuanno: TQuery
    DatabaseName = #30005#23376#35797#21367#24211
    SQL.Strings = (
      'select *'
      'from '#30830#23450#35797#21367#24211
      'where '#35797#21367#21495'=:no')
    Left = 456
    Top = 32
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'no'
        ParamType = ptUnknown
      end>
  end
end