Fórum Atualizar DBGrid XE #486256

após o comando para salvar coloca clientdataset.ApplyUpdates(0);

DESSA FORMA QUE VC FEZ NO TIMER...QUANDO SEU BANCO DE DADOS CRESCER ELE VAI FICAR MUITO LENTO....

Mauricio o meu comando está desse jeito abaixo...
mas ainda não deu certo.


procedure TForm2.Button1Click(Sender: TObject);
var
Unit2 : TUnit2;

begin
//ataChegada := edtData.Date;
//raChegada := edtHora.Time;

Unit2 := TUnit2.Create(edit1.Text,Maskedit1.Text,edit3.Text,edit4.Text,edit5.Text,
Maskedit2.Text,Maskedit3.Text,edit8.Text,edit9.Text,edit10.Text,edit11.Text,edit12.Text,edit13.Text,edit14.Text,EDIT15.Text,
edit16.Text,Maskedit4.Text,Maskedit5.Text,edit19.Text,edit20.Text,edit21.Text,edit22.Text,edit23.Text,edit24.Text,edit25.Text,
edit26.Text,edit27.Text,edit28.Text,edit29.Text,edit30.Text,edit31.Text,Maskedit6.Text,edit33.Text,edit34.Text,edit35.Text,edit36.Text,edit2.Text);

if edit1.text =''then
begin
ShowMessage('Informe o Codigo !');
edit1.SetFocus;
abort;
end;
if Maskedit1.Text= '' then
begin
ShowMessage('Informe o Vencimento !');
Maskedit1.SetFocus;
abort;
end;
if edit3.Text = '' then
begin
ShowMessage('Informe o Nome !');
edit3.SetFocus;
abort;
end;
if edit4.Text= '' then
begin
ShowMessage('Informe o CPF !');
edit4.SetFocus;
abort;
end;
if edit5.Text = '' then
begin
ShowMessage('Informe o RG !');
edit5.SetFocus;
abort;
end;
if Maskedit2.Text = '' then
begin
ShowMessage('Informe a data de Emissão !');
Maskedit2.SetFocus;
abort;
end;
if Maskedit3.Text = '' then
begin
ShowMessage('Informe a Data Nascimento !');
Maskedit3.SetFocus;
abort;
end;
if edit8.Text = '' then
begin
ShowMessage('Informe o Endereço !');
edit8.SetFocus;
abort;
end;
if edit9.Text = '' then
begin
ShowMessage('Informe o Número !');
edit9.SetFocus;
abort;
end;
if edit10.Text = '' then
begin
ShowMessage('Informe o Bairro !');
edit10.SetFocus;
abort;
end;
if edit11.Text = '' then
begin
ShowMessage('Informe o CEP !');
edit11.SetFocus;
abort;
end;
if edit12.Text = '' then
begin
ShowMessage('Informe a Cidade !');
edit12.SetFocus;
abort;
end;
if edit13.Text = '' then
begin
ShowMessage('Informe o UF !');
edit13.SetFocus;
abort;
end;
if edit14.Text = '' then
begin
ShowMessage('Informe a CNH !');
edit14.SetFocus;
abort;
end;
if edit15.Text = '' then
begin
ShowMessage('Informe o Registro CNH !');
edit15.SetFocus;
abort;
end;
if edit16.Text = '' then
begin
ShowMessage('Informe a Categoria CNH !');
edit16.SetFocus;
abort;
end;
if Maskedit4.Text = '' then
begin
ShowMessage('Informe a Data da 1º Habilitação !');
Maskedit4.SetFocus;
abort;
end;
if Maskedit5.Text = '' then
begin
ShowMessage('Informe o Vencimento CNH !');
Maskedit5.SetFocus;
abort;
end;
if edit19.Text = '' then
begin
ShowMessage('Informe o RNTRC !');
edit19.SetFocus;
abort;
end;
if edit20.Text = '' then
begin
ShowMessage('Informe a Naturalidade !');
edit20.SetFocus;
abort;
end;
if edit21.Text = '' then
begin
ShowMessage('Informe o UF !');
edit21.SetFocus;
abort;
end;
if edit22.Text = '' then
begin
ShowMessage('Informe o Estado Civil !');
edit22.SetFocus;
abort;
end;
if edit23.Text = '' then
begin
ShowMessage('Informe o Fone Resp !');
edit23.SetFocus;
abort;
end;
if edit24.Text = '' then
begin
ShowMessage('Informe o Fone Celular !');
edit24.SetFocus;
abort;
end;
if edit25.Text = '' then
begin
ShowMessage('Informe o Nextel !');
edit25.SetFocus;
abort;
end;
if edit26.Text = '' then
begin
ShowMessage('Informe o E-mail !');
edit26.SetFocus;
abort;
end;
if edit27.Text = '' then
begin
ShowMessage('Informe a Agência !');
edit27.SetFocus;
abort;
end;
if edit28.Text = '' then
begin
ShowMessage('Informe a Conta !');
edit28.SetFocus;
abort;
end;
if edit29.Text = '' then
begin
ShowMessage('Informe o Banco !');
edit29.SetFocus;
abort;
end;
if edit30.Text = '' then
begin
ShowMessage('Informe o PIS/PASEP !');
edit30.SetFocus;
abort;
end;
if edit31.Text = '' then
begin
ShowMessage('Informe o Curso Mopp !');
edit31.SetFocus;
abort;
end;
if Maskedit6.Text = '' then
begin
ShowMessage('Informe o Vencimento Mopp !');
Maskedit6.SetFocus;
abort;
end;
if edit33.Text = '' then
begin
ShowMessage('Informe o Pai !');
edit33.SetFocus;
abort;
end;
if edit34.Text = '' then
begin
ShowMessage('Informe a Mãe !');
edit34.SetFocus;
abort;
end;
if edit35.Text = '' then
begin
ShowMessage('Informe uma Refêrencia Pessoal !');
edit35.SetFocus;
abort;
end;
if edit36.Text = '' then
begin
ShowMessage('Informe o Contato Pessoal !');
edit36.SetFocus;
abort;
end;
if edit2.Text = '' then
begin
// ShowMessage('Informe o Contato Pessoal !');
edit2.SetFocus;
abort;
end;
begin;
Unit2.Insert;

DataModule1.ClientDataSet1.ApplyUpdates(0);
DataModule1.ClientDataSet1.Refresh;
DataModule1.SQLQuery1.Refresh;


// DataModule1.ClientDataSet1.Active := true;
end;
end;