Tools/Utilities Утилиты для delphi / utilities for delphi

emailx45

Premium
Joined
May 5, 2008
Messages
2,478
Reaction score
2,222
Location
here and there

emailx45

Premium
Joined
May 5, 2008
Messages
2,478
Reaction score
2,222
Location
here and there
FIREBIRD DOCUMENTATION SOURCEFORGE CVS TO GITHUB MIGRATION IS DONE

November 13, 2017 mariuz Leave a comment
News via Firebird-Docs mailing list :
https://sourceforge.net/p/firebird/mailman/message/36112445/

The migration from SourceForge CVS to GitHub has been completed. The repository is at https://github.com/FirebirdSQL/firebird-documentation (with clone URL [email protected]:FirebirdSQL/fiebird-documentation.git or https://github.com/FirebirdSQL/firebird-documentation.git )
https://github.com/FirebirdSQL/firebird-documentation


Members of the firebird-documentation team have write access to the repository, and in addition to me and Helen, I have given Paul rights to add (or remove) members from this team.

Be aware that FirebirdSQL organization members that are marked as ‘owner’ also have write access and can manage the team.

I have disabled the issues and projects features, but left the Wiki enabled.
If there are any problems or questions, let me know.

Mark

Mark Rotteveel
 

emailx45

Premium
Joined
May 5, 2008
Messages
2,478
Reaction score
2,222
Location
here and there
Generate Cross Platform Dynamic Forms At Runtime From JSON In Delphi 10.2.1 Tokyo

32xFC5U.png


The Hospitality Survey Client project is part of the Hospitality Survey App template for Delphi 10.2.1 Tokyo that Embarcadero has released through their GetIt platform. The Hospitality Survey App consists of four different projects. In this blog post I will cover the dynamic form generator that is built into the Hospitality Survey Client project. Also keep in mind that the client can be deployed to Android, iOS, macOS, and Windows with a single code base and a single responsive UI.
Basically how it works is on the server there is a database table which contains the list of survey questions to be asked to patrons from each tenant (in this case restaurant). The /survey/ end point in RAD Server is called from TBackendEndpoint (which is basically a TRESTClient) in the Survey App Client. The RAD Server end point returns the contents of the Questions table as the FireDAC JSON format. You can customize the questions using the Hospitality Survey Editor. The Client saves out the FireDAC JSON to a surveys.json file which is then loaded into an TFDMemTable. The GenerateSurvey() function (see below) loops through the records in the TFDMemTable and creates a TFrame for each record. Each record corresponds to a question in the database and you can see the different fields in a record below:
ID - An ID for the question.
name - A short name for the question with no spaces.
title - The text of the question as it will appear in the survey.
type - The type of question controls which question template is loaded on the client. The existing types are: rating, yesno, edit, options
options - If the type of the question is set to options this field is used to populate the options. It's value is a JSON array of options.
value - The value is where the user submitted data is stored. It can be left blank but could be used to provide a default answer.
category - The category of the question. This field is provided for expandability.
tenant_id - The tenant ID of the question. If the tenant_id field is blank all tenants will get the question. If it is set to a tenant only that tenant will get the question.
The Type column determines which TFrame is loaded for that record. The built in types are: rating, yesno, edit, options. You can add your own row types as well by modifying the GenerateSurvey() procedure. You can see the units below for each of the dynamic TFrames including a header frame and a complete button frame for submitting the form.
uSurveyHeaderFrame.pas - Contains the header for the top of the survey.
uRatingBarFrame.pas - Contains the star rating track bar survey question type.
uYesNoFrame.pas - Contains the Yes/No survey question type.
uEditFrame.pas - Contains the edit survey question type.
uComboBoxFrame.pas - Contains the combo box survey question type.
uCompleteFrame.pas - Contains the complete button for the survey.
The GenerateSurvey() procedure itself is pretty simple. It loops through the TFDMemTable dataset and checks the type field to see which TFrame to load and populate for that record. The options field is a JSON array that is used to populate the values for the yesno type and options type. The ID field is used to mark the TFrame with the specific question it was created from (FrameItem.Tag := BindSourceDBForm.DataSet.FieldByName('ID').AsInteger;) so that the value field can be filled out with the answer from the user.

procedure TMainForm.GenerateSurvey(Sender: TObject);
var
FrameItem: TFrame;
FieldType: String;
FieldCategory: Integer;
JSONArray: TJSONArray;
I: Integer;
begin
FrameItem := TSurveyHeaderFrame.Create(TFMXObject(Sender));
FrameItem.Parent := TFMXObject(Sender);
FrameItem.Name := 'FSurveyHeader';
FrameItem.Align := TAlignLayout.Top;
FrameItem.Position.Y := 0;

BindSourceDBForm.DataSet.First;
while not BindSourceDBForm.DataSet.Eof do
begin
FieldCategory := BindSourceDBForm.DataSet.FieldByName('category').AsInteger;

FieldType := BindSourceDBForm.DataSet.FieldByName('type').AsString;
if FieldType = 'edit' then
begin
FrameItem := TEditFrame.Create(TFMXObject(Sender));
FrameItem.Parent := TFMXObject(Sender);
TEditFrame(FrameItem).QuestionText.Text :=
BindSourceDBForm.DataSet.FieldByName('title').AsString;
end;
if FieldType = 'yesno' then
begin
FrameItem := TYesNoFrame.Create(TFMXObject(Sender));
FrameItem.Parent := TFMXObject(Sender);
TYesNoFrame(FrameItem).QuestionText.Text := BindSourceDBForm.DataSet.FieldByName('title').AsString;
JSONArray := TJSONObject.ParseJSONValue(BindSourceDBForm.DataSet.FieldByName('options').AsString) as TJSONArray;
for I := 0 to JSONArray.Count - 1 do
begin
case I of
0:
begin
TYesNoFrame(FrameItem).ValueSpeedButton1.Text := JSONArray.Items.Value;
TYesNoFrame(FrameItem).ValueSpeedButton1.GroupName := BindSourceDBForm.DataSet.FieldByName('name').AsString;
end;
1:
begin
TYesNoFrame(FrameItem).ValueSpeedButton2.Text := JSONArray.Items.Value;
TYesNoFrame(FrameItem).ValueSpeedButton2.GroupName := BindSourceDBForm.DataSet.FieldByName('name').AsString;
end;
end;
end;
JSONArray.Free;
end;
if FieldType = 'rating' then
begin
FrameItem := TRatingBarFrame.Create(TFMXObject(Sender));
FrameItem.Parent := TFMXObject(Sender);
TRatingBarFrame(FrameItem).QuestionText.Text := BindSourceDBForm.DataSet.FieldByName('title').AsString;
end;
if FieldType = 'options' then
begin
FrameItem := TOptionsFrame.Create(TFMXObject(Sender));
FrameItem.Parent := TFMXObject(Sender);
TOptionsFrame(FrameItem).QuestionText.Text := BindSourceDBForm.DataSet.FieldByName('title').AsString;
JSONArray := TJSONObject.ParseJSONValue(BindSourceDBForm.DataSet.FieldByName('options').AsString) as TJSONArray;
TOptionsFrame(FrameItem).ValueComboBox.Items.BeginUpdate;
for I := 0 to JSONArray.Count - 1 do
begin
TOptionsFrame(FrameItem).ValueComboBox.Items.Add(JSONArray.Items.Value);
end;
TOptionsFrame(FrameItem).ValueComboBox.Items.EndUpdate;
JSONArray.Free;
end;
FrameItem.Name := 'F' + BindSourceDBForm.DataSet.FieldByName('ID').AsString;
FrameItem.Align := TAlignLayout.Top;
FrameItem.Tag := BindSourceDBForm.DataSet.FieldByName('ID').AsInteger;
FrameItem.Position.Y := BindSourceDBForm.DataSet.FieldByName('ID').AsInteger * 100;

BindSourceDBForm.DataSet.Next;
Application.ProcessMessages;
end;

FrameItem := TCompleteFrame.Create(TFMXObject(Sender));
FrameItem.Parent := TFMXObject(Sender);
FrameItem.Name := 'FComplete';
FrameItem.Align := TAlignLayout.Top;
FrameItem.Position.Y := 1000000;
TCompleteFrame(FrameItem).CompleteButton.OnClick := CompleteClick;

end;
The selected option in each TFrame gets sent back to the TFDMemTable via the UpdateValueByID() procedure as you can see below. In the below code the Self.Tag field corresponds to the ID field of the question.

procedure TOptionsFrame.ValueComboBoxChange(Sender: TObject);
begin
MainForm.UpdateValueByID(Self.Tag,ValueComboBox.Items[ValueComboBox.ItemIndex]);
end;
The UpdateValueByID() procedure uses the Locate() procedure on the DataSet to find the correct record and then update the value field.

procedure TMainForm.UpdateValueByID(ID: Integer; const Value: string);
begin
if BindSourceDBForm.DataSet.Locate('ID', VarArrayOf([ID]), []) = True then
begin
BindSourceDBForm.DataSet.Edit;
BindSourceDBForm.DataSet.FieldByName('value').AsString := Value;
BindSourceDBForm.DataSet.Post;
end;
end;

Once the survey has been completed by the user then the entire contents of the TFDMemTable are saved out to the FireDAC JSON format and uploaded back to the server via a POST from a TBackendEndpoint component to the /survey/complete endpoint. In the case of the Hospitality Survey App all of the uploaded records are saved for each collected survey. This allows the survey questions to be created, removed, and changed without affecting any of the existing surveys that have already been collected.

tQHpaYC.jpg
 

emailx45

Premium
Joined
May 5, 2008
Messages
2,478
Reaction score
2,222
Location
here and there
Comparison of Firebird, MySQL, and PostgreSQL

a_518b66dc711672120148466848210ea1_thm_fix_50x50.jpg
Sergey Vasiliev

read more info here
https://www.viva64.com/en/b/0542/


....
Summing it all up
Summing up the demerit points, we get the following:

  • Firebird: 1 + 1 + 2 = 4 points.
  • MySQL: 3 + 1 + 2 + 2 + 2 + 2 = 12 points.
  • PostgreSQL: 3 points.
Remember: the fewer points, the better. And if you ask me (a person with a wicked taste), I'd prefer... MySQL! It has the most interesting bugs and it's the leader, which makes it a perfect choice for analysis!

Firebird and PostgreSQL are trickier. On the one hand, even a one-point margin counts; on the other hand, it's quite a small difference, especially because that point was given for a V768 warning of the medium-certainty level... But then again, the codebase of PostgreSQL is way larger, yet it issued four hundred warnings at its automatically generated code...

Anyway, to figure out which of the two projects, Firebird or PostgreSQL, is better, we'd have to do a more thorough comparison. For now, I put them on one podium place so no one is offended. Maybe one day we'll compare them again more carefully, but it will be quite a different story...

So, the code-quality rankings are as follows:

  • 1 place - Firebird and PostgreSQL.
  • 2 place - MySQL.
image7.png



PVS-Studio
footer-unic.png

We develop a PVS-Studio static code analyzer that finds errors in the C, C++, and C# programs on Windows and Linux.
 

emailx45

Premium
Joined
May 5, 2008
Messages
2,478
Reaction score
2,222
Location
here and there
SQL Maestro Group announces the release of Firebird PHP Generator Lite, a free yet powerful Windows frontend to generate data-driven web applications for your Firebird database without programming experience.

Most of software features can be seen in action in the Live Demo. There are also versions for other DBMS (MySQL, PostgreSQL, SQLite, Oracle, etc). Read full press-release.

http://www.sqlmaestro.com/products/firebird/phpgenerator/

http://demo.sqlmaestro.com/feature_demo/

https://www.sqlmaestro.com/news/company/php_generator_lite_released/
 

emailx45

Premium
Joined
May 5, 2008
Messages
2,478
Reaction score
2,222
Location
here and there
SYNCHRONIZE FIREBIRD SQL TO AMAZON MYSQL (AURORA VERSION)

Powerful new feature for Two-Way synchronization between Firebird SQL (Windows) and AWS Aurora-MySQL (a fully managed database with no servers).

https://factorbi.github.io/

This enables developers to extend on-premises systems to the cloud, be able to use MySQL-Aurora for web transactions with the added benefit to return subsets of data to Firebird.
 

emailx45

Premium
Joined
May 5, 2008
Messages
2,478
Reaction score
2,222
Location
here and there
PRESENTATIONS FROM FIREBIRD TOUR 2017: FIREBIRD PERFORMANCE AND TUNING LINUX AND WINDOWS

We start to publish presentations from Firebird Tour 2017. Please find the first 2 presentations below:
Firebird Performance“, by Vlad Khorsun, Firebird Project
Tuning Linux, Windows, and Firebird for heavy workload” by Alex Kovyazin, IBSurgeon.
More presentations will be published later – stay tuned!

https://cms.firebirdsql.org/file/community/tour-2017/firebird.performance.2017.english.pdf

https://cms.firebirdsql.org/file/community/tour-2017/firebird.tuning.2017.english.pdf
 
Top