Fórum transferir dados entre dois forms #472207

06/03/2014

0

Delphi

tenho um form chamado frmPesquisaClientes, onde listo todos os clientes em um dbgrid.
veja o codigo abaixo:

unit UPesquisaClientes;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, pngimage, ExtCtrls, Buttons, Grids, DBGrids,
  Mask, DBCtrls, db, IBCustomDataSet, IBTable;

type
  TfrmPesquisaClientes = class(TForm)
    RichEdit2: TRichEdit;
    Image1: TImage;
    Label1: TLabel;
    NOVO: TBitBtn;
    PROXIMO: TBitBtn;
    ANTERIOR: TBitBtn;
    FECHAR: TBitBtn;
    tblAuxiliarCliente: TIBTable;
    dsAuxiliarCliente: TDataSource;
    Panel1: TPanel;
    Label2: TLabel;
    Label5: TLabel;
    Cliente: TLabel;
    CPF: TLabel;
    Endereço: TLabel;
    RG: TLabel;
    Bairro: TLabel;
    Estado: TLabel;
    Complemento: TLabel;
    Observação: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Email: TLabel;
    Label18: TLabel;
    Cidade: TLabel;
    Label6: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit12: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit1: TDBEdit;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    DBEdit15: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox3: TDBLookupComboBox;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBRichEdit1: TDBRichEdit;
    DBLookupComboBox4: TDBLookupComboBox;
    DBEdit9: TDBEdit;
    DBEdit3: TDBEdit;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    Panel2: TPanel;
    VOLTAR: TBitBtn;
    EXCLUIR: TBitBtn;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    BitBtn6: TBitBtn;
    NOVO2: TBitBtn;
    SALVAR: TBitBtn;
    EMAIL2: TBitBtn;
    EVENTOS: TBitBtn;
    ORCAMENTOS: TBitBtn;
    CONTRATOS: TBitBtn;
    tblAuxiliarClienteCLI_CODIGO: TIntegerField;
    tblAuxiliarClienteCLI_NOME: TIBStringField;
    tblAuxiliarClienteCLI_LOGRADOURO: TIntegerField;
    tblAuxiliarClienteCLI_NUMERO: TIBStringField;
    tblAuxiliarClienteCLI_BAIRRO: TIntegerField;
    tblAuxiliarClienteCLI_CIDADE: TIntegerField;
    tblAuxiliarClienteCLI_CEP: TIBStringField;
    tblAuxiliarClienteCLI_DATANASC: TDateTimeField;
    tblAuxiliarClienteCLI_DATACAD: TDateTimeField;
    tblAuxiliarClienteCLI_COMPLEMENTO: TIBStringField;
    tblAuxiliarClienteCLI_FOTO: TIBStringField;
    tblAuxiliarClienteCLI_CPF: TIBStringField;
    tblAuxiliarClienteCLI_RG: TIBStringField;
    tblAuxiliarClienteCLI_FONERES: TIBStringField;
    tblAuxiliarClienteCLI_FONECOM: TIBStringField;
    tblAuxiliarClienteCLI_FONECEL: TIBStringField;
    tblAuxiliarClienteCLI_OBS: TIBStringField;
    tblAuxiliarClientePES_EMAIL: TIBStringField;
    tblAuxiliarClienteUF: TIBStringField;
    tblAuxiliarClienteCLI_UF: TIntegerField;
    Label3: TLabel;
    Label9: TLabel;
    tblAuxiliarClienteCLI_STATUS: TIBStringField;
    tblAuxiliarClienteCLI_PESSOA: TIBStringField;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    Label10: TLabel;
    procedure FECHARClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn6Click(Sender: TObject);
    procedure PROXIMOClick(Sender: TObject);
    procedure NOVOClick(Sender: TObject);
    procedure ANTERIORClick(Sender: TObject);
    procedure SALVARClick(Sender: TObject);
    procedure VOLTARClick(Sender: TObject);
    procedure EXCLUIRClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn8Click(Sender: TObject);
    procedure EVENTOSClick(Sender: TObject);
        { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPesquisaClientes: TfrmPesquisaClientes;

implementation

uses UDataModulo, UPesquisaEventos, UDebitos, UPagamentos;
{$R *.dfm}

procedure TfrmPesquisaClientes.NOVOClick(Sender: TObject);
 var ultcod:Integer;
begin
  DataModulo.tblClientes.Append;
if DataModulo.dsClientes.State in [dsInsert] then

  Panel1.Visible:=TRUE;
  Panel2.Visible:=FALSE;
  SALVAR.Visible:=TRUE;
  VOLTAR.Visible:=TRUE;
  NOVO2.Visible:=TRUE;
  NOVO.Visible:=FALSE;
  ANTERIOR.Visible:=FALSE;
  EXCLUIR.Visible:=FALSE;
  PROXIMO.Visible:=FALSE;
  VOLTAR.Visible:=TRUE;
EMAIL2.Visible:=FALSE;
 begin
        tblAuxiliarCliente.Open;
        tblAuxiliarCliente.last;
        ultcod:=tblAuxiliarClienteCLI_CODIGO.value+1;
        DataModulo.tblClientesCLI_CODIGO.Value:=ultcod;
        tblAuxiliarCliente.Close;
        dbedit3.SetFocus;
end;
end;

procedure TfrmPesquisaClientes.PROXIMOClick(Sender: TObject);
begin
  DataModulo.tblClientes.Next;

end;

procedure TfrmPesquisaClientes.ANTERIORClick(Sender: TObject);
begin
DataModulo.tblClientes.Prior;
end;

procedure TfrmPesquisaClientes.FECHARClick(Sender: TObject);
begin
  Self.Close;
end;

procedure TfrmPesquisaClientes.SALVARClick(Sender: TObject);
begin
DataModulo.tblClientes.Append;
ShowMessage('Cliente Cadastrado com sucesso!');
EVENTOS.Visible:=TRUE;
ORCAMENTOS.Visible:=TRUE;
CONTRATOS.Visible:=TRUE;
DataModulo.tblClientes.Close;
DataModulo.tblClientes.Open;
end;
procedure TfrmPesquisaClientes.VOLTARClick(Sender: TObject);
begin
Panel1.Visible:=FALSE;
  Panel2.Visible:=TRUE;
  VOLTAR.Visible:=FALSE;
  NOVO.Visible:=TRUE;
  NOVO2.Visible:=FALSE;
  SALVAR.Visible:=FALSE;
EMAIL2.Visible:=True;
  EXCLUIR.Visible:=TRUE;
  ANTERIOR.Visible:=TRUE;
  PROXIMO.Visible:=TRUE;
  DataModulo.tblClientes.Close;
  DataModulo.tblClientes.Open;
end;

procedure TfrmPesquisaClientes.BitBtn6Click(Sender: TObject);
begin
  Edit1.Clear;
end;

procedure TfrmPesquisaClientes.BitBtn8Click(Sender: TObject);
var
    Debitos: TfrmDebitos;
begin
    Debitos:= TfrmDebitos.Create(self);
   Debitos.ShowModal;
 end;

procedure TfrmPesquisaClientes.DBGrid1DblClick(Sender: TObject);
begin
Panel1.Visible:=TRUE;
Panel2.Visible:=FALSE;
EVENTOS.Visible:=TRUE;
ORCAMENTOS.Visible:=TRUE;
CONTRATOS.Visible:=TRUE;
SALVAR.Visible:=True;
   ANTERIOR.Visible:=FALSE;
  PROXIMO.Visible:=FALSE;
end;

procedure TfrmPesquisaClientes.EVENTOSClick(Sender: TObject);
var
      Eventos: TfrmPesquisaEventos;
begin
     Eventos := TfrmPesquisaEventos.Create(self);
     Eventos.ShowModal;
end;

procedure TfrmPesquisaClientes.EXCLUIRClick(Sender: TObject);
begin
// inicio funcao excluir
if DataModulo.tblClientes.RecordCount=0 then  begin
MessageBox(Application.Handle,Pchar('Nao Existe Registro Para Ser Excluido!'),
Pchar('Falha ao Excluir Registro'),mb_ok+MB_ICONERROR);
Exit;
end;
if MessageBox(Application.Handle, Pchar('Deseja Realmente Excluir este Registro?'),pchar('Confirmar Exclusao'),MB_YESNO+MB_ICONQUESTION)=ID_YES then
 DataModulo.tblClientes.Delete;
// Fim da função excluir
end;

procedure TfrmPesquisaClientes.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DataModulo.tblClientes.Close;
DataModulo.tblCidades.Close;
DataModulo.tblLogradouro.Close;
DataModulo.tblBairro.Close;
DataModulo.tblUf.Close;
end;

procedure TfrmPesquisaClientes.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) and not (Activecontrol is TMemo) then begin

//desabilita o processamento posterior da tecla

key := #0;

//simula o envio da tecla tab

Perform(WM_NEXTDLGCTL,0,0);

end;
end;

procedure TfrmPesquisaClientes.FormShow(Sender: TObject);
begin
DataModulo.tblClientes.Open;
DataModulo.tblCidades.Open;
DataModulo.tblLogradouro.open;
DataModulo.tblBairro.open;
DataModulo.tblUf.Open;
end;
end.

-----------------------------------

unit UPesquisaEventos;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, pngimage, ExtCtrls, Buttons, Grids, DBGrids,
  Mask, DBCtrls, db, IBCustomDataSet, IBTable;

type
  TfrmPesquisaEventos = class(TForm)
    RichEdit2: TRichEdit;
    Image1: TImage;
    Label1: TLabel;
    NOVO: TBitBtn;
    EXCLUIR: TBitBtn;
    PROXIMO: TBitBtn;
    ANTERIOR: TBitBtn;
    FECHAR: TBitBtn;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    BitBtn6: TBitBtn;
    dsAuxiliarEventos: TDataSource;
    tblAuxiliarEventos: TIBTable;
    NOVO2: TBitBtn;
    VOLTAR: TBitBtn;
    SALVAR: TBitBtn;
    Panel1: TPanel;
    Label5: TLabel;
    Cliente: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label15: TLabel;
    Label11: TLabel;
    Label10: TLabel;
    Label14: TLabel;
    Label17: TLabel;
    DBEdit2: TDBEdit;
    DBEdit1: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBRichEdit1: TDBRichEdit;
    DBEdit3: TDBEdit;
    BitBtn7: TBitBtn;
    Panel3: TPanel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label33: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    DBLookupComboBox6: TDBLookupComboBox;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    DBRichEdit3: TDBRichEdit;
    DBGrid2: TDBGrid;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    DBEdit9: TDBEdit;
    DBEdit14: TDBEdit;
    DBLookupComboBox3: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox5: TDBLookupComboBox;
    DBLookupComboBox4: TDBLookupComboBox;
    tblAuxiliarEventosEVE_CODIGO: TIntegerField;
    tblAuxiliarEventosEVE_CLIENTE: TIBStringField;
    tblAuxiliarEventosEVE_DESCRICAO: TIBStringField;
    tblAuxiliarEventosEVE_NDVD: TIBStringField;
    tblAuxiliarEventosEVE_DATEVEN: TDateTimeField;
    tblAuxiliarEventosEVE_TIMEEVE: TDateTimeField;
    tblAuxiliarEventosEVE_LOCAL: TIBStringField;
    tblAuxiliarEventosEVE_SERVICO: TIBStringField;
    tblAuxiliarEventosEVE_PRODUTO: TIBStringField;
    tblAuxiliarEventosEVE_BRINDE: TIBStringField;
    tblAuxiliarEventosEVE_PRODUTOADD: TIBStringField;
    tblAuxiliarEventosEVE_NDOC: TIBBCDField;
    tblAuxiliarEventosEVE_NPARCELAS: TIBBCDField;
    tblAuxiliarEventosEVE_VPARCELA: TIBBCDField;
    tblAuxiliarEventosEVE_DESCONTO: TIBBCDField;
    tblAuxiliarEventosEVE_JUROS: TIBBCDField;
    tblAuxiliarEventosEVE_VFINAL: TIBBCDField;
    tblAuxiliarEventosEVE_DVENCIMENTO: TDateTimeField;
    tblAuxiliarEventosEVE_NBANCO: TIBBCDField;
    tblAuxiliarEventosEVE_AGENCIA: TIBBCDField;
    tblAuxiliarEventosEVE_NCONTA: TIBBCDField;
    tblAuxiliarEventosEVE_NCHEQUES: TIBBCDField;
    tblAuxiliarEventosEVE_QNTCHEQUES: TIBBCDField;
    tblAuxiliarEventosEVE_VCHEQUES: TIBBCDField;
    tblAuxiliarEventosEVE_DEMISAO: TDateTimeField;
    tblAuxiliarEventosEVE_OBSCHEQUES: TIBStringField;
    tblAuxiliarEventosEVE_OBSEVENTOS: TIBStringField;
    tblAuxiliarEventosEVE_OBSPAGAMENTO: TIBStringField;
    tblAuxiliarEventosEVE_FORMAPAG: TIBStringField;
    tblAuxiliarEventosEVE_DIRETORIO: TIBStringField;
    tblAuxiliarEventosEVE_NOTA: TIBStringField;
    DBLookupComboBox1: TDBLookupComboBox;
    Edit2: TEdit;
    Edit3: TEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label16: TLabel;
    Label32: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    procedure FECHARClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure PROXIMOClick(Sender: TObject);
    procedure NOVOClick(Sender: TObject);
    procedure ANTERIORClick(Sender: TObject);
    procedure EXCLUIRClick(Sender: TObject);
    procedure VOLTARClick(Sender: TObject);
    procedure SALVARClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBLookupComboBox6Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
     private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPesquisaEventos: TfrmPesquisaEventos;

implementation

uses UDataModulo, UPesquisaClientes;
{$R *.dfm}

procedure TfrmPesquisaEventos.NOVOClick(Sender: TObject);
    var ultcod:Integer;
begin
  DataModulo.tblEventos.Append;
if DataModulo.dsEventos.State in [dsInsert] then

  Panel2.Visible:=FALSE;
  Panel1.Visible:=TRUE;
  Panel3.Visible:=FALSE;
  SALVAR.Visible:=TRUE;
  VOLTAR.Visible:=TRUE;
  NOVO2.Visible:=TRUE;
  NOVO.Visible:=FALSE;
  ANTERIOR.Visible:=FALSE;
  EXCLUIR.Visible:=FALSE;
  PROXIMO.Visible:=FALSE;
  VOLTAR.Visible:=TRUE;
 begin
        tblAuxiliarEventos.Open;
        tblAuxiliarEventos.last;
        ultcod:=tblAuxiliarEventosEVE_CODIGO.value+1;
        DataModulo.tblEventosEVE_CODIGO.Value:=ultcod;
        tblAuxiliarEventos.Close;
        dbedit3.SetFocus;
end;
end;

procedure TfrmPesquisaEventos.EXCLUIRClick(Sender: TObject);
begin
// inicio funcao excluir
if DataModulo.tblEventos.RecordCount=0 then  begin
MessageBox(Application.Handle,Pchar('Nao Existe Registro Para Ser Excluido!'),
Pchar('Falha ao Excluir Registro'),mb_ok+MB_ICONERROR);
Exit;
end;
if MessageBox(Application.Handle, Pchar('Deseja Realmente Excluir este Registro?'),pchar('Confirmar Exclusao'),MB_YESNO+MB_ICONQUESTION)=ID_YES then
 DataModulo.tblEventos.Delete;
// Fim da função excluir
end;

procedure TfrmPesquisaEventos.PROXIMOClick(Sender: TObject);
begin
  DataModulo.tblEventos.Next;

end;

procedure TfrmPesquisaEventos.ANTERIORClick(Sender: TObject);
begin
DataModulo.tblEventos.Prior;
end;

procedure TfrmPesquisaEventos.FECHARClick(Sender: TObject);
begin
Self.Close;
end;

procedure TfrmPesquisaEventos.BitBtn6Click(Sender: TObject);
begin
  Edit1.Clear;
end;

procedure TfrmPesquisaEventos.BitBtn8Click(Sender: TObject);
begin
DataModulo.tblEventos.Append;
ShowMessage('Evento cadastrado com sucesso!');
Panel3.Visible:= True;
DataModulo.tblEventos.Last;
DataModulo.tblEventos.Edit;
end;

procedure TfrmPesquisaEventos.DBGrid1DblClick(Sender: TObject);
begin
Panel1.Visible:=TRUE;
Panel2.Visible:=FALSE;
Panel3.Visible:=TRUE;
SALVAR.Visible:=True;
ANTERIOR.Visible:=FALSE;
PROXIMO.Visible:=FALSE;
end;

procedure TfrmPesquisaEventos.DBLookupComboBox6Click(Sender: TObject);
begin
 if DBLookupComboBox6.ListFieldIndex = 0 then
begin
DBEdit18.Enabled := True;
DBEdit18.Color:= clWindow;
end
else
begin
DBEdit18.Enabled := False;

end;
end;

procedure TfrmPesquisaEventos.Edit1Change(Sender: TObject);
begin
  DataModulo.tblEventos.Locate('EVE_CLIENTE', Edit1.Text, [lopartialkey,
    locaseinsensitive]);

end;

procedure TfrmPesquisaEventos.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DataModulo.tblClientes.Close;
  DataModulo.tblEventos.Close;
  DataModulo.tblProdutos.Close;
  DataModulo.tblServicos.Close;
  DataModulo.tblBrindes.Close;
DataModulo.tblpagamento.Close;
end;

procedure TfrmPesquisaEventos.FormCreate(Sender: TObject);
begin

end;

procedure TfrmPesquisaEventos.FormShow(Sender: TObject);

begin
 DataModulo.tblEventos.Open;
  DataModulo.tblProdutos.Open;
  DataModulo.tblServicos.Open;
  DataModulo.tblBrindes.Open;
DataModulo.tblpagamento.Open;
DataModulo.tblClientes.Open;
DataModulo.tblEventos.Append;
end;

procedure TfrmPesquisaEventos.SALVARClick(Sender: TObject);
begin
DataModulo.tblEventos.Append;
ShowMessage('Evento cadastrado com sucesso!');
Panel3.Visible:= True;
DataModulo.tblEventos.Last;
DataModulo.tblEventos.Edit;
end;

procedure TfrmPesquisaEventos.VOLTARClick(Sender: TObject);
begin
Panel2.Visible:=TRUE;
  Panel1.Visible:=FALSE;
  VOLTAR.Visible:=FALSE;
  NOVO.Visible:=TRUE;
  NOVO2.Visible:=FALSE;
  SALVAR.Visible:=FALSE;
  EXCLUIR.Visible:=TRUE;
  ANTERIOR.Visible:=TRUE;
  PROXIMO.Visible:=TRUE;
  DataModulo.tblEventos.Close;
  DataModulo.tblEventos.Open;
end;

end.

note que dentro deste form frmPesquisaClientes tem duas panels: uma com a listagem de clientes e outra com os campos de cadastro de clientes. a de cadastro fica oculta e so
fica visivel quando se clica no botao novo ou quando se da dois cliques em qualquer iten do dbgrid.

vamos a minha duvida:

bom eu rodo p programa e clico no botao clientes e chama o form frmPesquisaClientes e lista todos os cadastros. bem ate ai tudo certo. depois disso eu dou dois cliques em qualquer cadastro e aparece a pannel com os campos de cadastro , porem todos prenchidos com seus respectivos valores e tambem surgem botoes novos para que apartir
deste ponto se possa cadastrar um evento e outras coisas mais.
no form frmPesquisaClientes o campo que ontem o nome do cliente e um DBedit3.
estou usando uma tabela chamada tblClientes

o que eu quero é que quando eu clique no botao eventos seja chamado o form frmPesquisaEventos e nele seja carregado o valor do campo cliente ( DBedit3) do form frmPesquisaClientes. e o campo do frmPesquisaEventos que recebera o valor da ( DBedit3) do form frmPesquisaClientes em um DBLookupComboBox1.
e que o form frmPesquisaEventos fique no estado de edição e acrescente um codigo ao lado assim como ocorre quando eu clico no botao novo.
se simplesmente carregar o valor vai da erro pois o form nao esta do estado de edicao .

obs:
o campo DBLookupComboBox1 ta configurado para pegar valores da tabela cliente e salvar na tabela tblEventos
o form frmPesquisaEventos nao usa a mesma tabela do form frmPesquisaClientes. ele usa a tabela tblEventos. ou seja usam tabelas diferentes.
nos forms eu uso uma tabela auxiliar e um datasourse para cada um.

segue imagens:
[img]http://arquivo.devmedia.com.br/forum/imagem/362167-20140306-202140.jpg[/img]
[img]http://arquivo.devmedia.com.br/forum/imagem/362167-20140306-202212.jpg[/img]
[img]http://arquivo.devmedia.com.br/forum/imagem/362167-20140306-202234.jpg[/img]
[img]http://arquivo.devmedia.com.br/forum/imagem/362167-20140306-202254.jpg[/img]


por favor me ajudem ... sou novato na area... sou fotografo e resolvi fazer eu mesmo o programa da minha empresa.

Edwillyan Garcia

Edwillyan Garcia

Responder

Posts

07/03/2014

Luiz Estevam

vamos ver se eu entendi, vc que carregar um campo no form ex: Edit_nome com outro campo ou variavel de outro form, bom se for eu faço assim.

form_pesquisa tem um campo edit_cliente, edit_end, edit_cidade.

em outro form_clientes para transferir do form_pesquisa para form_clientes, no form_clientes em uses coloca U_Form_pesquisa e no evento onShow do Form_clientes você coloca assim

edit_nome := form_pesquisa.edit_cliente.text;
edit_end := Form_pesquisa.edit_end.text;
edit_cidade := Form_pesquisa.edit_cidade;

isso você pode tirar direto da DBgrid.

espero ter




ajudade.

Responder

Gostei + 0

20/03/2014

Fabio Nuno

Edwillyan Ferreira Garcia precisava de falar consigo com certa urgencia. poderia entrar em contacto comigo via e-mail? polenf@gmail.com

Obrigado, cumprimentos.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar