[es] - dodela rednog broja

gygy
Dragan Grbic

Član broj: 7861
Poruke: 205
*.sezampro.yu

Profil

^{30.11.2003. u 21:46 - pre 248 meseci}

Kako kad kliknem na Button1 da u DBEdit1 automatski upise redni broj.
Tj situacija je ovakva imam neku bazu proba.cds (ClientDataSet1 i DataSource1: za povezivanje baze) i zelim kada kliknem na button1 (koji ujedno dodaje zapis u bazu) da automatski upise u dbedit1 redni broj, ali jos zelim da taj broj bude petocifren ili sestocifren (000001, 000002, 000003 ...)!
Kako bi to najjednostavnije moglo da se uradi?
Unapred hvala!
GYGY

GYGY

Odgovor na temu

byTer

Član broj: 10936
Poruke: 1221
*.info-net.co.yu

ICQ: 47761626

Profil

Re: dodela rednog broja

^{01.12.2003. u 00:29 - pre 248 meseci}

Polje koje bi izgledalo ovako ne postoji kao broj u programiranju, bar ne kao standardni tip. Inace kako god da resis ovaj problem, morao bi da ovo polje konvertujes kao string pa ako ti treba kao broj nece biti problema da manipulises njime.

Znaci polje u tabeli bi trebalo da ti bude string. :(

Odgovor na temu

Vic
Error974
BI&SE
Beograd

Član broj: 16118
Poruke: 396
*.gw.tehnicom.net

+49 Profil

Re: dodela rednog broja

^{01.12.2003. u 08:11 - pre 248 meseci}

Mozes pokusati sa maskom 0000#

ERROR974

Odgovor na temu

gygy
Dragan Grbic

Član broj: 7861
Poruke: 205
*.flashnet.co.yu.

Profil

Re: dodela rednog broja

^{01.12.2003. u 21:28 - pre 248 meseci}

Ja sad koristim ovaj kod za dobijanje rednog broja:

Code:
procedure TForm7.Button1Click(Sender: TObject);
var
  A, C: REAL;
begin
DbEdit2.SetFocus;
Form1.ClientDataSet2.Last;
Label8.Caption := Form1.ClientDataSet2.ActiveBuffer;
Form1.ClientDataSet2.Insert;
  A := StrToFloat (Label8.Caption);
  if (A <> 0) then
  begin
  C := A + 1;
  DBEdit1.Text := FloatToStr (C);
  end
  else
  begin
  DBEdit1.Text := '1'
  end;
end;

sortiranje je po prvoj koloni kao i redni brojevi (ali je inace i problem u sortiranju (1,10,11,13,14,15,16,17,18,19,2,20,21,3,4,5,6,7,8,9)) i kod sasvim lepo radi do 10 zapisa ali onda stalno upisuje broj 10, bas zbog sortiranja. Inace zapisi u bazi su svi string, nema ni date, number...
Pa mislim kad bih pisao brojeve sa pet ili sest cifara da nebi bilo ovog problema!!!
Ili ako ima neki drugi kod?
Unapred hvala!
GYGY

GYGY

Odgovor na temu

StevanD
Stevan Dejanovic
Indjija

Član broj: 17185
Poruke: 19
*.finnet.co.yu

ICQ: 107420192

Profil

Re: dodela rednog broja

^{02.12.2003. u 16:41 - pre 248 meseci}

ne znam da li ti moze pomoci ovo....
x:integer;
y:string;

y:=inttostr(x);
y:=Copy('000000',1,6-length(y));

i dobijes vodece nule ispred vrednosti y ;)

Odgovor na temu

gygy
Dragan Grbic

Član broj: 7861
Poruke: 205
*.flashnet.co.yu.

Profil

Re: dodela rednog broja

^{02.12.2003. u 21:59 - pre 248 meseci}

Hvala ti covece!!!

Code:
x:integer;
y:string;

y:=inttostr(x);
y:=Copy('000000',1,6-length(y));

radi fenomenalno, uz par ispravki

Jos jedno pitanjce. Kako da kada mi je baza prazna tj. kad je '_'(prazno polje), onda mi program blokira, nemogu da stavim da je A, C: REAL, jer '_'(prazno polje), nije real (pogledati predhodni kod (A,C: REAL)).
Kako to mogu da sredim?
Hvala!!!
GYGY

GYGY

Odgovor na temu

StevanD
Stevan Dejanovic
Indjija

Član broj: 17185
Poruke: 19
*.finnet.co.yu

ICQ: 107420192

Profil

Re: dodela rednog broja

^{03.12.2003. u 07:31 - pre 248 meseci}

pa ne znam....
kako ti blokira sa kojom greskom pukne?
nije mi bas ni pitanje najjasnije :/
polje ima verovatno vrednost null
pogledaj tu nesto....
ili onako seljaka stavi da to polje u bazi po defaultu bude 0 ili nesto

Odgovor na temu

gygy
Dragan Grbic

Član broj: 7861
Poruke: 205
*.flashnet.co.yu.

Profil

Re: dodela rednog broja

^{03.12.2003. u 12:10 - pre 248 meseci}

greska je:
Debugger Exception Notification
Project Project2.exe raised exception class EConvertError with messages ''' is not a valid floating point value'. Proces stopped. Use Step or Run to continue.
Ni meni nije jasno

, ali... da li negde mogu u kodu i kako da stavim da je prazno polje(string) = 0?
Mada to da stavim po seljaka vrednost 0 nije lose, samo mislim da to i nije bas neko resenje jer ako stavim da je vrednost 0 onda kad dodajem zapis taj sa nulom ce ostati kao prvi, ali meni to nije potrebno!
Hvala!!!
GYGY

GYGY

Odgovor na temu

-zombie-
Tomica Jovanovic
freelance programmer
ni.ac.yu

Član broj: 4128
Poruke: 3448
195.252.80.*

Sajt: localhost

+5 Profil

Re: dodela rednog broja

^{03.12.2003. u 18:24 - pre 248 meseci}

StrToFloatDef(str, 0);

blogče :: unescaped beta^{^» ^{go-paste extenzija} ^» ^{reč dana: backup} ^» ^{bočne koalicije}}

Odgovor na temu

gygy
Dragan Grbic

Član broj: 7861
Poruke: 205
*.sezampro.yu

Profil

Re: dodela rednog broja

^{03.12.2003. u 22:03 - pre 248 meseci}

StrToFloatDef(str, 0);
-zombie- sta sa ovim, za sta je ovo? gde to da upisem?
Unapred hvala!!!
GYGY

GYGY

Odgovor na temu