kscs_p.dfm

考试系统,是一个简单的但是很经典的

object f_kscs: Tf_kscs
  Left = 95
  Top = 91
  BorderStyle = bsSingle
  Caption = #27979#35797'/'#32771#35797
  ClientHeight = 579
  ClientWidth = 800
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 800
    Height = 34
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object bt1: TSpeedButton
      Left = 5
      Top = 4
      Width = 108
      Height = 26
      Caption = #24320#22987#32771#35797'/'#27979#35797
      Flat = True
    end
    object bt2: TSpeedButton
      Left = 592
      Top = 4
      Width = 89
      Height = 26
      Caption = #20445#23384#31572#26696
      Flat = True
    end
    object Label1: TLabel
      Left = 403
      Top = 11
      Width = 70
      Height = 14
      Caption = #35831#36873#25321#31572#26696
    end
    object bt3: TSpeedButton
      Left = 685
      Top = 4
      Width = 76
      Height = 26
      Caption = #36864' '#20986
      Flat = True
      OnClick = bt3Click
    end
    object dbng: TDBNavigator
      Left = 119
      Top = 4
      Width = 268
      Height = 25
      DataSource = DataSource1
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      Flat = True
      Ctl3D = True
      Hints.Strings = (
        #39318'  '#39064
        #21069#19968#39064
        #19979#19968#39064
        #26411'  '#39064)
      ParentCtl3D = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object cmb: TComboBox
      Left = 485
      Top = 6
      Width = 97
      Height = 22
      BevelKind = bkFlat
      ItemHeight = 14
      MaxLength = 1
      TabOrder = 1
      OnChange = cmbChange
      Items.Strings = (
        'A'
        'B'
        'C'
        'D')
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 538
    Width = 800
    Height = 41
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
  end
  object rve: TRichViewEdit
    Left = 0
    Top = 34
    Width = 800
    Height = 504
    ReadOnly = True
    Align = alClient
    TabOrder = 2
    BorderStyle = bsNone
    DoInPaletteMode = rvpaCreateCopies
    Options = [rvoAllowSelection, rvoScrollToEnd, rvoShowPageBreaks, rvoAutoCopyText, rvoAutoCopyUnicodeText, rvoAutoCopyRVF, rvoAutoCopyImage, rvoAutoCopyRTF, rvoFormatInvalidate, rvoDblClickSelectsWord, rvoRClickDeselects]
    RTFReadProperties.UnicodeMode = rvruOnlyUnicode
    RTFReadProperties.TextStyleMode = rvrsAddIfNeeded
    Style = f_main.RVStyle1
  end
  object Timer1: TTimer
    Enabled = False
    Left = 56
    Top = 448
  end
  object DataSource1: TDataSource
    DataSet = cds
    Left = 224
    Top = 64
  end
  object cds: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 256
    Top = 64
  end
end