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

end;

unit aMarka;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TFaMarka = class(TForm) Panel1: TPanel;

Label2: TLabel; e1: TEdit; Button1: TButton; Button2: TButton;

procedure Button2Click(Sender: TObject);

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

procedure Button1Click(Sender: TObject); private

{Private declarations } public

{Public declarations } end;

var

FaMarka: TFaMarka;

implementation

uses datm;

{$R *.dfm}

procedure TFaMarka.Button2Click(Sender: TObject); begin

closequery;

end;

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

begin e1.Clear;

if tm=1 then begin

dm.com.CommandText:='Update marka set log_mr=FALSE WHERE (id_mr='+tmp+')';

dm.com.Execute;

end;

close;

end;

procedure TFaMarka.Button1Click(Sender: TObject); begin

if (e1.Text='')then showmessage('Вы не заполнили одно или несколько полей')

else begin

if tm=0 then begin

dm.temp.Active:=false; dm.temp.CommandText:='Select id_mr from marka

where (nazv_mr="'+e1.Text+'")'; dm.temp.Active:=true;

if dm.temp.RecordCount>0 then showmessage('Подобная запись уже существует')

else begin

dm.com.CommandText:='Insert into marka (nazv_mr) values ("'+e1.Text+'")';

dm.com.Execute;

showmessage('Запись успешно добавлена'); dm.mr.Requery();

closequery;

end;

end else

begin dm.temp.Active:=false;

dm.temp.CommandText:='Select id_mr from marka where (nazv_mr="'+e1.Text+'")';

dm.temp.Active:=true;

if (dm.temp.RecordCount>0) and (tmp<>dm.temp.Fields[0].asstring) then showmessage('Подобная запись уже существует')

else begin

dm.com.CommandText:='Update marka SET nazv_mr="'+e1.Text+'" WHERE (id_mr='+tmp+')';

dm.com.Execute;

showmessage('Запись успешно изменена'); dm.mr.Requery();

dm.mr.recno:=ind;

closequery;

end;

end;

end;

end;

unit apOtkaz;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TFapOtkaz = class(TForm) Panel1: TPanel;

Label2: TLabel; e1: TEdit; Button1: TButton; Button2: TButton;

procedure Button2Click(Sender: TObject);

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

procedure Button1Click(Sender: TObject); private

{Private declarations } public

{Public declarations } end;

var

FapOtkaz: TFapOtkaz;

implementation

uses datm;

{$R *.dfm}

procedure TFapOtkaz.Button2Click(Sender: TObject); begin

closequery;

end;

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

begin e1.Clear;

if tm=1 then begin

dm.com.CommandText:='Update potkaz set log_po=FALSE WHERE (id_po='+tmp+')';

dm.com.Execute;

end;

close;

end;

procedure TFapOtkaz.Button1Click(Sender: TObject); begin

32

if (e1.Text='')then showmessage('Вы не заполнили одно или несколько полей')

else begin

if tm=0 then begin

dm.temp.Active:=false; dm.temp.CommandText:='Select id_po from potkaz

where (nazv_po="'+e1.Text+'")'; dm.temp.Active:=true;

if dm.temp.RecordCount>0 then showmessage('Подобная запись уже существует')

else begin

dm.com.CommandText:='Insert into potkaz (nazv_po) values ("'+e1.Text+'")';

dm.com.Execute;

showmessage('Запись успешно добавлена'); dm.po.Requery();

closequery;

end; end

else begin

dm.temp.Active:=false; dm.temp.CommandText:='Select id_po from potkaz

where (nazv_po="'+e1.Text+'")'; dm.temp.Active:=true;

if (dm.temp.RecordCount>0) and

(tmp<>dm.temp.Fields[0].asstring) then showmessage('Подобная запись уже существует')

else begin

dm.com.CommandText:='Update potkaz SET nazv_po="'+e1.Text+'" WHERE (id_po='+tmp+')';

dm.com.Execute;

showmessage('Запись успешно изменена'); dm.po.Requery();

dm.po.recno:=ind;

closequery;

end;

end;

end;

end;

unit aStOsmotra;

interface

uses

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

Dialogs, ComCtrls, StdCtrls, ExtCtrls,math;

type

TFaStOsmotra = class(TForm) Panel1: TPanel;

Label2: TLabel; e1: TEdit; Button1: TButton; Button2: TButton; Label1: TLabel;

dtp1: TDateTimePicker;

procedure Button2Click(Sender: TObject);

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

procedure FormShow(Sender: TObject); procedure Button1Click(Sender: TObject);

procedure e1KeyPress(Sender: TObject; var Key:

Char);

private

{Private declarations } public

{Public declarations } end;

var

FaStOsmotra: TFaStOsmotra;

implementation

uses datm, main;

{$R *.dfm}

procedure TFaStOsmotra.Button2Click(Sender:

TObject);

begin closequery; end;

procedure TFaStOsmotra.FormCloseQuery(Sender:

TObject;

var CanClose: Boolean); begin

e1.Clear;

if tm=1 then begin

dm.com.CommandText:='Update stosmotra set log_so=FALSE WHERE (id_so='+tmp+')';

dm.com.Execute;

end;

close;

end;

procedure TFaStOsmotra.FormShow(Sender: TObject); begin

if tm=0 then dtp1.Date:=date; end;

procedure TFaStOsmotra.Button1Click(Sender:

TObject);

begin

if (e1.Text='')then showmessage('Вы не заполнили одно или несколько полей')

else begin try

e1.Text:=floattostr( roundto( strtofloat(e1.Text),-2) ); except

showmessage('Ошибка при вводе числовых

значений');

exit;

end;

if tm=0 then begin

dm.temp.Active:=false; dm.temp.CommandText:='Select id_so from

StOsmotra where (dataN_so=#'+fmain.data(dtp1.date)+'#)'; dm.temp.Active:=true;

if dm.temp.RecordCount>0 then showmessage('Подобная запись уже существует')

else begin

dm.com.CommandText:='Insert into stosmotra (datan_so,st_so) values ("'+datetostr(dtp1.Date)+'","'+e1.text+'")';

dm.com.Execute;

showmessage('Запись успешно добавлена'); dm.so.Requery();

closequery;

end; end

else begin

dm.temp.Active:=false; dm.temp.CommandText:='Select id_so from

StOsmotra where (dataN_so=#'+fmain.data(dtp1.date)+'#)'; dm.temp.Active:=true;

if (dm.temp.RecordCount>0) and

(tmp<>dm.temp.Fields[0].asstring) then showmessage('Подобная запись уже существует')

else begin

dm.com.CommandText:='Update stosmotra SET datan_so="'+datetostr(dtp1.date)+'",st_so="'+e1.text+'" WHERE (id_so='+tmp+')';

33

dm.com.Execute;

showmessage('Запись успешно изменена'); dm.so.Requery();

dm.so.recno:=ind;

closequery;

end;

end;

end;

end;

procedure TFaStOsmotra.e1KeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in [#8, '0'..'9',',']) then begin

Key := #0; end

end;

unit aVlad;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TFaVlad = class(TForm) Panel1: TPanel; Label2: TLabel;

e1: TEdit; Button1: TButton; Button2: TButton; Label1: TLabel; e2: TEdit; Label3: TLabel; e3: TEdit;

procedure Button2Click(Sender: TObject);

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

procedure Button1Click(Sender: TObject);

procedure e2KeyPress(Sender: TObject; var Key:

Char);

procedure e3KeyPress(Sender: TObject; var Key:

Char);

procedure e1KeyPress(Sender: TObject; var Key:

Char);

private

{Private declarations } public

{Public declarations } end;

var

FaVlad: TFaVlad;

implementation

uses datm;

{$R *.dfm}

procedure TFaVlad.Button2Click(Sender: TObject); begin

closequery;

end;

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

begin e1.Clear;e2.Clear;e3.Clear; if tm=1 then

begin

dm.com.CommandText:='Update vlad set log_vl=FALSE WHERE (id_vl='+tmp+')';

dm.com.Execute;

end;

close;

end;

procedure TFaVlad.Button1Click(Sender: TObject); begin

if (e1.Text='')or (e2.Text='') or (e3.Text='') then showmessage('Вы не заполнили одно или несколько полей')

else begin

if length(e2.Text)<>4 then begin

showmessage('Серия паспорта состоит из 4х

символов');

exit;

end;

if length(e3.Text)<>6 then begin

showmessage('Серия паспорта состоит из 6

символов');

exit;

end;

if tm=0 then begin

dm.temp.Active:=false; dm.temp.CommandText:='Select id_vl from vlad

where (sp_vl='+e2.Text+') and (np_vl='+e3.text+')'; dm.temp.Active:=true;

if dm.temp.RecordCount>0 then showmessage('Подобная запись уже существует')

else begin

dm.com.CommandText:='Insert into vlad (fio_vl,sp_vl,np_vl) values ("'+e1.Text+'",'+e2.text+','+e3.text+')';

dm.com.Execute;

showmessage('Запись успешно добавлена'); dm.vl.Requery();

closequery;

end; end

else begin

dm.temp.Active:=false; dm.temp.CommandText:='Select id_vl from vlad

where (sp_vl='+e2.Text+') and (np_vl='+e3.text+')'; dm.temp.Active:=true;

if (dm.temp.RecordCount>0) and (tmp<>dm.temp.Fields[0].asstring) then showmessage('Подобная запись уже существует')

else begin

dm.com.CommandText:='Update vlad SET fio_vl="'+e1.Text+'",sp_vl="'+e2.text+'",np_vl="'+e3.text+'" WHERE (id_vl='+tmp+')';

dm.com.Execute;

showmessage('Запись успешно изменена'); dm.vl.Requery();

dm.vl.recno:=ind;

closequery;

end;

end;

end;

end;

procedure TFaVlad.e2KeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in [#8, '0'..'9']) then begin

Key := #0; end

else if (trim(e2.Text)='') and (key='0') then key:=#0; end;

procedure TFaVlad.e3KeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in [#8, '0'..'9']) then begin

Key := #0;

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

exit;

end;

tmp:=dm.av.Fields[0].AsString;tm:=1;

if fmain.Delete('av','avto',tmp)=false then begin

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

exit; end

else dm.av.Requery(); end;

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

begin e1.Clear;e2.Clear; dm.av.Active:=false; end;

procedure TFavto.e1Change(Sender: TObject); begin

dm.av.Active:=false;

dm.av.CommandText:='Select id_av,([fio_vl]&", "&[sp_vl]&"-"&[np_vl]) as vl,nazv_mr,gosN_av,datapu_av,datapto_av,dataplan_av,god_av from avto,marka,vlad where (id_vl=id_vl_av) and (id_mr=id_mr_av) and (([fio_vl]&", "&[sp_vl]&"-"&[np_vl]) like "'+e1.Text+'%") and (gosN_av like "'+e2.Text+'%")';

dm.av.Active:=true;

end;

procedure TFavto.e2Change(Sender: TObject); begin

dm.av.Active:=false;

dm.av.CommandText:='Select id_av,([fio_vl]&", "&[sp_vl]&"-"&[np_vl]) as vl,nazv_mr,gosN_av,datapu_av,datapto_av,dataplan_av,god_av from avto,marka,vlad where (id_vl=id_vl_av) and (id_mr=id_mr_av) and (gosN_av like "'+e2.Text+'%") and (([fio_vl]&", "&[sp_vl]&"-"&[np_vl]) like "'+e1.Text+'%")';

dm.av.Active:=true;

end;

procedure TFavto.Button4Click(Sender: TObject); begin

dm.av.Active:=false;

dm.av.CommandText:='Select id_av,([fio_vl]&", "&[sp_vl]&"-"&[np_vl]) as vl,nazv_mr,gosN_av,datapu_av,datapto_av,dataplan_av,god_av from avto,marka,vlad where (id_vl=id_vl_av) and (id_mr=id_mr_av) and (gosN_av like "'+e2.Text+'%") and (([fio_vl]&", "&[sp_vl]&"-"&[np_vl]) like "'+e1.Text+'%") ORDER BY god_av';

dm.av.Active:=true;

end;

procedure TFavto.Button5Click(Sender: TObject); begin

dm.av.Active:=false;

dm.av.CommandText:='Select id_av,([fio_vl]&", "&[sp_vl]&"-"&[np_vl]) as vl,nazv_mr,gosN_av,datapu_av,datapto_av,dataplan_av,god_av from avto,marka,vlad where (id_vl=id_vl_av) and (id_mr=id_mr_av) and (gosN_av like "'+e2.Text+'%") and (([fio_vl]&", "&[sp_vl]&"-"&[np_vl]) like "'+e1.Text+'%") ORDER BY dataplan_av';

dm.av.Active:=true;

end;

procedure TFavto.e2KeyPress(Sender: TObject; var Key: Char);

begin

if length(e2.Text)=0 then begin

if not (Key in [#8,'а'..'я']) then key:=#0; end

else if (length(e2.Text)>=1) and (length(e2.Text)<=3)

then

begin

if not (Key in [#8,'0'..'9']) then key:=#0;

end

else if (length(e2.Text)>=4) then begin

if not (Key in [#8,'а'..'я']) then key:=#0; end;

end;

procedure TFavto.Button6Click(Sender: TObject); begin

if dm.av.Fields[0].AsString='' then begin

showmessage('Запись отсутствует'); exit;

end; id_av:=dm.av.Fields[0].AsString;

{if (dm.av.FieldByName('datapto_av').AsString<>'')

and (monthsbetween(dm.av.FieldByName('datapto_av').AsDateTime,d ate)<3) then

begin

showmessage('С последнего ТО прошло меньше 3х

месяцев');

exit;

end; if

(monthsbetween(dm.av.FieldByName('dataplan_av').AsDateTime, date)>3) then

begin

if application.MessageBox('До техосмотра еще больше 3х месяцев'+#13+'Вы хотите пройти его сейчас?','Техосмотр',mb_yesno+mb_iconquestion)=idno then exit;

end; } faOsmotr.cb1.clear; dm.temp.Active:=false;

dm.temp.CommandText:='Select nazv_po from

pOtkaz';

dm.temp.Active:=true; while not dm.temp.Eof do

begin faOsmotr.cb1.items.add(dm.temp.fields[0].asstring); dm.temp.Next;

end; faOsmotr.Label6.Caption:=dm.av.fieldbyname('vl').AsS

tring;

faOsmotr.Label2.Caption:=dm.av.fieldbyname('gosN_a v').AsString;

faOsmotr.Label5.Caption:=datetostr(date);

dm.temp.Active:=false; dm.temp.CommandText:='Select st_so from StOsmotra

where (datan_so <=#'+fmain.data(date)+'#) ORDER BY datan_so DESC';

dm.temp.Active:=true;

if dm.temp.Fields[0].AsString='' then begin

showmessage('Отсутствует стоимость техосмотра на заданную дату');

exit end

else faOsmotr.label8.caption:=dm.temp.Fields[0].AsString;

faOsmotr.cb2.text:='Да';faOsmotr.cb2Change(sender); faosmotr.ShowModal;

end;

unit chPass; interface

uses

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

Dialogs, StdCtrls, ExtCtrls; type

TFchPass = class(TForm) Panel1: TPanel;

Label1: TLabel;

Label2: TLabel; cb1: TComboBox; e1: TEdit;

36

Button1: TButton;

Button2: TButton; Label3: TLabel; e2: TEdit;

procedure FormShow(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject);

procedure cb1KeyPress(Sender: TObject; var Key:

Char);

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

private

{Private declarations } public

{Public declarations } end;

var

FchPass: TFchPass; implementation

uses datm; {$R *.dfm}

procedure TFchPass.FormShow(Sender: TObject); begin

dm.temp.Active:=false; dm.temp.CommandText:='Select login from pass

WHERE (login<>"Гость") order by login'; dm.temp.Active:=true;

while not dm.temp.Eof do begin

cb1.Items.Add(dm.temp.Fields[0].AsString);

dm.temp.Next;

end;

end;

procedure TFchPass.Button2Click(Sender: TObject);

begin closequery; end;

procedure TFchPass.Button1Click(Sender: TObject); begin

if cb1.Text='' then showmessage('Вы не выбрали имя пользователя')

else if e1.Text='' then showmessage('Вы не ввели новый пароль')

else if e2.Text='' then showmessage('Вы не ввели подтверждение пароля')

else if e1.Text<>e2.Text then showmessage('Пароль и подтверждение пароля не совпадают')

else begin

dm.com.Commandtext:='Update pass Set pass="'+e2.Text+'" where (login = "'+cb1.Text+'")';

dm.com.Execute; showmessage('Пароль изменен'); closequery;

end;

end;

procedure TFchPass.cb1KeyPress(Sender: TObject; var Key: Char);

begin key:=#0; end;

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

begin cb1.Clear;e1.Clear;e2.Clear; close;

end;

end.