خطوه في تجهيز برامج الاكسيس للربط مع الويب

خطوه في تجهيز برامج الاكسيس للربط مع الويب

خطوه في تجهيز برامج الاكسيس للربط مع الويب منظومه الزكاه و الدخل و منظومه الضرائب و شبكات تتبع الدواء وبعض الافكار المشابه لذلك

تجهيز ملف xml

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

ما هي لغه xml

و سوف نتناول اليوم فكره تجهيز ملف xml  كخطوه اولي في تجهيز البيانات المراد ارسالها من البرنامج المصمم بالاكسيس حيث ان صيغه ملفات xml  هي أيضا واحده من اللغات التي تشبه الي حد كبير لغه html  و التي يمكن فهما و قرائتها بواسطه الانسان

مميزات لغه xml

الا انها في الاصل هي عباره عن لغه ويب تستخدم في وضع توصيف هيكيلي لصفات الويب و تخزين البيانات و ارسالها الي الويب بشكل منطقي منظم يستطيع الويب ان يتعامل معها و يحتفظ بها في قواعد البيانات الخاصه به و ترمز xml الي Extensible Markup Language و قد تم تطويرها من قبل World Wide Web Consortium

مفاهيم اساسيه في لغه xml

من مما سبق في تعريفنا الي لغه xml  تعرفنا انها تشبه الي حد كبير لغه html

و من هنا نستطيع ان نقول ان اي وسم ستم اضافته الي الكود يجب اغلاقه نفس طريقه اغلاق كود html

فاذا قمنا بفتح وسم

<username>

جبب علينا ان نقوم باغلاق هذا الوسم بنفس فكره لغه htmlباضافه رمز /

</username>

يمكن فتح و قراءه صيغه ملفات xml   من خلال اي متصفح كاي لغه ويب او يمكن استخدم اي محرر نصوص مثل notped  او notped++  او اي محرر نصوص اخر

 

و اليوم سوف نتعرف بمثال بسيط علي كود مبسط يتم تصميمه بالاكسيس و اضافته في ملف نصي منفصل او ملف xml  او ارساله بشكل مباشر دون حفظه في الجهاز

في البدايه اذا اردنا كتابه الي ملف نصي منفصل عن قاعده البيانات سوف نحتاج الي اضافه المكتبه البرمجيه Microsoft Scripting Runtime في محرر الاكواد

من خلال الضغط علي القائمه Tools  ثم اختيار  References ثم اختيار هذه المكتبه البرمجيه

كتابه ملف نصي منفصل بتنسيق لغه xml

الان سوف نقوم من خلال الكود في محرر اكود فجوال بيزك في الاكسيس  بكتابه ملف نصي منفصل بتنسيق لغه xml

و ذلك تمهيدا لارسال الملف الي الويب و ذلك من خلال الكود البرمجي و أيضا يمكن ان يكون هذا الحدث بمجرد حفظ الفاتوره

محوظه يجب قبل البدا في كتابه هذا الكود فهم الارشادات الخاصه بالموقع المراد عمل ربط معه حتي يمكن ان يتم ارسال البيانات بشكل صحيح و استقبال التاكيد علي اتمام عمليه الارسال من خلال استقبال رساله اخري بالتفاصيل و التي سوف نستعرض أيضا بعض الافكار التي تمكنا من فهم محتوي الرساله التي تم استقبلها

خطوه في تجهيز برامج الاكسيس للربط مع الويب

مثال عملي

هذا الكود يمكن استخدامه في الربط مع شبكه تتبع الدواء في المملكه العربيه السعوديه المعروفه باسم شبكه رصد لتتبع الدواء

و التي تهدف الي عمل تتبع ما بين الشركات المصنعه و المستودعات و الصيدليات و المستهلك النهائي

 

Option Explicit

' Go to Tools -> References... and check "Microsoft Scripting Runtime" to be able to use

Public Sub SaveTextToFile()

On Error Resume Next

Dim filepath As String

filepath = CurrentProject.Path & "\MyTestFile.txt"

Dim fso As FileSystemObject

Set fso = New FileSystemObject

Dim fileStream As TextStream

' Here the actual file is created and opened for write access

Set fileStream = fso.CreateTextFile(filepath)

' Write something to the file

fileStream.WriteLine "<qr>"

Dim ID_item As String

' افتراض متغير DAO لقاعده البيانات

Dim db As DAO.Database

' افتراض متغير لدوران داخل قاعده البيانات

Dim rs As Recordset

' أيضا قمنا بافتراض متغيرين i , m

Dim i, m As Integer

Set db = CurrentDb

' أيضا قمنا بالدوان علي الحلقه التكراريه الخاصه بالفاتوره

Set rs = db.OpenRecordset("Qr_code_trans2", dbOpenDynaset, dbSeeChanges)

m = DCount("ID", "Qr_code_trans2")

For i = 1 To m

ID_item = DLookup("ProductBar", "Qr_code_trans2", "[ID] =" & [Forms]![Frm_Trans2]![IDOfTrans])

MsgBox ID_item

fileStream.WriteLine "newqr:" & ID_item

rs.MoveNext

Next i

fileStream.WriteLine "</qr>"

' لكتابه التعليمات البرمجيه داخل ملف xml

fileStream.WriteLine "<username>" & "68210313000010000" & "</username>"

' اضافه كل سطر برمجي في سطر مستقل

fileStream.WriteLine "<password>" & "noorjameah2030" & "</password>"

fileStream.WriteLine "<activation>" & "11673456071787" & "</activation>"

' اضافه رقم الفاتوره في الوسم الخاص برقم الفاتوره

fileStream.WriteLine "<invoice-id>" & "acc-500032" & "</invoice-id>"

fileStream.WriteLine "<service>" & "accept" & "</service>"

' اضافه تاريخ اليوم في وسم التاريخ

fileStream.WriteLine "<date>" & #5/15/2022# & "</date>"

' اضافه توكن الدخول

fileStream.WriteLine "<togln>" & "0000000000000" & "</togln>"

fileStream.WriteLine "<notification-folder></notification-folder>"

' اضافه سطر الاشعارات

fileStream.WriteLine "<notification-folder></notification-folder>"

fileStream.WriteLine "<debug-mode>" & "true" & "</debug-mode>"

' Close it, so it is not locked anymore

fileStream.close

' Here is another great method of the FileSystemObject that checks if a file exists

If fso.FileExists(filepath) Then

MsgBox " file was created! :" & filepath

End If

End Sub

 

 الربط مع الفاتوره الالكترونيه

لمزيد من الافكار البرمجيه حول طرق ارسال ملف xml  باستخدام api يمكنك زياره هذا المقال من موقع مايكروسوفت

 

يمكن ان يعجبك أيضا اضافه شريط تحميل للنموذج في الاكسيس ProgressBar

يمكن ان يعجبك أيضا افكار برمجيه لحمايه ملف الاكسيس

تعرف أيضا علي اهم دوال يجب ان يهتم بها المحاسب في الاكسيل