Dynamical works's with DBGRID

[Skyp]

Hi. 

Do not display values in BDGrid.
Processing fields in a query (q_for_users1) is as follows:

// Query - good job

 for I := 0 to FieldCount-1 do
         begin
           s:='';
           for j := 0 to pos('.',Field_list)-1 do
             begin
                  s:=s+Field_list[j];
             end;
             for j := pos('.',Field_list)+1 to Length(Field_list) do
             begin
                  s:=s+Field_list[j];
             end;
               with Q_for_users1 do
               begin
         Fields.Name:=Trim(s);
        fields.DisplayLabel:=Field_list;  // Field_list list of allowed characters
           Fields.Visible:=true;
                       end;
         end;

 

Anddd insert a Grid:

-------------------------------------------------------------------------------------------------------------------

  with UniMainModule do
      begin
        DATASOURCEUSER.Enabled := false;
        DATASOURCEUSER.DataSet := Q_for_users1;
        UniMainModule.DATASOURCEUSER.Enabled := true;

      end;

 

 uniSession.AddJS((obj_out as TuniDBgrid).JSName+'.store.suspendEvents();');
         (obj_out as TuniDBgrid).BeginUpdate;

   (obj_out as TuniDBgrid).DataSource := DATASOURCEUSER;
      for i := 0 to Field_list.Count - 1 do
      begin

        if (obj_out is TuniDBgrid) = true then
        begin
          with (obj_out as TuniDBgrid) do
          begin
            (obj_out as TuniDBgrid).Columns.Add;
            //   s:=  unimainmodule.Q_for_users1.fields.Name;
            (obj_out as TuniDBgrid).Columns.Visible := true;
       (obj_out as TuniDBgrid).Columns.FieldName :=Q_for_users1. fields.Name;
            (obj_out as TuniDBgrid).Columns.title.Caption := Field_list;
            (obj_out as TuniDBgrid).Columns.Width := 100;
          end;
        end;
    end;
    (obj_out as TuniDBgrid).endupdate;
         uniSession.AddJS((obj_out as TuniDBgrid).JSName+'.store.resumeEvents();');
        uniSession.AddJS((obj_out as TuniDBgrid).JSName+'.view.refresh();');
    end;

-------------------------------------------------------------------------------------

 All runs without error but in the Grid cell (their number corresponds to the limit in the query) are empty.  Who faced?

[Sherzod]

Hi,

 

Which version and build are you using?!

[Skyp]

Rad Studio Delphi xe8

UG 1.0.0 Build 1363 RC

Unidac 6.2.9

[Sherzod]

Commercial edition?!

[Skyp]

for trial use. For the task selection of tools for development.

 

[Skyp]

image on problem:

[Sherzod]

Where from did you download build 1363 ?

[Farshad Mohajeri]

Rad Studio Delphi xe8

UG 1.0.0 Build 1363 RC

Unidac 6.2.9

 

We do not support pirated versions. Indeed, we do suspend forum accounts as soon as we see someone is using a pirated copy of uniGUI edition whether it is for real development or evaluation.