Sqlite3 index
lazarus / 16-Databases

----------------------------------------------------------------------
Pccare247 · 2013-10-12 09:40

Hello there,
i'm new here and i would like to post a question
i used to write in Delphi 5 but i want to use Sqlite5 for a project i
have
so my question is this
i have a dbgrid, sqlite3dataset and a datasource
i want to click on title of my dbgrid an sort my table by the column
name
i use to create my database with sqliteadmin
my delphi code i'm trying to translate is like this
procedure TForm8.SortCol(const Column: TColumn);
var
i:integer;
begin
   SearchEd.text:='';
   For i:=0 to 4 do
    begin
     DBGrid1.Columns.title.font.style:=DBGrid1.Columns.title.font.styl
e-[fsbold];
     DBGrid1.Columns.font.style     
:=DBGrid1.Columns.font.style-[fsbold];
     DBGrid1.Columns.color           :=stringtocolor(bck_color);
    end;
   SearchEd.text:='';

  if (Column.Field.FieldKind <> fkCalculated)
                                    and (Column.Field.FieldKind <>
fkLookup) then
     If (Column.title.caption='Ημ/νία κλήσ.') or
        (Column.title.caption='Ημ/νία Επισ.') then
      begin
{       Label1.Caption         :='Αναζήτηση με';
       Label2.Caption         :=Column.title.caption+' :';
       SearchEd.Enabled          :=False;
       DateTimePicker1.Enabled:=True;
       DateTimePicker1.Setfocus;}
      end
     else
      begin
       Label2.Caption         :='Αναζήτηση με
('+Column.title.caption+') :';
       SearchEd.Enabled       :=True;
       SearchEd.Setfocus;
      end;
  begin
   If  Column.title.caption<>'' then
    begin
     Column.title.font.style:=Column.title.font.style+[fsbold];
     Column.font.style      :=column.font.style+[fsbold];
     Column.color           :=clYellow;
     try
      begin
       TTable(Column.Grid.DataSource.DataSet).IndexFieldNames
:=Column.FieldName;
       Table1.First;
       Table1.indexfieldnames:=Column.FieldName;
//       Edit2.text            :=Table1.indexfieldnames+'=';
      end;
      except
       MessageDlg('Δεν γίνεται ταξινόμηση με αυτη την στήλη',
mtInformation,
       [mbOk], 0);
       Column.title.font.style           
:=Column.title.font.style-[fsbold];
       Column.font.style                 
:=column.font.style-[fsbold];
       Column.color                       :=clInfoBk;
       DBGrid1.Columns[1].font.style     
:=DBGrid1.Columns[1].font.style+[fsbold];
       DBGrid1.Columns[1].title.font.style:=DBGrid1.Columns[1].title.f
ont.style+[fsbold];
       DBGrid1.Columns[1].color           :=clYellow;
       SearchEd.text                      :='';
       Table1.indexfieldnames             :='Service_code';
       Table1.First;
       Label2.Caption         :='Αναζήτηση με
('+Column.title.caption+') :';
     end;
    if Column.Grid.DataSource.DataSet.Filtered then
     begin
      Column.Grid.DataSource.DataSet.Filtered := False;
      Column.Grid.DataSource.DataSet.Filtered := True
     end
    end
    else
     begin
       MessageDlg('Δεν γίνεται ταξινόμηση με αυτη την στήλη',
mtInformation,
       [mbOk], 0);
       Column.title.font.style           
:=Column.title.font.style-[fsbold];
       Column.font.style                 
:=column.font.style-[fsbold];
       Column.color                       :=clInfoBk;
       DBGrid1.Columns[1].font.style     
:=DBGrid1.Columns[1].font.style+[fsbold];
       DBGrid1.Columns[1].title.font.style:=DBGrid1.Columns[1].title.f
ont.style+[fsbold];
       DBGrid1.Columns[1].color           :=clYellow;
       Table1.indexfieldnames             :='Service_code';
       SearchEd.text                      :='';
       Table1.First;
       Label2.Caption         :='Αναζήτησης με
('+Column.title.caption+' ) :';
    end;
  end;
end;                         
Thanks in advance