unit10.dfm

本程序提供了考试学生系统的原代码函数,并实现了很多程序难实现的功能

    TabOrder = 5
    Text = '0'
    Visible = False
  end
  object tw: TEdit
    Left = 112
    Top = 64
    Width = 73
    Height = 21
    ImeName = #26234#33021'ABC'#36755#20837#27861
    TabOrder = 6
    Text = '0'
    Visible = False
  end
  object xzf: TEdit
    Left = 208
    Top = 72
    Width = 65
    Height = 21
    ImeName = #26234#33021'ABC'#36755#20837#27861
    TabOrder = 7
    Text = '0'
    Visible = False
  end
  object tzf: TEdit
    Left = 288
    Top = 72
    Width = 57
    Height = 21
    ImeName = #26234#33021'ABC'#36755#20837#27861
    TabOrder = 8
    Text = '0'
    Visible = False
  end
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 793
    Height = 553
    Color = clInfoBk
    TabOrder = 9
    Visible = False
    object Label9: TLabel
      Left = 264
      Top = 16
      Width = 259
      Height = 35
      Caption = #20986#38169#36873#25321#39064#21015#34920
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -35
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label10: TLabel
      Left = 304
      Top = 304
      Width = 185
      Height = 35
      Caption = #20986#38169#22635#31354#39064
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -35
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label11: TLabel
      Left = 24
      Top = 376
      Width = 78
      Height = 29
      Caption = #39064#30446':'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -29
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label12: TLabel
      Left = 416
      Top = 384
      Width = 124
      Height = 29
      Caption = #32771#29983#31572#26696
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -29
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label13: TLabel
      Left = 416
      Top = 432
      Width = 124
      Height = 29
      Caption = #27491#30830#31572#26696
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -29
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label14: TLabel
      Left = 560
      Top = 344
      Width = 44
      Height = 21
      Caption = #25968#30446
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -21
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label15: TLabel
      Left = 672
      Top = 344
      Width = 21
      Height = 20
      Caption = #20010
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -20
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBGrid1: TDBGrid
      Left = 8
      Top = 72
      Width = 769
      Height = 217
      DataSource = DataSource2
      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 = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = [fsBold]
    end
    object DBMemo1: TDBMemo
      Left = 112
      Top = 384
      Width = 273
      Height = 57
      BorderStyle = bsNone
      Color = clInfoBk
      Ctl3D = False
      DataField = #39064#30446
      DataSource = DataSource3
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -24
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ImeName = #26234#33021'ABC'#36755#20837#27861
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
    end
    object DBEdit1: TDBEdit
      Left = 560
      Top = 384
      Width = 193
      Height = 27
      DataField = 'ksda'
      DataSource = DataSource3
      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
    end
    object DBEdit2: TDBEdit
      Left = 560
      Top = 432
      Width = 193
      Height = 27
      DataField = 'ri'
      DataSource = DataSource4
      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
    end
    object Button1: TButton
      Left = 160
      Top = 488
      Width = 105
      Height = 33
      Caption = #19978#19968#36947
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 344
      Top = 488
      Width = 105
      Height = 33
      Caption = #19979#19968#36947
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 528
      Top = 488
      Width = 105
      Height = 33
      Caption = #20851#38381
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
      OnClick = tcClick
    end
    object DBEdit3: TDBEdit
      Left = 64
      Top = 304
      Width = 97
      Height = 21
      DataField = #39064#21495
      DataSource = DataSource3
      ImeName = #26234#33021'ABC'#36755#20837#27861
      TabOrder = 7
      Visible = False
    end
    object Edit1: TEdit
      Left = 616
      Top = 344
      Width = 41
      Height = 23
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ImeName = #26234#33021'ABC'#36755#20837#27861
      ParentFont = False
      TabOrder = 8
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 32
    Top = 8
  end
  object Query1: TQuery
    OnCalcFields = Query1CalcFields
    AutoRefresh = True
    DatabaseName = #30005#23376#35797#21367#24211
    RequestLive = True
    SQL.Strings = (
      'select  '#39064#30446','#39064#22411','#26159#21542#27491#30830','#35797#39064#32534#21495
      'from '#32771#21367#35797#39064#24211' ')
    Top = 8
    object Query1BDEDesigner4: TIntegerField
      FieldName = #35797#39064#32534#21495
    end
    object Query1BDEDesigner2: TStringField
      FieldName = #39064#22411
      Origin = #30005#23376#35797#21367#24211'.'#32771#21367#35797#39064#24211'.'#39064#22411
      ReadOnly = True
      Size = 50
    end
    object Query1BDEDesigner: TStringField
      FieldName = #39064#30446
      Origin = #30005#23376#35797#21367#24211'.'#32771#21367#35797#39064#24211'.'#39064#30446
      ReadOnly = True
      Size = 150
    end
    object Query1BDEDesigner3: TStringField
      FieldName = #26159#21542#27491#30830
      Origin = #30005#23376#35797#21367#24211'.'#32771#21367#35797#39064#24211'.'#26159#21542#27491#30830
      ReadOnly = True
      Visible = False
      Size = 50
    end
    object zw: TStringField
      FieldKind = fkCalculated
      FieldName = #27491#35823
      ReadOnly = True
      Calculated = True
    end
  end
  object sel: TQuery
    DatabaseName = #30005#23376#35797#21367#24211
    Left = 64
    Top = 8
  end
  object chucuox: TQuery
    DatabaseName = #30005#23376#35797#21367#24211
    Left = 112
    Top = 8
  end
  object DataSource2: TDataSource
    DataSet = chucuox
    Left = 16
    Top = 40
  end
  object DataSource3: TDataSource
    DataSet = chucuot
    Left = 48
    Top = 40
  end
  object chucuot: TQuery
    DatabaseName = #30005#23376#35797#21367#24211
    Left = 112
    Top = 40
  end
  object wr: TQuery
    DatabaseName = #30005#23376#35797#21367#24211
    Left = 160
    Top = 8
  end
  object DataSource4: TDataSource
    DataSet = wr
    Left = 160
    Top = 40
  end
end