chafen.~pas

很不错很实用的学生联机考试系统

unit chafen;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables, DBCtrls, ComCtrls;

type
  Tstd_chafen = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Query1: TQuery;
    ComboBox1: TComboBox;
    Memo1: TMemo;
    Query2: TQuery;
    DataSource2: TDataSource;
    Query3: TQuery;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    Query4: TQuery;
    StatusBar1: TStatusBar;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  std_chafen: Tstd_chafen;
  str_sql : string;

implementation

{$R *.dfm}
uses
   exam;

procedure Tstd_chafen.FormCreate(Sender: TObject);
begin
query1.CachedUpdates:=true;

str_sql:=login.number.Text;

query1.SQL.Clear;
query1.SQL.Add('select paper_id from qurrytable where stu_id='''+str_sql+'''');




query1.SQL.Clear;
query1.SQL.Add('select * from qurrytable where stu_id='''+str_sql+'''');
query1.Open;

end;

procedure Tstd_chafen.ComboBox1Change(Sender: TObject);
  var testname:String;
begin
Memo1.Lines.Add('你的答题情况如下');
//Memo1.Clear;
Memo1.Text:=(' ');
testname:=comboBox1.Text;
// showmessage(Testname);

query2.SQL.Clear;
query2.SQL.Add('select * from testresult where stu_id='''+str_sql+''''
               +'and PAPER_ID='''+testname+'''');
query2.Open;

query2.First;
while(not query2.Eof) do
begin
//DBComboBox1.Items.Clear;
//  begin
    query3.SQL.Clear;
    query3.SQL.Add('select * from MAKEPAPER where QUESTION_NO='''+query2.FieldByName('QUESTION_NO').AsString+''''
                   +'and PAPER_ID='''+testname+'''');
    query3.Open;
    query4.SQL.Clear;
    query4.SQL.Add('select * from QUESTIONLIB where QUESTION_ID='''+query3.FieldByName('QUESTION_ID').AsString+'''');
    query4.Open;
    //  end

Memo1.Lines.Add('NO.'+query2.FieldByName('QUESTION_NO').AsString);
Memo1.Lines.Add(query4.FieldByName('CONTENT').AsString );
Memo1.Lines.Add('your answer:'+query2.FieldByName('STU_ANSWER').AsString
                +'   score:'+query2.FieldByName('SCORE').AsString);
Memo1.Lines.Add(' ');
//Memo1.Lines.Add();
//Memo1.Lines.Add();
//ComboBox1.Items.Add(query1.FieldByName('PAPER_ID').AsString);
query2.Next;
end;


end;

procedure Tstd_chafen.Button1Click(Sender: TObject);
 var chengji : string;
begin

query1.Open;
datasource1.Enabled:=true;
query1.First;
while(not query1.Eof) do
begin
//DBComboBox1.Items.Clear;
chengji := query1.FieldByName('PAPER_ID').AsString;
ComboBox1.Items.Add(chengji);
query1.Next;
end;
end;

end.