Guest User

Untitled

a guest
Jan 14th, 2020
71
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, s.Doljn from sotr AS s, protocol AS p');
  4.    Form1.Query4.SQL.Add('where s.Kod_sotr = p.Kod_sotr and p.Date_vidachi=:D ');
  5.    Form1.Query4.SQL.Add('Group by Fio_sotr');
  6.    Form1.Query4.ParamByName('D').Value:=Form5.Edit1.Text;
  7.    Form1.Query4.Open;
  8.    Form5.DBGrid1.DataSource:=Form1.DataSource5;
RAW Paste Data