StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

POhow to show Only relevant information in dbgrid delphi
text
Body
copied!<p>information: I have an order form. <img src="https://i.stack.imgur.com/eZja1.png" alt="http://img695.imageshack.us/i/delhi.png/"></p> <p>With "keuze" and "aantal" it wright a new line. The Orderline gets an OrderID. But the user may only see the orderline from his OrderID. </p> <p>How can i make it work that it only shows, for example the OrderID "47" ?</p> <pre><code>procedure TfmOrder.btInvoerenClick(Sender: TObject); begin dm.atOrder.open; dm.atOrder.Append; dm.atOrder ['OrderStatus'] := ('Aangemeld'); dm.atOrder ['klantID'] := fminloggen.userid; dm.atOrder ['OrderDatum'] := Kalender.date; dm.atOrder ['Opmerkingen'] := leOpmerkingen.text; dm.atOrder.post; cbkeuze.Visible := true; dbRegel.Visible := true; leAantal.visible := true; btOpslaan.Visible:= true; end; </code></pre> <p>This is the code for making a new Order</p> <pre><code>procedure TfmOrder.btOpslaanClick(Sender: TObject); var orderid:string; begin dm.atOrderregel.Open; dm.atDier.open; dm.atorderregel.Append; dm.atOrderregel ['AantalDieren'] := leAantal.text; dm.atOrderregel ['OrderID'] := dm.atOrder ['OrderID']; dm.atOrderregel ['Diernaam'] := cbKeuze.Text; dm.atOrderregel.Post; leaantal.clear; cbkeuze.ClearSelection; end; </code></pre> <p>And this for a new orderline</p> <p>thanks in advance</p> <p>I know got a different error using this code:</p> <pre><code> begin dm.atorder.Open; dm.atorder.filter := 'KlantID = ' + (fminloggen.userid); dm.atorder.filtered := true; while not dm.atorder.Eof do begin cbOrder.Items.Add (dm.atorder['OrderID']); dm.atOrder.Next; end; dm.atOrder.Close; end; </code></pre> <p>It gives an error: The arguments are from the wrong type, or doesn't have right reach or are in conflict with each other.</p> <p>here is userid declared.</p> <pre><code>var Gevonden: boolean; userid : string; begin dm.atInlog.open; Gevonden := false; while (not Gevonden) and (not dm.atInlog.eof) do begin if dm.atInlog['email'] = leUser.Text then begin Gevonden := true ; inlognaam := dm.atInlog['email']; userid := dm.atInlog['KlantID']; end else dm.atInlog.Next end; </code></pre> <p>this is obviously in another form</p>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload