Problem, oko automatskog generisanja sifri iz baze!?!Code:
CREATE TABLE LICA (
ID_LICA TEXT NOT NULL,
IME TEXT NOT NULL,
PREZIME TEXT NOT NULL,
CONSTRAINT pk_LICA PRIMARY KEY (ID_LICA));
CREATE TABLE LICA (
ID_LICA TEXT NOT NULL,
IME TEXT NOT NULL,
PREZIME TEXT NOT NULL,
CONSTRAINT pk_LICA PRIMARY KEY (ID_LICA));
Na formi za unos podataka u tu tabelu odradio sam automatsko dodeljivanje ID_LICA:
Code:
...
var rb:integer;
begin
with ADOLICA do begin
Close;
SQL.Clear;
SQL.Add('SELECT TOP 1 ID_LICA FROM LICA');
SQL.Add('ORDER BY ID_LICA DESC');
Open;
if ADOLICA.RecordCount=0 then
rb := 10001
else
rb:= StrToInt(ADOLICA.FieldByName('ID_LICA').AsString)+1;
end;
IDLICA.Text:=IntToStr(rb);
...
...
var rb:integer;
begin
with ADOLICA do begin
Close;
SQL.Clear;
SQL.Add('SELECT TOP 1 ID_LICA FROM LICA');
SQL.Add('ORDER BY ID_LICA DESC');
Open;
if ADOLICA.RecordCount=0 then
rb := 10001
else
rb:= StrToInt(ADOLICA.FieldByName('ID_LICA').AsString)+1;
end;
IDLICA.Text:=IntToStr(rb);
...
Sta je problem, ako ima u tabeli ID_Lica: 10001, 10002, 10003, ..., 1000n i obrisem 10003, tad
slogovi se ne sloze redom, odnosno za jedan unazad, a automatsko dodavajne se nastavlja od poslednjeg
broja (DESC)!?!
Sta mi savetujete?
