segunda-feira, 2 de maio de 2016

CRUD Simples com Firedac,Delphi 10 Seatle e MySQL

Va no mysql e crie um banco chamado teste e uma tabela chamada usuário;



Abra o Rad Studio Seatle e clique em:
File>New>VCL Forms Application - Delphi

Após aparecer o primeiro form clique em :
File>Save Project As..
Salve a unit como frmCRUD e o projeto como CRUD em uma pasta chamada crud


Clique no form e va na paleta Object Inspector defina o Caption como  "CRUD" e o Name como "formCRUD".

Em Tool Palete pesquise arraste os componentes TFDConnection, FDPhysMySQLDriverLink,FDGUIxWaitCursor, TFDQuery e TDatasource. Clique em cada componente e e altere a propriedade Name.


Adicione o componente TDBNavigator e defina o Name para navegador e Align para alTop;
Adicione o componente TDBGrid e defina o Name para grid e Align para alClient.



Configuracao dos componentes:
De um duplo clique no componente TFDConnection e defino driver (MYSQL),database (teste),user_name(root),password(''),server(localhost) e port(3306) e clique em Test;

 Se aparecer "Connection established sucessfully" de OK;


 
Ainda em TFDConnection em Object Inspector defina LoginPrompt como false;

Clique no componente TFDQuery e ligue o TFDConnection na propriedade Connection. De duplo clique em TFDQuery e defina o SQL Comand com a consulta "select * from usuario;" e clique em Execute se as colunas aparecer clique em OK;
Clique no componente TDatasource e na propriedade DataSet ligue o TFDQuery.;
Clique no componente TDBNavigator e na propriedade Datasource ligue o TDatasource;
Clique no componente TDBGrid e na propriedade Datasource ligue o TDatasource;
Clique no componente Form e em Object Inspector clieque na aba Events e de duplo clique na seleção de OnClose e no OnCreate digite o código;



 Resultado final:






Nenhum comentário:

Postar um comentário