BABAYKA
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Всем добрый день..... ....на 76 стр. просил о хэлпе по правильномы закрытию всего приложения, в результате чего все переделал как подсказал vshersh (спасибо большое). Все работает прекрасно форма для ввода данных юзера и появляется и закрывается.......а коннекта к базе нет. Вторые сутки бьюсь и ни как....Понимаю....видимо руки у меня кривые... Но этим делу не поможешь. Подскажите , плиз, где ошибка? Что не правильно? Вот код формы данных юзера:
unit Login;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DMod;
type
TFLogin = class(TForm)
Label1: TLabel;
Label2: TLabel;
EdLogin: TEdit;
EdPassword: TEdit;
BtnOK: TButton;
BtnExit: TButton;
procedure BtnOKClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FLogin: TFLogin;
function IsFLoginOK: Boolean;
implementation
{$R *.dfm}
function IsFLoginOK: Boolean;
begin
with TFlogin.Create(nil) do
try
Result := ShowModal = mrOK;
finally
Free;
end;
end;
procedure TFLogin.BtnOKClick(Sender: TObject);
begin
DataModule1.pFIBDatabase1.ConnectParams.UserName := FLogin.EdLogin.Text;
DataModule1.pFIBDatabase1.ConnectParams.Password := FLogin.EdPassword.Text;
try
DataModule1.pFIBDatabase1.Connected:=True;
DataModule1.pFIBDataSet1.Active:=True;
ModalResult := mrOK;
Except
ModalResult := mrNone;
ShowMessage('hjghjjhjgjhghj');
end;
end;
end. |
