My Visual Database — filter tablegrid by sql query

Re: filter tablegrid by sql query

null@example.com (agusecc) — Mon, 06 Jan 2020 22:39:42 +0000

thanks you sibprogsistem

that script work 100%, one again thanks you very very much

Re: filter tablegrid by sql query

null@example.com (sibprogsistem) — Mon, 06 Jan 2020 16:04:55 +0000

procedure frmAddLessonAktive_OnShow (Sender: TObject; Action: string);
var
   iRow ,c: integer;
   sTr:string;
begin
  sTr:='';
  c := frmstudent.TableGrid1.RowCount - 1;

     for iRow := 0 to c do
         begin
            sTr:=sTr+'dblesson.lesson <> "'+frmstudent.TableGrid1.Cells[0,iRow]+'" AND ' ;
         end;

  delete(sTr, length(sTr)-4, 4);
  frmAddLessonAktive.TableGrid1.dbFilter:=sTr;
  frmAddLessonAktive.TableGrid1.dbUpdate;

end;

Re: filter tablegrid by sql query

null@example.com (agusecc) — Mon, 06 Jan 2020 15:34:11 +0000

sTr:=sTr+'lesson <> "'+frmstudent.TableGrid1.Cells[0,iRow]+'" AND ' ;

change to

sTr:=sTr+'dblesson.lesson <> "'+frmstudent.TableGrid1.Cells[0,iRow]+'" AND ' ;

sibprogsistem,
I try this script but still eror

Re: filter tablegrid by sql query

null@example.com (sibprogsistem) — Mon, 06 Jan 2020 13:37:09 +0000

agusecc wrote:

thanks you Derek and Sibprogsistem for give solution. I glad get trik from Derek with combobox.
but mybe i will develop my project with trik Sibprogsistem, It's work as my hope but still there are eror when i add lesson 2 or 3 time
can you fix it again?

sTr:=sTr+'lesson <> "'+frmstudent.TableGrid1.Cells[0,iRow]+'" AND ' ;

change to

sTr:=sTr+'dblesson.lesson <> "'+frmstudent.TableGrid1.Cells[0,iRow]+'" AND ' ;

Re: filter tablegrid by sql query

null@example.com (agusecc) — Mon, 06 Jan 2020 00:19:03 +0000

thanks you Derek and Sibprogsistem for give solution. I glad get trik from Derek with combobox.
but mybe i will develop my project with trik Sibprogsistem, It's work as my hope but still there are eror when i add lesson 2 or 3 time
can you fix it again?

Re: filter tablegrid by sql query

null@example.com (derek) — Sun, 05 Jan 2020 19:00:56 +0000

Hi Agusecc,
Does this help you? (the combobox selection only shows those subjects that have not already been chosen by the specified student).
Regards,
Derek.

Re: filter tablegrid by sql query

null@example.com (sibprogsistem) — Sun, 05 Jan 2020 18:43:08 +0000

procedure frmAddLessonAktive_OnShow (Sender: TObject; Action: string);
var
   iRow ,c: integer;
   sTr:string;
begin
  c := frmstudent.TableGrid1.RowCount - 1;

     for iRow := 0 to c do
         begin
            sTr:=sTr+'lesson <> "'+frmstudent.TableGrid1.Cells[0,iRow]+'" AND ' ;
         end;

  delete(sTr, length(sTr)-4, 4);
  frmAddLessonAktive.TableGrid1.dbFilter:=sTr;
  frmAddLessonAktive.TableGrid1.dbUpdate;

end;

Re: filter tablegrid by sql query

null@example.com (agusecc) — Sun, 05 Jan 2020 15:42:43 +0000

Hi sibprogsistem
thanks for try help me, but That's not what I meant.

Re: filter tablegrid by sql query

null@example.com (sibprogsistem) — Sun, 05 Jan 2020 14:57:54 +0000

will this help?

filter tablegrid by sql query

null@example.com (agusecc) — Sun, 05 Jan 2020 09:16:01 +0000

please help me
I have one project example MVD and i want filter one tablegrid by other.
when "newrecord" from tablegrid2 and save to database, so next "newrecord again from tablegrid2 same item data not show in tablegrid2.
if all data in tablegrid2 already save in new other database so data in tablegrid2 not view agian

I send example project.

https://www.dropbox.com/s/w0rhxzw6nu96s … N.rar?dl=0