Thema: Delphi Datenbanken + TextBoxen

Einzelnen Beitrag anzeigen

Benutzerbild von joachimd
joachimd

Registriert seit: 17. Feb 2005
Ort: Weitingen
678 Beiträge
 
Delphi 12 Athens
 
#2

Re: Datenbanken + TextBoxen

  Alt 25. Mai 2007, 14:22
Zitat von ConTaCt:
Ich habe Eine Datenbank mit "Vorname", "Nachname", "Klasse" und "Geschlecht"
(Es sind vorhanden: 3 Männliche, 4 Weibliche Schüler
...
Schüler Gesamt: 7
Schüler Männlich: 3
Schüler Weiblich: 4
pack 'ne Query drauf:
Query.SQL.Text := 'select count(*) from schueler';
Query.Open;
gesamt:=Query.Fields[0].AsInteger;
Query.Close;
Query.SQL.Text := 'select count(*) from schueler where Geschlecht like '+QuotedStr('männlich');
Query.Open;
maennlich:=Query.Fields[0].AsInteger;
Query.Close;
weiblich:=gesamt-maennlich;

Memo.Lines.Add('Schüler Gesamt: '+inttostr(gesamt));
...
den Rest kannst Du Dir hoffentlich denken (Forum<>Hausaufgabenbeantwortungszentrale)
Joachim Dürr
Joachim Dürr Softwareengineering
http://www.jd-engineering.de
  Mit Zitat antworten Zitat