Sistema de login Delphi 7 sem banco de dados

[Dj_Infinity 4]

Iae galera esse tutorial é pra mostrar como criar um sistema de login SEM banco de dados. Vamos lá

 

Crie um novo projeto.

Adicione:

2 Label

2 Edit

1 Timer

1 Button

1 form

 

Arrume do jeito que preferir

 

No caption do label1 coloque Usuário e no label2 Senha

Deixe o interval do Timer para 1

Mude o caption do Button para Login

 

Declare na uses:

 

IniFiles;

 

Declare as variaveis:

 

MyIni : TIniFile;

MyString : String;

 

No evento OnCreate do form coloque:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

No timer coloque:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

No button para fazer o login coloque:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Então é isso galera...

 

Source:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Scan:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[NoSlake 56]

Muito básico mas pode ser útil, muita gente posta isso, agora vamos analizar algumas coisas:

 

MyIni := TIniFile.Create(GetCurrentDir+'\Config.ini');

Ao invés do GetCurrentDir, você pode usar apenas um "." dentro da string, isso dará o mesmo resutado mas de forma mais simples:

MyIni := TIniFile.Create('.\Config.ini');

 

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 

MyIni := TIniFile.Create(GetCurrentDir+'\Config.ini');

MyIni.WriteString('Config', 'Edit', Edit1.Text);

Isso fará o timer "salvar" a todo tempo o conteúdo do edit no parâmetro de configuração (.ini), em programas maiores, isso reduzirá (e muito) o desempenho. Evite usar timer pra salvar coisas, você pode usar esse code no button.OnClick ou no form.Close;

[Dj_Infinity 4]

Obrigado pela dica. Vou usar nos próximos tutoriais...

[Aaron. 18]

Isso não conecta em nada, pra que isso? salvar login e senha?

[[C]razY [M]esK 0]

e nao e muito util , queria poder colocar para conectar em algun site

[I~Johnnie 28]

Ficou pica, e.e não da bola pro 'Victor~* não (Ele tem mania de mostrar que é foda mas não conta pra ele obs: babo ovo dele e.e), ta foda, é básico

e ta sem banco de dados oque é mais loco ainda he he +1 pra ti mulek

~Abraços