Bom, depois de fazer, refazer e refazer, sempre o mesmo formulário para fazer login dos meus sistemas, criei este que posso colocar em qualquer projeto que utiliza ADO para conexão. E bem simples e fácil. Sei que aqui no fórum existem vários tópicos com relação a isso, mais achei que este é de bom valor, pois pode-se simplesmente chamá-lo no evento oncreate do Formulário principal e pronto! É feito o login no seu banco de dados, no meu caso e feito o login no banco SQL Server.
Criaremos uma unit em branco, vamos salvar com o nome ULogin. Vamos utilizar as seguintes Units na seção de Interface (Forms, StdCtrls, SysUtils, DB, ADODB, Dialogs, UDados*, Classes, Messages, Windows, Controls, IniFiles):
|
unit ULogin; interface uses Forms, StdCtrls, SysUtils, DB, ADODB, Dialogs, UDados, Classes, Messages, Windows, Controls, IniFiles; |
|---|
* - Lembrando que, em meu caso, UDados é a unit de meu DataModule, que será acessado na função Login, para ativar a conexão principal do projeto.
Agora vamos criar nossa classe TLogin, digitando Class e teclando Enter o Delphi fará todo o resto para declarar as seções da nossa classe ficando assim:
|
type |
|---|
