Форум: "Базы";
Текущий архив: 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