mainfrm.dfm

一个用Delphi做的在线考试系统,可以实现网络下的在线考试

object MainForm: TMainForm
  Left = 116
  Top = 63
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #30465#20108#32423#32771#35797#21333#39033#36873#25321#33258#32451#20064
  ClientHeight = 444
  ClientWidth = 640
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 11
    Top = 413
    Width = 91
    Height = 15
    Caption = #35797#39064#33539#22260'  '#20174
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Visible = False
  end
  object Label2: TLabel
    Left = 157
    Top = 413
    Width = 15
    Height = 15
    Caption = #33267
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Visible = False
  end
  object spbAutoShow: TSpeedButton
    Left = 248
    Top = 408
    Width = 73
    Height = 24
    Caption = #33258#21160#28436#31034
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Visible = False
    OnClick = spbAutoShowClick
  end
  object spbClose: TSpeedButton
    Left = 538
    Top = 407
    Width = 72
    Height = 26
    Caption = #36864#20986
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = spbCloseClick
  end
  object SpeedButton1: TSpeedButton
    Left = 328
    Top = 408
    Width = 89
    Height = 24
    Caption = #24494#26426#25214#31572#26696
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Visible = False
    OnClick = SpeedButton1Click
  end
  object Label5: TLabel
    Left = 13
    Top = 410
    Width = 66
    Height = 19
    Caption = 'Label5'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = #40657#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 6
    Top = 8
    Width = 623
    Height = 385
    BevelInner = bvRaised
    TabOrder = 0
    object spbFirst: TSpeedButton
      Left = 543
      Top = 216
      Width = 67
      Height = 33
      Caption = #39318#39064
      OnClick = spbFirstClick
    end
    object spbNext: TSpeedButton
      Left = 543
      Top = 259
      Width = 67
      Height = 33
      Caption = #19979#19968#39064
      OnClick = spbNextClick
    end
    object spbPrior: TSpeedButton
      Left = 543
      Top = 301
      Width = 67
      Height = 33
      Caption = #19978#19968#39064
      OnClick = spbPriorClick
    end
    object spbLast: TSpeedButton
      Left = 543
      Top = 344
      Width = 67
      Height = 33
      Caption = #26411#39064
      OnClick = spbLastClick
    end
    object lblCaption: TLabel
      Left = 27
      Top = 10
      Width = 8
      Height = 15
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object GroupBox1: TGroupBox
      Left = 24
      Top = 32
      Width = 585
      Height = 169
      Caption = #35797#39064#20869#23481
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object DBRichEdit1: TDBRichEdit
        Left = 2
        Top = 17
        Width = 581
        Height = 150
        Align = alClient
        DataField = 'TM'
        DataSource = DataSource1
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = #40657#20307
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
      end
    end
    object rdChoose: TRadioGroup
      Left = 25
      Top = 209
      Width = 512
      Height = 168
      BiDiMode = bdLeftToRight
      Caption = #21487#36873#39033
      Color = clScrollBar
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentBiDiMode = False
      ParentColor = False
      ParentFont = False
      TabOrder = 1
      OnClick = rdChooseClick
    end
    object pnlAutoShow: TPanel
      Left = 176
      Top = 168
      Width = 273
      Height = 97
      BevelInner = bvRaised
      BevelOuter = bvNone
      BevelWidth = 2
      Color = 15588572
      TabOrder = 2
      object Label3: TLabel
        Left = 13
        Top = 26
        Width = 90
        Height = 15
        Caption = #27599#39064#36887#30041#26102#38388
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 157
        Top = 26
        Width = 15
        Height = 15
        Caption = #31186
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object spbOk: TSpeedButton
        Left = 129
        Top = 61
        Width = 65
        Height = 29
        Caption = #30830#23450
        Flat = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        OnClick = spbOkClick
      end
      object spbCancel: TSpeedButton
        Left = 201
        Top = 61
        Width = 65
        Height = 29
        Caption = #21462#28040
        Flat = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        OnClick = spbCancelClick
      end
      object Shape1: TShape
        Left = 12
        Top = 48
        Width = 252
        Height = 3
      end
      object spTime: TSpinEdit
        Left = 110
        Top = 22
        Width = 41
        Height = 22
        MaxValue = 0
        MinValue = 0
        TabOrder = 0
        Value = 1
        OnChange = spTimeChange
      end
    end
  end
  object seBegin: TSpinEdit
    Left = 109
    Top = 409
    Width = 41
    Height = 22
    MaxValue = 0
    MinValue = 0
    TabOrder = 1
    Value = 1
    Visible = False
    OnChange = seBeginChange
  end
  object seEnd: TSpinEdit
    Left = 181
    Top = 409
    Width = 44
    Height = 22
    MaxValue = 0
    MinValue = 0
    TabOrder = 2
    Value = 100
    Visible = False
    OnChange = seEndChange
  end
  object Button1: TButton
    Left = 432
    Top = 408
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 3
    Visible = False
    OnClick = Button1Click
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 150
    Top = 24
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 398
    Top = 184
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 232
    Top = 32
  end
  object Query1: TADOQuery
    Connection = ADOConnection1
    AfterOpen = Query1AfterOpen
    AfterScroll = Query1AfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from '#21333#39033#36873#25321)
    Left = 288
    Top = 32
  end
  object Query2: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from '#23398#29983#31572#39064)
    Left = 304
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 344
    Top = 48
  end
end