База данных. Автосалон

end; 

procedure TMainForm.N4Click(Sender: TObject);

begin

     MainForm.Hide;

     AboutForm.Show;

end; 

end. 
 

unit Password; 

interface 

uses

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

  Dialogs, StdCtrls; 

  function ChangePass(newpass:String; oldpass:String):boolean;

      function CheckPass(pass:String):boolean; 

implementation 

function ChangePass(newpass:String; oldpass:String):boolean;

var _file     : TextFile;

    password  : string;

begin

     assignfile(_file,'Pass.dat');

     Reset(_file);

     readln(_file,password);

     if ( oldpass = password) then

     begin

          Rewrite(_file);

          Write(_file,newpass);

          CloseFile(_file);

                  Result := true;

     end

     else

     begin

          Result := false;

          CloseFile(_file);

     end;

end; 

function CheckPass(pass:String):boolean;

var _file     : TextFile;

    password  : string;

begin

     assignfile(_file,'Pass.dat');

     Reset(_file);

     readln(_file,password);

     if ( pass = password) then

     begin

                  Result := true;

          CloseFile(_file);

     end

     else

     begin

          Result := false;

          CloseFile(_file);

     end;

end; 

end. 
 

unit ChangePassUnit; 

interface 

uses

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

  Dialogs, StdCtrls; 

type

  TChangePassForm = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    procedure Button1Click(Sender: TObject);

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

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  ChangePassForm: TChangePassForm; 

implementation 

uses Password; 

{$R *.dfm} 

procedure TChangePassForm.Button1Click(Sender: TObject);

var newpass, oldpass : String;

begin

     if Edit2.Text = Edit3.Text then

     begin

          oldpass := Edit1.Text;

          newpass := Edit2.Text;

          if ChangePass(newpass, oldpass) then

             Application.MessageBox('Изменения успешно сохранены!!!','Внимание!!!');

     end

     else Application.MessageBox('Проверьте правильность написания!','Внимание!!!');

end; 

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

begin

     if Application.MessageBox('Вы уверены?','Внимание!!!',MB_OKCANCEL) = 1

        then Application.Terminate

; 

end; 

end. 
 

unit DataUnit; 

interface 

uses

  SysUtils, Classes, DB, ADODB, Menus; 

type

  TDataModule1 = class(TDataModule)

    ADOConnection1: TADOConnection;

    SearchQuery: TADOQuery;

    AvtoSalonTable: TADOTable;

    AvtoSalonSource: TDataSource;

    SearchSource: TDataSource;

    StranaTable: TADOTable;

    StranaSource: TDataSource;

    ModelTable: TADOTable;

    ModelSource: TDataSource;

    SalonTable: TADOTable;

    SalonSource: TDataSource;

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  DataModule1: TDataModule1; 

implementation 

{$R *.dfm} 

end. 
 

unit InUnit; 

interface 

uses

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

  Dialogs, StdCtrls, Mask; 

type

  TInForm = class(TForm)

    Label1: TLabel;

    Button1: TButton;

    Button2: TButton;

    MaskEdit1: TMaskEdit;

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

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

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  InForm: TInForm; 

implementation 

uses MainUnit, Password, AdminUnit; 

{$R *.dfm} 

procedure TInForm.Button1Click(Sender: TObject);

var pass : string;

begin

     pass := MaskEdit1.Text;

         if CheckPass(pass) then

     begin

          InForm.Hide;

          AdminForm.show;

     end

     else Application.MessageBox('Не верно!','Внимание!!!');

     MaskEdit1.Clear;

end; 
 

procedure TInForm.Button2Click(Sender: TObject);

begin

     InForm.Hide;

     MainForm.Show;

end; 

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

begin

     if Application.MessageBox('Вы уверены?','Внимание!!!', MB_OKCANCEL) = 1 then

        Application.Terminate

;

end; 

end.