الاتصال بقواعد بيانات فايربيز من الدلفي

[Delphi4Us]

السلام عليكم ورحمة الله وبركاته


المشروع موجود على موقع

https://github.com/SchneiderInfosystems/FB4D

المشروع به مثال يحفظ البيانات في شكل تنسيق Json 



ويمكن ذلك وبانشاء بيانات وعقد متداخلة ومعقدة وبسهولة

كود :

StringWriter := TStringWriter.Create();   Writer := TJsonTextWriter.Create(StringWriter);   Writer.Formatting := TJsonFormatting.None;   // Start   Writer.WriteStartObject;   // Guid   Writer.WritePropertyName('razao');   Writer.WriteValue('softclass software ltda');   // Data   Writer.WritePropertyName('data');   Writer.WriteValue('08/02/2017');   // Hora   Writer.WritePropertyName('hora');   Writer.WriteValue('11:03');   // Produtos   Writer.WritePropertyName('Produtos');   Writer.WriteStartArray;   // Produto 01   Writer.WriteStartObject;   Writer.WritePropertyName('codigo');   Writer.WriteValue('A502C9DA');   Writer.WritePropertyName('descricao');   Writer.WriteValue('AGUA MINERAL');   Writer.WriteEndObject;   // Produto 02   Writer.WriteStartObject;   Writer.WritePropertyName('codigo');   Writer.WriteValue('A502C9DA');   Writer.WritePropertyName('descricao');   Writer.WriteValue('AGUA MINERAL');   Writer.WriteEndObject;   Writer.WriteEndArray;   // Pagamentos   Writer.WritePropertyName('Pagamentos');   Writer.WriteStartArray;   // Dinheiro   Writer.WriteStartObject;   Writer.WritePropertyName('dinheiro');   Writer.WriteValue('100.00');   Writer.WriteEndObject;   Writer.WriteEndArray;   // End   Writer.WriteEndObject;

المشكلة الوحيدة هي ان المكتبة تعيد البيانات في شكل ملف Json كما بالشكل التالي

كود :

{"-MHQ9pNA6KC50rEOaa4i":{"Pagamentos":[{"dinheiro":"100.00"}],"Produtos":[{"codigo":"A502C9DA","descricao":"AGUA MINERAL"},{"codigo":"A502C9DA","descricao":"AGUA MINERAL"}],"data":"08\/02\/2017","hora":"11:03","razao":"softclass software ltda"}}

اذا احتجت مثلا الى قيمة حقل معين او مفتاح معين فيجب ان تقوم بهذا يدويا او البحث عن مكتبات اخرى تنظم هذه البيانات

ملاحظة لم يعمل المشروع بالتحميل العادي وانما فقط عن طريق تحميله ببرنامج GitHub Desktop