From Clomosy Docs

No edit summary
No edit summary
Line 1: Line 1:
Basis Guide is a customized guide for Clomosy. In the application, all the desired data can be accessed from the database. With the customized guide, it only returns data according to the searched request, without reaching all the data.<br>
It is a customized guide form. With the customized guide, it returns only the data that is queried without accessing all the data. In another use case, when data selected from a page search needs to be transferred to the previous page, the "TclGuideForm" component is used.<br>
In another use, the "TclGuideForm" component can be used when it is desired to transfer selected data from a page search to the previous page. Let's create a BasisGuide form now and continue the narrative over it. To create the form, it is necessary to define.<br>
MyGuideForm : TclGuideForm;


Before using these features, the form must be initialized.<br>
An object of the TclGuideForm class should be defined.<br>
<pre>
var
  GuideForm1 : TclGuideForm;
</pre>
The defined object must be created using the "Create" function.<br>
<pre>
{
  GuideForm1 = TclGuideForm.Create(Self);
  GuideForm1.Run;
}
</pre>
The features are provided in the table below.<br>
<div class="table-responsive">
{| class="wikitable" style="border: 2px solid #c3d7e0"
! style="background-color: #c3d7e0"| Feature !!style="background-color: #c3d7e0"| Use of !!style="background-color: #c3d7e0"| Definition
|-
|ReturnItemData ||GuideForm1.ReturnItemData = 'MAIN_TEXT'; || The value of the desired field from the data clicked on in the list on the form page is retrieved and displayed in the next content. The name of the selected field must be written. In the example, the value from the "MAIN_TEXT" field is retrieved.
|-
|ReturnItemObject ||GuideForm1.ReturnItemObject = edtListNumber; || The value returned from the previously selected field is passed. In the example, the data has been transferred to a TclEdit component named "edtListNumber".
|}
</div>
<br>
<b>Example</b><br>
In this example, a TclForm will be created, containing a list view (TclListView), an interactive search field (TclProEdit), and a TclGuideForm to display data.<br>
First, a SQLite database will be created with an "OperatingSystem" table, and sample data will be inserted into the table. When the user enters data into the search field and clicks the search button, the OnGuideQryClick event will be triggered, performing a database query based on the entered term.<br>
The results of this query will be loaded into the list view, and when a user selects an item, a specific field (MAIN_TEXT) of that item will be transferred to an edit box (edtListNumber). The form will also include a title, layouts, and various components for user interaction. TclGuideForm will be used to display the search results and retrieve the selected data.<br>
<br>
<i>Key steps:</i><br>


Let's set up our connection to the sqlite database.<br>
Let's set up our connection to the sqlite database.<br>
Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'DBProductSales.db3', <nowiki>''</nowiki>);
<pre>
Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'DBProductSales.db3', '');
</pre>


After that, we need to add BasisGuide to reach the desired guide information. After that, we add a listView to the Guide form and connect it to our form.<br>
After that, we need to add BasisGuide to reach the desired guide information. After that, we add a listView to the Guide form and connect it to our form.<br>
mainListviewGuide := TClListView(MyGuideForm.clFindComponent('FormClListView'));
 
mainListviewGuide.Align := alClient;
<pre>
mainListviewGuide.Visible := True;
mainListviewGuide = TClListView(MyGuideForm.clFindComponent('FormClListView'));
mainListviewGuide.Align = alClient;
mainListviewGuide.Visible = True;
</pre>


After that, when we click on the button on the edit we wrote, it goes to the database and finds the value sought here and transfers it to the ListView.<br>
After that, when we click on the button on the edit we wrote, it goes to the database and finds the value sought here and transfers it to the ListView.<br>


<pre>
<pre>
procedure OnGuideQryClick;
void OnGuideQryClick;
var
var
   Qry : TClSQLiteQuery;
   Qry : TClSQLiteQuery;
begin
{
   try
   try
     Qry := Clomosy.DBSQLiteQueryWith('SELECT model AS MAIN_TEXT,operating_system AS SUB_TEXT FROM OperatingSystem WHERE model LIKE '+QuotedStr('%'+searchGuideEdit.text+'%'));
     Qry = Clomosy.DBSQLiteQueryWith('SELECT model AS MAIN_TEXT,operating_system AS SUB_TEXT FROM OperatingSystem WHERE model LIKE '+QuotedStr('%'+searchGuideEdit.text+'%'));
     Qry.OpenOrExecute;
     Qry.OpenOrExecute;
     if Qry.Found then
     if (Qry.Found)
     begin
     {
       mainListviewGuide.clLoadListViewDataFromDataset(Qry);
       mainListviewGuide.clLoadListViewDataFromDataset(Qry);
     end;
     }
      
      
   except
   except
     ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);
     ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);
   end;
   }
end;
}
</pre>
</pre>


Finally, the Guide takes the "MAIN_TEXT" field of the clicked data from the form with the "ReturnItemData" parameter and sends it to the edit on the previous page with the "ReturnItemObject" parameter.<br>
Finally, the Guide takes the "MAIN_TEXT" field of the clicked data from the form with the "ReturnItemData" parameter and sends it to the edit on the previous page with the "ReturnItemObject" parameter.<br>
MyGuideForm.ReturnItemData := 'MAIN_TEXT';
MyGuideForm.ReturnItemObject := edtListNumber;
'''Code:'''<br>
:'''Base Syntax'''
<pre>
<pre>
var
MyGuideForm.ReturnItemData = 'MAIN_TEXT';
  MyForm:TclForm;
MyGuideForm.ReturnItemObject = edtListNumber;
  MyGuideForm : TclGuideForm;
</pre>
  mainListviewGuide : TclListView;
  lblTitle,lblListNumber :TClLabel;
  edtListNumber : TclEdit;
  searchGuideEdit :TclProEdit;
  searchRehButton,btnListNumber : TClProButton;
  vertScrollBoxMain : TClVertScrollBox;
  lytContent,lytListNumber:TClLayout;
  searchRehLayout : TClLayout;
 
 
procedure Setup;
begin
  vertScrollBoxMain := MyForm.AddNewVertScrollBox(MyForm,'vertScrollBoxMain');
  vertScrollBoxMain.Align := alClient;
 
  lytContent:= MyForm.AddNewLayout(vertScrollBoxMain,'lytContent');
  lytContent.Align := alTop;
  lytContent.Height :=700;
end;
 
procedure SetCaptionName;
begin
  lblTitle:= MyForm.AddNewLabel(MyForm,'lblTitle','COUNT SCREEN');
  lblTitle.Align:=alMostTop;
  lblTitle.Margins.Left:=100;
  lblTitle.Height :=30;
  lblTitle.StyledSettings := ssFamily;
  lblTitle.TextSettings.Font.Size:= 20;
end;
procedure GuideListView;
begin
  mainListviewGuide := TClListView(MyGuideForm.clFindComponent('FormClListView'));
  mainListviewGuide.Align := alClient;
  mainListviewGuide.Visible := True;
end;


procedure OnGuideQryClick;
var
  Qry : TClSQLiteQuery;
begin
  try
    Qry := Clomosy.DBSQLiteQueryWith('SELECT model AS MAIN_TEXT,operating_system AS SUB_TEXT FROM OperatingSystem WHERE model LIKE '+QuotedStr('%'+searchGuideEdit.text+'%'));
    Qry.OpenOrExecute;
    if Qry.Found then
    begin
      mainListviewGuide.clLoadListViewDataFromDataset(Qry);
    end;
   
  except
    ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);
  end;
end;
procedure GuideSearchView;
begin
    searchRehLayout := MyGuideForm.AddNewLayout(MyGuideForm,'searchRehLayout');
    searchRehLayout.Align:=ALTop;
    searchRehLayout.Height := 50;
   
    searchGuideEdit:= MyGuideForm.AddNewProEdit(searchRehLayout,'searchGuideEdit','Search...');
    clComponent.SetupComponent(searchGuideEdit,'{"Align" : "Client","MarginTop":10,"Width" :180, "Height":50,
    "RoundHeight":10,"RoundWidth":10,"BorderColor":"#be92e0","BorderWidth":2}');
   
  searchRehButton:= MyGuideForm.AddNewProButton(searchRehLayout,'searchRehButton','');
  clComponent.SetupComponent(searchRehButton,'{"Align" : "Right","Width" :60,"Height":40,
  "RoundHeight":10, "RoundWidth":10,"BorderColor":"#be92e0","BorderWidth":2,
    "ImgUrl":"https://images.freeimages.com/fic/images/icons/573/must_have/48/search.png"
  }');
   
  MyGuideForm.AddNewEvent(searchRehButton,tbeOnClick,'OnGuideQryClick');
end;
procedure OnListBtnClick
begin
    MyGuideForm := TclGuideForm.Create(Self);
    TClButton(MyGuideForm.ClFindComponent('BtnFormMenu')).Visible := False;
    GuideListView;
    GuideSearchView;
    MyGuideForm.ReturnItemData := 'MAIN_TEXT';
    MyGuideForm.ReturnItemObject := edtListNumber;
    MyGuideForm.Run;
End;
procedure SetMainView;
begin   
  lytListNumber        := MyForm.AddNewLayout(MyForm,'lytListNumber');
  lytListNumber.Align  := alTop;
  lytListNumber.Margins.Top := 10;
  lytListNumber.Height := 25;
  lytListNumber.Width  := 340;
   
  lblListNumber              := MyForm.AddNewLabel(lytListNumber,'lblListNumber','List Number:');
  lblListNumber.Align        := alMostLeft;
  lblListNumber.Width        := 140;
  lblListNumber.Margins.Left := 10;
   
  edtListNumber      := MyForm.AddNewEdit(lytListNumber,'edtListNumber','List Number');
  edtListNumber.Align := alLeft;
  edtListNumber.Width := 140;
   
  btnListNumber:= MyForm.AddNewProButton(lytListNumber,'btnListNumber','');
  clComponent.SetupComponent(btnListNumber,'{"Align" : "Right","Width" :50,"Height":60,"MarginRight":10,
  "RoundHeight":10, "RoundWidth":10,"BorderColor":"#be92e0","BorderWidth":2,
    "ImgUrl":"https://images.freeimages.com/fic/images/icons/573/must_have/48/search.png"
  }');
  MyForm.AddNewEvent(btnListNumber,tbeOnClick,'OnListBtnClick');
end;
  procedure SqLiteInsertData;
  begin
    try
      Clomosy.DBSQLiteQuery.Sql.Text := '
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (1, ''Vista'',''Microsoft Windows'',''tablet'', 200);
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (6, ''XP'',''Microsoft Windows'',''tablet'', 500);
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (6, ''Alpha'',''Microsoft Windows'',''computer'', 104);
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (6, ''Public Beta'',''MacOS'',''computer'', 400);
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (2, ''Tiger'',''MacOS'',''tablet'', 350);
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (6, ''Leopard'',''MacOS'',''computer'', 125);
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (3, ''Lollipop'',''Android'',''mobile'', 325);
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (6, ''Alpha'',''Android'',''tablet'', 123);
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (4, ''Gnome'',''Pardus'',''computer'', 300);
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (6, ''Raspberry'',''Pardus'',''computer'', 175);
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (5, ''Tiger'',''MacOS'',''mobile'', 10);
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (6, ''Alpha'',''MacOS'',''ipad'', 104);';
      Clomosy.DBSQLiteQuery.OpenOrExecute;
     
      ShowMessage('Adding data to the table was successful!');
    except
    ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
    end;
  end;
 
  procedure SqLiteConnectionCreateTable;
  var
    TableExists: Boolean;
  begin
    try
      Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'DBProductSales.db3', '');
      // Check if the table exists
      Clomosy.DBSQLiteQuery.Sql.Text := 'SELECT name FROM sqlite_master WHERE type="table" AND name="OperatingSystem";';
      Clomosy.DBSQLiteQuery.OpenOrExecute;
     
      // Check the results
      TableExists := not Clomosy.DBSQLiteQuery.Eof;
     
      // Create the table if it does not exist
      if not TableExists then
      begin
        Clomosy.DBSQLiteQuery.Sql.Text := 'CREATE TABLE OperatingSystem (
                                        id INTEGER NOT NULL,
                                        model TEXT NOT NULL,
                                        operating_system TEXT NOT NULL,
                                        device_type TEXT NOT NULL,
                                        sales_figure INTEGER NOT NULL
                                          )';
        Clomosy.DBSQLiteQuery.OpenOrExecute;
       
        ShowMessage('Table successfully added to the database!');
        SqLiteInsertData;
      end else
      begin
        ShowMessage('The Products table already exists.');
      end;
    except
    ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
    end;
  end;
  begin
   
    MyForm := TclForm.Create(Self);
    MyForm.SetFormColor('#ffffff','#cebade',clGVertical);
    Setup;
    SetCaptionName;
    SetMainView; 
    SqLiteConnectionCreateTable;
    MyForm.Run;
 
  end;
</pre>


:'''TRObject Syntax'''
<b>Example Code:</b><br>
<pre>
<pre>
  var
  var
Line 419: Line 269:
</pre>
</pre>


'''Output:'''<br>
<b>Output:</b><br>
<gallery widths="300px" heights="500px" align="center" mode="nolines">
<gallery widths="300px" heights="500px" align="center" mode="nolines">
File: ExampleMainScreen.png | ''MyForm Screen''
File: ExampleMainScreen.png | ''MyForm Screen''
Line 425: Line 275:
</gallery>
</gallery>


== Also See ==
<h2> See Also </h2>
* [[Virtual Keyboard]]
* [[Virtual Keyboard]]
* [[TclForm]]

Revision as of 10:41, 6 November 2024

It is a customized guide form. With the customized guide, it returns only the data that is queried without accessing all the data. In another use case, when data selected from a page search needs to be transferred to the previous page, the "TclGuideForm" component is used.

Before using these features, the form must be initialized.
An object of the TclGuideForm class should be defined.

var
   GuideForm1 : TclGuideForm;

The defined object must be created using the "Create" function.

{
  GuideForm1 = TclGuideForm.Create(Self);
  GuideForm1.Run;
}

The features are provided in the table below.

Feature Use of Definition
ReturnItemData GuideForm1.ReturnItemData = 'MAIN_TEXT'; The value of the desired field from the data clicked on in the list on the form page is retrieved and displayed in the next content. The name of the selected field must be written. In the example, the value from the "MAIN_TEXT" field is retrieved.
ReturnItemObject GuideForm1.ReturnItemObject = edtListNumber; The value returned from the previously selected field is passed. In the example, the data has been transferred to a TclEdit component named "edtListNumber".


Example

In this example, a TclForm will be created, containing a list view (TclListView), an interactive search field (TclProEdit), and a TclGuideForm to display data.

First, a SQLite database will be created with an "OperatingSystem" table, and sample data will be inserted into the table. When the user enters data into the search field and clicks the search button, the OnGuideQryClick event will be triggered, performing a database query based on the entered term.

The results of this query will be loaded into the list view, and when a user selects an item, a specific field (MAIN_TEXT) of that item will be transferred to an edit box (edtListNumber). The form will also include a title, layouts, and various components for user interaction. TclGuideForm will be used to display the search results and retrieve the selected data.

Key steps:

Let's set up our connection to the sqlite database.

Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'DBProductSales.db3', '');

After that, we need to add BasisGuide to reach the desired guide information. After that, we add a listView to the Guide form and connect it to our form.

mainListviewGuide = TClListView(MyGuideForm.clFindComponent('FormClListView'));
mainListviewGuide.Align = alClient;
mainListviewGuide.Visible = True;

After that, when we click on the button on the edit we wrote, it goes to the database and finds the value sought here and transfers it to the ListView.

void OnGuideQryClick;
var
  Qry : TClSQLiteQuery;
{
  try
    Qry = Clomosy.DBSQLiteQueryWith('SELECT model AS MAIN_TEXT,operating_system AS SUB_TEXT FROM OperatingSystem WHERE model LIKE '+QuotedStr('%'+searchGuideEdit.text+'%'));
    Qry.OpenOrExecute;
    if (Qry.Found)
    {
      mainListviewGuide.clLoadListViewDataFromDataset(Qry);
    }
    
  except
    ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);
  } 
}

Finally, the Guide takes the "MAIN_TEXT" field of the clicked data from the form with the "ReturnItemData" parameter and sends it to the edit on the previous page with the "ReturnItemObject" parameter.

MyGuideForm.ReturnItemData = 'MAIN_TEXT';
MyGuideForm.ReturnItemObject = edtListNumber;


Example Code:

 var
  MyForm:TclForm;
  MyGuideForm : TclGuideForm;
  mainListviewGuide : TclListView;
  lblTitle,lblListNumber :TClLabel;
  edtListNumber : TclEdit;
  searchGuideEdit :TclProEdit;
  searchRehButton,btnListNumber : TClProButton;
  vertScrollBoxMain : TClVertScrollBox;
  lytContent,lytListNumber:TClLayout;
  searchRehLayout : TClLayout;
  
  
void Setup;
{
   vertScrollBoxMain = MyForm.AddNewVertScrollBox(MyForm,'vertScrollBoxMain');
   vertScrollBoxMain.Align = alClient;
  
   lytContent= MyForm.AddNewLayout(vertScrollBoxMain,'lytContent');
   lytContent.Align = alTop;
   lytContent.Height =700;
}
  
void SetCaptionName;
{
  lblTitle= MyForm.AddNewLabel(MyForm,'lblTitle','COUNT SCREEN');
  lblTitle.Align=alMostTop;
  lblTitle.Margins.Left=100;
  lblTitle.Height =30;
  lblTitle.StyledSettings = ssFamily;
  lblTitle.TextSettings.Font.Size= 20;
}
void GuideListView;
{
  mainListviewGuide = TClListView(MyGuideForm.clFindComponent('FormClListView'));
  mainListviewGuide.Align = alClient;
  mainListviewGuide.Visible = True;
}

void OnGuideQryClick;
var
  Qry : TClSQLiteQuery;
{
  try
    Qry = Clomosy.DBSQLiteQueryWith('SELECT model AS MAIN_TEXT,operating_system AS SUB_TEXT FROM OperatingSystem WHERE model LIKE '+QuotedStr('%'+searchGuideEdit.text+'%'));
    Qry.OpenOrExecute;
    if (Qry.Found)
    {
      mainListviewGuide.clLoadListViewDataFromDataset(Qry);
    }
    
  except
    ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);
  } 
}
 
 
 
void GuideSearchView;
 {
    searchRehLayout = MyGuideForm.AddNewLayout(MyGuideForm,'searchRehLayout');
    searchRehLayout.Align=ALTop;
    searchRehLayout.Height = 50;
    
    searchGuideEdit= MyGuideForm.AddNewProEdit(searchRehLayout,'searchGuideEdit','Search...');
    clComponent.SetupComponent(searchGuideEdit,'{"Align" : "Client","MarginTop":10,"Width" :180, "Height":50,
    "RoundHeight":10,"RoundWidth":10,"BorderColor":"#be92e0","BorderWidth":2}');
    
   searchRehButton= MyGuideForm.AddNewProButton(searchRehLayout,'searchRehButton','');
   clComponent.SetupComponent(searchRehButton,'{"Align" : "Right","Width" :60,"Height":40,
   "RoundHeight":10, "RoundWidth":10,"BorderColor":"#be92e0","BorderWidth":2,
     "ImgUrl":"https://images.freeimages.com/fic/images/icons/573/must_have/48/search.png"
   }');
    
   MyGuideForm.AddNewEvent(searchRehButton,tbeOnClick,'OnGuideQryClick');
 }
void OnListBtnClick
 {
    MyGuideForm = TclGuideForm.Create(Self);
    TClButton(MyGuideForm.ClFindComponent('BtnFormMenu')).Visible = False;
    GuideListView;
    GuideSearchView;
    MyGuideForm.ReturnItemData = 'MAIN_TEXT';
    MyGuideForm.ReturnItemObject = edtListNumber;
    MyGuideForm.Run;
 }
 
void SetMainView;
 {    
   lytListNumber        = MyForm.AddNewLayout(MyForm,'lytListNumber');
   lytListNumber.Align  = alTop;
   lytListNumber.Margins.Top = 10;
   lytListNumber.Height = 25;
   lytListNumber.Width  = 340;
    
   lblListNumber              = MyForm.AddNewLabel(lytListNumber,'lblListNumber','List Number:');
   lblListNumber.Align        = alMostLeft;
   lblListNumber.Width        = 140;
   lblListNumber.Margins.Left = 10;
    
   edtListNumber       = MyForm.AddNewEdit(lytListNumber,'edtListNumber','List Number');
   edtListNumber.Align = alLeft;
   edtListNumber.Width = 140;
    
   btnListNumber= MyForm.AddNewProButton(lytListNumber,'btnListNumber','');
   clComponent.SetupComponent(btnListNumber,'{"Align" : "Right","Width" :50,"Height":60,"MarginRight":10,
   "RoundHeight":10, "RoundWidth":10,"BorderColor":"#be92e0","BorderWidth":2,
     "ImgUrl":"https://images.freeimages.com/fic/images/icons/573/must_have/48/search.png"
   }');
   MyForm.AddNewEvent(btnListNumber,tbeOnClick,'OnListBtnClick');
 }

   void SqLiteInsertData;
  {
    try
      Clomosy.DBSQLiteQuery.Sql.Text = '
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (1, ''Vista'',''Microsoft Windows'',''tablet'', 200);
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (6, ''XP'',''Microsoft Windows'',''tablet'', 500);
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (6, ''Alpha'',''Microsoft Windows'',''computer'', 104);
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (6, ''Public Beta'',''MacOS'',''computer'', 400);
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (2, ''Tiger'',''MacOS'',''tablet'', 350);
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (6, ''Leopard'',''MacOS'',''computer'', 125);
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (3, ''Lollipop'',''Android'',''mobile'', 325);
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (6, ''Alpha'',''Android'',''tablet'', 123);
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (4, ''Gnome'',''Pardus'',''computer'', 300);
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (6, ''Raspberry'',''Pardus'',''computer'', 175);
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (5, ''Tiger'',''MacOS'',''mobile'', 10);
    INSERT INTO OperatingSystem (id, model,operating_system,device_type, sales_figure) VALUES (6, ''Alpha'',''MacOS'',''ipad'', 104);';
      Clomosy.DBSQLiteQuery.OpenOrExecute;
      
      ShowMessage('Adding data to the table was successful!');
    except
     ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
    }
  }
  
  void SqLiteConnectionCreateTable;
  var
    TableExists: Boolean;
  {
    try
      Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'DBProductSales.db3', '');
 
      // Check if the table exists
      Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT name FROM sqlite_master WHERE type="table" AND name="OperatingSystem";';
      Clomosy.DBSQLiteQuery.OpenOrExecute;
      
      // Check the results
      TableExists = not Clomosy.DBSQLiteQuery.Eof;
      
      // Create the table if it does not exist
      if not (TableExists)
      {
        Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE OperatingSystem (
                                        	id INTEGER NOT NULL,
                                        	model TEXT NOT NULL,
                                        	operating_system TEXT NOT NULL,
                                        	device_type TEXT NOT NULL,
                                        	sales_figure INTEGER NOT NULL
                                          )';
        Clomosy.DBSQLiteQuery.OpenOrExecute;
        
        ShowMessage('Table successfully added to the database!');
        SqLiteInsertData;
      } else
      {
        ShowMessage('The Products table already exists.');
      }

    except
     ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
    }
  }

  {
    
    MyForm = TclForm.Create(Self);
    MyForm.SetFormColor('#ffffff','#cebade',clGVertical);
    Setup;
    SetCaptionName;
    SetMainView;  
    SqLiteConnectionCreateTable;
    MyForm.Run;
  
  }

Output:

  • MyForm Screen

    MyForm Screen

  • MyGuideForm Screen

    MyGuideForm Screen

See Also

Retrieved from "http:///index.php?title=TclGuideForm&oldid=2959"