.Text:=IBQuery1.FieldByName ( DESCRIPTION ). AsString;
Panel1.Visible:=true;// Показуємо панель з полями
end;
//отменаTForm1.Button2Click (Sender: TObject) ;. Visible:=false ;; TForm1.ButtonDelClick (Sender: TObject);// Видалити запісьMessageDlg ( Дійсно хочете видалити запис з БД? Raquo;, mtConfirmation, mbOKCancel, 0)=mrOKIBQuery2 do//QuotedStr - Ставить кавичкі.Text:= delete from + tabl + where ID= + IBQuery1.FieldByName ( ID ). AsString; .StartTransaction ;;// виконуємо запит ExecSQL, для всіх типів крім select.Commit;// подтврждаем транзакцію.Active:=false ;;. Close;// оновлюємо Query.Open;
grid (); ( Запис видалено успішно );
except//якщо відбулася ошібкаIBQuery2.Active then.Transaction.Rollback;// відкатуємо транзакцію ;;; TForm1.RadioGroup1Click (Sender: TObject);// При виборі радіокнопок на панелі поіскаRadioGroup1.ItemIndex=0//При виборі отбразившихся всі записи IBQuery1 do.Text:= select * from + Tabl ;;;//При виборі Пошук функції IBQuery1 do.Text:= select * from + Tabl + where NAME= + QuotedStr (Edit5.Text) ;;;; () ;; TForm1.Button3Click (Sender: TObject) ;, j, index: Integer;, sheet: Variant;:=CreateOleObject ( Excel.Application );// Для використання CreateOleObject необхідно підключити модуль ComObj.Visible:=true; .WorkBooks.Add (- 4 167) ;. WorkBooks [1] .WorkSheets [1] .name:= Otchet raquo ;;:=ExcelApp.WorkBooks [1 ] .WorkSheets [ Otchet ];
index:=3;
//Другий рядок буде відображатися жирним (заголов таблиці)
ExcelApp.ActiveWorkBook.ActiveSheet.Rows [2] .Font.Bold:=true;
//Висновок шапки табліци.cells [2,1]:= Ім'я raquo ;;. cells [2,2]:= Параметри raquo ;;. cells [2,3]: = Мова raquo ;;. cells [2,4]:= Опис raquo ;;
//вивід даних
//DBGrid1.DataSource.DataSet.First; i:=1 to DBGrid1.DataSource.DataSet.RecordCount doj:=2 to DBGrid1.FieldCount do.cells [index, j - 1]:= DBGrid1.fields [j - 1] .asstring; (index) ;. DataSource.DataSet.Next;// перехід до наступного рядка гріда ;;.
