Interface

uses

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

Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;

type

TForm4 = class(TForm)

Edit1: TEdit;

Button1: TButton;

Edit2: TEdit;

Button2: TButton;

BitBtn1: TBitBtn;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

pass:string;

tr:boolean;

nop:integer;

Implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

Var f:textfile;

begin

Assignfile(f,'pass.txt');

reset(f);

while not Eof(f) do

begin

Readln(f,pass)

end;

if edit1.text=pass then tr:=true else begin

tr:=false;

nop:=nop+1;

label1.visible:=true;

end;

case nop of

1: label1.caption:='Неправильный пароль, осталось 2 попытки';

2: label1.Caption:='Неправильный пароль, осталось 1 попытка';

3: label1.Caption:='Неправильный пароль, последняя попытка';

4: begin

label1.caption:='Вы заблокированы';

edit1.Visible:=false;

edit1.enabled:=false;

showmessage('Потрачено');

closefile(f);

form4.close;

end;

end;

if tr=true then begin

label1.Visible:=false;

Showmessage('Введите и сохраните новый пароль');

edit1.Visible:=false;

edit1.enabled:=false;

button1.Visible:=false;

button1.Enabled:=false;

Label2.Visible:=true;

Label2.Enabled:=true;

Label3.Visible:=true;

Label3.Enabled:=true;

button2.Visible:=true;

edit2.Visible:=true;

end;

closefile(f);

end;

procedure TForm4.Button2Click(Sender: TObject);

Var f:Textfile;

begin

assignfile(f, 'pass.txt');

rewrite(f);

if edit2.text='' then showmessage('вы не ввели новый пароль')

else write(f, edit2.text);

Showmessage('Пароль успешно изменен! Для сохранение пароля программа будет закрыта , пожалуйста перезайдите');

application.Terminate;

closefile(f);

end;

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

form4.close;

end;

end.

unit Unit6;

Interface

uses

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

Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, DBCtrls, Grids, DBGrids;

type

TForm6 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Label1: TLabel;

Label2: TLabel;

ComboBox1: TComboBox;

BitBtn3: TBitBtn;

Edit1: TEdit;

BitBtn4: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

Implementation

uses Unit5;

{$R *.dfm}

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

try

DataModule5.ADOQuery1.Filtered:=false;

DataModule5.ADOQuery1.Filter:='[Äàòà]>='+QuotedStr(DateToStr(DateTimePicker1.DateTime))+'and [Äàòà]<='+QuotedStr(DateToStr(DateTimePicker2.DateTime))+'';

DataModule5.ADOQuery1.Filtered:=true;

DataModule5.ADOQuery1.Open;

except

on e:Exception do

end;

end;

procedure TForm6.BitBtn2Click(Sender: TObject);

begin

DataModule5.ADOQuery1.Filtered:=false;

end;

procedure TForm6.BitBtn3Click(Sender: TObject);

begin

DataModule5.adoquery1.Active:=false;

DataModule5.adoquery1.SQL.Clear;

DataModule5.adoquery1.SQL.Add('SELECT * FROM Заказ WHERE '+combobox1.text+' LIKE '+QuotedStr('%'+Edit1.Text+'%')+'');

DataModule5.adoquery1.Active:=true;

end;

end.

unit Unit7;