ActiveDelphi

[thaita]

Prezados,
Tenho um formulário com uma dbgrid onde preciso mostra apenas 03 campos de uma tabela, assim que o formulário for aberto, via código. Sou iniciante, alguém pode me ajudar?

[rodrigoprado]

segue um exemplo com dados em memória.... mas vc pode usar uma query no lugar de um dataset, seguindo essa ídeia, abrir ela com um sql do banco.

[thaita]

Sim, mas acontece que estou trabalhando com interfaces, segue o código do meu formulário, abaixo.
unit AdmSitio.view.pages.Pessoas;

interface

uses
Winapi.Windows,
Winapi.Messages,
System.SysUtils,
System.Variants,
System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs,
AdmSitio.view.pages.MestreCadastro,
Data.DB,
System.ImageList,
Vcl.ImgList,
Vcl.Grids,
Vcl.DBGrids,
Vcl.StdCtrls,
Vcl.ExtCtrls,
Vcl.WinXPanels,
AdmSitio.controller.interfaces,
FireDAC.Comp.Client,
AdmSitio.model.service.interfaces,
AdmSitio.controller.impl.controller,
AdmSitio.model.service.impl.servicesimpleorm,
AdmSitio.model.entity.pessoa,
Vcl.ComCtrls;

type
TPagePessoas = class(TPageMestreCadastro)
edtCodigo: TLabeledEdit;
edtNome: TLabeledEdit;
edtCPFCnpj: TLabeledEdit;
edtCidade: TLabeledEdit;
edtBairro: TLabeledEdit;
cbTipo: TComboBox;
Label2: TLabel;
edtDataNascReg: TDateTimePicker;
edtTelefone: TLabeledEdit;
edtEmail: TLabeledEdit;
cbAtivo: TComboBox;
Label4: TLabel;
grpVigencia: TGroupBox;
edtDataInicio: TDateTimePicker;
edtDataFim: TDateTimePicker;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
edtEstado: TLabeledEdit;
procedure cbTipoChange(Sender: TObject);
procedure edtCPFCnpjKeyPress(Sender: TObject; var Key: Char);
procedure edtTelefoneKeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure btnIncluirClick(Sender: TObject);
procedure btnSalvarClick(Sender: TObject);
procedure btnAlterarClick(Sender: TObject);
procedure btnExcluirClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure btnPesquisarClick(Sender: TObject);

private
FController: iController;
FDatasource : TDataSource;

public
{ Public declarations }



end;

var
PagePessoas: TPagePessoas;

implementation

uses
AdmSitio.utils.Utilitarios;

{$R *.dfm}

{ TPagePessoas }

procedure TPagePessoas.btnAlterarClick(Sender: TObject);
var
Pessoa : TPESSOA;
begin
Pessoa := TPESSOA.Create;
try
Pessoa.ID := StrToInt(EdtCodigo.Text);

if cbTipo.ItemIndex = 0 then
Pessoa.TipoCadastro :=('Fornecedor')
else
if cbTipo.ItemIndex = 1 then
Pessoa
.TipoCadastro:=('Parceiro Agrícola')
else if cbTipo.ItemIndex = 2 then
Pessoa
.TipoCadastro:=('Cliente')
else
Pessoa.TipoCadastro:=(EmptyStr);

Pessoa.NOME := (EdtNome.Text);
Pessoa.DATANASCREG := (now);
Pessoa.CPFCNPJ := (edtCpfCnpj.Text);
Pessoa.CIDADE :=(edtCidade.Text);
Pessoa.BAIRRO_DISTRITO := (edtBairro.Text);
Pessoa.ESTADO := (edtEstado.Text);
Pessoa.TELEFONE := (edtTelefone.Text);
Pessoa.EMAIL := (edtEmail.Text);

if cbAtivo.ItemIndex = 0 then
Pessoa.Ativo :=('S')
else if cbAtivo.ItemIndex = 1 then
Pessoa.Ativo:=('N')
else
Pessoa.Ativo:=(EmptyStr);
Pessoa.DataInicio := Now;
Pessoa.DataFim := edtDataFim.date;
FDAO.Build.Atualizar;

finally
Pessoa.Free;
end;
inherited;
end;



procedure TPagePessoas.btnExcluirClick(Sender: TObject);
var
SelectedRow: TBookmark;
begin
inherited;

if DBGrid1.SelectedRows.Count > 0 then
begin
if Application.MessageBox('Deseja realmente excluir essa pessoa?',
'SimpleORM', MB_ICONQUESTION + MB_YESNO) = ID_YES then
begin
SelectedRow := DBGrid1.SelectedRows[0];
try
FController.Pessoa.Id(StrToInt(DBGrid1.Fields[0].AsString))
.Build.Excluir;
DBGrid1.DataSource.DataSet.Bookmark := SelectedRow;
DBGrid1.DataSource.DataSet.Delete;
except
on E: Exception do
begin
ShowMessage('Erro ao excluir pessoa: ' + E.Message);
end;
end;
end;
end;
end;



procedure TPagePessoas.btnIncluirClick(Sender: TObject);
begin
inherited;
cbTipo.SetFocus;
end;

procedure TPagePessoas.btnPesquisarClick(Sender: TObject);
begin
inherited;
FController.Pessoa.Build.Pesquisar(edtPesquisar.Text, DBGrid1);
end;

procedure TPagePessoas.btnSalvarClick(Sender: TObject);
begin
try
try

if cbTipo.ItemIndex = 0 then
FController.Pessoa
.TipoCadastro('Fornecedor')
else if cbTipo.ItemIndex = 1 then
FController.Pessoa
.TipoCadastro('Parceiro Agrícola')
else if cbTipo.ItemIndex = 2 then
FController.Pessoa
.TipoCadastro('Cliente')
else
FController.Pessoa.TipoCadastro(EmptyStr);

FController.Pessoa
.Nome(edtNome.Text)
.DataNascReg(edtDataNascReg.Date)
.CpfCnpj(edtCPFCNPJ.Text)
.Cidade(edtCidade.Text)
.Bairro_Distrito(edtBairro.Text)
.Estado(edtEstado.Text)
.Telefone(edtTelefone.Text)
.Email(edtEmail.Text);

if cbAtivo.ItemIndex = 0 then
FController.Pessoa.Ativo('S')
else if cbAtivo.ItemIndex = 1 then
FController.Pessoa.Ativo('N')
else
FController.Pessoa.Ativo(EmptyStr);
FController.Pessoa
.DataInicio(edtDataInicio.Date)
.DataFim(edtDataFim.Date)
.Build
.Inserir;

ShowMessage('Pessoa cadastrada com sucesso!');
except
on E: Exception do
raise Exception.Create('Não foi possível cadastrar a pessoa: ' + E.Message);
end;

finally
end;
inherited;
end;

procedure TPagePessoas.cbTipoChange(Sender: TObject);
begin
inherited;
if cbTipo.Text = 'Parceiro Agrícola' then
grpVigencia.Visible :=True
else
grpVigencia.Visible := False;
end;

procedure TPagePessoas.edtCPFCnpjKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
If not( key in['0'..'9',#08] ) then
key:=#0;
end;

procedure TPagePessoas.edtTelefoneKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
If not( key in['0'..'9',#08] ) then
key:=#0;
end;

procedure TPagePessoas.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
FDataSource.Free;
end;

procedure TPagePessoas.FormCreate(Sender: TObject);
begin
inherited;
FController:= TController.New;
FDataSource := TDataSource.Create(nil);


end;

procedure TPagePessoas.FormKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if Key =#13 then
begin
Key:=#0;
Perform(WM_NEXTDLGCTL,0,0);
end;
end;

end.

[rodrigoprado]

[rodrigoprado]

[thaita]

OBRIGADO