Основное окно программы
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.
|