Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.12.25;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.008 c
4-1252568961
Гриня
2009-09-10 11:49
2011.12.25
Взаимодействие с Opera


15-1314949594
xayam
2011-09-02 11:46
2011.12.25
Распределение нагрузки при загрузке сайта


2-1316422466
Scott Storch
2011-09-19 12:54
2011.12.25
как правильнее организовать доступ к списку из 2-х процедур


15-1315645961
user1987
2011-09-10 13:12
2011.12.25
Каким образом назначен IP?


15-1315750988
Kerk
2011-09-11 18:23
2011.12.25
Попиарю чуток свое творчество :)