Henry Olive

Good Morning Die Thank you SO MUCH

Thank you so much Uwe If you have time, could you please a little bit explain the 2 choices and if possible could you show some code example

Good Day I want to find out the Form Name 1 level behind of Active Form In Form1 - Form2.Show; In Form2 - Form3.ShowModal; In Form3 I need the name of 1 level behind Form3, ( which is Form2 ) Thank You

Thank you Angus I dont want to use S.Proc. as i wrote my prior message i know how to use params in S.Proc but i want to use a dataset, query component inside Delphi

Good Day In Stored Procedure i can use below code WHERE :CUSTNO IS NULL OR C.CUSTNO=:CUSTNO) How can i use above code inside Delphi (10,4) ? SqlText := 'SELECT CUSTNO, CUSTNAME,EMAIL FROM CUSTOMER WHERE CUSTNO = :CUSTNO'; CDS1.CommandText := SqlText; CDS1.Params[0].asString = ?? // If :CUSTNO = '' (Empty) then show all Customers else just show choosen Customer Thank You

Good Day, Night ..... ItemNoCol := Ord(ComboBox2.Text[1]) - Ord('A') + 1; QtyCol := Ord(ComboBox3.Text[1]) - Ord('A') + 1; DataStart := StrToInt(ComboBox4.Text); // Which column does data start in for Row := DataStart to ExcelRowsCount do begin ItemNo :=Trim(Sheet.Cells[Row, ItemNoCol]); if (ItemNo <>'') then if (Sheet.Cells [Row, QtyCol] <> '0') or (Sheet.Cells [Row, QtyCol] <> '') then // HERE i get invalid variant operation err.msg begin .... end; What am i doing wrong ? Thank You

Thank you Olli73, Happy New Year Both Qty & Price fields are TFMTBCDField; Select Sum(Round(Price * Qty, 2)) as Total gives correct result

Thank you Serge, Happy new year Price : Numeric(15,5) Qty : Numeric(15,2) Firebird,: Select Sum(Price * Qty) as Total (the result = 573.694,74 ) In Delphi I Created an Aggr.Field and its Expression is Sum(Total) (the result = 573.694,73 ) Thank You

Thank you Hans DBGrid.ColExit triggers ONKEYDOWN w/o any problem I thought if is there any better solution

Good Day Delphi 10,4 Table Field Values : (F1 = 95.615,79 , F2 = 6) In Firebird SQL i make a calculation like ( F1 * F2 ) as TOTAL and in my query result (In Delphi) = 573.694,74 which is correct I have an Aggregate Field in my CDS and it's Expression = SUM(TOTAL) In my table there is just 1 record and the Aggregate result = 573.694,73 What am i doing wrong ? Thank You

Thank you so much Lajos

Thank you so much Stano, Uwe

Good Day I have a DataSource and DBGrid in a Form (The other database comp. are in Data Module) In the DBGrid's first field's PickList has some items I need to catch dbgrid's first field Change so that i'll fill next fields according to selected items from picklist I wrote some codes on DBGrid.ColExit event and every thing is OK, but after i select an item from picklist and hit DOWN key (Next Row) DBGrid.ColExit doesnt triggered I Know there is Field On Change Event in Client Dataset's field editor, but i dont want to write code in data module I solved my problem with OnKeyDown event if Key = VK_DOWN then DBGrid1ColExit(DBGrid1); I thought may be there is a better solution Thank You

Thank you so much Serge

Good Day I have a DBGrid and it has some datas which they come from another table I don't want the user to INSERT a new record, user can just edit available datas My Code in DBGrid1KeyDown is : if (Key=VK_DOWN) then if MyTable.RecNo = MyTable.RecordCount then Abort; it works, but i'd like to be sure if the logic here is good or there is a better way Thank You