sDataFileError); not SearchFile (sIndexFile) DataThread.create (false) IsCanStart: = true; E: Exception do (e.Message, mtError, [mbOk], 0 ); (MainFOrm.Handle, MM_DATAERROR, 0, 0);;;;; TMainForm.ProgressAOM (var MSG: tagMSG; var Handled: boolean); MSG.message = MM_OKSTART then.Enabled: = false;. CreateForm (TPhoneForm, PhoneForm);. Hide;. Show;. OnMessage: = PhoneForm.AOM;;; TMainForm.SearchFile (FileName: string): boolean;: TSearchRec; FindFirst (GetCurrentDir + '' + FileName, faAnyFile, CurrFIle) = 0Result: = trueResult: = false;; TMainForm.DataError (var Message: TMessage);;; TMainForm.Timer1Timer (Sender: TObject); IsFirst then: = false;: = 0;// GetTickCount;; IsCanStart then: = GetTickCount; Tick > (FStartTime + 0)// 1000PostMessage (MainFOrm.Handle, MM_OKSTART, 1, 0);; TMainForm.EndThread (var Message: TMessage);. Visible: = true;: ='';. Visible: = false; . Visible: = false;. Visible: = false;: = true;
end;.
Після індексації бази даних і перевірки її на існування запускається програма для роботи з базою даних.
В
Рис.2 Головне вікно програми
На малюнку 3 показаний результат пошуку в базі даних за номером телефону.
В
Рис. 3 Пошук у базі даних за номером телефону
База даних складається з шести полів: номер телефону, ПІБ, вулиця, номер будинку, номер квартири, категорія.
Що відповідає полям у базі даних: номер телефону - NUMTEL, ПІБ - FAMIL, уліуа - STREET, номер будинку - HOUSE, номер квартири - KVART, категорія - PR09.
Нижче наведено лістинг програми (TElDov.pas):
база дані довідник додаток
unit TElDov;
interface, SysUtils, Thread, Progress, ExtCtrls, ComCtrls, Menus,, DBCtrls, ImgList, Classes, Controls, StdCtrls, Grids,, DBTables, DBGrids, Forms, Messages, Dialogs, Clipbrd; = class (TForm): TDataSource;: TTable;: TStatusBar;: TGroupBox;: TButton;: TToolBar;: TToolButton;: TToolButton;: TDBGrid;: TImageList;: TToolButton;: TPopupMenu;: TImageList;: TToolButton;: TToolButton;: TToolButton ;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TPopupMenu;: TDBNavigator; FormCreate (Sender: TObject); SearchClick (Sender: TObject); AOM (var Msg: tagMSG; var Handled: Boolean); EraseButtonClick (Sender: TObject); MyPopupHandler (Sender: TObject); MyPopupHandler2 (Sender: TObject); MyEditPopup (Sender: TObject; MousePos: TPoint; var Handled: Boolean); FormClose (Sender: TObject; var Action: TCloseAction); MInMaxSize (var Message: TMessage); message WM_GETMINMAXINFO; N20Click (Sender: TObject); N13Click (Sender: TObject); N14Click (Sender: TObject); N15Click (Sender: TObject); N16Click (Sender: TObject); ExitButtonClick (Sender: TObject); SearchButtonClick ( Sender: TObject); FormDestroy (Sender: TObject); CreatePopupFields; UpdateSt...
