Einzelnen Beitrag anzeigen

JSB

Registriert seit: 4. Okt 2004
Ort: Mönchengladbach
150 Beiträge
 
Delphi 7 Enterprise
 
#17

Re: Check-Group und case of...

  Alt 6. Apr 2005, 14:54
Delphi-Quellcode:
 procedure TfmTelefonliste.pbOKClick(Sender: TObject);
  var i: Integer;
begin
 for i := 0 to Pred(cgfilter.Items.Count) do
    if cgfilter.ItemChecked[i] then
      case i of
        0: qTelefonliste.SQL.Strings [2] := 'BEZUGSPERSON =';
        1:
        begin
          qMitarbeiter.SQL.Strings [3] := '''' + dDatabase.iqLogin.fieldbyname('MitarbeiterID').AsString + '''';
          qMitarbeiter.Active := True;
          codesite.SendMsg('Abteilung= ' + qMitarbeiter.fieldbyname('ABTEILUNG').asString + ' ' + 'TAETIGKEITSBEREICH= ' + qMitarbeiter.FieldByName('TAETIGKEITSBEREICH').AsString);
          // ShowMessage ('MitarbeiterID= ' + qMitarbeiter.fieldbyname('ID').AsString);
          // ShowMessage ('Abteilung= ' + qMitarbeiter.fieldbyname('ABTEILUNG').asString + ' ' + 'TAETIGKEITSBEREICH= ' + qMitarbeiter.FieldByName('TAETIGKEITSBEREICH').AsString);
          if (qMitarbeiter.fieldbyname('ABTEILUNG').AsString = '') and (qMitarbeiter.FieldByName('TAETIGKEITSBEREICH').AsString = '') then
            MessageDlg('Der Filter: "Mein Bereich",'+#13+#10+'kann nicht verwendet werden!'+#13+#10+'Bitte prüfen Sie ob die Felder ABTEILUNG '+#13+#10+'und TÄTIGKEITSBEREICH in den Mitarbeiterdaten gefüllt '+#13+#10+'wurden!'+#13+#10+'Wenden Sie sich ggf. an den Administrator!', mtError, [mbOK], 0)
          else
            qTelefonliste.SQL.Strings [3] := 'BEREICH = ' + '''' + qMitarbeiter.fieldbyname('ABTEILUNG').AsString + '''' + ' or BEREICH =' + '''' + qMitarbeiter.fieldbyname('TAETIGKEITSBEREICH').AsString + '''' + ' and ';
        end;
  end;
end;
Klappt...
Danke!!
MFG:
JoeSchnapsBurner
  Mit Zitat antworten Zitat