Курсовые работы / ПРИС П _32

end;

var

main: Tmain;

implementation uses datm;

{$R *.dfm}

procedure Tmain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin halt; end;

end.

unit fvopr;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, StdCtrls, Buttons, ToolWin;

type

Tvopr = class(TForm) m: TMemo;

Label1: TLabel; e1: TEdit;

e2: TEdit; e3: TEdit; e4: TEdit;

rb1: TRadioButton; rb2: TRadioButton; rb3: TRadioButton; rb4: TRadioButton; ToolBar1: TToolBar;

ToolButton14: TToolButton;

ToolButton8: TToolButton;

ToolButton9: TToolButton;

ToolButton10: TToolButton;

ToolButton12: TToolButton;

procedure ToolButton10Click(Sender: TObject); procedure ToolButton8Click(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose:

Boolean);

procedure FormShow(Sender: TObject); private

{Private declarations } public

{Public declarations } end;

var

vopr: Tvopr; klPo:integer; vsego:integer; implementation

uses datm, fklient; {$R *.dfm}

procedure Tvopr.ToolButton10Click(Sender: TObject); var b:boolean;

begin b:=false;

if id_kl<>'0' then begin

if (rb1.Checked=false) AND (rb2.Checked=false) AND (rb3.Checked=false) AND (rb4.Checked=false) then

begin

showmessage('Нужно выбрать 1 ответ'); exit;

end else

begin dm.temp.Active:=false;

dm.temp.CommandText:='SELECT * FROM otvet WHERE id_o = '+tmp+' ORDER BY id_o';

dm.temp.Active:=true;

tmp:=dm.temp.Fields[1].AsString; if rb1.Checked=true then

begin

if tmp=e1.Text then begin

b:=true;

end;

end;

if rb2.Checked=true then begin

if tmp=e2.Text then begin

b:=true;

end;

end;

if rb3.Checked=true then begin

if tmp=e3.Text then begin

b:=true;

end;

end;

if rb4.Checked=true then begin

if tmp=e4.Text then begin

b:=true;

end;

end;

//Правильный ли ответ if b=true then

begin klPo:=klPo+1; end;

end;

end;

if vsego=kolo then begin

if klpo>kolo then klpo:=kolo;

showmessage('Всего вопросов: '+inttostr(kolO)+'. Отвечено правильно: '+inttostr(klPo)+'');

if (kolO-klpo)>2 then begin

showmessage('Экзамен не сдан'); end

else begin

showmessage('Экзамен сдан'); dm.COM.CommandText:='Update klient SET test_k=TRUE

WHERE id_kl = '+id_kl+''; dm.COM.Execute; end;

application.MessageBox('При нажатии кнопки "OK" программа закроется','Выход',mb_ok+mb_iconasterisk);

closequery;

end;

dm.vop.Next;

vsego:=vsego+1;

28

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure BitBtn2Click(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose:

Boolean);

private

{Private declarations } public

{Public declarations } end;

var

VidP: TVidP;

implementation

uses datm;

{$R *.dfm}

procedure TVidP.BitBtn1Click(Sender: TObject); begin

if cb.Text='' then showmessage('Введена не вся информация') else

begin

dm.COM.CommandText:='Insert into prava (id_kl_pr,k_pr,dataV_pr,dataO_pr) values ('+dm.Kl.Fields[0].AsString+',"'+cb.Text+'","'+datetostr(dtp1.Date)+'","'+ datetostr(incyear(dtp1.Date,10))+'")';

dm.COM.Execute;

closequery;

end;

end;

procedure TVidP.FormClose(Sender: TObject; var Action: TCloseAction);

begin close; end;

procedure TVidP.BitBtn2Click(Sender: TObject); begin

closequery;

end;

procedure TVidP.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin close; end;

end.

unit Fsprav;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids;

type

TSprav = class(TForm) DBGrid1: TDBGrid;

private

{Private declarations } public

{Public declarations } end;

var

Sprav: TSprav;

implementation uses datm;

{$R *.dfm}

end.

unit fklient; interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, Menus, StdCtrls, ComCtrls,

ToolWin;

type

TKlient = class(TForm) DBGrid1: TDBGrid; PopupMenu1: TPopupMenu; N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem; ToolBar1: TToolBar; ToolButton1: TToolButton; e1: TEdit;

ToolButton2: TToolButton;

ToolButton3: TToolButton;

ToolButton4: TToolButton;

ToolButton5: TToolButton; N4: TMenuItem;

N7: TMenuItem;

procedure N1Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure e1Change(Sender: TObject); procedure ToolButton3Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose:

Boolean);

procedure N2Click(Sender: TObject); procedure N5Click(Sender: TObject); procedure N7Click(Sender: TObject);

private

{Private declarations } public

{Public declarations } end;

var

Klient: TKlient;

implementation

uses datm,fedkl, fvopr, FvidP; {$R *.dfm}

procedure TKlient.N1Click(Sender: TObject); begin

ind:=0;

edkl.ShowModal;

end;

procedure TKlient.N3Click(Sender: TObject); begin

{---------!!!-----------} dm.temp.Active:=false;

dm.temp.CommandText:='SELECT * FROM klient WHERE (id_kl = '+dm.Kl.Fields[0].AsString+') AND (log_kl = TRUE)';

dm.temp.Active:=true;

if dm.temp.RecordCount>0 then begin

showmessage('Запись используется другим пользователем');

exit; end

else begin

dm.COM.CommandText:='UPDATE KLIENT SET log_kl =TRUE WHERE id_kl = '+dm.Kl.Fields[0].AsString+'';

{dm.COM.CommandText:='Insert into temp (kl) values ('+id_kl+')';}

dm.COM.Execute;

tmp:=dm.temp.Fields[0].AsString;

30

ind:=1;

edkl.e1.Text:=dm.Kl.Fields[1].AsString;

edkl.e2.Text:=dm.Kl.Fields[2].AsString;

edkl.e3.Text:=dm.Kl.Fields[3].AsString;

edkl.e4.Text:=dm.Kl.Fields[4].AsString;

edkl.dtp1.Date:=dm.Kl.Fields[5].AsDateTime;

edkl.dtp2.Date:=dm.Kl.Fields[6].AsDateTime;

edkl.ShowModal;

end;

procedure TKlient.e1Change(Sender: TObject); begin

dm.Kl.Active:=false;

dm.Kl.CommandText:='SELECT * FROM KLIENT WHERE fio_kl like "'+e1.Text+'%"';

dm.Kl.Active:=true;

end;

procedure TKlient.ToolButton3Click(Sender: TObject); begin

dm.Kl.Active:=false;

dm.Kl.CommandText:='SELECT * FROM KLIENT WHERE fio_kl like "'+e1.Text+'%" ORDER BY dataR_kl';

dm.Kl.Active:=true;

end;

procedure TKlient.ToolButton5Click(Sender: TObject); begin

dm.Kl.Active:=false;

dm.Kl.CommandText:='SELECT * FROM KLIENT WHERE fio_kl like "'+e1.Text+'%" ORDER BY dataR_kl DESC';

dm.Kl.Active:=true;

end;

procedure TKlient.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin dm.Kl.Active:=false; e1.Text:='';

close;

end;

procedure TKlient.N2Click(Sender: TObject); begin

{---------!!!-----------} dm.temp.Active:=false;

dm.temp.CommandText:='SELECT * FROM klient WHERE (id_kl = '+id_kl+') AND (log_kl = TRUE)';

dm.temp.Active:=true;

if dm.temp.RecordCount>0 then begin

showmessage('Информация о Вас в данный момент редактируется');

exit;

end; {---------!!!-----------}

if application.MessageBox('Вы хотите удалить запись?','Удаление', mb_yesno+mb_iconquestion)=idyes then

begin

dm.COM.CommandText:='DELETE * FROM klient WHERE id_kl = '+dm.Kl.Fields[0].AsString+'';

dm.COM.Execute;

dm.Kl.Requery(); end

end;

procedure TKlient.N5Click(Sender: TObject); begin

{---------!!!-----------} dm.temp.Active:=false;

dm.temp.CommandText:='SELECT * FROM temp WHERE (kl = '+dm.Kl.Fields[0].AsString+')';

dm.temp.Active:=true;

if dm.temp.RecordCount>0 then begin

showmessage('Запись занята другим пользователем'); exit;

end else

begin

dm.COM.CommandText:='Insert into temp (kl) values ('+dm.Kl.Fields[0].AsString+')';

dm.COM.Execute;

tmp:=dm.temp.Fields[0].AsString;

end; {---------!!!-----------}

vopr.ToolButton8.Visible:=false;

end;

procedure TKlient.N7Click(Sender: TObject); begin

if dm.Kl.Fields[7].AsBoolean=false then begin

showmessage('Теория не сдана'); exit;

end;

vidP.ShowModal;

end;

end.

unit fedkl;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ComCtrls;

type

Tedkl = class(TForm) GroupBox1: TGroupBox; e1: TEdit;

Label1: TLabel;

Label2: TLabel; e2: TEdit;

GroupBox2: TGroupBox; e3: TEdit;

e4: TEdit; Label3: TLabel; Label4: TLabel;

dtp1: TDateTimePicker; dtp2: TDateTimePicker; Label5: TLabel; Label6: TLabel; BitBtn1: TBitBtn; BitBtn2: TBitBtn;

procedure FormCloseQuery(Sender: TObject; var CanClose:

Boolean);

procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject);

private

{Private declarations } public

{Public declarations } end;

var

edkl: Tedkl;

implementation uses datm;

{$R *.dfm}

procedure Tedkl.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

dm.COM.CommandText:='UPDATE klient SET log_kl=FALSE WHERE id_kl='+dm.Kl.Fields[0].AsString+'';

dm.COM.Execute;

tmp:='0';

e1.Text:='';

31