zidong.~pas

考试系统,有学生考试,查询成绩,老师管理题库,生成试卷,查询成绩功能.

unit zidong;

interface

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

type
  TForm5 = class(TForm)
    Table1: TTable;
    Query1: TQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure RadioButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;
  i,k,j:integer;

implementation


{$R *.dfm}

procedure TForm5.RadioButton1Click(Sender: TObject);
begin
query1.SQL.Clear;
query1.SQL.Add('select * from 数学') ;
query1.Open;
Table1.tablename:='数学考卷.db' ;
table1.Active:=true;
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
i:=1;
        k:=1;
        Table1.Edit;
        repeat
                        Table1.First;
                        Table1.Delete;
                        Table1.UpdateCursorPos;
                        i:=i+1
        until i>Table1.RecordCount;
        Query1.Close;
        Query1.SQL.Clear;
        Query1.SQL.Add('Where 难度='''+Edit1.text+'''');
        Query1.SQL.Add('And 分值='''+Edit2.text+'''');
        Query1.Open;
        j:=Query1.RecordCount;
        query1.First;
        Table1.First;
        Table1.Edit;
        repeat
                //ADOTable1.Insert;
                Table1.Locate('题号',IntToStr(k),[]);
                Table1.AppendRecord([IntToStr(k),
                                        Query1.FieldByName('题目').AsString,
                                        Query1.FieldByName('类型').AsString,
                                       Query1.FieldByName('分值').AsString,
                                        Query1.FieldByName('难度').AsString,
                                          Query1.FieldByName('答案').AsString,
                                          Query1.FieldByName('A').AsString,
                                          Query1.FieldByName('B').AsString,
                                          Query1.FieldByName('C').AsString,
                                          Query1.FieldByName('D').AsString]);


                //ADOTable1.Post;
                query1.Next;
                Table1.UpdateCursorPos;
                //ADOTable1.Refresh;
                k:=k+1
        until k>=j;
        showMessage('试卷已经生成！');
end;



end.