unit newklient;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBTables, Db, StdCtrls, Mask, DBCtrls, Buttons;

type
  TForm_newklient = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DataSource_klient: TDataSource;
    Table_klient: TTable;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    NKQuery: TQuery;
    DataSourceNum: TDataSource;
    Klient_jmeno: TEdit;
    Klient_prijmeni: TEdit;
    Klient_ulice: TEdit;
    Klient_mesto: TEdit;
    Klient_psc: TEdit;
    Klient_telefon: TEdit;
    RC: TLabel;
    Klient_rc: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
     NumKlients: integer;
  public
    { Public declarations }
  end;

var
  Form_newklient: TForm_newklient;

implementation

{$R *.DFM}

procedure TForm_newklient.BitBtn1Click(Sender: TObject);
begin

  with Table_klient do begin
    Active:=true;
    Append;
    FieldbyName('klient_id').AsInteger:=NumKlients;
    FieldbyName('jmeno').AsString:=klient_jmeno.text;
    FieldbyName('prijmeni').AsString:=klient_prijmeni.text;
    FieldbyName('ulice').AsString:=klient_ulice.text;
    FieldbyName('mesto').AsString:=klient_mesto.text;
    FieldbyName('psc').AsString:=klient_psc.text;
    FieldbyName('telefon').AsString:=klient_telefon.text;
    FieldbyName('rc').AsString:=klient_rc.text;
    Post;
  end;
end;

procedure TForm_newklient.FormCreate(Sender: TObject);
begin
  with NKQuery do begin
//    NKQuery.FreeInstance;
    If Active then Close;
    ExecSQL;
    Open;
    NumKlients:=NKQuery.fieldbyname('COLUMN1').asinteger;
{    MessageDlg(Format('%d', [NumKlients]), mtInformation, [mbOK], 0);}
    inc(NumKlients);
  end;
end;

end.