Реферат: База данных Бюро знакомств

begin

table1.Open;//Открытие таблицы table1

end;

procedure TForm3.BitBtn1Click(Sender: TObject);//Процедура обработки клика кнопки "Удалить"

begin

table1.Delete;//Удаление текущей строки в таблице Table1

end;

procedure TForm3.Button2Click(Sender: TObject);//Процедура обработки клика кнопки "Выход"

begin

Close;//Закрытие Form3

end;

procedure TForm3.Edit1Change(Sender: TObject);

begin

Try //Задействование обработчика ошибок

Table1.FindKey([strtoint(edit1.Text)]); //Поиск по индексу (ставит курсор в таблице ближе всего находящейся к искомому значению)

except

Showmessage('Не верный параметр для поиска'); //в солучае возникновения ошибки будет дано сообщение

end;

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DB, Grids, DBGrids, DBTables;

type

TForm4 = class(TForm)

Table1: TTable;