transferir dados entre dois forms
tenho um form chamado frmPesquisaClientes, onde listo todos os clientes em um dbgrid.
veja o codigo abaixo:
-----------------------------------
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.
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
Curtidas 0
Respostas
Luiz Estevam
06/03/2014
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.
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.
GOSTEI 0
Fabio Nuno
06/03/2014
Edwillyan Ferreira Garcia precisava de falar consigo com certa urgencia. poderia entrar em contacto comigo via e-mail? polenf@gmail.com
Obrigado, cumprimentos.
Obrigado, cumprimentos.
GOSTEI 0