SHARE
TWEET

Untitled

a guest Jan 13th, 2020 66 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.    Form1.Query4.Close;
  2.    Form1.Query4.SQL.Clear;
  3.    Form1.Query4.SQL.Add('select Fio_sotr, add_sotr, Tel, Doljn FROM sotr AS s, protocol AS p');
  4.    Form1.Query4.SQL.Add('where s.Kod_sotr = p.Kod_sotr AND p.N_protocol = :N');
  5.    Form1.Query4.ParamByName('N').AsString:=Form5.edit1.Text;
  6.    Form1.Query4.Open;
  7.    Form5.DBGrid1.DataSource:=Form1.DataSource10;
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