w_pvpaper.~pas

来自「很不错很实用的学生联机考试系统」· ~PAS 代码 · 共 95 行

unit w_pvpaper;

interface

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

type
  Tpvpaper = class(TForm)
    Query1: TQuery;
    DataSource1: TDataSource;
    Memo1: TMemo;
    procedure FormShow(Sender: TObject);

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

var
  pvpaper: Tpvpaper;

implementation
uses w_makepaper,Unit1;

{$R *.dfm}



procedure Tpvpaper.FormShow(Sender: TObject);
var question_no,n,m: integer;
    str:string;

begin
if(makepaper.Button2.Enabled=true) then
   begin
   question_no:=1;
   Memo1.Clear;
   Memo1.Lines.Add('                                         '+makepaper.DBEdit1.text+'试卷预览' );
   Memo1.Lines.Add('');
   Memo1.Lines.Add('');
   Memo1.Lines.Add('');
   str:='select question_no from makepaper where paper_id ='''+makepaper.DBEdit1.text+'''';
   query1.SQL.Clear;
   query1.SQL.Add(str);
   query1.Open;
   query1.Last;
   m:=query1.FieldByName('question_no').AsInteger;
  // showmessage(intTostr(m)) ;
   for n:=1 to m do
   begin
   query1.SQL.Clear;
   str:='select content from questionlib where question_id = (select question_id from makepaper where paper_id ='''+makepaper.DBEdit1.text+''' and question_no='''+intToStr(question_no)+''')';
   query1.SQL.Add(str);
   query1.Open;
   Memo1.Lines.Add(IntToStr(question_no)+':     ' + query1.FieldByName('content').AsString);
   Memo1.Lines.Add('');
   question_no:=question_no+1;
   end;
  end
  else
if (Form1.Button2.Enabled=true) then
begin
   question_no:=1;
   Memo1.Clear;
   Memo1.Lines.Add('                                         '+Form1.Edit2.text+'试卷预览' );
   Memo1.Lines.Add('');
   Memo1.Lines.Add('');
   Memo1.Lines.Add('');
   str:='select question_no from makepaper where paper_id ='''+Form1.Edit2.text+'''';
   query1.SQL.Clear;
   query1.SQL.Add(str);
   query1.Open;
   query1.Last;
   m:=query1.FieldByName('question_no').AsInteger;
  // showmessage(intTostr(m)) ;
  for n:=1 to m do
   begin
   query1.SQL.Clear;
   str:='select content from questionlib where question_id = (select question_id from makepaper where paper_id ='''+Form1.Edit2.text+''' and question_no='''+intToStr(question_no)+''')';
   query1.SQL.Add(str);
   query1.Open;
   Memo1.Lines.Add(IntToStr(question_no)+':     ' + query1.FieldByName('content').AsString);
   Memo1.Lines.Add('');
   question_no:=question_no+1;
   end;
  end;


end;

end.