et:=adoquery1;; TForm1.Button9Click (Sender: TObject); a, t: string; ComBobox2.text =« » then showmessage («Не вибрано поле сортування»); ComBobox2.text=«Код_кнігі» then t:=«Код_кнігі»; ComBobox2.text=«Автор» then t:=«Автор»; ComBobox2.text="Назва" then t:=«Назва»; ComBobox2.text=«Год_ізданія» then t:=«Год_ізданія»;
if ComBobox2.text=«Колічество_екземпляров» then t:=«Колічество_екземпляров»;
adoquery2.Close;. SQL.Clear;:=«select * from ФОНД order by» + t; radiobutton4.checked=true then a:=a + « desc »;. SQL.Add (a);. Open;. DataSet:=adoquery2;; TForm1.Button10Click (Sender: TObject); u, r: string; ComBobox3.text =« » then showmessage («Не вибрано поле сортування»); ComBobox3.text=«Код_чітателя» then r:=«Код_чітателя»; ComBobox3.text=«ФІО_чітателя» then r:=«ФІО_чітателя»;
if ComBobox2.text=«Дата_регістраціі» then r:=«Дата_регістраціі»;
if ComBobox3.text="адреса" then r:="адреса"; ComBobox3.text=«Телефон» then r:=«Телефон»; ComBobox3.text=«Место_работи» then r:=«Место_работи»;. Close;. SQL.Clear;:=«select * from ЧИТАЧІ order by» + r; radiobutton6.checked=true then u:=u + « desc »;. SQL.Add (u);. Open;. DataSet:=adoquery3;; TForm1.Button11Click (Sender: TObject);. Filtered:=True; radiogroup1.ItemIndex=0 then ADOQuery1.Filter:=«Код_операции=»«»+edit4.Text+«»«»;radiogroup1.ItemIndex=1 then ADOQuery1.Filter:=«Код_читателя=»«»+edit5.Text+«»«»;radiogroup1.ItemIndex=2 then ADOQuery1.Filter:=«Код_книги=»«»+edit6.Text+«»«»;radiogroup1.ItemIndex=3 then ADOQuery1.Filter:=«Дата_выдачи=»«»+edit7.Text+«»«»;radiogroup1.ItemIndex=4 then ADOQuery1.Filter:=«Дата_возврата=»«»+edit8.Text+«»«»;radiogroup1.ItemIndex=5 then ADOQuery1.Filter:=«Задолженность=»«»+edit9.Text+«»«»;radiogroup1.ItemIndex=6 then ADOQuery1.Filter:=«Дни_задолженности»«»+edit10.Text+«»«»;radiogroup1.ItemIndex=7 then ADOQuery1.Filter:=«»;; TForm1.Button12Click (Sender: TObject);. Filtered:=True; radiogroup2.ItemIndex=0 then ADOQuery2.Filter:=«Код_книги=»«»+edit13.Text+«»«»;radiogroup2.ItemIndex=1 then ADOQuery2.Filter:=«Автор=»«»+edit14.Text+«»«»;radiogroup2.ItemIndex=2 then ADOQuery2.Filter:=«Название=»«»+edit15.Text+«»«»;radiogroup2.ItemIndex=3 then ADOQuery2.Filter:=«Год_издания=»«»+edit16.Text+«»«»;radiogroup2.ItemIndex=4 then ADOQuery2.Filter:=«Количество_экземпляров=»«»+edit17.Text+«»«»;radiogroup2.ItemIndex=5 then ADOQuery2.Filter:=«»;; TForm1.Button13Click (Sender: TObject);. Filtered:=True; radiogroup3.ItemInd...
