grademanage.pas

网络考试系统

unit GradeManage;

interface

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

type
  TForm12 = class(TForm)
    DBGrid1: TDBGrid;
    Label1: TLabel;
    SpeedButton2: TSpeedButton;
    ADOQuery_Result: TADOQuery;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    ADOQuery1: TADOQuery;
    Edit_grade: TEdit;
    SpeedButton4: TSpeedButton;
    GroupBox1: TGroupBox;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  
    procedure SpeedButton4Click(Sender: TObject);
    procedure Edit_gradeClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);



  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form12: TForm12;

implementation
uses servermain,GradeChange;
{$R *.dfm}

procedure TForm12.FormShow(Sender: TObject);
begin
     ADOQuery_Result.Close;
      ADOQuery_Result.SQL.Clear;
     // ADOQuery_Result.SQL.Add('select sd_name,sd_username,tp_des,tr_grade,tp_time');
     // ADOQuery_Result.SQL.Add('from tb_test_result, tb_student,tb_test_paper');
    ADOQuery_Result.SQL.Add(' select * from tb_test_result ,tb_student ,tb_test_paper where tr_sd_id=sd_id and tr_tp_id=tp_id ');
   // ADOQuery_Result.SQL.Add('where tr_tp_id=tp_id and tr_sd_id=sd_id') ;
    ADOQuery_Result.Open;

end;
procedure TForm12.SpeedButton1Click(Sender: TObject);
begin
      Form13.ShowModal;

end;

procedure TForm12.SpeedButton2Click(Sender: TObject);
begin
       showmessage('不好意思,该功能尚未实现,有待今后改进!'+chr(10)+chr(13)+'     希望大家能与我共同努力!!!');
end;



procedure TForm12.SpeedButton4Click(Sender: TObject);
begin   ADOQuery_Result.Close;
      ADOQuery_Result.SQL.Clear;
     // ADOQuery_Result.SQL.Add('select sd_name,sd_username,tp_des,tr_grade,tp_time');
     // ADOQuery_Result.SQL.Add('from tb_test_result, tb_student,tb_test_paper');
    //ADOQuery_Result.SQL.Add('where tr_tp_id=tp_id and tr_sd_id=sd_id and sd_username=:username') ;
  ADOQuery_Result.SQL.Add ('select * from tb_test_result ,tb_student ,tb_test_paper where tr_sd_id=sd_id and tr_tp_id=tp_id and sd_username =:username');
     ADOQuery_Result.Parameters.ParamByName('username').Value:=edit_grade.Text;
    ADOQuery_Result.Open;


end;

procedure TForm12.Edit_gradeClick(Sender: TObject);
begin
    edit_grade.Text:='';
end;

procedure TForm12.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     edit_grade.Text:='请输入要查询学生的考号?';
end;

end.