+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي الأخرى (https://delphi4arab.net/forum/forumdisplay.php?fid=4)
+--- قسم : مشاريع دلفي الجماعية (https://delphi4arab.net/forum/forumdisplay.php?fid=24)
+--- الموضوع : مشروع برنامج للإدارة الذكية لمحل تجاري (/showthread.php?tid=8893)
RE: مشروع برنامج للإدارة الذكية لمحل تجاري - alkhemia - 29-09-2017
(29-09-2017, 08:23 AM)bouh25 كتب : لو سمحت اخي ارجو ان تعمل البرنامج بادوات قياسية standard حتى يتسنى للجميع للاستفادة دون تثبيت اى مكون .
كل المكونات المستعملة قياسية أردت فقط أم يتمكن الأعضاء خاصة الجدد من صنع واجهات سهلة جميلة و احترافية و لهذا لجأت لـskin
و التي يمكن استبدالها بدون مشكل
و شكرا على المداخلة
مثلا قاعدة البيانات تكون قابلة للشبكة مثل الفايربيرد اضافة انها مجانية ، ويتسنى للمبتدأ تعلم اساسيات التعامل مع الشبكة
مكونات قواعد البيانات مثل Zeosdbo مجانية وسهلة التعامل
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
لقد أوضحت أنه بعد الانتهاء من المشروع يمكننا التوسع
كما أن absolute يمكن استعمالها في الشبكة
على كل حال يمكن مناقشة هذا الأمر في المراحل القادمة
و شكرا مجددا على المداخلة
RE: مشروع برنامج للإدارة الذكية لمحل تجاري - alkhemia - 29-09-2017
بالنسبة لخاصية منع ازدواجية التطبيق فكما تفضل الأخ عبد العزيز بطرحه
أنه هناك بعض البرامج تسمح بذلك لأنها تتيح للمستخدم استعمال عدة عمليات في الوقت نفسه و من غير انتظار
كما أن هناك برامج لا تسمح بذلك و لذلك ارتأيت أن أضع كود عدم السماح بازدواجية التطبيق مع مثال توضيحي لمن أراد استعماله
+ سوف يتم طرح المرحلة الثانية كما سبق و ذكرت هذا الأسبوع بعد مناقشة أساليب الحماية و استعمالها في التطبيق و شكرا
العنوان: عدم السماح بازدواجية التطبيق
هذه العملية تعتبر من العمليات الأساسية في بعض البرامج كبرامج المحاسبة مثلا
و هي عملية جد بسيطة و هي البحث عن اسم البرنامج فإن وجد يمنع فتحه و ان لم يوجد يتم الفتح ببساطة
الآن الكود:
كود :
app_name='AIGLC';
var
EDA: THandle;
begin
EDA:=CreateMutex(nil,True,app_name);
if GetLastError = ERROR_ALREADY_EXISTS then
begin
MessageDlg('Application deja ouverte', mtError, [mbOk], 0);
Exit;
end;
try
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.Run;
finally
closehandle(EDA);
end
end.و أخيرا طبقنا ذلك في تطبيقنا السابق و هو في المرفقات مشاهدة طيبة
RE: مشروع برنامج للإدارة الذكية لمحل تجاري - alkhemia - 30-09-2017
بمكنني شرح الكود لمن أراد ذلك طبعا و أي استفسار أنا في الخدمة
RE: مشروع برنامج للإدارة الذكية لمحل تجاري - Agmcz - 04-10-2017
السلام عليكم
شكرا أخي على المبادرة الطيبة
أكمل...
RE: مشروع برنامج للإدارة الذكية لمحل تجاري - alkhemia - 08-10-2017
الآن حان وقت المرحلة الثانية مع نظام التعريف IDENTIFICATION
هنا عندنا عدة طرق منها البسيطة منها المعقدة
بما أن البرنامج تعليمي فقد استعملت نظام التعريف بسيط بواسطة قاعدة البيانات و المرفقة في البرنامج و لكم القياس على حجم برنامجكم
مشاهدة طيبة للجميع