main.dfm

局域网考试系统 局域网考试系统

object MainForm: TMainForm
  Left = 162
  Top = 80
  Width = 800
  Height = 600
  Caption = #32771#35797#31995#32479
  Color = clBtnFace
  Constraints.MinHeight = 480
  Constraints.MinWidth = 640
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object PC1: TPageControl
    Left = 0
    Top = 41
    Width = 792
    Height = 494
    ActivePage = TabSheet1
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    HotTrack = True
    Images = ImageList1
    ParentFont = False
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #32771#35797#31185#30446#31649#29702
      ImageIndex = 2
      object Splitter1: TSplitter
        Left = 185
        Top = 0
        Width = 8
        Height = 465
        Cursor = crHSplit
        Beveled = True
        Color = clRed
        ParentColor = False
      end
      object P1: TPanel
        Left = 0
        Top = 0
        Width = 185
        Height = 465
        Align = alLeft
        BevelWidth = 2
        TabOrder = 0
        object SubTree: TTreeView
          Left = 2
          Top = 43
          Width = 181
          Height = 420
          Align = alClient
          AutoExpand = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          Images = BigImageList
          Indent = 35
          ParentFont = False
          PopupMenu = TreePopMenu
          ReadOnly = True
          ShowRoot = False
          TabOrder = 0
          OnChange = SubTreeChange
          OnClick = SubTreeClick
          OnDeletion = SubTreeDeletion
        end
        object ToolBar1: TToolBar
          Left = 2
          Top = 2
          Width = 181
          Height = 41
          ButtonHeight = 38
          ButtonWidth = 39
          Color = clBtnFace
          Flat = True
          Images = BigImageList
          ParentColor = False
          TabOrder = 1
          object ToolButton1: TToolButton
            Left = 0
            Top = 0
            Hint = #22823#22270#26631#26174#31034
            Caption = 'ToolButton1'
            ImageIndex = 0
            ParentShowHint = False
            ShowHint = True
            OnClick = ToolButton1Click
          end
          object ToolButton2: TToolButton
            Left = 39
            Top = 0
            Hint = #23567#22270#26631#26174#31034
            Caption = 'ToolButton2'
            ImageIndex = 6
            ParentShowHint = False
            ShowHint = True
            OnClick = ToolButton2Click
          end
        end
      end
      object TPanel
        Left = 193
        Top = 0
        Width = 591
        Height = 465
        Align = alClient
        TabOrder = 1
        object Splitter2: TSplitter
          Left = 1
          Top = 249
          Width = 589
          Height = 8
          Cursor = crVSplit
          Align = alTop
          Beveled = True
          Color = clRed
          ParentColor = False
        end
        object DBG1: TDBGrid
          Left = 1
          Top = 257
          Width = 589
          Height = 207
          Align = alClient
          DataSource = DS1
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          ParentFont = False
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -16
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          OnCellClick = DBG1CellClick
        end
        object PC3: TPageControl
          Left = 1
          Top = 1
          Width = 589
          Height = 248
          ActivePage = TS3
          Align = alTop
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          HotTrack = True
          Images = ImageList1
          ParentFont = False
          TabIndex = 0
          TabOrder = 1
          object TS3: TTabSheet
            Caption = #35797#39064#20869#23481
            object Splitter3: TSplitter
              Left = 0
              Top = 101
              Width = 581
              Height = 8
              Cursor = crVSplit
              Align = alTop
              Beveled = True
              Color = clRed
              ParentColor = False
            end
            object SBox1: TScrollBox
              Left = 0
              Top = 129
              Width = 581
              Height = 49
              Hint = #36825#26159#39064#30446#12290
              HorzScrollBar.Style = ssHotTrack
              VertScrollBar.Style = ssHotTrack
              Align = alClient
              Constraints.MinHeight = 10
              Color = clWhite
              ParentColor = False
              ParentShowHint = False
              ShowHint = True
              TabOrder = 0
              OnMouseWheel = SBox1MouseWheel
              object FieldImage: TImage
                Left = 5
                Top = 5
                Width = 26
                Height = 28
                AutoSize = True
                OnClick = FieldImageClick
              end
            end
            object AnswerPanel: TPanel
              Left = 0
              Top = 178
              Width = 581
              Height = 41
              Align = alBottom
              BorderStyle = bsSingle
              Font.Charset = GB2312_CHARSET
              Font.Color = clBlue
              Font.Height = -19
              Font.Name = #23435#20307
              Font.Style = [fsBold]
              ParentFont = False
              TabOrder = 1
              object AddKGButton: TSpeedButton
                Left = 287
                Top = 3
                Width = 126
                Height = 31
                Caption = #28155#21152#23458#35266#39064#31572#26696
                Flat = True
                Font.Charset = GB2312_CHARSET
                Font.Color = clRed
                Font.Height = -14
                Font.Name = #23435#20307
                Font.Style = []
                ParentFont = False
                OnClick = AddKGButtonClick
              end
              object CheckBox1: TCheckBox
                Tag = 1
                Left = 32
                Top = 11
                Width = 39
                Height = 17
                Caption = 'A'
                TabOrder = 0
              end
              object CheckBox2: TCheckBox
                Tag = 2
                Left = 82
                Top = 11
                Width = 39
                Height = 17
                Caption = 'B'
                TabOrder = 1
              end
              object CheckBox3: TCheckBox
                Tag = 3
                Left = 134
                Top = 11
                Width = 39
                Height = 17
                Caption = 'C'
                TabOrder = 2
              end
              object CheckBox4: TCheckBox
                Tag = 4
                Left = 181
                Top = 11
                Width = 39
                Height = 17
                Caption = 'D'
                TabOrder = 3
              end
              object CheckBox5: TCheckBox
                Tag = 5
                Left = 229
                Top = 11
                Width = 39
                Height = 17
                Caption = 'E'
                TabOrder = 4
              end
            end
            object SBox2: TScrollBox
              Left = 0
              Top = 61
              Width = 581
              Height = 40
              Hint = #22914#26524#26412#39064#26159#20027#35266#39064#65292#36825#26159#20027#35266#39064#31572#26696#12290
              HorzScrollBar.Style = ssHotTrack
              VertScrollBar.Style = ssHotTrack
              Align = alTop
              Constraints.MinHeight = 10
              Color = clWhite
              ParentColor = False
              ParentShowHint = False
              ShowHint = True
              TabOrder = 2
              TabStop = True
              OnMouseWheel = SBox1MouseWheel
              object AnsImage: TImage
                Left = 5
                Top = 5
                Width = 26
                Height = 28
                AutoSize = True
                OnClick = FieldImageClick
              end
            end
            object SectionPanel: TPanel
              Left = 0
              Top = 0
              Width = 581