Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Trazenje sifre artikla ili barcode - sifre

[es] :: Pascal / Delphi / Kylix :: Trazenje sifre artikla ili barcode - sifre

[ Pregleda: 615 | Odgovora: 3 ]

 Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

medixsa

Član broj: 155471
Poruke: 115
*.sa.hs-hkb.ba.



Profil

icon Trazenje sifre artikla ili barcode - sifre23.09.2007. u 13:55


procedure TfrmRacun.Edit3Change(Sender: TObject);
var
Duzina : integer;
S : string;
begin
S := Edit1.Text;
Duzina := Length(S);

// Sifra
if Duzina <= 6 then
begin
tblArtikli.Locate('Sifra',Edit3.Text,[loPartialKey]);
Edit4.Text := frmRacun.tblArtikliNAZIV.AsString;
end
else
begin

Pitanje ?
// Treba mi ovdje da u Edit4 komponetni ispise "artikal ne postoji"
end
else
begin
tblArtikli.Locate('Barcode',Edit3.Text,[loPartialKey]);
Edit4.Text := frmRacun.tblArtikliNAZIV.AsString;
end
else
begin

Pitanje ?
// Treba mi ovdje da u Edit4 komponetni ispise "artikal ne postoji
end;

Hvala puno !!! Hitno molim Vas
23.09.2007. u 13:55 

chachka
Srđan Mijatov
Subotica

Član broj: 53780
Poruke: 493
*.ADSL.neobee.net.

Sajt: www.baze-podataka.net


Profil

icon Re: Trazenje sifre artikla ili barcode - sifre24.09.2007. u 00:17
Code:
if tblArtikli.Locate('Sifra',Edit3.Text,[loPartialKey]) then
  Edit4.Text := frmRacun.tblArtikliNAZIV.AsString
else
  Edit4.Text := 'artikal ne postoji';


"The best code is no code at all." - Zidar
24.09.2007. u 00:17 

medixsa

Član broj: 155471
Poruke: 115
*.sa.hs-hkb.ba.



Profil

icon Re: Trazenje sifre artikla ili barcode - sifre24.09.2007. u 17:40
Hvala sve radi ok !!!
24.09.2007. u 17:40 

[es] :: Pascal / Delphi / Kylix :: Trazenje sifre artikla ili barcode - sifre

[ Pregleda: 615 | Odgovora: 3 ]

 Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.