Fórum Cadastro único com mestre detalhe entre 4 tabelas #600773

unit uCadastrarNovoContato;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.ExtCtrls, Vcl.DBCtrls,
  Vcl.Grids, Vcl.DBGrids, Data.Win.ADODB, Vcl.StdCtrls, Vcl.Mask, uDmPrincipal;

type
  TFrmCadastrarNovoContato = class(TForm)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    DBComboBox1: TDBComboBox;
    Label4: TLabel;
    DBEdit2: TDBEdit;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    Label6: TLabel;
    DBEdit5: TDBEdit;
    Label7: TLabel;
    DBEdit6: TDBEdit;
    Label8: TLabel;
    DBEdit7: TDBEdit;
    Label9: TLabel;
    DBEdit8: TDBEdit;
    Label10: TLabel;
    Button1: TButton;
    Button5: TButton;
    Button6: TButton;
    DBCEstado: TDBComboBox;
    procedure Button1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button5Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmCadastrarNovoContato: TFrmCadastrarNovoContato;

implementation

{$R *.dfm}

procedure TFrmCadastrarNovoContato.Button1Click(Sender: TObject);
begin
DmPrincipal.ADOTPessoa.Active:=True;
DmPrincipal.ADOTContato.Active:=True;
DmPrincipal.ADOTEmail.Active:=True;
DmPrincipal.ADOTEndereco.Active:=True;
DmPrincipal.ADOTPessoa.Insert;
DmPrincipal.ADOTContato.Insert;
DmPrincipal.ADOTEmail.Insert;
DmPrincipal.ADOTEndereco.Insert;
DBCEstado.ItemIndex := 15;
DBEdit1.SetFocus;
end;

procedure TFrmCadastrarNovoContato.Button5Click(Sender: TObject);
begin

end;

procedure TFrmCadastrarNovoContato.Button6Click(Sender: TObject);
begin
Application.Terminate
end;


procedure TFrmCadastrarNovoContato.FormShow(Sender: TObject);
begin
DmPrincipal.ADOTPessoa.Active:=false;
DmPrincipal.ADOTContato.Active:=false;
DmPrincipal.ADOTEmail.Active:=false;
DmPrincipal.ADOTEndereco.Active:=false;
Button1.SetFocus;
end;

end.