Search options

hello,

Please i need help with correct syntax.
i have a customer table, with field fullname (string), monday, tuesday, wednesday, thursday, friday, saturday, sunday (all boolean). this day of week will be a checkbox on a form. i can check 1-3 items as the delivery schedule (ex. monday, thursday, sunday).
I want to display customers on a grid or combo box if they are check for the current day. (ex. today is Wednesday, if a customer wednesday field is true then this customer will be displayed in the list.)
Option 1, I try to use Search button and load it to Grid but I cant make query works, the idea is like this:
SELECT DayName(CURDATE()) AS myDay
if myday = 'Sunday' THEN
    SELECT id, fullname FROM customer WHERE sunday = True
ELSEIF myday = 'Monday' THEN
    SELECT id, fullname FROM customer WHERE Monday = True
ELSEIF myday = 'Tuesday' THEN
    SELECT id, fullname FROM customer WHERE Tuesday = True
ELSEIF myday = 'Wednesday' THEN
    SELECT id, fullname FROM customer WHERE Wednesday = True
ELSEIF myday = 'Thursday' THEN
    SELECT id, fullname FROM customer WHERE Thursday = True
ELSEIF myday = 'Friday' THEN
    SELECT id, fullname FROM customer WHERE Friday = True
ELSEIF myday = 'Saturday' THEN
    SELECT id, fullname FROM customer WHERE Saturday = True 
END IF

option 2, i try the scripting to add it in combo box. it could work but i have problem going to the next record?

if intDayWeek = 1 then SQLQuery('SELECT count(id) as iCount FROM customer WHERE sunday=True', Results)
else if intDayWeek = 2 then SQLQuery('SELECT count(id) as iCount,fullname FROM customer WHERE monday=True', Results)
else if intDayWeek = 3 then SQLQuery('SELECT count(id) as iCount,fullname FROM customer WHERE tuesday=True', Results)
else if intDayWeek = 4 then SQLQuery('SELECT count(id) as iCount,fullname FROM customer WHERE wednesday=True', Results)
else if intDayWeek = 5 then SQLQuery('SELECT count(id) as iCount,fullname FROM customer WHERE thursday=True', Results)
else if intDayWeek = 6 then SQLQuery('SELECT count(id) as iCount,fullname FROM customer WHERE friday=True', Results)
else if intDayWeek = 7 then SQLQuery('SELECT count(id) as iCount,fullname FROM customer WHERE saturday=True', Results)
else showmessage('wrong day');
    rCnt := results.fieldbyname('iCount').asinteger;
    for i := 0 to rCnt-1 do
    begin
       Form1.cbSchedule.dbAddRecord(i,Results.FieldByName('fullname').AsString);
       results.next //????
    end;
    Results.Free;

I have tried to make this work my self but my limited skills dont allow me. Can someone please help me correct the syntax for the best approach of what I need to accomplished? Either option 1 or 2 will do.

Thanks a lot!

Hello,

It took me many hours to figure out why my do loop executed twice even it should be only 1.
It turns out that when searching by typing and click the item in combo box it will execute it twice so if i have loop script on change event it will execute twice.

what i want to accomplish:
- grid1 have the list of free item that customer can claim (invisible)
- combo box1 has the list of customer
- grid2 will be the list of items added from other buttons. if customer has free items in grid1 it will be automatically added here.

If i select a customer from combobox1, it will search item from grid1 using loop, if found, item will be added to grid2. All good but it go to the loop twice when typing then clicking on item. so if i have showmessage or other procedure to execute it will be executed twice. please see sample
how to fix this? thanks!

Hi, can someone please help me with correct syntax pls?
I cant make it work... i want to insert to table via script because i need to manipulate 2 different tables in one button which i cant do in gui.

SQLExecute('INSERT INTO Customer (count,id_customer,date,due,payed,balance,discount,deliver,pickup,id_user) VALUES ("' + qcnt + "','" + qcus + "','" + qdte + "','" + qtot + "','" + qten + "','" + qchn + "','" + qdnt + "','" + qchr + "','" + qpup + "','" +  qnme + '")');

values are variable i convert to proper type StrToFloat, StrToInt etc...
I keep on receiving error') ' expected....

Hello,

I cant seem to find related topic or answer to my problem. I cant properly add column to a table grid. sorry for noob question. but im receiving list index out of bounds.

what i want is to manual add items to grid. i have bigger program seems to work without any issue if items are from database. but there is a requirement for me to populate it manually and also save it to database.
this is just a sample code. how to properly code adding of columns? and also easy way to save it to database after items are added.

procedure frm_main_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
frm_main.TableGrid1.AddRow(1);
frm_main.TableGrid1.Cells[0,0] :=  frm_main.Edit1.Text;
frm_main.TableGrid1.Cells[1,0] :=  frm_main.Edit2.Text;
frm_main.TableGrid1.Cells[2,0] :=  frm_main.Edit3.Text;
frm_main.TableGrid1.Cells[3,0] :=  frm_main.Edit4.Text;

end;

procedure frm_main_OnShow (Sender: TObject; Action: string);
begin
    //header name
    frm_main.TableGrid1.AddRow(1);
    frm_main.TableGrid1.Columns[0].Header.Caption := 'First Name';
    frm_main.TableGrid1.Columns[1].Header.Caption := 'Last Name';
    frm_main.TableGrid1.Columns[2].Header.Caption := 'Phone Number';
    frm_main.TableGrid1.Columns[3].Header.Caption := 'Date Time';
end;

begin

end.

Thanks in advance!