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

[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