курсач

Содержание
ВВЕДЕНИЕ
1. Проектирование информационного обеспечения
2 Выбор средств разработки
3 Руководство пользователя
4 Руководство администратора
ОХРАНА ТРУДА
ЗАКЛЮЧЕНИЕ
СПИСОК ЛИТЕРАТУРЫ
ПРИЛОЖЕНИЕ

dfm}
procedure TForm3.BitBtn1Click(Sender: TObject);
var kod_testing: integer;
begin
if (Edit1.Text = '') or (Edit2.Text = '') then
begin
ShowMessage('Все поля должны быть заполнены');
end
else
begin
if Label5.Caption='' then Label5.Caption:='0'; //если тестирование проводится в первые
kod_testing:=StrToInt(Label5.Caption)+1;
//добавление нового тестирования
ADOQuery2.Active:=False;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('INSERT INTO Тестирование ( [Код тестирования], ФИО, Группа, Дата, [Код теста]) VALUES('+IntToStr(kod_testing)+','+chr(39)+Edit1.Text+chr(39)+','+Edit2.Text+','+chr(39)+DateToStr( DateTimePicker1.Date)+chr(39)+','+DBLookupComboBox1.Text+');');
ADOQuery2.ExecSQL;
Form3.Close;
Form4.Show;
end;
end;
procedure TForm3.FormShow(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
//чтение кода тестирования
ADOQuery2.Active:=False;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('SELECT * FROM [Тестирование]');
ADOQuery2.Active:=true;
ADOQuery2.Last;
Label5.Caption:=ADOQuery2.FieldByName('Код тестирования').AsString;
Form3.DBLookupComboBox1.KeyValue:=1 ;
end;
procedure TForm3.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', #8]) then
Key := #0;
end;
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
Form3.Close;
Form1.Visible:=true;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DBCtrls, DB, ADODB, Buttons;
type
TForm4 = class(TForm)
BitBtn1: TBitBtn;
DBText1: TDBText;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
Label1: TLabel;
DBText2: TDBText;
RadioGroup1: TRadioGroup;
ADOQuery2: TADOQuery;
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
i : integer;
n, otv, bal : integer;
implementation
uses Unit1, Unit3, Unit5;
{$R *.dfm}
procedure TForm4.FormShow(Sender: TObject);
begin
ADOquery1.Filter:='[Код теста]='+ Form3.DBLookupComboBox1.Text;
ADOquery1.Filtered:=true;
ADOquery1.open;
ADOquery1.First;
i:=2;
n:=0;//изначально количество вопросов =0
otv:=0;//количество правильных ответов
Label2.Caption:=TimeToStr(Now);
RadioGroup1.Items.Clear;//очистка списка вопросов
while (ADOquery1.Fields[i].value<>Null) AND (i<8) do
begin
RadioGroup1.Items.Add(ADOquery1.Fields[i].value);
i:=i+1;
end;
end;
procedure TForm4.BitBtn1Click(Sender: TObject);
var kod_testing: integer;
otvet :string;
begin
n:=n+1;
//ShowMessage(IntToStr(RadioGroup1.ItemIndex));
if (RadioGroup1.ItemIndex+1)=StrToInt(ADOquery1.Fields[8].value) then begin bal:=1; otv:=otv+1; end else bal:=0;
if RadioGroup1.ItemIndex>=0 then otvet:=RadioGroup1.Items[RadioGroup1.ItemIndex] else otvet:='нет ответа';
//добавление записей в таблицу
kod_testing:=StrToInt(Form3.Label5.Caption)+1;
ADOQuery2.Active:=False;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('INSERT INTO Результаты ( [Код тестирования], Вопрос, Ответ, Балл, Время)');
ADOQuery2.SQL.Add(' VALUES('+IntToStr(kod_testing)+','+chr(39)+DBText1.Caption+chr(39)+','+chr(39)+otvet+chr(39)+','+IntToStr(bal)+','+chr(39)+'10:01'+chr(39)+');');
ADOQuery2.ExecSQL;
ADOquery1.next; //следующий вопрос
if not ADOQuery1.eof then
begin
i:=2;
RadioGroup1.Items.Clear;//очистка списка вопросов
//формирование списка вопросов
while (ADOquery1.Fields[i].value<>Null) AND (i<8) do
begin
RadioGroup1.Items.Add(ADOquery1.Fields[i].value);
i:=i+1;
end;
end
else
begin
//проверка результата тестирования
if (otv=0) OR (int(otv/n*100)<60) then ShowMessage('Тестирование завершено!'+#13#10+'Тест не сдан')
else ShowMessage('Тестирование завершено!'+#13#10+'Тест успешно сдан');
Form4.Close;
Form5.ShowModal;
Form1.Visible:=true;
end;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Grids, DBGrids, ADODB;
type
TForm5 = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOTable1: TADOTable;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit3;
{$R *.dfm}
procedure TForm5.FormShow(Sender: TObject);
begin
ADOTable1.Active:=false;
ADOTable1.Filter:='[Код тестирования]='+IntToStr(StrToInt(Form3.Label5.Caption)+1);
ADOTable1.Filtered:=true;
ADOTable1.Active:=true;
end;
end.
15