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

ProgressBar1: TProgressBar;

lbPersent: TLabel;

Table2: TTable;

Image1: TImage;

Table1: TTable;

Timer1: TTimer;

lbMessage: TLabel;

procedure FormCreate(Sender: TObject);

procedure ProgressAOM (var MSG: tagMSG; var Handled: boolean);

procedure DataError(var Message: TMessage); message MM_DATAERROR;

procedure Timer1Timer(Sender: TObject);

procedure EndThread(var Message:TMessage); message MM_ENDTHREAD;

private

IsCanStart: boolean;

FStartTime: cardinal;

function SearchFile(FileName: string): boolean;

public

{ Public declarations }

end;

type EPhoneException = class (Exception);

var

MainForm: TMainForm;

tick: cardinal;

IsFirst : boolean = true;

const

sDataFile = 'Data.dbf';

sIndexFile = 'Data.mdx';

sBuffFile = 'DataBuff.dbf';

sBuffFile2 = 'DataBuff2.dbf';