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 TDBGrid e defina o Name para grid e Align para alClient.
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