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: 2447 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

medixsa

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



+2 Profil

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

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


 
Odgovor na temu

chachka
Srđan Mijatov
Programer
BUS Computers
Kikinda

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

Sajt: www.baze-podataka.net


+4 Profil

icon Re: Trazenje sifre artikla ili barcode - sifre24.09.2007. u 00:17 - pre 201 meseci
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 (ES član)
"Biggest obstacle to learning
SQL is unlearning procedural
programming."
- Joe
Celko
"Minimize code, maximize data."
- A. Neil Pappalardo
 
Odgovor na temu

medixsa

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



+2 Profil

icon Re: Trazenje sifre artikla ili barcode - sifre24.09.2007. u 17:40 - pre 201 meseci
Hvala sve radi ok !!!
 
Odgovor na temu

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

[ Pregleda: 2447 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

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