SHARE
TWEET

Untitled

a guest Jan 13th, 2020 60 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.    Form1.Query1.Close;
  2.    Form1.Query1.SQL.Clear;
  3.    Form1.Query1.SQL.Add('select Fio, Adres, Tel from  Pacient,Personal,Postupl');
  4.    Form1.Query1.SQL.Add('where Personal.Fio=:par and Personal.Kod_vr=Postupl.Kod_vr and Postupl.Kod_pac=Pacient.Kod_pac');
  5.    Form1.Query1.ParamByName('par').AsString:=Form5.edit1.Text;
  6.    Form1.Query1.Active:=true;
  7.    Form5.DBGrid1.DataSource:=Form1.DataSource5;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top