tFilePath(application.exeName)+«Base»;
end;.
/ / Текст файлу перегляду бази даних
unit UBase;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, ComCtrls, Db,, Buttons, shellApi, AppEvnts;=class (TForm): TScrollBox;: TMainMenu;: TMenuItem;: TDBGrid;: TDataSource;: TTable;: TDBMemo;: TStatusBar;: TApplicationEvents;: TScrollBox;: TRadioGroup;: TRadioGroup;: TGroupBox;: TCheckBox;: TEdit;: TRadioGroup ;: TDBNavigator;: TDBNavigator;: TBitBtn;: TDBNavigator;: TDBNavigator;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TMenuItem; FormActivate (Sender: TObject); RadioGroup2Click (Sender: TObject); BitBtn1Click ( Sender: TObject); Edit1Change (Sender: TObject); CheckBox1Click (Sender: TObject); RadioGroup3Click (Sender: TObject); RadioGroup1Click (Sender: TObject); ApplicationEvents1Idle (Sender: TObject; var Done: Boolean); FormCreate (Sender: TObject ); FormKeyPress (Sender: TObject; var Key: Char); MnFBTopClick (Sender: TObject); OnTop1Click (Sender: TObject);
{Private declarations}
{Public declarations};: TFBase;
{$ R *. DFM}
procedure TFBase.FormActivate (Sender: TObject);. Active:=true;. Refresh;. Columns [4]. Visible:=false;. ItemIndex:=0 ;
end; TFBase.RadioGroup2Click (Sender: TObject); radioGroup2.ItemIndex of
: Table1.IndexDefs[table1.IndexDefs.IndexOf(table1.indexName)].Options:=.IndexDefs[table1.IndexDefs.IndexOf(table1.indexName)].Options+[ixDescending];
: Table1.IndexDefs[table1.IndexDefs.IndexOf(table1.indexName)].Options:=.IndexDefs[table1.IndexDefs.IndexOf(table1.indexName)].Options-[ixDescending];;
end; TFBase.BitBtn1Click (Sender: TObject); (fBase.Handle, nil, PChar (table1.fieldbyname («Адреса»). asString), nil, nil, sw_ShowNormal);; TFBase.Edit1Change (Sender: TObject); strField: string; not checkbox1.Checked then exit; radiogroup3.ItemIndex of
: strField:=«Назва»;
: strField:=«Розділ»;
: strField:=«Автор»;;. Locate (strField, edit1.text, [loCaseInsensitive, loPartialKey]);
end; TFBase.CheckBox1Click (Sender: TObject); Change (sender);
end; TFBase.RadioGroup3Click (Sender: TObject); Change (sender);
end; TFBase.RadioGroup1Click (Sender: TObject); radioGroup1.ItemIndex of
: table1.IndexName:=«indNazv»;
: table1.IndexName:=«indRaz»; table1.IndexName:=«»;;. OnClick (sender);
end; TFBase.ApplicationEvents1Idle (Sender: TObject; Done: Boolean); radioGroup1.ItemIndex=- 1 then radioGroup2.Enabled:=false else radioGroup2.Enabled:=True ;
end; TFBase.FormCreate (Sender: TObject);. KeyPreview:=True;. table1.dataBaseName:=extractFilePath (application.exeName) + «Base»;
end; TFBase.FormKeyPress (Sender: TObject; var Key: Char); key=# 27 then Close;; TFBase.MnFBTopClick (Sender: TObject);. Checked :=not MnFBTop.Checked; MnFBTop.Checked then begin.FormStyle:=fsStayOnTop;. Caption:=«Завжди наг...
