Fórum Receita do bolo de um simples form de login #320518

/* Table: LOGIN, Owner: SYSDBA */

CREATE TABLE "LOGIN"
(
  "CODIGO"INTEGER NOT NULL,
  "NOME"VARCHAR(100) NOT NULL,
  "SENHA"VARCHAR(10) NOT NULL,  
CONSTRAINT "PK_LOGIN" PRIMARY KEY ("CODIGO")
);

unit U_Login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, DB, IBDatabase, IBCustomDataSet;

type
  TLogin = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit_Usuario: TEdit;
    Label2: TLabel;
    Edit_Senha: TEdit;
    Btn_Ok: TButton;
    Btn_Cancelar: TButton;
    Image1: TImage;
    Qry_Login: TIBDataSet;
    IntegerField1: TIntegerField;
    IBStringField1: TIBStringField;
    IBStringField2: TIBStringField;
    IBStringField3: TIBStringField;
    IBStringField4: TIBStringField;
    IBStringField5: TIBStringField;
    IBStringField6: TIBStringField;
    DB_Login: TIBDatabase;
    Tr_Login: TIBTransaction;
    DS_Login: TDataSource;
    procedure Btn_OkClick(Sender: TObject);
    procedure Btn_CancelarClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
    
  end;

var
  Login: TLogin;
  wFechar : Boolean;

implementation

uses U_Principal, U_DM;

{$R *.dfm}



procedure TLogin.Btn_OkClick(Sender: TObject);
begin

    with Qry_Login do
    begin
        Close;
        SelectSQL.Clear;
        SelectSQL.add(´SELECT * FROM Login WHERE NOME =:User and SENHA =:Pass ´ );
        ParamByName(´User´).AsString:=Edit_Usuario.Text;
        ParamByName(´Pass´).AsString:=Edit_Senha.Text;
        open;
    if IsEmpty then
    begin
        MessageDlg(´Usuário ou Senha Inválidos´,MtError,[MbOk],0);
        Edit_Usuario.Clear;
        Edit_Senha.Clear;
        Edit_Usuario.Setfocus;
        Exit;
    end
      else
        begin
            wFechar := True;
            Login.Close;
            Principal.Show;
            Principal.StatusBar1.SimpleText := Edit_Usuario.Text;
            Edit_Usuario.Clear;
            Edit_Senha.Clear;
        end;
    end;
end;

procedure TLogin.Btn_CancelarClick(Sender: TObject);
begin
    Application.Terminate;
end;

procedure TLogin.FormCreate(Sender: TObject);
begin
    wFechar := False;
end;

procedure TLogin.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
    CanClose := wFechar;
end;

end.

 Login := TLogin.Create(nil);
 Login.ShowModal;