الاتصال بقواعد بيانات فايربيز من الدلفي
#1
السلام عليكم ورحمة الله وبركاته


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

https://github.com/SchneiderInfosystems/FB4D

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

[صورة: attachment.php?aid=4338]

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

كود :
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


الملفات المرفقة
.jpg   222.jpg (الحجم : 37.84 ك ب / التحميلات : 99)
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
[-] كل من 2 users say قال شكرا ل Delphi4Us على المشاركة المفيدة
  • mobile, sathex
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم