como montar

[Ederson Sergio Coelho 0]

Bom gente to querendo fazendo um negocio aqui é o seguinte tipo em um cadastro os dados como Pais, Estado, Cidade E Etc são em uma tabela separada ou seja tem uma tabela para cada um e no cadastro de uma pessoa vai a chave estrangeira de cada um dai o que eu queria fazer que tivesse tipo um botão que abrira outro Form e ainda a pessoa vai poder escolher por exemplos os Paises e ae no Form do cadastro ir o codigo...

[_M!K0L_ 1]

1. Abre o Form1;

2. Crie outro Form2;

 

no Form1 crie um botão e dê 2click nele

 

e coloque

 

+/- assim.....

procedure TForm1.Button1Click(Sender: TObject);
begin
   Form2.Show;
end;

dai monta o visual do Form2

 

dai você chama os dado, no caso o número de registro pelo

 

OnShow do form2!!

 

procedure TForm2.FormShow(Sender: TObject);
begin
   Edit1.Text := Form1.Edit1.Text; //Coloca no Edit1 do Form2 o valor do Edit1 do Form1 :D
end;

[Ederson Sergio Coelho 0]

Tentei alguma coisa aqui parecida não consegui mais queria fazer exatamente assim amigo desse jeito que to tentando fazer eu tenho o Form Clientes la com pais, estado, tals ae tem o campo Edit para colocar o codigo dele pois é uma chava estrangeira da tabela clientes ae tem um botão do lado para abrir outro Form para a consulta dos Paises cadastrados ae a pessoa selecionaria o Pais que esta no DBGrid e clica em um botão confirmar e ae o codigo vai para o Form Clientes direto sem precisar que o usuario digite...

[Ederson Sergio Coelho 0]

unit UnitClientes;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, Mask, DBCtrls, DB, ADODB;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    SpeedButton1: TSpeedButton;
    Edit1: TEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses UnitPais;

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
  Edit1.Clear;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Form2.Show;
end;

end.


unit UnitPais;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons;

type
  TForm2 = class(TForm)
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses UnitClientes;

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
  Edit1.Text := Form1.Edit1.Text;
  Form2.Close;
end;

procedure TForm2.Edit1Change(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * From Pais Where IDPais Like' + QuotedStr(Edit1.Text + '%'));
  ADOQuery1.Open;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  Edit1.Clear;
end;

end.

Isso foi que fiz ate agora...