Anonymní profil Karel – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil Karel – Programujte.comAnonymní profil Karel – Programujte.com

 

Příspěvky odeslané z IP adresy 178.22.113.–

Karel
MS SQL › začátečník - select ze dvou…
7. 7. 2016   #211815

Dobrý den, jsem v sql naprostý začátečník, takže se předem omlouvám, jestli jde o banalitu. Nemůžu v jednom dotazu spojit data ze dvou tabulek. Sloupce plr_fname, judokas.PLR_clb_id jsou v tabulce judokas, PLR_clb_id je v tabulce judokas i v tabulce clubs a club je pouze v tabulce clubs. Potřebuji, aby ve výsledku dotazu byl kromě plr_clb_id i konkrétní klub, který je pod identickým číslem v tabulce clubs. Snad jsem to napsal srozumitelně

'select plr_fname, judokas.PLR_clb_id, club from judokas, clubs where judokas.plr_clb_id = clubs.plr_clb_id');

tento dotaz generuje chybu Zadané pole plr_clb_id může odkazovat na více než jednu tabulku uvedenou v klauzuli from.

Díky moc za pomoc!

Karel
Delphi › qr čtečka - propojení s delphi
15. 2. 2016   #208629

Dobrý den, potřeboval bych získat data z qr kódů a dostat je do nějaké editovatelné podoby (memo, listbox)

pátral jsem celkem zoufale po internetu a nenašel prakticky nic použitelného.

Máte prosím někdo tip na komponentu, která dokáže číst data z výstupu qr čtečky?

Problém, který řeším: máme závody, na které jezdí závodníci s licenčními kartami s qr kodem. chceme je načítat rovnou do datového souboru. Dosud se to opisovalo ručně. Díky za jakýkoliv tip.

Delphi › rozlišení znaků
21. 11. 2015   #206562

Dobrý den, pro zajištění, že mi uživatel nestrčí do řetězce jiný znak, než písmeno, používám funkci viz níže. Problém je, že mi ta funkce odmítá ponechat v edit.text písmena s háčky a čárkami a maže je jako by to byla třeba číslice, přestože je má vyjmenované v Chars. Nevíte někdo proč? Ta výjimka je tam pro backspace, aby ten text šlo i mazat při zadávání. Díky moc!

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
const
  Chars: string = 'abcdefghchijklmnopqrstuvwxyzABCDEFGHCHIJKLMNOPQRSTUVWXYZěščřžýáíéúůóĚŠČŘŽÝÁÁÍÉÚŮÓ';
var
  i: Integer;
  OK: Boolean;
begin
  i := 0;
  OK := False;
  if Key = #8 then OK := True;
  repeat
    i := i + 1;
    if Key = Chars[i] then OK := True;
  until (OK) or (i = Length(Chars));
  if not OK then Key := #0;
end; 

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032024 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý