успадковуються BDE, і тому цими ж особливостями володіє і Delphi.
2. Постановка завдання
Необхідно створити додаток дозволяють створити базу даних, робити сортування бази даних, проводити нові записи або видалення полів бази даних.
3. Практична частина: Додаток телефонний довідник ПДТУ
Що б базу даних можна було переносити з комп'ютера на інший комп'ютер програма повинна сама створювати аліаси. Так як dBase зберігає базу даних у вигляді файлу з назвою бази dBase.DBF. Зручно не просто вказувати шлях доступу до таблиць бази даних, а використовувати для цього якийсь замінник - псевдонім, званий аліасом. Він зберігається в окремому файлі конфігурації в довільному місці на диску і дозволяє виключити з програми пряма вказівка ​​шляху доступу до бази даних. Такий підхід дає можливість розташовувати дані в будь-якому місці, не перекомпіліруя при цьому програму. Крім шляхи доступу, в аліас вказуються тип бази даних, мовний драйвер і багато іншої керуючої інформації. p align="justify"> Нижче наведено лістинг програми яка виробляє індексацію і перевірку бази даних, а також зображення роботи програми (PROGRESS.PAS)
В
Рис.1 Індексація бази даних
unit Progress;
interface, SysUtils, Classes, Forms, Dialogs, StdCtrls,, DBTables, Controls, ComCtrls, Registry, ShellApi, Messages, Graphics,; _BASE = WM_USER; _OKSTART = MM_BASE + $ 1; _DATAERROR = MM_BASE + $ 2; _KeyDown = MM_BASE + $ 3; _ENDTHREAD = MM_BASE + $ 4; = class (TForm): TProgressBar;: TLabel;: TTable;: TImage;: TTable;: TTimer;: TLabel; FormCreate (Sender: TObject); ProgressAOM (var MSG: tagMSG; var Handled: boolean); DataError (var Message: TMessage); message MM_DATAERROR; Timer1Timer (Sender: TObject); EndThread (var Message: TMessage); message MM_ENDTHREAD;: boolean;: cardinal; SearchFile (FileName: string ): boolean;
{Public declarations}; EPhoneException = class (Exception);: TMainForm;: cardinal;: boolean = true; = 'Data.dbf'; = 'Data.mdx'; = 'DataBuff.dbf '; =' DataBuff2.dbf '; =' LutskPhone '; =' options.ini '; =' Помилка при роботі з База даних '+ # 10 # 13 +
'Перевірте наявність файлу бази!'; = 'Помилка роботи з BDE!';
implementationTeldov, Thread, ActiveX, ComObj, ShlObj;
{$ R *. dfm} TMainForm.FormCreate (Sender: TObject);: tagmsg;: boolean;: = false;: = (Screen.Height - Height) div 2-200;: = (Screen.Width - Width) div 2;. OnMessage: = ProgressAOM;
// створення ярлика, запис в реестр.TableName: = sBuffFile ;//Check BDE.CreateTable;. Close;
// // Error BDE; not SearchFile (sDataFile) raise EPhoneException.Create (...
