unit6.dfm

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

object Form6: TForm6
  Left = -8
  Top = 111
  Width = 812
  Height = 586
  VertScrollBar.Position = 21
  Caption = 'Form6'
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = -13
    Width = 777
    Height = 141
    BevelInner = bvRaised
    BevelWidth = 2
    Color = clSkyBlue
    TabOrder = 0
    object Label1: TLabel
      Left = 264
      Top = 16
      Width = 249
      Height = 29
      Caption = #30005#23376#35797#21367#32771#35797#31995#32479
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -29
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object juanno: TLabel
      Left = 112
      Top = 64
      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 kecheng: TLabel
      Left = 280
      Top = 64
      Width = 93
      Height = 21
      Caption = #25152#23646#35838#31243
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label4: TLabel
      Left = 512
      Top = 64
      Width = 197
      Height = 21
      Caption = #32771#35797#26102#38388#20026#65306'2'#23567#26102
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 64
      Top = 104
      Width = 116
      Height = 21
      Caption = #32771#35797#24050#36827#34892
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label6: TLabel
      Left = 272
      Top = 104
      Width = 24
      Height = 21
      Caption = #20998
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label7: TLabel
      Left = 480
      Top = 104
      Width = 139
      Height = 21
      Caption = #21097#20313#32771#35797#26102#38388
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label8: TLabel
      Left = 712
      Top = 104
      Width = 24
      Height = 21
      Caption = #20998
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 200
      Top = 104
      Width = 49
      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
      TabOrder = 2
      Text = '0'
    end
    object Edit2: TEdit
      Left = 640
      Top = 104
      Width = 49
      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
      TabOrder = 3
      Text = '120'
    end
    object gh: TBitBtn
      Left = 336
      Top = 104
      Width = 97
      Height = 25
      Caption = #26356#25442#35797#21367
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      Visible = False
      OnClick = ghClick
      Kind = bkIgnore
    end
    object BitBtn7: TBitBtn
      Left = 592
      Top = 24
      Width = 105
      Height = 25
      Caption = #20445#23384#35797#21367
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn7Click
      Kind = bkYes
    end
  end
  object tiankong: TPanel
    Left = 0
    Top = 128
    Width = 777
    Height = 412
    BevelInner = bvLowered
    BevelWidth = 3
    Color = clInfoBk
    TabOrder = 1
    Visible = False
    OnClick = tiankongClick
    object Label10: TLabel
      Left = 16
      Top = 24
      Width = 105
      Height = 21
      Caption = #19968'.'#22635#31354#39064
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object tino1: TLabel
      Tag = 1
      Left = 112
      Top = 64
      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 lk1: TLabel
      Left = 272
      Top = 136
      Width = 53
      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 lk2: TLabel
      Left = 272
      Top = 176
      Width = 53
      Height = 24
      Caption = '(2).'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -24
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lk3: TLabel
      Left = 272
      Top = 224
      Width = 53
      Height = 24
      Caption = '(3).'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -24
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lk4: TLabel
      Left = 272
      Top = 272
      Width = 53
      Height = 24
      Caption = '(4).'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -24
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label15: TLabel
      Tag = 1
      Left = 136
      Top = 64
      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 Label16: TLabel
      Tag = 1
      Left = 144
      Top = 136
      Width = 114
      Height = 24
      Caption = #32771#29983#31572#26696':'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -24
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label11: 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 shumu1: 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 Label13: 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 Label17: TLabel
      Left = 264
      Top = 312
      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 Label18: TLabel
      Left = 400
      Top = 312
      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 k1: TDBEdit
      Left = 344
      Top = 136
      Width = 313
      Height = 29
      Hint = #36873#39033'A'
      Color = clWhite
      Ctl3D = True
      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
      OnClick = k1Click
      OnKeyPress = k1KeyPress
    end
    object k2: TDBEdit
      Left = 344
      Top = 176
      Width = 313
      Height = 29
      Hint = #36873#39033'B'
      Color = clWhite
      Ctl3D = True
      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
      OnClick = k2Click
      OnKeyPress = k2KeyPress
    end
    object k3: TDBEdit
      Left = 344
      Top = 224
      Width = 313
      Height = 29
      Hint = #36873#39033'C'
      Color = clWhite
      Ctl3D = True
      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
      OnClick = k3Click
      OnKeyPress = k3KeyPress
    end
    object k4: TDBEdit
      Left = 344
      Top = 272
      Width = 313
      Height = 29
      Hint = #36873#39033'D'
      Color = clWhite
      Ctl3D = True
      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
      OnClick = k4Click
      OnKeyPress = k4KeyPress
    end
    object BitBtn1: 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 = BitBtn1Click
      Kind = bkRetry
    end
    object xz: TBitBtn
      Left = 320
      Top = 360
      Width = 105
      Height = 33
      Cursor = crHandPoint
      Caption = #36873#25321#39064
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ModalResult = 6
      ParentFont = False
      TabOrder = 5
      OnClick = xzClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object BitBtn3: 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 = BitBtn3Click
      Kind = bkIgnore
    end
    object kongshu: TDBEdit
      Left = 64
      Top = 208
      Width = 97
      Height = 21
      DataField = #22635#31354#25968#30446
      DataSource = DataSource1
      ImeName = #26234#33021'ABC'#36755#20837#27861
      TabOrder = 7
      Visible = False
    end
    object DBMemo1: TDBMemo
      Left = 176
      Top = 64
      Width = 585
      Height = 65
      Hint = #39064#30446
      BevelWidth = 2
      BorderStyle = bsNone
      Color = clInfoBk
      Ctl3D = False
      DataField = #39064#30446