coboboxta seçip butona tıklayınca diğer formda dbgrid gzkmes
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
coboboxta seçip butona tıklayınca diğer formda dbgrid gzkmes
slm arkadşlar coboboxta markaların gözükmesi ve yandaki butona tıklayınca başka bir formda dbriddde gözükmesi gerekiyor
procedure TForm4.FormShow(Sender: TObject);
begin
ComboBox1.Items.Clear;
while ADOQuery1.Eof=false do
begin
ComboBox1.Items.Add(ADOQuery1marka.Text);
ADOQuery1.Next;
end;
end; bu kodla comboboxta markalra gözüküyo.
procedure TForm4.Image2Click(Sender: TObject);
begin
form1.Show;
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select * from urun5 where marka='+QuotedStr(ComboBox1.Text));
adoquery2.Open;
end;
bu koddda comboboxın yanındaki tıklayınca olyı bu şekilde çalışıyo yalnız diğer formda dbgridde gözükme olayı yok onu halledemdim ilgilenenlere şimdiden teşkkürler yardımlarınızı bekliyorum.
procedure TForm4.FormShow(Sender: TObject);
begin
ComboBox1.Items.Clear;
while ADOQuery1.Eof=false do
begin
ComboBox1.Items.Add(ADOQuery1marka.Text);
ADOQuery1.Next;
end;
end; bu kodla comboboxta markalra gözüküyo.
procedure TForm4.Image2Click(Sender: TObject);
begin
form1.Show;
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select * from urun5 where marka='+QuotedStr(ComboBox1.Text));
adoquery2.Open;
end;
bu koddda comboboxın yanındaki tıklayınca olyı bu şekilde çalışıyo yalnız diğer formda dbgridde gözükme olayı yok onu halledemdim ilgilenenlere şimdiden teşkkürler yardımlarınızı bekliyorum.
- kadirkurtoglu
- Üye
- Mesajlar: 748
- Kayıt: 22 May 2005 01:20
- Konum: Uzakta Görünen Tepeden...
Kod: Tümünü seç
procedure TForm4.Image2Click(Sender: TObject);
begin
form1.Show;
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select * from urun5 where marka='+QuotedStr(ComboBox1.Text));
adoquery2.Open;
end;
Kod: Tümünü seç
procedure TForm4.Image2Click(Sender: TObject);
begin
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select * from urun5 where marka='+QuotedStr(ComboBox1.Text));
adoquery2.Open;
form1.Show;
end;
heriki formda aynı veritabanında diğer formdaki dbgridde ise şu yazıyo
procedure TForm1.DBGrid1DblClick(Sender: TObject);
var
sql: string;
begin
form2.show;
form2.adoquery1.close;
form2.adoquery1.sql.clear;
form2.adoquery1.sql.add('select * from urun5 where marka='+QuotedStr(adoquery2marka.text)+' and '+ QuotedStr(adoquery2model.text));
form2.adoquery1.open;
bu yazıyo ilk fomla diğer formdaki dbgrid ilşkili olucak yani
procedure TForm1.DBGrid1DblClick(Sender: TObject);
var
sql: string;
begin
form2.show;
form2.adoquery1.close;
form2.adoquery1.sql.clear;
form2.adoquery1.sql.add('select * from urun5 where marka='+QuotedStr(adoquery2marka.text)+' and '+ QuotedStr(adoquery2model.text));
form2.adoquery1.open;
bu yazıyo ilk fomla diğer formdaki dbgrid ilşkili olucak yani
- kadirkurtoglu
- Üye
- Mesajlar: 748
- Kayıt: 22 May 2005 01:20
- Konum: Uzakta Görünen Tepeden...