Hola
Código Delphi
[-]
if ventana = 'Clientes' then
begin
if FrmCliente = nil then
begin
FrmCliente := TfrmCliente.create(FrmCliente);
Try
FrmCliente.Parent := FrmPrincipal.Panel4;
FrmCliente.Caption := 'Clientes';
dmacceso.cdsClientes.Active := True;
dmacceso.cdsClientes.Last;
dmacceso.cdsClientes.Insert;
FrmCliente.Show;
finally
If FrmCliente.Caption <> ' ' then
Begin
FrmPrincipal.TabSet1.Tabs.add(FrmCliente.Caption);
FrmPrincipal.TabSet1.TabIndex := FrmPrincipal.TabSet1.Tabs.Count - 1;
end;
end;
end
end;
Código Delphi
[-]procedure TfrmCliente.btnGuardarClick(Sender: TObject);
begin
dmAcceso.cdsClientesPais.Value := cbexPais.text;
dmAcceso.cdsClientes.Post;
cbexpais.Text := 'Otro';
if Application.MessageBox('¿Desea Agregar Otro?', '',
MB_ICONQUESTION OR MB_YESNO ) = ID_NO then
begin
frmcliente.close;
end
else
Begin
dmacceso.cdsClientes.Active := False;
dmacceso.cdsClientes.Active := True;
dmacceso.cdsClientes.Last;
dmacceso.cdsClientes.Insert;
end;
end;
Saludos