. 11. DBNavigator
. 12 , DBNavigator.
DBNavigator . 17.13.
13. DBNavigator
VisibleButton3 | |||
Name DataSource | ' . ' , . ( Database), ( Table) ( Query) | ||
visibieButtons. DBNavigator . , False VisibieButtons.nbDelete nbDelete .
. 12 ' - DBNavigator. DataSource DBNavigator1 Table1.
. 12. ' -
, DBNavigator . , , .
, , imagei ' ', . , , , () ' , . ϳ Photo ' , ' image 1.
1 ' -.
˳ 1. " ' -"
unit peter_;
interface
Uses
Windows, Messages, SysUtils
Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls
DBCtrls, Mask, Db, DBTables,
jpeg; // JPG-;
Type
TForml = class (TForm)
Tablel: TTable;. //
DataSourcel: TDataSource; //
// -
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
DBEditl: TDBEdit;
DBEdit2: TDBEdit;
DBMemo1: TDBMemo;
Image1: image;
DBEdit3: TDBEdit;
DBNavigatorl: TDBNavigator;
Label4: TLabel;
procedure TablelAfterScroll(DataSet: TDataSet);
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
procedure DBNavigatorlClick(Sender: TObject; Button: TNavigateBtn)