Форум: "Базы";
Текущий архив: 2011.12.25;
Скачать: [xml.tar.bz2];

Вниз

реализация проверки пользователей   Найти похожие ветки 

← →
Mihonius   (2010-03-20 19:00) [0]

Здравствуйте!
Задача: реализовать проверку пользователя для запуска программы.
База пользователей:

unit Users;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ExtCtrls, DBCtrls, DBTables, DB, Grids, DBGrids;
type
 TForm4 = class(TForm)
   DBGrid1: TDBGrid;
   DataSource_User: TDataSource;
   Table_User: TTable;
   DBNavigator1: TDBNavigator;
   Button1: TButton;
   Table_UserЛогин: TStringField;
   Table_UserПароль: TStringField;
   procedure Button1Click(Sender: TObject);
   private
   { Private declarations }
 public
   { Public declarations }
 end;
var
 Form4: TForm4;
implementation
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
close;
end;
end.


Форма ввода:

unit Login;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls, Buttons, ExtCtrls, jpeg, DB, DBTables;

type
 TForm2 = class(TForm)
   Panel1: TPanel;
   BitBtn1: TBitBtn;
   BitBtn2: TBitBtn;
   Label1: TLabel;
   Label2: TLabel;
   login_edit: TEdit;
   password_edit: TEdit;
   Label3: TLabel;
   Image1: TImage;
   Button1: TButton;
   Table_user: TTable;
   Query1: TQuery;
   DataSource1: TDataSource;
   Query1Логин: TStringField;
   Query1Пароль: TStringField;
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
   procedure BitBtn1Click(Sender: TObject);
   procedure BitBtn2Click(Sender: TObject);
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form2: TForm2;

implementation

uses Main;

{$R *.DFM}

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

begin
 if  Form2.ModalResult=mrOk then //если пользователь нажал на кнопку Ok, то
         if (login_edit.Text<>"") and (password_edit.Text<>"") then //поля не пустые
               begin
     //////////////
вот тут и должна быть проверка введенного в форму с записями в базе, накидайте код, я уже запутался. можно с помощью Query, я пробовал такого натворил вообще запускаться перестала
//////////////////////////////////////////////////////////////////////        

          end
          else Showmessage("Пароль неверный!");

          Application.Terminate;
         {если все вышеуказанные условия не выполняются,
          то остановить программу}

end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
Form2.ModalResult:=mrOk; //результат работы этого окна
Close; //закрыть это окно
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
Form2.ModalResult:=mrCancel; //результат работы этого окна
Close; //закрыть это окно
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
Messagedlg("Введите Ваш Логин и пароль!",mtinformation,[mbOk],0);
end;

end.


---

← →
Виталий Панасенко(дом)   (2010-03-20 20:54) [1]

>      //////////////
> вот тут и должна быть проверка введенного в форму с записями
> в базе, накидайте код, я уже запутался. можно с помощью
> Query, я пробовал такого натворил вообще запускаться перестала
> //////////////////////////////////////////////////////////////////////
>        

Совковой лопатой или штыковой?

---

← →
YurikGL ©   (2010-03-21 14:10) [2]

> Задача: реализовать проверку пользователя для запуска программы.

Только другой программой :)

---

← →
Sergey13 ©   (2010-03-22 09:45) [3]

> [0] Mihonius   (20.03.10 19:00)
> Paradox

Возьми нормальную СУБД и не парься. Тем более для многопользовательской БД.

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2011.12.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.003 c