e :=true; not ADOQuery1.Locate («Код_кнігі», Edit21.text, [loCaseInsensitive, lopartialkey]) then («Не знайдено»);; RadioGroup4.ItemIndex=3 then begin.Visible:=true; not ADOQuery1. Locate («Дата_видачі», Edit21.text, [loCaseInsensitive, lopartialkey]) then («Не знайдено»);; RadioGroup4.ItemIndex=4 then begin.Visible:=true; not ADOQuery1.Locate(«Дата_возврата»,Edit21.text,[loCaseInsensitive,lopartialkey]) then showMessage («Не знайдено»);; RadioGroup4.ItemIndex=5 then begin.Visible:=true; not ADOQuery1.Locate(«Задолженность»,Edit21.text,[loCaseInsensitive,lopartialkey]) then showMessage («Не знайдено»);; RadioGroup4.ItemIndex=6 then begin.Visible:=true; if not ADOQuery1.Locate(«Дни_задолженности»,Edit21.text,[loCaseInsensitive,lopartialkey]) then showMessage («Не знайдено»);;
end; TForm1.Button18Click (Sender: TObject); RadioGroup5.ItemIndex=0 then begin Edit22.Visible:=true; not ADOQuery2.Locate («Код_кнігі», Edit22.text, [loCaseInsensitive, lopartialkey]) then («Не знайдено»); end; RadioGroup5.ItemIndex=1 then begin.Visible:=true; not ADOQuery2.Locate («Автор», Edit22.text, [loCaseInsensitive, lopartialkey]) then («Не знайдено»); end; RadioGroup5.ItemIndex=2 then begin Edit22.Visible:=true; not ADOQuery1.Locate («Назва», Edit22.text, [loCaseInsensitive, lopartialkey]) then («Не знайдено»);; RadioGroup5.ItemIndex= 3 then begin Edit22.Visible:=true; not ADOQuery2.Locate («Год_ізданія», Edit22.text, [loCaseInsensitive, lopartialkey]) then («Не знайдено»);; RadioGroup5.ItemIndex=4 then begin Edit22.Visible :=true; if not ADOQuery2.Locate(«Количество_экземпляров»,Edit22.text,[loCaseInsensitive,lopartialkey) then showMessage («Не знайдено»); end;; TForm1.Button19Click (Sender: TObject); if RadioGroup6.ItemIndex=0 then begin Edit23.Visible:=true; not ADOQuery3.Locate («Код_чітателя», Edit23.text, [loCaseInsensitive, lopartialkey]) then showMessage ( «Не знайдено»);;
if RadioGroup6.ItemIndex=1 then begin Edit23.Visible:=true; not ADOQuery3.Locate («ФІО_чітателя», Edit23.text, [loCaseInsensitive, lopartialkey]) then showMessage («Не знайдено» ;);; RadioGroup6.ItemIndex=2 then begin Edit23.Visible:=true; if not ADOQuery3.Locate(«Дата_регистрации»,Edit23.text,[loCaseInsensitive,lopartialkey]) then («Не знайдено»); end; RadioGroup6.ItemIndex=3begin.Visible:=true; if not ADOQuery3.Locate («адреса», Edit23.text, [loCaseInsensitive, lopartialkey]) then («Не знайдено»);; RadioGroup6.ItemIndex=4 then begin.Visible:=true; not ADOQuery3.Locate (« ; Телефон », Edit23.text, [loCaseInsensitive, lopartialkey]) then (« Не знайдено »);; RadioGroup6.ItemIndex=5 then begin.Visible:=true; not ADOQuery3.Locate (« Место_работи », Edit23.text , [loCaseInsensitive, lopartialkey]) then («Не знайдено»);;;
