servermain.pas

网络考试系统

unit ServerMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, Buttons, ToolWin, DB, ADODB,UpdatePassword ,StudentManage, CourseManage, SubjectManage, ExamArrange,PaperManage,
  Grids;


type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    H1: TMenuItem;
    C1: TMenuItem;
    N5: TMenuItem;
    X1: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    F11: TMenuItem;
    N16: TMenuItem;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    StatusBar1: TStatusBar;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    StringGrid1: TStringGrid;
    ADOQuery2: TADOQuery;
    procedure X1Click(Sender: TObject);
   
    procedure SpeedButton1Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure C1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

 

implementation


uses GradeManage, JudgePaper,login;

{$R *.dfm}

procedure TForm2.X1Click(Sender: TObject);
begin
  Form2.Close;
  Application.Terminate;
end;

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
        Form3.ShowModal ;
end;

procedure TForm2.N6Click(Sender: TObject);
begin
        Form3.Visible :=true;
end;

procedure TForm2.N7Click(Sender: TObject);
begin
        Form4.Visible:=true;
end;

procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
        Form4.ShowModal;
end;

procedure TForm2.N8Click(Sender: TObject);
begin
          Form5.Visible:=true;
end;

procedure TForm2.SpeedButton3Click(Sender: TObject);
begin
           Form5.ShowModal;
end;

procedure TForm2.SpeedButton4Click(Sender: TObject);
begin
          Form7.ShowModal;
end;

procedure TForm2.N9Click(Sender: TObject);
begin
          Form7.Visible:=true;
end;

procedure TForm2.C1Click(Sender: TObject);
begin
    Form8.Visible:=true;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Form2.Release;
   Application.Terminate;
   
end;

procedure TForm2.SpeedButton6Click(Sender: TObject);
begin
      form12.ShowModal;
end;

procedure TForm2.SpeedButton5Click(Sender: TObject);
begin
       form6.ShowModal;
end;

procedure TForm2.SpeedButton8Click(Sender: TObject);
begin
      Form15.show;
end;

procedure TForm2.FormShow(Sender: TObject);
var i:integer;
begin
  i:=0;
  StringGrid1.Cells[0,0]:='      序号';
  StringGrid1.Cells[1,0]:='    姓名';
  StringGrid1.Cells[2,0]:='   学号';
  StringGrid1.Cells[4,0]:='   主机名';
  StringGrid1.Cells[5,0]:='   IP地址';
  StringGrid1.Cells[3,0]:='    考生目前状态';
  StringGrid1.Cells[6,0]:='   本场考试时间';
  StringGrid1.Cells[7,0]:='   剩余时间';
  statusbar1.Panels[0].Text:='  系统准备就绪';
  statusbar1.Panels[1].Text:=' 目前在线人数： 0  ，已交卷人数： 0 ';
  ADOQuery2.Close;
   ADOQuery2.SQL.Clear;
   ADOQuery2.SQL.Add('select * from tb_student');
   ADOQuery2.Open;
   ADOQuery2.First;
  { while (not ADOQuery2.Eof)  do
   begin
        if (ADOQuery2.FieldValues['sd_permit']=true) then
        begin
              i:=i+1;
              StringGrid1.Cells[0,i]:=inttostr(i);
              StringGrid1.Cells[1,i]:=ADOQuery2.FieldValues['sd_name'];
              StringGrid1.Cells[2,i]:=ADOQuery2.FieldValues['sd_username'];
              StringGrid1.Cells[3,i]:=ADOQuery2.FieldValues['sd_condition'];
             // StringGrid1.Cells[4,i]:=ADOQuery_Student.FieldValues['sd_name'];
              //StringGrid1.Cells[5,i]:=ADOQuery_Student.FieldValues['sd_name'];
              //StringGrid1.Cells[6,i]:=ADOQuery_Student.FieldValues['sd_name'];
              //StringGrid1.Cells[7,i]:=ADOQuery_Student.FieldValues['sd_name'];
             ADOQuery2.Next;
        end;
   end;   }

end;

end.