Курсовая работа: Базы данных. Создание программы Телефонный справочник

procedure FormDestroy(Sender: TObject);

private

procedure CreatePopupFields;

procedure UpdateStatusBar;

procedure CalculateEditSize;

procedure SortMode (Sender: tObject);

procedure ReadIni;

procedure WriteIni; // Ini-file

public

end;

var

PhoneForm: TPhoneForm;

Inputs : array [0..4] of TEdit;

MyThread: DataThread;

bool: boolean;

ColumnIndex: integer;

const

SortName : array[0..2] of string =('поТелефону','поИмени','поУлице');

IndexName : array [0..2] of string =('ByNumTel','ByFamil','ByStreet');

COPY_TO_CLIPBOARD = 'Копировать';

PASTE_FROM_CLIPBOARD = 'Вставить';

function IndexOfItem(Item: string): integer;

implementation

uses IniFiles, DBITypes, DBIProcs, Graphics,ShellApi;

{$R *.dfm}

procedure TPhoneForm.FormCreate(Sender: TObject);

begin

Table1.TableName := sDataFile;

Table1.Open;