Ergebnis der Suchanfrage

• Forum: Datenbanken

  Re: Functions mit Delphi

   
    by Duke_2004, 12. Jul 2005
  Naja...ICQ per Web gibts ja auch noch... ;-)
  
  Zu deinen Showmodalen...
  
  procedure Button1click(Sender:TObject);//Beispiel!!!
  begin
  case frmtestauswahl.ShowModal of
  mrok:
  begin
  case frmmesswertauswahl.ShowModal of
• Forum: Datenbanken

  Re: Functions mit Delphi

   
    by Duke_2004, 12. Jul 2005
  Das beste wird sein, du fragst mich das per ICQ :-D
  (Oder schick mir deinen Quellcode einfach per mail...sonst drehen wir uns hier noch lange im Kreis ;-) )
  
  Also das mit den Comboboxen füllen müsste schon so funktionieren... Aber deine Showmodal-Aufrufe sehen mir ziemlich wirr aus(Sorry)
  
  Was für eine Fehlermeldung bringt er denn genau?
• Forum: Datenbanken

  Re: Functions mit Delphi

   
    by Duke_2004, 12. Jul 2005
  procedure Tfrmmesswertauswahl.FormShow(Sender: TObject);
  begin
  {frmmesswertauswahl.}cbotestreihe.Items.Clear;
  with DataModule1 do
  begin
  Query.SQL.Text:= selectsql('Testreihe','Testreihe','Testnummer=' +{frmmesswertauswahl.}lblnummer.Caption,'');
  Query.Open;
  while not Query.Eof do
  begin
  ...
• Forum: Datenbanken

  Re: Functions mit Delphi

   
    by Duke_2004, 12. Jul 2005
  case frmtestauswahl.ShowModal of
  mrok:
  begin
  //Anweisung, wenn Ok
  end;
  mrcancel:
  begin
  //Anweisung, wenn Abbruch
  end;
  end;
• Forum: Datenbanken

  Re: Functions mit Delphi

   
    by Duke_2004, 12. Jul 2005
  Jap... Und darum, dass der SQL-Text vor dem einfügen noch einmal geleert wird. Wenn die prozedure 2mal aufgerufen wird, kann es passieren, dass die Select-Anweisung 2mal drinsteht und dann meckert er auch rum. (Hatte ich bei mir zumindest schon) Setz am besten einmal einen Haltepunkt und geh mit F7 mal jede Zeile einzeln durch. Und dann sag wo er die Fehlermeldung bringt. Vielleicht hast du auch...
• Forum: Datenbanken

  Re: Functions mit Delphi

   
    by Duke_2004, 12. Jul 2005
  Versuch das mal so...
  
  
  begin
  frmmesswertauswahl.cbotestreihe.Items.Clear;
  with DataModule1 do
  begin
  if Query.Open then
  Query.close;
• Forum: Datenbanken

  Re: Functions mit Delphi

   
    by Duke_2004, 12. Jul 2005
  So müsste es gehen:
  
  
  Query.SQL.Text:= selectsql('Material_Belag','friktionstest','Testnummer='+cbotestnummer.text+'Testnummer','');
  
  
  Einfach für die Sortierbedingung einen leeren String übergeben...
  
  (Prozedur funktioniert nicht direkt für Joins!)
• Forum: Datenbanken

  Re: Functions mit Delphi

   
    by Duke_2004, 12. Jul 2005
  Mal ganz schnell zusammengetibbelt...
  
  procedure sql(Spalten, Tabelle, wherebedingung, sortierspalten: string);
  begin
  if (sortierspalten= '') then //Keine Sortierspalten-> keine Sortierung
  begin
  if (wherebedingung = '') then //Kein Where -> keine Filterung
  sqltext := 'Select ' + spalten + ' from ' + tabelle
  else
  sqltext := 'Select ' + spalten + ' from ' + tabelle...