Wednesday, 20 March 2013

Mengambil data dari Form dan tabel lain

Gan, Gmn caranya ngambl data yang sudah terinput dari From "A" Melalui ComboBox Di Form"B" misalkan saya mau ambil kode nya aja. Jadi Yg muncul di Item ComboBox tersebut semua code yg sudah terinput di Form "A"...!!! thank's..


Eko Erdiansyah Khairat
procedure TForm3.ComboBox1Click(Sender: TObject);
begin
Adoquery2.SQL.Clear;
Adoquery2.SQL.Add('Select kode_tamu From T_tamu');
Adoquery2.SQL.Add('Where kode_tamu = ''' + ComboBox1.Text + '''');
Adoquery2.Open;

end;

procedure TForm3.ComboBox1DropDown(Sender: TObject);
begin
combobox1.Items.Clear;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select distinct kode_tamu from t_tamu order by kode_tamu');

adoquery2.Open;
while not adoquery2.Eof do
begin
combobox1.Items.add(adoquery2['kode_tamu']);
adoquery2.Next

end;

end;

6 comments:

  1. bisa lebih terperinci lagi nggak mas
    saya kurang mengerti

    ReplyDelete
  2. kalau juga menampilan nama tamu dan alamat dengan edit caranya gimana gan, makasih

    ReplyDelete
  3. Misalnya dari kode terus nampil juga keterangan dllnya gimana mass

    ReplyDelete
  4. Thankyou Mas.. Youre amezing wkwkwkw

    ReplyDelete

Install Fortesreport community Delphi 7 dan RX Berlin

Download  Pertama2 kita harus punya file installernya terlebih dahulu, download  https://github.com/fortesinformatica/fortesrepo...