server.~dfm

VB编写的考试系统和论文

object Form1: TForm1
  Left = 152
  Top = 78
  Width = 798
  Height = 570
  AutoSize = True
  Caption = #23616#22495#32593#32771#35797#31995#32479'('#26381#21153#22120#31471')'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF009999
    999999999999999999999999999994444F00F40F444444444444444444499C44
    4F00F40F444444444444444444499CC44F0F0F0F444444440000004444499CCC
    4F0F0F0F444440008888880044499CCCCF04F00F444008888888888804499CCC
    CF00000F4008F8F8F8F8888804499CCCCF04F00F0F8F88888888800004499CCC
    CF0F0040F8F8F8F8F800078804499CCCCCF0040F8F888F880077787804499CCC
    CCCFC0F8F8F8F8F00787878044499CCCCCCC0F8F8F8F80070878788044499CCC
    CCC0F8F8F8F807770787880444499CCCCCC0FFFF8F8077780878780444499CCC
    CC08F8F8F80F77870787804444499CCCCC0FFF8F80F0F7780878044444499CCC
    C0F8F8F8078F0F870787044444499CCCC0FF8FF07777F0F80880444444499CCC
    C0F8F8F077878F0F0804444444499CCC0FFFFF07777878F00044444444499CCC
    0FF8F000000000000F4F444444499CCC0FFFF07778787880F0F0F44444499CCC
    0FF807878787870CCF00F44444499CCC0FFF0778787870CCF000F44444499CCC
    0FF8078787800CCCCFFF0F4444499CCC0FF07878780CCCCCCCCCFF4444499CCC
    C0F0777700CCCCCCCCCCCC4444499CCCC0F07700CCCCCCCCCCCCCCC444499CCC
    CC0000CCCCCCCCCCCCCCCCCC44499CCCCCCCCCCCCCCCCCCCCCCCCCCCC4499CCC
    CCCCCCCCCCCCCCCCCCCCCCCCCC49999999999999999999999999999999990000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 790
    Height = 50
    ButtonHeight = 47
    Caption = 'ToolBar1'
    TabOrder = 0
    object s1: TSpeedButton
      Left = 0
      Top = 2
      Width = 80
      Height = 47
      Cursor = crHandPoint
      Hint = #24080#30446#31649#29702
      Caption = #24080#30446#31649#29702
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
        00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
        F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
        0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
        FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
        FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
        0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
        00333377737FFFFF773333303300000003333337337777777333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = s1Click
    end
    object s2: TSpeedButton
      Left = 80
      Top = 2
      Width = 80
      Height = 47
      Cursor = crHandPoint
      Hint = #31185#30446#35774#32622
      Caption = #31185#30446#35774#32622
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000000
        00003333377777777777333330FFFFFFFFF03FF3F7FFFF33FFF7003000000FF0
        00F077F7777773F77737E00FBFBFB0FFFFF07773333FF7FF33F7E0FBFB00000F
        F0F077F333777773F737E0BFBFBFBFB0FFF077F3333FFFF733F7E0FBFB00000F
        F0F077F333777773F737E0BFBFBFBFB0FFF077F33FFFFFF733F7E0FB0000000F
        F0F077FF777777733737000FB0FFFFFFFFF07773F7F333333337333000FFFFFF
        FFF0333777F3FFF33FF7333330F000FF0000333337F777337777333330FFFFFF
        0FF0333337FFFFFF7F37333330CCCCCC0F033333377777777F73333330FFFFFF
        0033333337FFFFFF773333333000000003333333377777777333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = s2Click
    end
    object s3: TSpeedButton
      Left = 160
      Top = 2
      Width = 80
      Height = 47
      Cursor = crHandPoint
      Hint = #39064#24211#31649#29702
      Caption = #39064#24211#31649#29702
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500055555500
        00005777FFFFFF77777750B077000003333057F77777777F555750B070888803
        B3B057F7F75FFF7F555700B07700000B3B3077F7F577777F555750B07777770B
        B3B057F7F555557F555750B07777770BBB3057F7FFFFFF7F555750B00000000B
        BBB057F77777777F555750B05F5F5F0BBBB057F7F7F7F77F555750B05F5F5F0B
        BBB057F7F7F7F77F555750B05F5F5F0BBBB057F7F7F7F77F555750B07777770B
        BBB057F77777777F555750B05F5F5F0BBBB057F7F757577F5557500055555503
        BBB057775555557F555755555555550B3BB055555555557F5557555555555503
        B3B055555555557FFFF755555555550000005555555555777777}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = s3Click
    end
    object s4: TSpeedButton
      Left = 240
      Top = 2
      Width = 80
      Height = 47
      Cursor = crHandPoint
      Hint = #35797#21367#31649#29702
      Caption = #35797#21367#31649#29702
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF
        FFF07F3FF3FF3FFF3FF70F00F00F000F00F07F773773777377370FFFFFFFFFFF
        FFF07F3FF3FF33FFFFF70F00F00FF00000F07F773773377777F70FEEEEEFF0F9
        FCF07F33333337F7F7F70FFFFFFFF0F9FCF07F3FFFF337F737F70F0000FFF0FF
        FCF07F7777F337F337370F0000FFF0FFFFF07F777733373333370FFFFFFFFFFF
        FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC
        C880733777777777733700000000000000007777777777777777333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = s4Click
    end
    object s5: TSpeedButton
      Left = 320
      Top = 2
      Width = 80
      Height = 47
      Cursor = crHandPoint
      Hint = #32771#35797#31574#30053
      Caption = #32771#35797#31574#30053
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555555555555555555555555555555555555555555555555555555555555
        555555555555555555555555555555555555555FFFFFFFFFF555550000000000
        55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
        B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
        000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
        555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
        55555575FFF75555555555700007555555555557777555555555555555555555
        5555555555555555555555555555555555555555555555555555}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = s5Click
    end
    object s6: TSpeedButton
      Left = 400
      Top = 2
      Width = 80
      Height = 47
      Cursor = crHandPoint
      Hint = #25104#32489#32479#35745
      Caption = #25104#32489#32479#35745
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
        73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
        0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
        0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
        0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
        0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
        0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
        0333337F777777737F333308888888880333337F333333337F33330888888888
        03333373FFFFFFFF733333700000000073333337777777773333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = s6Click
    end
    object SpeedButton1: TSpeedButton
      Left = 480
      Top = 2
      Width = 80
      Height = 47
      Cursor = crHandPoint
      Hint = #30331#24405#31995#32479
      Caption = #30331#24405#31995#32479
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBBBBBB
        BB33337777777777777F33BB00BBBBBBBB33337F77333333F37F33BB0BBBBBB0
        BB33337F73F33337FF7F33BBB0BBBB000B33337F37FF3377737F33BBB00BB00B
        BB33337F377F3773337F33BBBB0B00BBBB33337F337F7733337F33BBBB000BBB
        BB33337F33777F33337F33EEEE000EEEEE33337F3F777FFF337F33EE0E80000E
        EE33337F73F77773337F33EEE0800EEEEE33337F37377F33337F33EEEE000EEE
        EE33337F33777F33337F33EEEEE00EEEEE33337F33377FF3337F33EEEEEE00EE
        EE33337F333377F3337F33EEEEEE00EEEE33337F33337733337F33EEEEEEEEEE
        EE33337FFFFFFFFFFF7F33EEEEEEEEEEEE333377777777777773}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton1Click
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 50
    Width = 790
    Height = 455
    Align = alClient
    BorderStyle = bsSingle
    Caption = 'Panel1'
    TabOrder = 1
    object sg: TStringGrid
      Left = 1
      Top = 1
      Width = 784
      Height = 449
      Align = alClient
      Color = clBtnHighlight
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSelect]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      ColWidths = (
        64
        130
        219
        175
        187)
      RowHeights = (
        24
        17
        15
        16
        20)
    end
  end
  object stu: TStatusBar
    Left = 0
    Top = 505
    Width = 790
    Height = 19
    Panels = <
      item
        Width = 400
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object MainMenu1: TMainMenu
    Left = 688
    Top = 56
    object N1: TMenuItem
      Caption = #31995#32479
      object N2: TMenuItem
        Caption = #30331#24405#31995#32479
        OnClick = N2Click
      end
      object N4: TMenuItem
        Caption = #21475#20196#20462#25913
        OnClick = N4Click
      end
      object N5: TMenuItem
        Caption = #36864#20986#31995#32479
        OnClick = N5Click
      end
    end
    object N6: TMenuItem
      Caption = #32771#35797
      object N7: TMenuItem
        Caption = #24080#21495#31649#29702
        OnClick = N7Click
      end
      object N8: TMenuItem
        Caption = #31185#30446#35774#32622
        OnClick = N8Click
      end
      object N9: TMenuItem
        Caption = #39064#24211#31649#29702
        OnClick = N9Click
      end
      object N10: TMenuItem
        Caption = #35797#21367#31649#29702
        OnClick = N10Click
      end
      object N11: TMenuItem
        Caption = #32771#35797#31574#30053
        OnClick = N11Click
      end
      object N12: TMenuItem
        Caption = #25104#32489#32479#35745
      end
    end
    object N13: TMenuItem
      Caption = #23458#25143#26426
      object N14: TMenuItem
        Caption = #25351#23450#38145#23450
      end
      object N15: TMenuItem
        Caption = #25351#23450#35299#38145
      end
      object N16: TMenuItem
        Caption = #25351#23450#25235#23631
      end
    end
    object N17: TMenuItem
      Caption = #24110#21161
      object about1: TMenuItem
        Caption = #24110#21161#20449#24687
        OnClick = about1Click
      end
    end
  end
  object ss1: TServerSocket
    Active = False
    Port = 1000
    ServerType = stNonBlocking
    OnAccept = ss1Accept
    OnClientRead = ss1ClientRead
    Left = 616
    Top = 8
  end
  object qa: TADOQuery
    Connection = Form2.ADOConnection1
    Parameters = <>
    Left = 664
    Top = 8
  end
  object FASONG: TServerSocket
    Active = False
    Port = 1001
    ServerType = stNonBlocking
    OnClientRead = FASONGClientRead
    Left = 568
    Top = 8
  end
  object cj: TServerSocket
    Active = False
    Port = 1005
    ServerType = stNonBlocking
    OnClientRead = cjClientRead
    Left = 720
    Top = 8
  end
  object qd: TADOQuery
    Connection = Form2.ADOConnection1
    Parameters = <>
    Left = 624
    Top = 56
  end
end