nbInsert then.ShowModal ;;. Unit5;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, DB, ADODB, Grids, DBGrids;
TForm5=class (TForm)
DBGrid1: TDBGrid;
ADOTable1: TADOTable;
DataSource1: TDataSource;
DBNavigator1: TDBNavigator;
ADOTable1KodPostavs4ika: TAutoIncField;
ADOTable1NazvaniePostavs4ika: TWideStringField;
private
{Private declarations}
public
{Public declarations}
end;
Form5: TForm5; unit1;
{$ R * .dfm}
end.