Fórum atualizando registros no DBGRID (FireBird) #47594

20/10/2004

0

Firebird

- Ola, estou com a seguinte dificuldade: tenho uma aplicação com bnco de dados FireBird (.FDB). na aplicação, o DBGrid responsavel pelos dados contidos na em um das tabelas do meu banco, está no mesmo formulario onde cadastro, edito, excluo, etc...
- O problema está na atualização desses registros em tempo de execussao no DBGrid, como por exemplo:

exclui um cliente, mas ele nao sai do DBGrid, a menos que eu feche o aplicativo por completo e entre novamente.

Vou colar abaixo o código da Unit em questão, e fico grato se alguem puder me ajudar
--------------------------------------------------------------------------------

unit Unit_Cadastro_Clientes;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, ExtCtrls, Mask, EditNumero, ExtDlgs, Buttons,
DBCtrls,Clipbrd;

type
TCadastro_Clientes = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
Edit_Nome: TEdit;
Edit_Contato: TEdit;
Edit_Fantasia: TEdit;
Edit_Cargo: TEdit;
Bevel1: TBevel;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Combo_Atividade: TComboBox;
Label6: TLabel;
Data3: TDateTimePicker;
Data2: TDateTimePicker;
Data1: TDateTimePicker;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Combo_Qualificacao: TComboBox;
Label10: TLabel;
Edit_Fone1: TEdit;
Edit_Fone2: TEdit;
Edit_Fax: TEdit;
Edit_Celular: TEdit;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
RB1: TRadioGroup;
Label15: TLabel;
RB2: TRadioGroup;
Edit_RG: TEdit;
Label16: TLabel;
Bevel2: TBevel;
PageControl2: TPageControl;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
Edit_Endereco_Princ: TEdit;
Label17: TLabel;
Edit_bairro_Princ: TEdit;
Label18: TLabel;
Edit_Cidade_Princ: TEdit;
Label19: TLabel;
Combo_uf_Princ: TComboBox;
Label20: TLabel;
Combo_Pais_princ: TComboBox;
Label21: TLabel;
Edit_CEP_princ: TEditNum;
Label22: TLabel;
Edit_CxPostal_Princ: TEdit;
Label23: TLabel;
Label24: TLabel;
Edit_Endereco_Cobr: TEdit;
Label25: TLabel;
Edit_bairro_Cobr: TEdit;
Label26: TLabel;
Edit_Cidade_Cobr: TEdit;
Label27: TLabel;
Combo_uf_Cobr: TComboBox;
Label28: TLabel;
Combo_Pais_Cobr: TComboBox;
Label29: TLabel;
Edit_CEP_Cobr: TEditNum;
Label30: TLabel;
Edit_CxPostal_Cobr: TEdit;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
Memo_Obs: TMemo;
Edit_Depto: TEdit;
Edit_mail: TEdit;
Edit_URL: TEdit;
Label35: TLabel;
Edit_Pai: TEdit;
Edit_Mae: TEdit;
Label36: TLabel;
Label37: TLabel;
Edit_Conjuge: TEdit;
Label38: TLabel;
Combo_Estado_Civil: TComboBox;
Edit_Desconto: TEdit;
Label39: TLabel;
Label40: TLabel;
GroupBox1: TGroupBox;
Label41: TLabel;
Edit_Limite: TEdit;
Edit_receber: TEdit;
Edit_Vencido: TEdit;
Edit_Recebido: TEdit;
Edit_juros: TEdit;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
Label45: TLabel;
Button2: TButton;
Btn_Novo: TButton;
Btn_Cancelar: TButton;
Btn_Salva: TButton;
btn_relatorio: TButton;
Btn_Pesquisa: TButton;
Btn_Excluir: TButton;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
Button9: TButton;
Edit_CPF: TEditNum;
Btn_Editar: TButton;
Label46: TLabel;
SavePictureDialog1: TSavePictureDialog;
Edit_Codigo: TEdit;
Image1: TDBImage;
OpenPictureDialog1: TOpenPictureDialog;
procedure Edit_DescontoKeyPress(Sender: TObject; var Key: Char);
procedure Edit_LimiteKeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
procedure Edit_receberKeyPress(Sender: TObject; var Key: Char);
procedure Edit_VencidoKeyPress(Sender: TObject; var Key: Char);
procedure Edit_RecebidoKeyPress(Sender: TObject; var Key: Char);
procedure Edit_jurosKeyPress(Sender: TObject; var Key: Char);
procedure Button9Click(Sender: TObject);
procedure Btn_CancelarClick(Sender: TObject);
procedure Btn_NovoClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure Btn_SalvaClick(Sender: TObject);
procedure Btn_EditarClick(Sender: TObject);
procedure Edit_CPFExit(Sender: TObject);
procedure Btn_ExcluirClick(Sender: TObject);
procedure Btn_PesquisaClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }

public
{ Public declarations }
end;

var
Cadastro_Clientes: TCadastro_Clientes;

implementation

uses Unit_DM, Unit_Consulta_Cliente;

{$R *.dfm}

procedure limpa_Edit;
begin
Cadastro_Clientes.image1.Picture := nil;
Cadastro_Clientes.Edit_Codigo.Clear;
Cadastro_Clientes.Edit_Nome.Clear;
Cadastro_Clientes.Edit_Fantasia.Clear;
Cadastro_Clientes.Edit_Contato.Clear;
Cadastro_Clientes.Edit_Cargo.Clear;
Cadastro_Clientes.Combo_Atividade.Text := ´´;
Cadastro_Clientes.Combo_Qualificacao.Text := ´´;
Cadastro_Clientes.Data1.Date := Date;
Cadastro_Clientes.Data2.Date := Date;
Cadastro_Clientes.Data3.Date := Date + 30;
Cadastro_Clientes.Edit_Fone1.Clear;
Cadastro_Clientes.Edit_Fone2.Clear;
Cadastro_Clientes.Edit_Fax.Clear;
Cadastro_Clientes.Edit_Celular.Clear;
Cadastro_Clientes.RB1.Buttons[0].Checked := True;
Cadastro_Clientes.RB2.Buttons[0].Checked := True;
Cadastro_Clientes.Edit_CPF.Clear;
Cadastro_Clientes.Edit_RG.Clear;

Cadastro_Clientes.Edit_Endereco_princ.Clear;
Cadastro_Clientes.Edit_bairro_princ.Clear;
Cadastro_Clientes.Edit_Cidade_princ.Clear;
Cadastro_Clientes.Combo_UF_princ.text := ´´;
Cadastro_Clientes.Combo_Pais_princ.text := ´´;
Cadastro_Clientes.Edit_Cep_princ.Clear;
Cadastro_Clientes.Edit_CxPostal_princ.Clear;

Cadastro_Clientes.Edit_Endereco_Cobr.Clear;
Cadastro_Clientes.Edit_bairro_Cobr.Clear;
Cadastro_Clientes.Edit_Cidade_Cobr.Clear;
Cadastro_Clientes.Combo_UF_Cobr.text := ´´;
Cadastro_Clientes.Combo_Pais_Cobr.text := ´´;
Cadastro_Clientes.Edit_Cep_Cobr.Clear;
Cadastro_Clientes.Edit_CxPostal_Cobr.Clear;

Cadastro_Clientes.Edit_Depto.Clear;
Cadastro_Clientes.Edit_mail.Clear;
Cadastro_Clientes.Edit_URL.Clear;
Cadastro_Clientes.Memo_Obs.Lines.Clear;
Cadastro_Clientes.Edit_Pai.Clear;
Cadastro_Clientes.Edit_mae.Clear;
Cadastro_Clientes.Edit_Conjuge.Clear;
Cadastro_Clientes.Edit_Desconto.Clear;
Cadastro_Clientes.Combo_Estado_Civil.text := ´´;
Cadastro_Clientes.Edit_Limite.Clear;
Cadastro_Clientes.Edit_receber.Clear;
Cadastro_Clientes.Edit_Vencido.Clear;
Cadastro_Clientes.Edit_Recebido.Clear;
Cadastro_Clientes.Edit_juros.Clear;

end;





procedure TCadastro_Clientes.Edit_DescontoKeyPress(Sender: TObject;
var Key: Char);
begin
if Key in [´,´,´.´] then Key := DecimalSeparator;
end;

procedure TCadastro_Clientes.Edit_LimiteKeyPress(Sender: TObject;
var Key: Char);
begin
if Key in [´,´,´.´] then Key := DecimalSeparator;
end;

procedure TCadastro_Clientes.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

procedure TCadastro_Clientes.Edit_receberKeyPress(Sender: TObject; var Key: Char);
begin
if Key in [´,´,´.´] then Key := DecimalSeparator;
end;

procedure TCadastro_Clientes.Edit_VencidoKeyPress(Sender: TObject; var Key: Char);
begin
if Key in [´,´,´.´] then Key := DecimalSeparator;
end;

procedure TCadastro_Clientes.Edit_RecebidoKeyPress(Sender: TObject; var Key: Char);
begin
if Key in [´,´,´.´] then Key := DecimalSeparator;
end;

procedure TCadastro_Clientes.Edit_jurosKeyPress(Sender: TObject; var Key: Char);
begin
if Key in [´,´,´.´] then Key := DecimalSeparator;
end;

procedure TCadastro_Clientes.Button9Click(Sender: TObject);
begin
DM.Tbl_Clientes.Cancel;
DM.Tbl_Clientes.Close;
Limpa_Edit;
Close;
end;





procedure TCadastro_Clientes.Btn_CancelarClick(Sender: TObject);
begin
DM.Tbl_Clientes.Cancel;
DM.Tbl_Clientes.Close;
Limpa_Edit;
Cadastro_Clientes.PageControl2.ActivePage := TabSheet4;
Cadastro_Clientes.PageControl1.ActivePage := TabSheet1;
Cadastro_Clientes.Edit_nome.SetFocus;
Btn_Salva.Enabled := False;
Btn_Editar.Enabled := False;
Btn_Excluir.Enabled := False;
end;

procedure TCadastro_Clientes.Btn_NovoClick(Sender: TObject);
var
Cod1 : Integer;
Cod2 : Integer;
begin
Limpa_Edit;
Image1.Picture := nil;
Cadastro_Clientes.Edit_nome.SetFocus;
Btn_Salva.Enabled := True;
Btn_Editar.Enabled := False;
Btn_Excluir.Enabled := False;

// Contador de codigo
Dm.Tbl_Clientes.Open;
Dm.Tbl_Clientes.Last;
Cod1 := Dm.Tbl_ClientesCodigo.AsInteger;
Cod2 := Cod1 + 1;
Edit_Codigo.Text := IntToStr(Cod2);
Dm.Tbl_Clientes.Close;
//--------------------------------------



end;

procedure TCadastro_Clientes.SpeedButton1Click(Sender: TObject);
begin
DM.Tbl_Clientes.Open;
DM.Tbl_Clientes.Next;

// Imagem
Image1.Picture := nil;
Image1.Picture.Bitmap.Assign(DM.Tbl_ClientesImagem);
//--------------------------------------------------

Cadastro_Clientes.Edit_Codigo.text := DM.Tbl_Clientes.FieldByName(´Codigo´).AsString;
Cadastro_Clientes.Edit_Nome.text := DM.Tbl_Clientes.FieldByName(´Nome´).AsString;
Cadastro_Clientes.Edit_Fantasia.text := DM.Tbl_Clientes.FieldByName(´Fantasia´).AsString;
Cadastro_Clientes.Edit_Contato.text := DM.Tbl_Clientes.FieldByName(´contato´).AsString;
Cadastro_Clientes.Edit_Cargo.text := DM.Tbl_Clientes.FieldByName(´cargo´).AsString;
Cadastro_Clientes.Combo_Atividade.Text := DM.Tbl_Clientes.FieldByName(´atividade´).AsString;
Cadastro_Clientes.Combo_Qualificacao.Text := DM.Tbl_Clientes.FieldByName(´qualificacao´).AsString;
Cadastro_Clientes.Data1.Date := DM.Tbl_Clientes.FieldByName(´nascimento´).AsDateTime;
Cadastro_Clientes.Data2.Date := DM.Tbl_Clientes.FieldByName(´cadastro´).AsDateTime;
Cadastro_Clientes.Data3.Date := DM.Tbl_Clientes.FieldByName(´visita´).AsDateTime;
Cadastro_Clientes.Edit_Fone1.text := DM.Tbl_Clientes.FieldByName(´fone1´).AsString;
Cadastro_Clientes.Edit_Fone2.text := DM.Tbl_Clientes.FieldByName(´fone2´).AsString;
Cadastro_Clientes.Edit_Fax.text := DM.Tbl_Clientes.FieldByName(´fax´).AsString;
Cadastro_Clientes.Edit_Celular.text := DM.Tbl_Clientes.FieldByName(´celular´).AsString;

Cadastro_Clientes.Edit_CPF.text := DM.Tbl_Clientes.FieldByName(´CPF_CNPJ´).AsString;
Cadastro_Clientes.Edit_RG.text := DM.Tbl_Clientes.FieldByName(´RG_IE´).AsString;

Cadastro_Clientes.Edit_Endereco_princ.text := DM.Tbl_Clientes.FieldByName(´Rua_Principal´).AsString;
Cadastro_Clientes.Edit_bairro_princ.text := DM.Tbl_Clientes.FieldByName(´bairro_principal´).AsString;
Cadastro_Clientes.Edit_Cidade_princ.text := DM.Tbl_Clientes.FieldByName(´cidade_principal´).AsString;
Cadastro_Clientes.Combo_UF_princ.text := DM.Tbl_Clientes.FieldByName(´UF_principal´).AsString;
Cadastro_Clientes.Combo_Pais_princ.text := DM.Tbl_Clientes.FieldByName(´pais_principal´).AsString;
Cadastro_Clientes.Edit_Cep_princ.text := DM.Tbl_Clientes.FieldByName(´cep_principal´).AsString;
Cadastro_Clientes.Edit_CxPostal_princ.text := DM.Tbl_Clientes.FieldByName(´cx_postal_principal´).AsString;

Cadastro_Clientes.Edit_Endereco_Cobr.text := DM.Tbl_Clientes.FieldByName(´Rua_cobranca´).AsString;
Cadastro_Clientes.Edit_bairro_Cobr.text := DM.Tbl_Clientes.FieldByName(´bairro_cobranca´).AsString;
Cadastro_Clientes.Edit_Cidade_Cobr.text := DM.Tbl_Clientes.FieldByName(´cidade_cobranca´).AsString;
Cadastro_Clientes.Combo_UF_Cobr.text := DM.Tbl_Clientes.FieldByName(´UF_Cobranca´).AsString;
Cadastro_Clientes.Combo_Pais_Cobr.text := DM.Tbl_Clientes.FieldByName(´pais_cobranca´).AsString;
Cadastro_Clientes.Edit_Cep_Cobr.text := DM.Tbl_Clientes.FieldByName(´cep_cobranca´).AsString;
Cadastro_Clientes.Edit_CxPostal_Cobr.text := DM.Tbl_Clientes.FieldByName(´cx_postal_cobranca´).AsString;

Cadastro_Clientes.Edit_Depto.text := DM.Tbl_Clientes.FieldByName(´departamento´).AsString;
Cadastro_Clientes.Edit_mail.text := DM.Tbl_Clientes.FieldByName(´Email´).AsString;
Cadastro_Clientes.Edit_URL.text := DM.Tbl_Clientes.FieldByName(´URL´).AsString;
Cadastro_Clientes.Memo_Obs.Lines.text := DM.Tbl_Clientes.FieldByName(´OBS´).AsString;
Cadastro_Clientes.Edit_Pai.text := DM.Tbl_Clientes.FieldByName(´pai´).AsString;
Cadastro_Clientes.Edit_mae.text := DM.Tbl_Clientes.FieldByName(´mae´).AsString;
Cadastro_Clientes.Edit_Conjuge.text := DM.Tbl_Clientes.FieldByName(´conjuge´).AsString;
Cadastro_Clientes.Edit_Desconto.text := DM.Tbl_Clientes.FieldByName(´desconto_maximo´).AsString;
Cadastro_Clientes.Combo_Estado_Civil.text := DM.Tbl_Clientes.FieldByName(´estado_civil´).AsString;
Cadastro_Clientes.Edit_Limite.text := DM.Tbl_Clientes.FieldByName(´limite_credito´).AsString;
//Cadastro_Clientes.Edit_receber.Clear;
//Cadastro_Clientes.Edit_Vencido.Clear;
//Cadastro_Clientes.Edit_Recebido.Clear;
//Cadastro_Clientes.Edit_juros.Clear;
//Cadastro_Clientes.Edit_nome.SetFocus;
//-----------------------------------------------
//radio Buttons
if DM.Tbl_Clientes.FieldByName(´categoria´).AsString = ´F´ then
Cadastro_Clientes.RB1.Buttons[0].Checked := True
else
Cadastro_Clientes.RB1.Buttons[1].Checked := True;


if DM.Tbl_Clientes.FieldByName(´tipo´).AsString = ´C´ then
Cadastro_Clientes.RB2.Buttons[0].Checked := True
else
Cadastro_Clientes.RB2.Buttons[1].Checked := True;

Btn_Salva.Enabled := False;
Btn_Editar.Enabled := True;
Btn_Excluir.Enabled := True;


//-----------------------------------------------

end;

procedure TCadastro_Clientes.SpeedButton2Click(Sender: TObject);
begin
DM.Tbl_Clientes.Open;
DM.Tbl_Clientes.Prior;

// Imagem
Image1.Picture := nil;
Image1.Picture.Bitmap.Assign(DM.Tbl_ClientesImagem);
//--------------------------------------------------

Cadastro_Clientes.Edit_Codigo.text := DM.Tbl_Clientes.FieldByName(´Codigo´).AsString;
Cadastro_Clientes.Edit_Nome.text := DM.Tbl_Clientes.FieldByName(´Nome´).AsString;
Cadastro_Clientes.Edit_Fantasia.text := DM.Tbl_Clientes.FieldByName(´Fantasia´).AsString;
Cadastro_Clientes.Edit_Contato.text := DM.Tbl_Clientes.FieldByName(´contato´).AsString;
Cadastro_Clientes.Edit_Cargo.text := DM.Tbl_Clientes.FieldByName(´cargo´).AsString;
Cadastro_Clientes.Combo_Atividade.Text := DM.Tbl_Clientes.FieldByName(´atividade´).AsString;
Cadastro_Clientes.Combo_Qualificacao.Text := DM.Tbl_Clientes.FieldByName(´qualificacao´).AsString;
Cadastro_Clientes.Data1.Date := DM.Tbl_Clientes.FieldByName(´nascimento´).AsDateTime;
Cadastro_Clientes.Data2.Date := DM.Tbl_Clientes.FieldByName(´cadastro´).AsDateTime;
Cadastro_Clientes.Data3.Date := DM.Tbl_Clientes.FieldByName(´visita´).AsDateTime;
Cadastro_Clientes.Edit_Fone1.text := DM.Tbl_Clientes.FieldByName(´fone1´).AsString;
Cadastro_Clientes.Edit_Fone2.text := DM.Tbl_Clientes.FieldByName(´fone2´).AsString;
Cadastro_Clientes.Edit_Fax.text := DM.Tbl_Clientes.FieldByName(´fax´).AsString;
Cadastro_Clientes.Edit_Celular.text := DM.Tbl_Clientes.FieldByName(´celular´).AsString;

Cadastro_Clientes.Edit_CPF.text := DM.Tbl_Clientes.FieldByName(´CPF_CNPJ´).AsString;
Cadastro_Clientes.Edit_RG.text := DM.Tbl_Clientes.FieldByName(´RG_IE´).AsString;

Cadastro_Clientes.Edit_Endereco_princ.text := DM.Tbl_Clientes.FieldByName(´Rua_Principal´).AsString;
Cadastro_Clientes.Edit_bairro_princ.text := DM.Tbl_Clientes.FieldByName(´bairro_principal´).AsString;
Cadastro_Clientes.Edit_Cidade_princ.text := DM.Tbl_Clientes.FieldByName(´cidade_principal´).AsString;
Cadastro_Clientes.Combo_UF_princ.text := DM.Tbl_Clientes.FieldByName(´UF_principal´).AsString;
Cadastro_Clientes.Combo_Pais_princ.text := DM.Tbl_Clientes.FieldByName(´pais_principal´).AsString;
Cadastro_Clientes.Edit_Cep_princ.text := DM.Tbl_Clientes.FieldByName(´cep_principal´).AsString;
Cadastro_Clientes.Edit_CxPostal_princ.text := DM.Tbl_Clientes.FieldByName(´cx_postal_principal´).AsString;

Cadastro_Clientes.Edit_Endereco_Cobr.text := DM.Tbl_Clientes.FieldByName(´Rua_cobranca´).AsString;
Cadastro_Clientes.Edit_bairro_Cobr.text := DM.Tbl_Clientes.FieldByName(´bairro_cobranca´).AsString;
Cadastro_Clientes.Edit_Cidade_Cobr.text := DM.Tbl_Clientes.FieldByName(´cidade_cobranca´).AsString;
Cadastro_Clientes.Combo_UF_Cobr.text := DM.Tbl_Clientes.FieldByName(´UF_Cobranca´).AsString;
Cadastro_Clientes.Combo_Pais_Cobr.text := DM.Tbl_Clientes.FieldByName(´pais_cobranca´).AsString;
Cadastro_Clientes.Edit_Cep_Cobr.text := DM.Tbl_Clientes.FieldByName(´cep_cobranca´).AsString;
Cadastro_Clientes.Edit_CxPostal_Cobr.text := DM.Tbl_Clientes.FieldByName(´cx_postal_cobranca´).AsString;

Cadastro_Clientes.Edit_Depto.text := DM.Tbl_Clientes.FieldByName(´departamento´).AsString;
Cadastro_Clientes.Edit_mail.text := DM.Tbl_Clientes.FieldByName(´Email´).AsString;
Cadastro_Clientes.Edit_URL.text := DM.Tbl_Clientes.FieldByName(´URL´).AsString;
Cadastro_Clientes.Memo_Obs.Lines.text := DM.Tbl_Clientes.FieldByName(´OBS´).AsString;
Cadastro_Clientes.Edit_Pai.text := DM.Tbl_Clientes.FieldByName(´pai´).AsString;
Cadastro_Clientes.Edit_mae.text := DM.Tbl_Clientes.FieldByName(´mae´).AsString;
Cadastro_Clientes.Edit_Conjuge.text := DM.Tbl_Clientes.FieldByName(´conjuge´).AsString;
Cadastro_Clientes.Edit_Desconto.text := DM.Tbl_Clientes.FieldByName(´desconto_maximo´).AsString;
Cadastro_Clientes.Combo_Estado_Civil.text := DM.Tbl_Clientes.FieldByName(´estado_civil´).AsString;
Cadastro_Clientes.Edit_Limite.text := DM.Tbl_Clientes.FieldByName(´limite_credito´).AsString;
//Cadastro_Clientes.Edit_receber.Clear;
//Cadastro_Clientes.Edit_Vencido.Clear;
//Cadastro_Clientes.Edit_Recebido.Clear;
//Cadastro_Clientes.Edit_juros.Clear;
//Cadastro_Clientes.Edit_nome.SetFocus;
//-----------------------------------------------
//radio Buttons
if DM.Tbl_Clientes.FieldByName(´categoria´).AsString = ´F´ then
Cadastro_Clientes.RB1.Buttons[0].Checked := True
else
Cadastro_Clientes.RB1.Buttons[1].Checked := True;


if DM.Tbl_Clientes.FieldByName(´tipo´).AsString = ´C´ then
Cadastro_Clientes.RB2.Buttons[0].Checked := True
else
Cadastro_Clientes.RB2.Buttons[1].Checked := True;

Btn_Salva.Enabled := False;
Btn_Editar.Enabled := True;
Btn_Excluir.Enabled := True;
//-----------------------------------------------

end;

procedure TCadastro_Clientes.Btn_SalvaClick(Sender: TObject);
begin



if Cadastro_Clientes.Edit_Nome.Text = ´´ then
ShowMessage(´Campo Nome está vazio, por favor verifique´)
else
begin
try
DM.Tbl_Clientes.Open;
DM.Tbl_Clientes.insert;

//--------- responsavel pro salvar imagem na tabela -------
if OpenPictureDialog1.FileName = ´´ then
DM.Tbl_ClientesImagem := DM.Tbl_ClientesImagem
else
Dm.Tbl_ClientesImagem.LoadFromFile(OpenPictureDialog1.FileName);
//---------------------------------------------------------
DM.Tbl_Clientes.FieldByName(´Nome´).AsString := Cadastro_Clientes.Edit_Nome.text;
DM.Tbl_Clientes.FieldByName(´codigo´).AsInteger := StrToInt(Edit_Codigo.Text);
DM.Tbl_Clientes.FieldByName(´Fantasia´).AsString := Cadastro_Clientes.Edit_Fantasia.text;
DM.Tbl_Clientes.FieldByName(´contato´).AsString := Cadastro_Clientes.Edit_Contato.text;
DM.Tbl_Clientes.FieldByName(´cargo´).AsString := Cadastro_Clientes.Edit_Cargo.text;
DM.Tbl_Clientes.FieldByName(´atividade´).AsString := Cadastro_Clientes.Combo_Atividade.Text;
DM.Tbl_Clientes.FieldByName(´qualificacao´).AsString := Cadastro_Clientes.Combo_Qualificacao.Text;
DM.Tbl_Clientes.FieldByName(´nascimento´).AsDateTime := Cadastro_Clientes.Data1.Date;
DM.Tbl_Clientes.FieldByName(´cadastro´).AsDateTime := Cadastro_Clientes.Data2.Date;
DM.Tbl_Clientes.FieldByName(´visita´).AsDateTime := Cadastro_Clientes.Data3.Date;
DM.Tbl_Clientes.FieldByName(´fone1´).AsString := Cadastro_Clientes.Edit_Fone1.text;
DM.Tbl_Clientes.FieldByName(´fone2´).AsString := Cadastro_Clientes.Edit_Fone2.text;
DM.Tbl_Clientes.FieldByName(´fax´).AsString := Cadastro_Clientes.Edit_Fax.text;
DM.Tbl_Clientes.FieldByName(´celular´).AsString := Cadastro_Clientes.Edit_Celular.text;

//----------------------------

if Cadastro_Clientes.RB1.ItemIndex = 0 then
DM.Tbl_Clientes.FieldByName(´categoria´).AsString := ´F´
else
DM.Tbl_Clientes.FieldByName(´categoria´).AsString := ´J´;

//----------------------------

DM.Tbl_Clientes.FieldByName(´CPF_CNPJ´).AsString := Cadastro_Clientes.Edit_CPF.text;

//----------------------------

if Cadastro_Clientes.RB2.ItemIndex = 0 then
DM.Tbl_Clientes.FieldByName(´tipo´).AsString := ´C´
else
DM.Tbl_Clientes.FieldByName(´tipo´).AsString := ´R´;

//----------------------------

DM.Tbl_Clientes.FieldByName(´RG_IE´).AsString := Cadastro_Clientes.Edit_RG.text;

DM.Tbl_Clientes.FieldByName(´Rua_Principal´).AsString := Cadastro_Clientes.Edit_Endereco_princ.text;
DM.Tbl_Clientes.FieldByName(´bairro_principal´).AsString := Cadastro_Clientes.Edit_bairro_princ.text;
DM.Tbl_Clientes.FieldByName(´cidade_principal´).AsString := Cadastro_Clientes.Edit_Cidade_princ.text;
DM.Tbl_Clientes.FieldByName(´UF_principal´).AsString := Cadastro_Clientes.Combo_UF_princ.text;
DM.Tbl_Clientes.FieldByName(´pais_principal´).AsString := Cadastro_Clientes.Combo_Pais_princ.text;
DM.Tbl_Clientes.FieldByName(´cep_principal´).AsString := Cadastro_Clientes.Edit_Cep_princ.text;
DM.Tbl_Clientes.FieldByName(´cx_postal_principal´).AsString := Cadastro_Clientes.Edit_CxPostal_princ.text;

DM.Tbl_Clientes.FieldByName(´Rua_cobranca´).AsString := Cadastro_Clientes.Edit_Endereco_Cobr.text;
DM.Tbl_Clientes.FieldByName(´bairro_cobranca´).AsString := Cadastro_Clientes.Edit_bairro_Cobr.text;
DM.Tbl_Clientes.FieldByName(´cidade_cobranca´).AsString := Cadastro_Clientes.Edit_Cidade_Cobr.text;
DM.Tbl_Clientes.FieldByName(´UF_Cobranca´).AsString := Cadastro_Clientes.Combo_UF_Cobr.text;
DM.Tbl_Clientes.FieldByName(´pais_cobranca´).AsString := Cadastro_Clientes.Combo_Pais_Cobr.text;
DM.Tbl_Clientes.FieldByName(´cep_cobranca´).AsString := Cadastro_Clientes.Edit_Cep_Cobr.text;
DM.Tbl_Clientes.FieldByName(´cx_postal_cobranca´).AsString := Cadastro_Clientes.Edit_CxPostal_Cobr.text;

DM.Tbl_Clientes.FieldByName(´departamento´).AsString := Cadastro_Clientes.Edit_Depto.text;
DM.Tbl_Clientes.FieldByName(´Email´).AsString := Cadastro_Clientes.Edit_mail.text;
DM.Tbl_Clientes.FieldByName(´URL´).AsString := Cadastro_Clientes.Edit_URL.text;
DM.Tbl_Clientes.FieldByName(´OBS´).AsString := Cadastro_Clientes.Memo_Obs.Lines.text;
DM.Tbl_Clientes.FieldByName(´pai´).AsString := Cadastro_Clientes.Edit_Pai.text;
DM.Tbl_Clientes.FieldByName(´mae´).AsString := Cadastro_Clientes.Edit_mae.text;
DM.Tbl_Clientes.FieldByName(´conjuge´).AsString := Cadastro_Clientes.Edit_Conjuge.text;
DM.Tbl_Clientes.FieldByName(´desconto_maximo´).AsString := Cadastro_Clientes.Edit_Desconto.text;
DM.Tbl_Clientes.FieldByName(´estado_civil´).AsString := Cadastro_Clientes.Combo_Estado_Civil.text;
DM.Tbl_Clientes.FieldByName(´limite_credito´).AsString := Cadastro_Clientes.Edit_Limite.text;
DM.Tbl_Clientes.post;
DM.Tbl_Clientes.ApplyUpdates;
DM.Tbl_Clientes.Close;
ShowMessage(´Cliente Cadastrado Com Sucesso.´);
limpa_Edit;
Btn_Salva.Enabled := False;
Btn_Editar.Enabled := False;
Btn_Excluir.Enabled := False;
except on exception do
begin
ShowMessage(´Operação ilegal, verifique se nao há algum erro, ou se o Cliente ja não existe e tente novamente.´);
DM.Tbl_Clientes.Cancel;
DM.Tbl_Clientes.Close;
end;
end;
end;
end;

procedure TCadastro_Clientes.Btn_EditarClick(Sender: TObject);
begin
try
DM.Tbl_Clientes.Open;
DM.Tbl_Clientes.Edit;

//--------- responsavel pro Editar imagem na tabela -------
if OpenPictureDialog1.FileName = ´´ then
DM.Tbl_ClientesImagem := DM.Tbl_ClientesImagem
else
Dm.Tbl_ClientesImagem.LoadFromFile(OpenPictureDialog1.FileName);
//---------------------------------------------------------
DM.Tbl_Clientes.FieldByName(´Nome´).AsString := Cadastro_Clientes.Edit_Nome.text;
DM.Tbl_Clientes.FieldByName(´codigo´).AsInteger := StrToInt(Edit_Codigo.Text);
DM.Tbl_Clientes.FieldByName(´Fantasia´).AsString := Cadastro_Clientes.Edit_Fantasia.text;
DM.Tbl_Clientes.FieldByName(´contato´).AsString := Cadastro_Clientes.Edit_Contato.text;
DM.Tbl_Clientes.FieldByName(´cargo´).AsString := Cadastro_Clientes.Edit_Cargo.text;
DM.Tbl_Clientes.FieldByName(´atividade´).AsString := Cadastro_Clientes.Combo_Atividade.Text;
DM.Tbl_Clientes.FieldByName(´qualificacao´).AsString := Cadastro_Clientes.Combo_Qualificacao.Text;
DM.Tbl_Clientes.FieldByName(´nascimento´).AsDateTime := Cadastro_Clientes.Data1.Date;
DM.Tbl_Clientes.FieldByName(´cadastro´).AsDateTime := Cadastro_Clientes.Data2.Date;
DM.Tbl_Clientes.FieldByName(´visita´).AsDateTime := Cadastro_Clientes.Data3.Date;
DM.Tbl_Clientes.FieldByName(´fone1´).AsString := Cadastro_Clientes.Edit_Fone1.text;
DM.Tbl_Clientes.FieldByName(´fone2´).AsString := Cadastro_Clientes.Edit_Fone2.text;
DM.Tbl_Clientes.FieldByName(´fax´).AsString := Cadastro_Clientes.Edit_Fax.text;
DM.Tbl_Clientes.FieldByName(´celular´).AsString := Cadastro_Clientes.Edit_Celular.text;

//----------------------------

if Cadastro_Clientes.RB1.ItemIndex = 0 then
DM.Tbl_Clientes.FieldByName(´categoria´).AsString := ´F´
else
DM.Tbl_Clientes.FieldByName(´categoria´).AsString := ´J´;

//----------------------------

DM.Tbl_Clientes.FieldByName(´CPF_CNPJ´).AsString := Cadastro_Clientes.Edit_CPF.text;

//----------------------------

if Cadastro_Clientes.RB2.ItemIndex = 0 then
DM.Tbl_Clientes.FieldByName(´tipo´).AsString := ´C´
else
DM.Tbl_Clientes.FieldByName(´tipo´).AsString := ´R´;

//----------------------------

DM.Tbl_Clientes.FieldByName(´RG_IE´).AsString := Cadastro_Clientes.Edit_RG.text;

DM.Tbl_Clientes.FieldByName(´Rua_Principal´).AsString := Cadastro_Clientes.Edit_Endereco_princ.text;
DM.Tbl_Clientes.FieldByName(´bairro_principal´).AsString := Cadastro_Clientes.Edit_bairro_princ.text;
DM.Tbl_Clientes.FieldByName(´cidade_principal´).AsString := Cadastro_Clientes.Edit_Cidade_princ.text;
DM.Tbl_Clientes.FieldByName(´UF_principal´).AsString := Cadastro_Clientes.Combo_UF_princ.text;
DM.Tbl_Clientes.FieldByName(´pais_principal´).AsString := Cadastro_Clientes.Combo_Pais_princ.text;
DM.Tbl_Clientes.FieldByName(´cep_principal´).AsString := Cadastro_Clientes.Edit_Cep_princ.text;
DM.Tbl_Clientes.FieldByName(´cx_postal_principal´).AsString := Cadastro_Clientes.Edit_CxPostal_princ.text;

DM.Tbl_Clientes.FieldByName(´Rua_cobranca´).AsString := Cadastro_Clientes.Edit_Endereco_Cobr.text;
DM.Tbl_Clientes.FieldByName(´bairro_cobranca´).AsString := Cadastro_Clientes.Edit_bairro_Cobr.text;
DM.Tbl_Clientes.FieldByName(´cidade_cobranca´).AsString := Cadastro_Clientes.Edit_Cidade_Cobr.text;
DM.Tbl_Clientes.FieldByName(´UF_Cobranca´).AsString := Cadastro_Clientes.Combo_UF_Cobr.text;
DM.Tbl_Clientes.FieldByName(´pais_cobranca´).AsString := Cadastro_Clientes.Combo_Pais_Cobr.text;
DM.Tbl_Clientes.FieldByName(´cep_cobranca´).AsString := Cadastro_Clientes.Edit_Cep_Cobr.text;
DM.Tbl_Clientes.FieldByName(´cx_postal_cobranca´).AsString := Cadastro_Clientes.Edit_CxPostal_Cobr.text;

DM.Tbl_Clientes.FieldByName(´departamento´).AsString := Cadastro_Clientes.Edit_Depto.text;
DM.Tbl_Clientes.FieldByName(´Email´).AsString := Cadastro_Clientes.Edit_mail.text;
DM.Tbl_Clientes.FieldByName(´URL´).AsString := Cadastro_Clientes.Edit_URL.text;
DM.Tbl_Clientes.FieldByName(´OBS´).AsString := Cadastro_Clientes.Memo_Obs.Lines.text;
DM.Tbl_Clientes.FieldByName(´pai´).AsString := Cadastro_Clientes.Edit_Pai.text;
DM.Tbl_Clientes.FieldByName(´mae´).AsString := Cadastro_Clientes.Edit_mae.text;
DM.Tbl_Clientes.FieldByName(´conjuge´).AsString := Cadastro_Clientes.Edit_Conjuge.text;
DM.Tbl_Clientes.FieldByName(´desconto_maximo´).AsString := Cadastro_Clientes.Edit_Desconto.text;
DM.Tbl_Clientes.FieldByName(´estado_civil´).AsString := Cadastro_Clientes.Combo_Estado_Civil.text;
DM.Tbl_Clientes.FieldByName(´limite_credito´).AsString := Cadastro_Clientes.Edit_Limite.text;
DM.Tbl_Clientes.post;
DM.Tbl_Clientes.ApplyUpdates;
DM.Tbl_Clientes.Close;
ShowMessage(´Cliente Editado Com Sucesso.´);
limpa_Edit;
Btn_Salva.Enabled := False;
Btn_Editar.Enabled := False;
Btn_Excluir.Enabled := False;
except on exception do
begin
ShowMessage(´Operação ilegal, verifique se nao há algum erro, ou se o Cliente ja não existe e tente novamente.´);
DM.Tbl_Clientes.Cancel;
DM.Tbl_Clientes.Close;;
end;
end;
end;

procedure TCadastro_Clientes.Edit_CPFExit(Sender: TObject);
begin
// checagem de CPF / CNPJ
if Cadastro_Clientes.RB1.ItemIndex = 0 then
Cadastro_Clientes.Edit_CPF.EditType := etCGC
else
Cadastro_Clientes.Edit_CPF.EditType := etCPF;

end;

procedure TCadastro_Clientes.Btn_ExcluirClick(Sender: TObject);
var
zera : integer;
begin

Zera := Application.MessageBox(´Realmente deseja excluir esse cliente?´, ´CONFIRME´, mb_yesno);
if zera = IDYES Then
begin
try
DM.Tbl_Clientes.Open;
DM.Tbl_Clientes.Delete;
DM.Tbl_Clientes.ApplyUpdates;
Limpa_Edit;
Cadastro_Clientes.PageControl2.ActivePage := TabSheet4;
Cadastro_Clientes.PageControl1.ActivePage := TabSheet1;
Cadastro_Clientes.Edit_nome.SetFocus;
ShowMessage(´Cliente Deletado Com Sucesso.´);
limpa_Edit;
Btn_Salva.Enabled := False;
Btn_Editar.Enabled := False;
Btn_Excluir.Enabled := False;
except on exception do
begin
ShowMessage(´Não há mais clientes para excluir.´);
DM.Tbl_Clientes.Cancel;
DM.Tbl_Clientes.Close;
end;
end;
end;
end;

procedure TCadastro_Clientes.Btn_PesquisaClick(Sender: TObject);
begin
if Consulta_Cliente = nil then
Consulta_Cliente := TConsulta_Cliente.Create ( Application );
Consulta_Cliente.Show; { ou Form1.ShowModal; }
end;

procedure TCadastro_Clientes.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Cadastro_Clientes := nil;
Action := caFree;
end;

procedure TCadastro_Clientes.FormCreate(Sender: TObject);
begin
Btn_Salva.Enabled := False;
Btn_Editar.Enabled := False;
Btn_Excluir.Enabled := False;
end;

end.


Mahdak

Mahdak

Responder

Posts

20/10/2004

Mahdak

Pessoal desculpa, mais essa é a Unit correta:
------------------------------------------------------------


unit Unit_Contatos;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Mask, Grids, DBGrids, WinSkinData, DB,
DBTables, ShellApi, DBCtrls, IBCustomDataSet, IBQuery;

type
TContatos = class(TForm)
Label25: TLabel;
Label8: TLabel;
Label10: TLabel;
Edit_Mail1: TEdit;
Label24: TLabel;
Edit_Mail2: TEdit;
Label23: TLabel;
Edit_Empresa: TEdit;
Label22: TLabel;
Edit_Funcao: TEdit;
Label11: TLabel;
Edit_Fone1: TMaskEdit;
Edit_Fone3: TMaskEdit;
Label13: TLabel;
Label12: TLabel;
Edit_Fone2: TMaskEdit;
Label14: TLabel;
Edit_Rua: TEdit;
Label15: TLabel;
Edit_Bairro: TEdit;
Label16: TLabel;
Edit_Cidade: TEdit;
Label20: TLabel;
Label17: TLabel;
Edit_Numero: TEdit;
Edit_Condominio: TEdit;
Label18: TLabel;
Label19: TLabel;
Edit_Bloco: TEdit;
GroupBox1: TGroupBox;
Label21: TLabel;
Edit_Procura: TEdit;
SpeedButton10: TSpeedButton;
Btn_Excluir_Contato: TSpeedButton;
Btn_Edita_Contato: TSpeedButton;
Btn_Cancela_Contato: TSpeedButton;
Btn_Salvar: TSpeedButton;
SpeedButton7: TSpeedButton;
Edit_UF: TComboBox;
SpeedButton1: TSpeedButton;
DBGrid1: TDBGrid;
Edit_Nome: TEdit;
Qry_Consulta: TIBQuery;
DS_Consulta: TDataSource;
Qry_ConsultaNOME: TIBStringField;
Qry_ConsultaMAIL1: TIBStringField;
Qry_ConsultaMAIL2: TIBStringField;
Qry_ConsultaEMPRESA: TIBStringField;
Qry_ConsultaFUNCAO: TIBStringField;
Qry_ConsultaFONE1: TIBStringField;
Qry_ConsultaFONE2: TIBStringField;
Qry_ConsultaFONE3: TIBStringField;
Qry_ConsultaRUA: TIBStringField;
Qry_ConsultaBAIRRO: TIBStringField;
Qry_ConsultaCIDADE: TIBStringField;
Qry_ConsultaUF: TIBStringField;
Qry_ConsultaNUMERO: TIBStringField;
Qry_ConsultaCONDOMINIO: TIBStringField;
Qry_ConsultaBLOCO: TIBStringField;
procedure SpeedButton7Click(Sender: TObject);
procedure Btn_SalvarClick(Sender: TObject);
procedure Btn_Cancela_ContatoClick(Sender: TObject);
procedure Btn_Edita_ContatoClick(Sender: TObject);
procedure Btn_Excluir_ContatoClick(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Edit_ProcuraChange(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Contatos: TContatos;

implementation

uses Unit_DM;

{$R *.dfm}

Procedure Limpa_Edit;
Begin
// limpa edit
Contatos.Edit_Nome.Clear;
Contatos.Edit_Mail1.Clear;
Contatos.Edit_Mail2.Clear;
Contatos.Edit_Empresa.Clear;
Contatos.Edit_Funcao.Clear;
Contatos.Edit_Fone1.Clear;
Contatos.Edit_Fone2.Clear;
Contatos.Edit_Fone3.Clear;
Contatos.Edit_Rua.Clear;
Contatos.Edit_Bairro.Clear;
Contatos.Edit_Cidade.Clear;
Contatos.Edit_Uf.Text := ´´;
Contatos.Edit_Numero.Clear;
Contatos.Edit_Condominio.Clear;
Contatos.Edit_Bloco.Clear;
Contatos.Edit_Nome.SetFocus;
End;





procedure TContatos.SpeedButton7Click(Sender: TObject);
begin
Limpa_Edit;
Btn_Salvar.Enabled := True;
Btn_Edita_Contato.Enabled := False;
end;

procedure TContatos.Btn_SalvarClick(Sender: TObject);
var
Nome,Mail1,Mail2,Empresa,Funcao,fone1,fone2,a : String;
fone3,Rua,Bairro,Cidade,Uf,Numero,Condominio,Bloco : String;
begin
Nome := Edit_Nome.Text;
Mail1 := Edit_Mail1.Text;
Mail2 := Edit_Mail2.Text;
Empresa := Edit_Empresa.Text;
Funcao := Edit_Funcao.Text;
fone1 := Edit_Fone1.Text;
fone2 := Edit_Fone2.Text;
fone3 := Edit_Fone3.Text;
Rua := Edit_Rua.Text;
Bairro := Edit_Bairro.Text;
Cidade := Edit_Cidade.Text;
Uf := Edit_Uf.Text;
Numero := Edit_Numero.Text;
Condominio := Edit_Condominio.Text;
Bloco := Edit_Bloco.Text;

if Nome = ´´ then begin
ShowMessage(´Não Foi especificado um Nome !´);
Edit_Nome.SetFocus;
end
else begin

//try


//DM.Tbl_Contatos.First;
//DM.Tbl_Contatos.Insert;
DM.Tbl_Contatos.open;
DM.Tbl_Contatos.insert;

If Not(DM.Tr_Contatos.InTransaction) Then
DM.Tr_Contatos.StartTransaction;

DM.Tbl_ContatosNOME.AsString := Nome;
DM.Tbl_ContatosMAIL1.AsString := Mail1;
DM.Tbl_ContatosMAIL2.AsString := Mail2;
DM.Tbl_ContatosEMPRESA.AsString := Empresa;
DM.Tbl_ContatosFUNCAO.AsString := Funcao;
DM.Tbl_ContatosFONE1.AsString := Fone1;
DM.Tbl_ContatosFONE2.AsString := Fone2;
DM.Tbl_ContatosFONE3.AsString := Fone3;
DM.Tbl_ContatosRUA.AsString := Rua;
DM.Tbl_ContatosBAIRRO.AsString := Bairro;
DM.Tbl_ContatosCIDADE.AsString := Cidade;
DM.Tbl_ContatosUF.AsString := Uf;
DM.Tbl_ContatosNUMERO.AsString := Numero;
DM.Tbl_ContatosCONDOMINIO.AsString := Condominio;
DM.Tbl_ContatosBLOCO.AsString := Bloco;
DM.Tbl_Contatos.Post;
DM.Tbl_Contatos.ApplyUpdates;


End;
Limpa_Edit;
Qry_Consulta.Close;
Qry_Consulta.SQL.Clear;
a:=´Select * From Contatos´;
Qry_Consulta.SQL.Add(a);
Qry_Consulta.Open;



//except on exception do
//begin
//ShowMessage(´Operação Ilegal, Tente Novamente.´);
//DM.Tbl_Contatos.Cancel;
//end;
//end;
//end;
end;

procedure TContatos.Btn_Cancela_ContatoClick(Sender: TObject);
begin
DM.Tbl_Contatos.Cancel;
limpa_edit;


end;

procedure TContatos.Btn_Edita_ContatoClick(Sender: TObject);
var
Nome,Mail1,Mail2,Empresa,Funcao,fone1,fone2,a : String;
fone3,Rua,Bairro,Cidade,Uf,Numero,Condominio,Bloco : String;
begin
Nome := Edit_Nome.Text;
Mail1 := Edit_Mail1.Text;
Mail2 := Edit_Mail2.Text;
Empresa := Edit_Empresa.Text;
Funcao := Edit_Funcao.Text;
fone1 := Edit_Fone1.Text;
fone2 := Edit_Fone2.Text;
fone3 := Edit_Fone3.Text;
Rua := Edit_Rua.Text;
Bairro := Edit_Bairro.Text;
Cidade := Edit_Cidade.Text;
Uf := Edit_Uf.Text;
Numero := Edit_Numero.Text;
Condominio := Edit_Condominio.Text;
Bloco := Edit_Bloco.Text;
Btn_Salvar.Enabled := True;
Btn_Edita_Contato.Enabled := False;

//try



DM.Tbl_Contatos.Edit;
DM.Tbl_Contatos.FieldByName(´Nome´).AsString := Nome;
DM.Tbl_Contatos.FieldByName(´Mail1´).AsString := Mail1;
DM.Tbl_Contatos.FieldByName(´Mail2´).AsString := Mail2;
DM.Tbl_Contatos.FieldByName(´Empresa´).AsString := Empresa;
DM.Tbl_Contatos.FieldByName(´Funcao´).AsString := Funcao;
DM.Tbl_Contatos.FieldByName(´Fone1´).AsString := Fone1;
DM.Tbl_Contatos.FieldByName(´Fone2´).AsString := Fone2;
DM.Tbl_Contatos.FieldByName(´Fone3´).AsString := Fone3;
DM.Tbl_Contatos.FieldByName(´Rua´).AsString := Rua;
DM.Tbl_Contatos.FieldByName(´Bairro´).AsString := Bairro;
DM.Tbl_Contatos.FieldByName(´Cidade´).AsString := Cidade;
DM.Tbl_Contatos.FieldByName(´Uf´).AsString := Uf;
DM.Tbl_Contatos.FieldByName(´Numero´).AsString := Numero;
DM.Tbl_Contatos.FieldByName(´Condominio´).AsString := Condominio;
DM.Tbl_Contatos.FieldByName(´Bloco´).AsString := Bloco;
DM.Tbl_Contatos.Post;
DM.Tbl_Contatos.ApplyUpdates;
limpa_edit;

Qry_Consulta.Close;
Qry_Consulta.SQL.Clear;
a:=´Select * From Contatos´;
Qry_Consulta.SQL.Add(a);
Qry_Consulta.Open

//except on exception do
//begin
//ShowMessage(´Operação Ilegal, Tente Novamente.´);
//DM.Tbl_Contatos.Cancel;
//end;
//end;
end;

procedure TContatos.Btn_Excluir_ContatoClick(Sender: TObject);
var
Zera : Integer;
begin
Zera := Application.MessageBox(´Realmente deseja Excluir Registro?´, ´CONFIRME´, mb_yesno);
if zera = IDYES Then
begin
Try
DM.Tbl_Contatos.Delete;
DM.Tbl_Contatos.ApplyUpdates;
except on exception do
showMessage(´Nao Ha mais registros para excluir´);
end;
end;
end;

procedure TContatos.SpeedButton10Click(Sender: TObject);
var Mail : String;
begin
if Edit_Mail1.Text = ´´ Then
begin
MessageBeep(0);
ShowMessage(´Campo e-mail sem destinatário, por favor selecione um de seus contatos e tente novamente!´);
end
else
begin
if Edit_Mail2.Text = ´´ then
begin
Mail := ´mailto:´+(Edit_Mail1.Text);
ShellExecute(GetDesktopWindow,´open´,pchar(Mail),nil,nil,sw_ShowNormal);
end
else
Mail := ´mailto:´+(Edit_Mail1.Text)+´, ´+(Edit_Mail2.Text);
ShellExecute(GetDesktopWindow,´open´,pchar(Mail),nil,nil,sw_ShowNormal);
end;
end;

procedure TContatos.SpeedButton1Click(Sender: TObject);
begin
DM.Tbl_Contatos.Cancel;
limpa_edit;

Close;
end;

procedure TContatos.FormCreate(Sender: TObject);
var a: string;
begin
DM.Tbl_Contatos.Close;
DM.Tbl_Contatos.Open;
DM.Tbl_Contatos.First;

Qry_Consulta.Close;
Qry_Consulta.SQL.Clear;
a:=´Select * From Contatos´;
Qry_Consulta.SQL.Add(a);
Qry_Consulta.Open;



// traz dados para os edits
Edit_Nome.Text := DM.Tbl_Contatos.FieldByName(´Nome´).AsString;
Edit_Mail1.Text := DM.Tbl_Contatos.FieldByName(´Mail1´).AsString ;
Edit_Mail2.Text := DM.Tbl_Contatos.FieldByName(´Mail2´).AsString ;
Edit_Empresa.Text := DM.Tbl_Contatos.FieldByName(´Empresa´).AsString ;
Edit_Funcao.Text := DM.Tbl_Contatos.FieldByName(´Funcao´).AsString ;
Edit_Fone1.Text := DM.Tbl_Contatos.FieldByName(´Fone1´).AsString;
Edit_Fone2.Text := DM.Tbl_Contatos.FieldByName(´Fone2´).AsString;
Edit_Fone3.Text := DM.Tbl_Contatos.FieldByName(´Fone3´).AsString;
Edit_Rua.Text := DM.Tbl_Contatos.FieldByName(´Rua´).AsString;
Edit_Bairro.Text := DM.Tbl_Contatos.FieldByName(´Bairro´).AsString;
Edit_Cidade.Text := DM.Tbl_Contatos.FieldByName(´Cidade´).AsString;
Edit_Uf.Text := DM.Tbl_Contatos.FieldByName(´Uf´).AsString;
Edit_Numero.Text := DM.Tbl_Contatos.FieldByName(´Numero´).AsString;
Edit_Condominio.Text := DM.Tbl_Contatos.FieldByName(´Condominio´).AsString;
Edit_Bloco.Text := DM.Tbl_Contatos.FieldByName(´Bloco´).AsString;
Edit_Procura.clear;
Btn_Salvar.Enabled := true;
Btn_Edita_Contato.Enabled := True;



end;

procedure TContatos.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DM.Tbl_Contatos.Close;
Contatos := nil;
Action := caFree;
end;

procedure TContatos.Edit_ProcuraChange(Sender: TObject);
var a,b,c: String;
begin
Qry_Consulta.Close;
Qry_Consulta.SQL.Clear;
a:=´Select * From Contatos ´;
b:=´Where NOME Like:Consulta ´;
c:=´Order By Nome´;
Qry_Consulta.SQL.Add(a+b+c);
Qry_Consulta.Params[0].AsString;
Qry_Consulta.ParamByName(´Consulta´).AsString:=´´+´¬´+Edit_Procura.Text+´¬´;
//Qry_Consulta.Close;
Qry_Consulta.Open;


// traz dados para os edits
Edit_Nome.Text := Qry_ConsultaNome.AsString;
Edit_Mail1.Text := Qry_ConsultaMail1.AsString ;
Edit_Mail2.Text := Qry_ConsultaMail2.AsString ;
Edit_Empresa.Text := Qry_ConsultaEmpresa.AsString ;
Edit_Funcao.Text := Qry_ConsultaFuncao.AsString ;
Edit_Fone1.Text := Qry_ConsultaFone1.AsString;
Edit_Fone2.Text := Qry_ConsultaFone2.AsString;
Edit_Fone3.Text := Qry_ConsultaFone3.AsString;
Edit_Rua.Text := Qry_ConsultaRua.AsString;
Edit_Bairro.Text := Qry_ConsultaBairro.AsString;
Edit_Cidade.Text := Qry_ConsultaCidade.AsString;
Edit_Uf.Text := Qry_ConsultaUf.AsString;
Edit_Numero.Text := Qry_ConsultaNumero.AsString;
Edit_Condominio.Text := Qry_ConsultaCondominio.AsString;
Edit_Bloco.Text := Qry_ConsultaBloco.AsString;
Btn_Salvar.Enabled := False;
Btn_Edita_Contato.Enabled := True;

end;

procedure TContatos.DBGrid1CellClick(Column: TColumn);
begin
// traz dados para os edits
Edit_Nome.Text := Qry_ConsultaNome.AsString;
Edit_Mail1.Text := Qry_ConsultaMail1.AsString ;
Edit_Mail2.Text := Qry_ConsultaMail2.AsString ;
Edit_Empresa.Text := Qry_ConsultaEmpresa.AsString ;
Edit_Funcao.Text := Qry_ConsultaFuncao.AsString ;
Edit_Fone1.Text := Qry_ConsultaFone1.AsString;
Edit_Fone2.Text := Qry_ConsultaFone2.AsString;
Edit_Fone3.Text := Qry_ConsultaFone3.AsString;
Edit_Rua.Text := Qry_ConsultaRua.AsString;
Edit_Bairro.Text := Qry_ConsultaBairro.AsString;
Edit_Cidade.Text := Qry_ConsultaCidade.AsString;
Edit_Uf.Text := Qry_ConsultaUf.AsString;
Edit_Numero.Text := Qry_ConsultaNumero.AsString;
Edit_Condominio.Text := Qry_ConsultaCondominio.AsString;
Edit_Bloco.Text := Qry_ConsultaBloco.AsString;
Btn_Salvar.Enabled := False;
Btn_Edita_Contato.Enabled := True;
end;

end.


Responder

Gostei + 0

20/10/2004

Gandalf.nho

[b:de508b2fd1][color=red:de508b2fd1]Notificação de Infração às Regras de Conduta :[/color:de508b2fd1][/b:de508b2fd1]

Tópico duplicado

Para maiores esclarecimentos pode mandar-me uma [url=http://delphiforum.icft.com.br/forum/privmsg.php?mode=post&u=8378]Mensagem Particular[/url].


Responder

Gostei + 0

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

Aceitar