Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi dbnavigator ändern (https://www.delphipraxis.net/80775-dbnavigator-aendern.html)

tom_po 19. Nov 2006 11:38

Re: dbnavigator ändern
 
mein Gott, hatte wirklich "Tomaten auf den Augen", sorry marabu, jetzt klapt's, das war der Grund...
danke für Deine Geduld!

tom_po 19. Nov 2006 13:21

Re: dbnavigator ändern
 
marabua, jetzt brauch ich doch nochmals deine Hilfe.

Habe deine Form an einer anderen Stelle noch verwendet:

Delphi-Quellcode:
procedure TMainForm.Prepairings1Click(Sender: TObject);
const
  sel
    = 'select Order as "Order",Client,Article as "Style",pieces,prepair,prepconfirm as "HK conf.", '
    + 'prepout as "Prep.fin.",plancutting,plansewing,planfinishing, '
    + 'observations as "Remarks" '
    + 'from orders where prepair <> '+QuotedStr('no')+' and sewingout is null '
    ;
begin
  ShowDBView(sel, 'Prepairings - inside + outside', True, True);
  with DBView.DBNavigator1 do
  VisibleButtons := VisibleButtons - [nbinsert, nbdelete];
end;

{showdbview('select Order as "Order",Client,Article as "Style",Pieces,prepair,prepconfirm as "HK conf.",prepout as "prep.fin.",'
+'plancutting,cuttingout,plansewing,observations as "Remarks"'
+'from orders where prepair <> '+QuotedStr('no')+' and sewingout is null','Prepairings - inside + outside',true,true);}
kommt jetzt aber die Fehlermeldung "Konstantenausdruck erwartet".
Es ist sicher wegen dem ... '+QuotedStr('no')...??

wie muss ich korrigieren, habe schon etliches probiert...

in meinem alten Code (siehe darunter mit {} ) funktioniert es...

marabu 19. Nov 2006 15:41

Re: dbnavigator ändern
 
Du kannst eine Konstante nur aus Konstanten zusammensetzen - und QuotedStr() ist eine Funktion. Wenn du dein SQL-Statement als Konstante vorhalten willst, dann so:

Delphi-Quellcode:
const
  sel
    = 'select Order as "Order", Client, Article as "Style", pieces, prepair, prepconfirm as "HK conf.", '
    + 'prepout as "Prep.fin.", plancutting, plansewing, planfinishing, observations as "Remarks" '
    + 'from orders where prepair <> ''no'' and sewingout is null '
    ;
BTW warum speicherst du Literale wie 'no' in deiner Datenbank? Wäre da ein boolean nicht besser geeignet?

Freundliche Grüße

tom_po 20. Nov 2006 00:46

Re: dbnavigator ändern
 
super, vielen Dank, marabu, klappt wunderbar!!

ich habe eine produktions-programm, wo ich neue Aufträge erstelle und zu dem Zeitpunkt, noch nicht weiss, ob ich welche Vorarbeiten habe. Später wird dann aus dem no eine Zahl, die dann die Art der Vorarbeit darstellt. Um mit einem Query die Aufträge zu bekommen, bei denen die Vorarbeit schon definiert ist, mache ich diese Abfrage. Die DB ist jetzt schon so aufgebaut, das Field ist ein String, müsste die DB dann auf boolean umstellen...schwieriger.

Danke aber dennoch für Deinen Tip!


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:39 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz