Question

information:
I have an order form.

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.

How can i make it work that it only shows, for example the OrderID “47” ?

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;

This is the code for making a new Order

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;

And this for a new orderline

thanks in advance

I know got a different error using this 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;

It gives an error: The arguments are from the wrong type, or doesn’t have right reach or are in conflict with each other.

here is userid declared.

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;

this is obviously in another form

Answer 1

You can use the Filter property of the data set:

atOrderregel.Filter := 'OrderID = 47';
atOrderregel.Filtered := True;