delphi4arab منتديات دلفي للعرب

نسخة كاملة : مشروع برنامج للإدارة الذكية لمحل تجاري
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3
(29-09-2017, 08:23 AM)bouh25 كتب : [ -> ]لو سمحت اخي ارجو ان تعمل البرنامج بادوات قياسية standard حتى يتسنى للجميع للاستفادة دون تثبيت اى مكون .

كل المكونات المستعملة قياسية أردت فقط أم يتمكن الأعضاء خاصة الجدد من صنع واجهات سهلة جميلة و احترافية و لهذا لجأت لـskin  Big Grin
و التي يمكن استبدالها بدون مشكل
و شكرا على المداخلة

مثلا قاعدة البيانات تكون قابلة للشبكة مثل الفايربيرد اضافة انها مجانية ، ويتسنى للمبتدأ تعلم اساسيات التعامل مع الشبكة   
مكونات قواعد البيانات مثل Zeosdbo مجانية وسهلة التعامل
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
لقد أوضحت أنه بعد الانتهاء من المشروع يمكننا التوسع 
كما أن absolute يمكن استعمالها في الشبكة
على كل حال يمكن مناقشة هذا الأمر في المراحل القادمة 
و شكرا مجددا على المداخلة
بالنسبة لخاصية منع ازدواجية التطبيق فكما تفضل الأخ عبد العزيز بطرحه
أنه هناك بعض البرامج تسمح بذلك لأنها تتيح للمستخدم استعمال عدة عمليات في الوقت نفسه و من غير انتظار
كما أن هناك برامج لا تسمح بذلك و لذلك ارتأيت أن أضع كود عدم السماح بازدواجية التطبيق مع مثال توضيحي لمن أراد استعماله 
+  سوف يتم طرح المرحلة الثانية كما سبق و ذكرت هذا الأسبوع بعد  مناقشة أساليب الحماية و استعمالها في التطبيق و شكرا
العنوان: عدم السماح بازدواجية التطبيق
هذه العملية تعتبر من العمليات الأساسية في بعض البرامج كبرامج المحاسبة مثلا
و هي عملية جد بسيطة و هي البحث عن اسم البرنامج فإن وجد يمنع فتحه و ان لم يوجد يتم الفتح ببساطة
الآن الكود:
كود :
 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.

و أخيرا طبقنا ذلك في تطبيقنا السابق و هو في المرفقات مشاهدة طيبة
بمكنني شرح الكود لمن أراد ذلك طبعا و أي استفسار أنا في الخدمة
السلام عليكم
شكرا أخي على المبادرة الطيبة
أكمل...
الآن حان وقت المرحلة الثانية مع نظام التعريف IDENTIFICATION 
هنا عندنا عدة طرق منها البسيطة منها المعقدة
بما أن البرنامج تعليمي فقد استعملت نظام التعريف بسيط بواسطة قاعدة البيانات و المرفقة في البرنامج و لكم القياس على حجم برنامجكم
مشاهدة طيبة للجميع
الصفحات : 1 2 3