Como Fazer Um Programa De Senha..

[Guest Marcos Antonio de Aguiar Jr]

Olá a todos...

queria fazer q meu programa entra-se com senha e que dentro do programa depois eu pudesse mudar essa senha, alguém sabe como fazer?

agradeço

Marcos Antonio de Aguair Jr

[DELPHI-Man32]

amigo, escolha um otino nick e registre-se no forum falowss!

aeh está a unita completa do form de login

unit u_login;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls, Buttons, Db, DBTables;

type

Tfm_login = class(TForm)

Table1: TTable;

DataSource1: TDataSource;

Edit1: TEdit;

Edit2: TEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Panel1: TPanel;

CheckBox1: TCheckBox;

Label1: TLabel;

Label2: TLabel;

Panel2: TPanel;

procedure CheckBox1Click(Sender: TObject);

procedure Edit2Change(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fm_login: Tfm_login;

iOK : integer;

implementation

uses u_ajuda_login, u_main;

{$R *.DFM}

procedure Tfm_login.CheckBox1Click(Sender: TObject);

begin

Edit1.Color := clWhite;

Edit2.Color := clWhite;

Edit1.Enabled := True;

Edit2.Enabled := True;

Edit1.SetFocus;

Panel1.Caption := 'Digite seu nome de Usuário e Senha...'

end;

procedure Tfm_login.Edit2Change(Sender: TObject);

begin

BitBtn1.Enabled := True;

end;

procedure Tfm_login.BitBtn2Click(Sender: TObject);

begin

ShowMessage('Não foi possivel efetuar o login ou ação cancelada!');

Application.Terminate;

end;

procedure Tfm_login.BitBtn1Click(Sender: TObject);

begin

if Table1.Locate('Usuario;Senha',

VarArrayOf([Edit1.Text,Edit2.Text]),[]) then

begin

iOK := 625;

Close;

end

else

begin

Panel1.Caption := Edit1.Text +', seus dados estão inválidos!';

Edit1.SetFocus;

end;

end;

procedure Tfm_login.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

if iOK <> 625 then CanClose := False;

end;

end.

-------

no evento OnCreate do Form principal

coloque

fm_login := Tfm_login.Create(self);

fm_login.Showmodal;

isso chamara o form do login...hahahaha!

DELPHI-Man32

[Marquinhossss]

Amigo valeu, acho q entendi e vou tentar fazer porém o que tem nessas duas unt

declarada na uses ? u_ajuda_login, u_main, aguardo resposta agradeço.

[DELPHI-Man32]

cara esquece a unit (u_ajuda_login) declare somente a do fm_main que é a u_main

este método fuciona! sempre uso!

falowss.. qualquer duvida posta ai!

este ai eu fiz alguns incrementos que você pode achar estranho!

[Marquinhossss]

amigo o que significa Table1: TTable; em type ,,,, seria a tabela que estao cadastrado os usuarios e senhas do programa ,,, aguardo resposta,,

[DELPHI-Man32]

é A BASE DE DADOS MANO! você IRÁ COLOCAR ESTA TBL NO FORM DE LOGIN!

FALOWSS!!!. ESTUDO A UNIT E VEJA A LINHA

if Table1.Locate....