unit6.dfm

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

      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -24
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ImeName = #26234#33021'ABC'#36755#20837#27861
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 8
    end
    object tinot: TEdit
      Left = 344
      Top = 312
      Width = 41
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ImeName = #26234#33021'ABC'#36755#20837#27861
      ParentFont = False
      TabOrder = 9
      Text = '1'
      OnKeyPress = tinotKeyPress
    end
    object Button2: TButton
      Left = 440
      Top = 312
      Width = 41
      Height = 25
      Caption = 'GO!'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 10
      OnClick = Button2Click
    end
  end
  object xuanze: TPanel
    Left = 0
    Top = 131
    Width = 777
    Height = 409
    BevelInner = bvLowered
    BevelWidth = 3
    Color = clInfoBk
    TabOrder = 2
    OnClick = xuanzeClick
    object Label9: TLabel
      Left = 16
      Top = 24
      Width = 105
      Height = 21
      Caption = #19968'.'#36873#25321#39064
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object tino: TLabel
      Tag = 1
      Left = 200
      Top = 56
      Width = 14
      Height = 24
      Caption = '1'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -24
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label22: TLabel
      Tag = 1
      Left = 224
      Top = 56
      Width = 14
      Height = 24
      Caption = '.'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -24
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label23: TLabel
      Tag = 1
      Left = 56
      Top = 56
      Width = 64
      Height = 24
      Caption = #31572#26696':'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -24
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 632
      Top = 24
      Width = 24
      Height = 21
      Caption = #20849
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 696
      Top = 24
      Width = 24
      Height = 21
      Caption = #39064
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object shumu: TLabel
      Left = 664
      Top = 24
      Width = 13
      Height = 21
      Caption = '1'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label12: TLabel
      Left = 264
      Top = 304
      Width = 70
      Height = 21
      Caption = #22238#21040#31532
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label14: TLabel
      Left = 400
      Top = 304
      Width = 24
      Height = 21
      Caption = #39064
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBEdit7: TDBEdit
      Left = 336
      Top = 120
      Width = 313
      Height = 25
      Hint = #36873#39033'A'
      BorderStyle = bsNone
      Color = clInfoBk
      Ctl3D = False
      DataField = #36873#39033'A'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -21
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ImeName = #26234#33021'ABC'#36755#20837#27861
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 0
    end
    object DBEdit8: TDBEdit
      Left = 336
      Top = 160
      Width = 313
      Height = 25
      Hint = #36873#39033'B'
      BorderStyle = bsNone
      Color = clInfoBk
      Ctl3D = False
      DataField = #36873#39033'B'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -21
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ImeName = #26234#33021'ABC'#36755#20837#27861
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 1
    end
    object DBEdit9: TDBEdit
      Left = 336
      Top = 192
      Width = 313
      Height = 25
      Hint = #36873#39033'C'
      BorderStyle = bsNone
      Color = clInfoBk
      Ctl3D = False
      DataField = #36873#39033'C'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -21
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ImeName = #26234#33021'ABC'#36755#20837#27861
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 2
    end
    object DBEdit10: TDBEdit
      Left = 336
      Top = 232
      Width = 313
      Height = 25
      Hint = #36873#39033'D'
      BorderStyle = bsNone
      Color = clInfoBk
      Ctl3D = False
      DataField = #36873#39033'D'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -21
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ImeName = #26234#33021'ABC'#36755#20837#27861
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 3
    end
    object BitBtn4: TBitBtn
      Left = 104
      Top = 360
      Width = 105
      Height = 33
      Cursor = crHandPoint
      Caption = #19978#19968#39064
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = BitBtn4Click
      Kind = bkRetry
    end
    object tk: TBitBtn
      Left = 320
      Top = 360
      Width = 105
      Height = 33
      Cursor = crHandPoint
      Caption = #22635#31354#39064
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnClick = tkClick
      Kind = bkYes
    end
    object nextti: TBitBtn
      Left = 536
      Top = 360
      Width = 105
      Height = 33
      Cursor = crHandPoint
      Caption = #19979#19968#39064
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
      OnClick = nexttiClick
      Kind = bkIgnore
    end
    object a: TCheckBox
      Left = 264
      Top = 120
      Width = 49
      Height = 25
      Caption = 'A.'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -24
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
      OnClick = aClick
    end
    object b: TCheckBox
      Left = 264
      Top = 160
      Width = 49
      Height = 17
      Caption = 'B.'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -24
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 8
      OnClick = bClick
    end
    object c: TCheckBox
      Left = 264
      Top = 192
      Width = 41
      Height = 25
      Caption = 'C.'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -24
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 9
      OnClick = cClick
    end
    object d: TCheckBox
      Left = 264
      Top = 232
      Width = 49
      Height = 25
      Caption = 'D.'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -24
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 10
      OnClick = dClick
    end
    object DBEdit1: TDBEdit
      Left = 48
      Top = 144
      Width = 65
      Height = 21
      DataField = #39064#21495
      DataSource = DataSource1
      ImeName = #26234#33021'ABC'#36755#20837#27861
      TabOrder = 11
      Visible = False
    end
    object daan: TEdit
      Left = 136
      Top = 56
      Width = 41
      Height = 27
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -19
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ImeName = #26234#33021'ABC'#36755#20837#27861
      ParentFont = False
      ReadOnly = True
      TabOrder = 12
    end
    object tinox: TEdit
      Left = 344
      Top = 304
      Width = 41
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ImeName = #26234#33021'ABC'#36755#20837#27861
      ParentFont = False
      TabOrder = 13
      Text = '1'
      OnKeyPress = tinoxKeyPress
    end
    object Button1: TButton
      Left = 440
      Top = 304
      Width = 41
      Height = 25
      Caption = 'GO!'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 14
      OnClick = Button1Click
    end
    object zhengque: TDBEdit
      Left = 136
      Top = 56
      Width = 41
      Height = 26
      BorderStyle = bsNone
      Color = clInfoBk
      Ctl3D = False
      DataField = #27491#30830#31572#26696
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -24
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ImeName = #26234#33021'ABC'#36755#20837#27861
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 15
      Visible = False
    end
    object DBMemo2: TDBMemo
      Left = 248
      Top = 56
      Width = 377
      Height = 57
      BorderStyle = bsNone
      Color = clInfoBk
      Ctl3D = False
      DataField = #39064#30446
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -24
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ImeName = #26234#33021'ABC'#36755#20837#27861
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 16
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 80
    Top = 24
  end
  object Query1: TQuery
    DatabaseName = #30005#23376#35797#21367#24211
    RequestLive = True
    SQL.Strings = (
      'select *'
      'from '#32771#21367#35797#39064#24211
      'where '#39064#22411'=:tixing')
    Left = 120
    Top = 24
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'tixing'
        ParamType = ptUnknown
      end>
  end
  object huanjuan: TQuery
    DatabaseName = #30005#23376#35797#21367#24211
    SQL.Strings = (
      'delete '
      'from '#32771#21367#35797#39064#24211)
    Left = 160
    Top = 24
  end
  object MainMenu1: TMainMenu
    Left = 40
    Top = 24
    object N2: TMenuItem
      Caption = #25552#20132#35797#21367
      ShortCut = 112
      OnClick = N2Click
    end
    object cunjuan: TMenuItem
      Caption = #20445#23384#35797#21367
      Visible = False
      OnClick = BitBtn7Click
    end
    object N3: TMenuItem
      Caption = #36864#20986#31995#32479
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = #24110#21161
      object N5: TMenuItem
        Caption = #24110#21161#32454#33410
        OnClick = N5Click
      end
      object N6: TMenuItem
        Caption = #20851#20110
        OnClick = N6Click
      end
    end
  end
  object insqdsjk: TQuery
    DatabaseName = #30005#23376#35797#21367#24211
    SQL.Strings = (
      '')
    Left = 200
    Top = 24
  end
  object pdzw: TQuery
    DatabaseName = #30005#23376#35797#21367#24211
    Left = 232
    Top = 24
  end
  object Timer1: TTimer
    Interval = 60000
    OnTimer = Timer1Timer
    Left = 32
    Top = 64
  end
  object updatedaan: TQuery
    DatabaseName = #30005#23376#35797#21367#24211
    SQL.Strings = (
      '')
    Left = 200
    Top = 56
  end
  object panduan: TQuery
    DatabaseName = #30005#23376#35797#21367#24211
    Left = 240
    Top = 56
  end
end