studentmanage.pas

网络考试系统

unit studentManage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ToolWin, ComCtrls, ExtCtrls, DBCtrls, Grids,
  DBGrids, DB, ADODB;

type
  TForm3 = class(TForm)
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    ToolBar1: TToolBar;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses ServerMain;

{$R *.dfm}

procedure TForm3.SpeedButton4Click(Sender: TObject);
begin
   // DBNavigator1.BtnClick(nbdelete);
   ADOquery1.Delete;
end;

procedure TForm3.SpeedButton5Click(Sender: TObject);
begin
  close();
end;

procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
   // DBNavigator1.BtnClick(nbinsert);
   ADOquery1.Insert;


end;

procedure TForm3.FormShow(Sender: TObject);
var count:integer ;
begin
  label2.Caption:='';
  count:=0;
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select sd_name,sd_username, sd_pw,sd_permit,sd_condition,sd_login_counter from tb_student');
  adoquery1.Open;
  adoquery1.First;
  while (not adoquery1.Eof) do
  begin
    count:=count+1;
    label2.Caption:=inttostr(count);
    adoquery1.Next;
  end;
  ADoQuery1.First;
end;

procedure TForm3.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
  //formshow(self);
end;

end.