Основное окно программы

 

unit Unit3;

 

interface

 

uses

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

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

 

type

TForm2 = class(TForm)

GroupBox1: TGroupBox;

Label2: TLabel;

Label1: TLabel;

Button1: TButton;

Button2: TButton;

Edit2: TEdit;

Edit1: TEdit;

GroupBox2: TGroupBox;

Label4: TLabel;

Label3: TLabel;

Label5: TLabel;

Label6: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

Button3: TButton;

Edit3: TEdit;

GroupBox3: TGroupBox;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

DBGrid1: TDBGrid;

DBEdit5: TDBEdit;

GroupBox4: TGroupBox;

Button4: TButton;

DBEdit4: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBNavigator1: TDBNavigator;

GroupBox5: TGroupBox;

Button5: TButton;

Edit4: TEdit;

BitBtn2: TBitBtn;

Button6: TButton;

BitBtn1: TBitBtn;

BitBtn3: TBitBtn;

procedure BitBtn2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

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

procedure Button5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form2: TForm2;

n:integer;

f:textfile;

implementation

 

uses Unit2, Unit4, Unit1, Unit6;

 

{$R *.dfm}

 

procedure TForm2.BitBtn2Click(Sender: TObject);

begin

GroupBox1.Enabled:=True;

GroupBox3.Enabled:=False;

end;

 

procedure TForm2.BitBtn3Click(Sender: TObject);

var z,x,c,v,b,w,m,a,s,d,q,g,h,j,p,l:string;

begin

z:='hasdgu384gj'; c:='tavg45dsa2sn';

b:='tsfau4023ma'; m:='r301je2sagfg';

s:='34auwaetvvw'; q:='3diuwa4v85e3';

h:='hfgfdv3sdaf'; p:='hfavw4w5vfds';

x:='15345624512'; v:='15825312456';

w:='12386562338'; a:='86153456481';

d:='18556236214'; g:='78587656459';

j:='84452188245'; l:='45821341561';

if ((Edit1.Text=z)and(Edit2.Text=x))or

((Edit1.Text=c)and(Edit2.Text=v))or

((Edit1.Text=b)and(Edit2.Text=w))or

((Edit1.Text=m)and(Edit2.Text=a))or

((Edit1.Text=s)and(Edit2.Text=d))or

((Edit1.Text=q)and(Edit2.Text=g))or

((Edit1.Text=h)and(Edit2.Text=j))or

((Edit1.Text=p)and(Edit2.Text=l)) then

begin

AssignFile(f,'configurations.dll');

Reset(f);

Read(f,n);

n:=n+99999999;

Rewrite(f);

Write(f,n);

CloseFile(f);

Application.MessageBox('Благодарим за приобретение полной версии программы','Поздравляем!',MB_OK+MB_ICONINFORMATION);

end else begin

Application.MessageBox('Вы неверно ввели Login или Пароль','Внимание',MB_OK+MB_ICONERROR);

Edit1.Clear;

Edit2.Clear;

end;

end;

 

procedure TForm2.Button1Click(Sender: TObject);

Label 1,2; Var i,k:integer;

begin

if ((((Edit1.Text='Админ')or(Edit1.Text='админ')or(Edit1.Text='Admin')or(Edit1.Text='admin')))

or(Edit4.Text=Edit4.Text))and(Edit2.Text=DBEdit4.Text) then begin

Application.MessageBox('Добро пожаловать Администратор!','Здравствуй',MB_OK+MB_ICONINFORMATION);

GroupBox3.Enabled:=True; GroupBox1.Enabled:=False;

goto 1; end; Dat.ADOTable1.First;

for i:= 0 to Dat.ADOTable1.RecordCount-1 do begin Dat.ADOTable1.Edit;

if (Edit1.Text=DBEdit1.Text) and (Edit2.Text=DBEdit3.Text) then begin

k:=1; goto 2; end else k:=0; Dat.ADOTable1.Next;

end;

2: if k=1 then begin

Application.MessageBox('Добро пожаловать!','Вход',MB_OK+MB_ICONINFORMATION);

Form6.Show;

if FileSearch('configurations.dll','')<> 'configurations.dll' then

begin

AssignFile(f,'configurations.dll');

Rewrite(f);

Write(f,'6');

CloseFile(f);

end else begin

AssignFile(f,'configurations.dll');

Reset(f);

Read(f,n);

if n=0 then Application.MessageBox('Закончился срок использования дэмо-версии программы','Внимание!',MB_OK+MB_ICONERROR);

if n<=0 then Form3.Close;

n:=n-1;

Rewrite(f);

Write(f,n);

CloseFile(f);

if n=5 then Application.MessageBox('Данная программа является дэмо-версией','Внимание!',MB_OK+MB_ICONINFORMATION);

if n=5 then Application.MessageBox('Cрок использования дэмо-версии программы: 5 запусков','Внимание!',MB_OK+MB_ICONINFORMATION);

if n=4 then Application.MessageBox('Cрок использования дэмо-версии программы: 4 запускa','Внимание!',MB_OK+MB_ICONINFORMATION);

if n=3 then Application.MessageBox('Cрок использования дэмо-версии программы: 3 запускa','Внимание!',MB_OK+MB_ICONINFORMATION);

if n=2 then Application.MessageBox('Cрок использования дэмо-версии программы: 2 запускa','Внимание!',MB_OK+MB_ICONINFORMATION);

if n=1 then Application.MessageBox('Cрок использования дэмо-версии программы: 1 запуск','Внимание!',MB_OK+MB_ICONINFORMATION);

end;

Dat.ADOTable1.Edit;

DBEdit5.Text:=inttostr(strtoint(DBEdit5.Text)+1);

end else Application.MessageBox('Не верный Логин или пароль!','Ошибка',MB_OK+MB_ICONERROR);

Edit1.Clear; Edit2.Clear;

1: end;

 

 

procedure TForm2.Button2Click(Sender: TObject);

begin

GroupBox2.Enabled:=True;

Dat.ADOTable1.Insert;

GroupBox1.Enabled:=False;

end;

 

procedure TForm2.Button3Click(Sender: TObject);

begin

if((DBEdit1.Text='')or(DBEdit2.Text='')or(DBEdit3.Text='')) then

begin Application.MessageBox('Введите все необходимые данные!','Внимание',MB_OK+MB_ICONERROR)

end else begin

if Edit3.Text=DBEdit3.Text then begin

Dat.ADOTable1.Edit;

DBEdit5.Text:='1';

Dat.ADOTable1.Post;

Application.MessageBox('Вы успешно зарегистрированы!','Поздравляем',MB_OK+MB_ICONINFORMATION);

GroupBox1.Enabled:=True;

GroupBox2.Enabled:=False;

end else

begin

Edit3.Clear;

DBEdit3.Clear;

Application.MessageBox('Пароли не совпадают','Ошибка',MB_OK+MB_ICONERROR);

end;

end;

end;

 

procedure TForm2.Button4Click(Sender: TObject);

begin

Dat.ADOTable2.Post;

end;

 

procedure TForm2.Button5Click(Sender: TObject);

begin

 

end;

 

procedure TForm2.Button6Click(Sender: TObject);

begin

Form3.Show;

Form1.Visible:=False;

end;

 

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

begin

Form1.Visible:=True;

end;

 

end.

Редактирование базы данных через администратора:

unit Unit4;

 

interface

 

uses

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

Dialogs, StdCtrls, ComCtrls, DBCtrls, Grids, DBGrids, Mask, ExtCtrls, jpeg, ShellAPI,

Menus;

 

type

TForm3 = class(TForm)

DBGrid1: TDBGrid;

DBRichEdit1: TDBRichEdit;

Button1: TButton;

PrintDialog1: TPrintDialog;

DBNavigator1: TDBNavigator;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Image1: TImage;

DBGrid2: TDBGrid;

GroupBox1: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

Edit1: TEdit;

RadioButton4: TRadioButton;

DBNavigator2: TDBNavigator;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

HELP1: TMenuItem;

procedure FormActivate(Sender: TObject);

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

procedure Button1Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure HELP1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form3: TForm3;

 

implementation

 

uses Unit3, Unit5;

 

{$R *.dfm}

 

procedure TForm3.Button1Click(Sender: TObject);

var f:string;

begin

if PrintDialog1.Execute then DBRichEdit1.Print(f);

 

end;

 

procedure TForm3.Edit1Change(Sender: TObject);

begin

DBGrid2.DataSource:=Data.DataSource11;

DBNavigator2.DataSource:=Data.DataSource11;

begin

if RadioButton1.Checked then begin

Data.ADOQuery1.Active:=false;

Data.ADOQuery1.SQL.Clear;

Data.ADOQuery1.SQL.ADD('Select *');

Data.ADOQuery1.SQL.ADD('FROM Общая');

Data.ADOQuery1.SQL.ADD('where Адрес Like('+#39+Edit1.Text+'%'+#39+')');

Data.ADOQuery1.Active:=true;

end;

if RadioButton2.Checked then begin

Data.ADOQuery1.Active:=false;

Data.ADOQuery1.SQL.Clear;

Data.ADOQuery1.SQL.ADD('Select *');

Data.ADOQuery1.SQL.ADD('FROM Общая');

Data.ADOQuery1.SQL.ADD('where Название Like('+#39+Edit1.Text+'%'+#39+')');

Data.ADOQuery1.Active:=true;

end;

if RadioButton3.Checked then begin

Data.ADOQuery1.Active:=false;

Data.ADOQuery1.SQL.Clear;

Data.ADOQuery1.SQL.ADD('Select *');

Data.ADOQuery1.SQL.ADD('FROM Общая');

Data.ADOQuery1.SQL.ADD('where Фирма Like('+#39+Edit1.Text+'%'+#39+')');

Data.ADOQuery1.Active:=true;

end;

if RadioButton4.Checked then begin

Data.ADOQuery1.Active:=false;

Data.ADOQuery1.SQL.Clear;

Data.ADOQuery1.SQL.ADD('Select *');

Data.ADOQuery1.SQL.ADD('FROM Общая');

Data.ADOQuery1.SQL.ADD('where Телефон Like('+#39+Edit1.Text+'%'+#39+')');

Data.ADOQuery1.Active:=true;

end;

end;

end;

 

procedure TForm3.FormActivate(Sender: TObject);

begin

Form2.visible:=False;

end;

 

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

begin

Form2.Visible:=True;

end;

 

procedure TForm3.HELP1Click(Sender: TObject);

begin

ShellExecute(handle,nil,'Help.chm',nil,nil,sw_restore);

end;

 

end.