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.ComboBox 1Click(Sender: TObject);
begin
Adoquery2.SQL.C lear;
Adoquery2.SQL.A dd('Select kode_tamu From T_tamu');
Adoquery2.SQL.A dd('Where kode_tamu = ''' + ComboBox1.Text + '''');
Adoquery2.Open;
end;
procedure TForm3.ComboBox 1DropDown(Sende r: TObject);
begin
combobox1.Items .Clear;
adoquery2.SQL.C lear;
adoquery2.SQL.A dd('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;
procedure TForm3.ComboBox
begin
Adoquery2.SQL.C
Adoquery2.SQL.A
Adoquery2.SQL.A
Adoquery2.Open;
end;
procedure TForm3.ComboBox
begin
combobox1.Items
adoquery2.SQL.C
adoquery2.SQL.A
adoquery2.Open;
while not adoquery2.Eof do
begin
combobox1.Items
adoquery2.Next
end;
end;
bisa lebih terperinci lagi nggak mas
ReplyDeletesaya kurang mengerti
Makasih scriptnya gan
ReplyDeletekalau juga menampilan nama tamu dan alamat dengan edit caranya gimana gan, makasih
ReplyDelete@nimda pns
ReplyDeletesama sama mas , semoga bermanfaat
Misalnya dari kode terus nampil juga keterangan dllnya gimana mass
ReplyDeleteThankyou Mas.. Youre amezing wkwkwkw
ReplyDelete