dbgrid

[eylem_guler]

aktif form üzerinde bir butonla açtığım diğer formda bulunan dbgrid içindeki kayıtlardan seçtiğim bir kaydı enter tuşuna bastığımda aktif form üzerinde görmek istiyorum... yardım ederseniz sevinirim

[TeDDy]

şimdi butona basılacak. diğer form açılacak sen ordan kayır seçecen enter'a basacan o kayıt bilgileri diğer forma mı? gidecek?


doğru anlamışmıyım?

[eylem_guler]

evet aynen
1. form üzerinde buton click
2. form açık seçilen kayıt (dbgridte) enter ya da click kayıt bilgileri 1. formda görülecek

[TeDDy]

o zaman bu işi yapmak için 2. formuna her alan için bir DbEdit koyarsan senin için kolaylık olur. çünkü DbEdit'leri de aynı tabloya bağladıktan sonra DbGrid'de herhangi bir kayıtlar arası dolaşmanda DbEdit'ler içindeki bilgilerde değişicektir.Sen DbGrid'den kaydı seçtikten sonra Enter'a yada Button'a basınca bu DbGrid'ler içindeki verileri alman daha kolay olur. Kodları aşağıdaki gibi.

Burada 1. forma ben 5 adet Label bileşeni ve bir Button koydum. Öncelikle Button'la 2. forma ulaşıyorsun. Burada kaydını seçtikten sonra 2. form üzerindeki Button'a basınca DbEdit'ler içindeki bütün bilgileri 1. Form üzerindeki Label bileşenlerine gönderiyor.

Umarım açıklayıcı olmuştur.

1. FORMUN KODLARI
-----------------
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.ShowModal;
end;

end.
------------------------------------------------






2. FORMUN KODLARI
-----------------
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, Mask, DBCtrls;

type
TForm2 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Table1: TTable;
Button1: TButton;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
procedure Button1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
form1.Label1.Caption:= DBEdit1.Text;
form1.Label2.Caption:= DBEdit2.Text;
form1.Label3.Caption:= DBEdit3.Text;
form1.Label4.Caption:= DBEdit4.Text;
form1.Label5.Caption:= DBEdit5.Text;

Table1.Active:=false;
form2.Close;

end;

procedure TForm2.FormActivate(Sender: TObject);
begin
table1.Active:=true;
end;

end.
-----------------------------------







Birde ben burada DBDEMOS içinde Country Tablosuna bağladım. Ve bu dosyaları zip halinde aşağıdaki linkte bulabilirsin.

http://www.geocities.com/metallicahmet/cevap.zip



umarım anlatabilmişimdir. :) :)