delphi4arab منتديات دلفي للعرب - مشاريع دلفي الجماعية

برنامج صانع مشاريع دلفي التي تتعامل مع قواعد البيانت من نوع أكسس و أس كي أل ايتي

Thu, 13 Aug 2026 16:07:34 +0100

برنامج صانع مشاريع دلفي التي تتعامل مع قواعد البيانت من نوع أكسس و أس كي أل ايتي و بارادوكس

برنامج "Fabricant" صانع مشاريع دلفي Delphi التي تتعامل مع قواعد البيانت من نوع أكسس Access و أس كي أل ايتي SQLite بارادوكس Paradox dBASE

بسم الله الرحمن الرحيم الصلاة السلام على رسول الله وعلى آله وأصحابه أجمعين.
البرنامج هو تطوير لبرنامج صانع الاكواد الذي تم طرحه . الكود سورس مع الملف التنفيذي الروابط موجود أسفله .

الكود سورس:
https://www.mediafire.com/file/rd9gs6b02...t.rar/file
الملف التنفيذي :
https://www.mediafire.com/file/vgnullfo0...t.rar/file

code source Fabricant.rar (الحجم : 54.01 ك ب / التحميلات : 5)

برنامج كراء فساتين أعراس

Thu, 13 Aug 2026 16:05:29 +0100

برنامج كراء فساتين أعراس

Database.rar (الحجم : 43.43 ك ب / التحميلات : 5)

code source rent.rar (الحجم : 63.93 ك ب / التحميلات : 6)

برماج تسيير محل مواد غذائية

Wed, 13 May 2020 03:46:54 +0100

السلام عليكم ,
قررت البدأ في مشروع صغير بهدف صقل مهاراتي في البرمجة و نظرا للحالة التي تتطلب البقاء في المنزل .
طبعا بعد اذن الاستاذ عبد العزيز و الاخوة المشرفين اريد ان اقوم بتخصيص هذا الموضوع لنشر سورس البرنامج و التعديلات عليه لسببين
تفادي طرح الاسلة بكثرة و اغراق المنتدى بمواضيع قد لا يكون لها فائدة .
السبب الثاني [size=small] التعامل مع المكونات و قواعد البيانات [/size]و الاستفادة من خبرات الاخوة الكرام
لم اتعامل مع قواعد البيانات من قبل و اسلوبي في البرمجة بشع , ارجو من الاخوة تحملي قليلا
لم اتطرق بعد الى تصميم قاعدة البيانات لذلك كبداية , كل الافكار و التعديلات مرحب بها هذا نموذج بدائي :

كود :
https://www.upload.ee/files/11686889/REV70.01.rar.html

[+] قاعدة بيانات Access
[+] جدول واحد Clients يحتوي على ID , NAME , PHONE كمثال فقط
[+] فورم Settings بها خاصية واحدة - حفظ قاعدة البيانات .

لست متأكد ما اذا كان الموضوغ بالقسم الصحيح , اذا كان غير ذلك يرجى تغييره فضلا .
و السلام عليكم

تحليل قاعدة بيانات موظفين ورواتب

Fri, 01 Jun 2018 20:22:43 +0100

السلام عليكم ورحمة الله وبركاته
باب المشاركة مفتوح للجميع ، هنا سوف نبداء اخ فريد واخ موبايل .
بداية سوف نحلل هذا الرسم البسيط .

من جلوسي مع موظفي القسم المالي اكتشفت ان طلبهم كالتالي .
جدول يحمل بيانات الموظف الشخصية والمالية التي يحتاجونها مثل الاسم والرقم الوظيفي والرقم المالي وتاريخ التعيين وشهر العلاوة وما الى ذلك .
هذه حقول تكتب مرة واحدة بجدول رئيسي .
سيكون هناك جدول للمكافاءت تنزل بتاريخ معين لادراجها مع مرتبه في الصكوك او الحوافظ التي سوف يتم تقديمها للمصرف .
سيكون هناك جدول للغياب حيث سيتم فيما بعد احتساب هذه الايام وخصمها من مرتبه .
حسب ما فهمت ان النتيجة النهائية هي المرتب الاساسي + المكافاءات والمنح - الاستقطاعات من ضرائب وغياب وغيره = الصافي
الغياب يتم احتسابه بتقسيم المرتب على 30 يوم والناتج يتم ضربه في عدد ايام الغياب .
الضرائب هي بنسبة مئوية مثلا ضريبة الجهاد هي 3% من قيمة المرتب هذه القيم افضل شئ رأيت ان اجعلها يمكن تغييرها في نافذة الخيارات .
بالنسبة الى المرتب الاساسي قيمته تخرج بقانون يتم حفظه بقاعدة البيانات .
فعندما تحدد الدرجة المتعين عليها الموظف يتم اعطاء قيمة لمرتبه للقراءة فقط مع زيادة قيمة العلاوات اذا كان هناك علاوات

مشروع برنامج للإدارة الذكية لمحل تجاري

Sun, 24 Sep 2017 22:52:03 +0100

عنوان المشروع : مشروع برنامج للإدارة الذكية لمحل تجاري

الهدف: تقديم برنامج مفتوح المصدر يعتبر مرجع كل مبرمج عربي من أجل تطويره و إثراءه أو استعماله كقاعدة لمشروع ضخم و كذا تعليمي.

الغرض: تعليمي.

التلخيص:
القيام ببرمجة برنامج يقوم بعدة وظائف منها الكلاسيكية كإدارة المخزون الفوترة المبيعات و المشتريات و كذا وظائف جديدة كمراقبة تواريخ الصلاحية و التنبيهات و بعض الوظائف الذكية ك: fifo و lifo ..الخ
إذا كانت الموافقة سأطرح الخطة إن شاء الله
النسخة المستعملة : بما أن البرنامج تعليمي فأنا أقترح delphi 7 lite لكي يتسنى للجميع المتابعة معنا و شكرا

عمل برنامج نقاط البيع بدلفي POS ( المبيعات والمشتريات والمخازن )

Sun, 24 Sep 2017 09:08:47 +0100

عنوان المشروع : عمل برنامج نقاط البيع بدلفي POS ( المبيعات والمشتريات والمخازن )

الهدف: برمجة برنامج pos بدلفي متكامل لتسيير محل تجاري، المبيعات والمشتريات والمخازن

الغرض: أكاديمي تعليمي+تجاري.

التلخيص: المشروع عبارة عن برنامج متكامل لتسيير محل تجاري ونقاط البيع من المبيعات والمشتريات والمخازن يمتاز ب:
إدارة كاملة للمخزون من إدخال البضاعة وجردها وطباعة التقارير المختلفة للمخزون
نظام دعم العملاء والموردين وتحديد بيانات كل عميل و مورد مع تحديد الحد الأعلى
تعريف عدد غير منتهي من المواد مع امكانية تحديد اكثر من سعر لكل مادة
إحصائيات متنوعة عن نقطة البيع او المحل التجاري
سهولة الاستخدام حيث يمكن لاي شخص استخدامه بسهولة

العمل يكون بنسخة دلفي starter

برنامج رسم تقني 2d cad

Mon, 03 Oct 2016 10:36:59 +0100

حاليا ان اشتغل على الاصدار 0.4 لبرنامج groundcad
البرنامج مخصص لرسم التقني 2d cad. استخدمت lazarus free pascal لتطوير البرنامج فهو مشابه لدلفي كما انه متعدد المنصات و حر المصدر.
اود انشاء فريق مبرمجين.

groundcad0.4.png (الحجم : 26.33 ك ب / التحميلات : 59)

عمل برنامج محل تجاري جماعي

Mon, 29 Aug 2016 00:45:43 +0100

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

اداة ScrollView لعرض مجموعة من النماذج في مكان واحد

Wed, 30 Mar 2016 18:25:04 +0100

السلام عليكم
لقد كتبت عن هذه الاداة هنا

كود :
http://delphi4arab.net/forum/showthread.php?tid=7671

وهذا كود المكون

كود :
unit ScrollView;

interface

uses
  System.SysUtils,Vcl.Forms,Dialogs, System.Classes, Vcl.Controls, Vcl.ExtCtrls;

   type
TGetMode = (SclUP, SclDown, SclLeft,SclRight);

type
  TScrollView = class(TPanel)


   Timer1: TTimer;
   procedure Timer1Timer(Sender: TObject);
   procedure  ScrollViewResize(Sender: TObject);
  private
   GetSpeed:Integer;
   GetMode: TGetMode;

  protected

  public
   procedure FormShow(Frm:Tform;Bool:Boolean=true);
   constructor Create (AOwner: TComponent); override;
   destructor Destroy; override;
  published

   property Speed: Integer read GetSpeed write GetSpeed;
  // property Form: TForm read FForm write FForm;
   property ScrollType: TGetMode read  GetMode write GetMode;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TScrollView]);
end;

{ TScrollView }

constructor TScrollView.Create(AOwner: TComponent);
begin
  inherited;
  Timer1:= TTimer.Create(nil);
  Timer1.Enabled:=false;
  Timer1.Interval:=1;
  Timer1.OnTimer:= Timer1Timer;
  self.OnResize:= ScrollViewResize;
  speed:=50;
  self.Caption:='الاصدارة الاولى مع تحيات Delphi4us ';
  self.BevelOuter :=bvNone;
end;

destructor TScrollView.Destroy;
begin
   Timer1.Free;
   Timer1:=nil;
  inherited;
end;

procedure TScrollView.FormShow(Frm:Tform;Bool:Boolean=true);
begin

    Frm.BorderStyle:=bsNone;
    Frm.Parent:=self;
    Frm.Width:=self.Width;
    frm.Height:=self.Height;

   if Bool=True then begin

    Frm.Show;
    exit;
   end;


   Frm.Show;
   Frm.Hide;

    if ScrollType=sclup then begin
      Frm.Top:=self.Height;
    end;

   if ScrollType=SclDown then begin
      Frm.Top:=0 - frm.Height;
   end;

   if ScrollType=SclLeft then begin
      Frm.Left:=self.Width  ;
   end;

   if ScrollType=SclRight then begin
      Frm.Left:= 0  - frm.Width;
   end;


   Frm.Show;
   // Timer1.OnTimer:= Timer1Timer;
   Timer1.Enabled:=true;

end;

procedure TScrollView.ScrollViewResize(Sender: TObject);
begin
 if Self.ControlCount=1 then begin
 (Self.Controls[0] as Tform).Width:=self.Width;
  (Self.Controls[0] as Tform).Height:=self.Height;
 end;
end;

procedure TScrollView.Timer1Timer(Sender: TObject);
begin

 //ShowMessage(Self.ControlCount.ToString());

 if Self.ControlCount=1 then begin
 (Self.Controls[0] as Tform).Top:=(Self.Controls[0] as Tform).Top -speed;
 if (Self.Controls[0] as Tform).Top < 0 then begin
 (Self.Controls[0] as Tform).Top:=0;
 //(Self.Controls[0] as Tform).close;
Timer1.Enabled:=false;


end;
 exit;
 end;

 if ScrollType=sclup then begin


(Self.Controls[0] as Tform).Top:=(Self.Controls[0] as Tform).Top -speed;

(Self.Controls[1] as Tform).Top:=(Self.Controls[1] as Tform).Top -speed;

if (Self.Controls[1] as Tform).Top < 0 then begin
Timer1.Enabled:=false;
(Self.Controls[0] as Tform).close;
(Self.Controls[1] as Tform).Top:=0;
end;
end;


if ScrollType=SclDown then begin


(Self.Controls[0] as Tform).Top :=(Self.Controls[0] as Tform).Top +speed;

(Self.Controls[1] as Tform).Top:=(Self.Controls[1] as Tform).Top +speed;

if (Self.Controls[1] as Tform).Top > 0 then begin
Timer1.Enabled:=false;
(Self.Controls[0] as Tform).close;
(Self.Controls[1] as Tform).Top:=0;
end;
end;

if ScrollType=SclLeft then begin


(Self.Controls[0] as Tform).Left :=(Self.Controls[0] as Tform).Left -speed;

(Self.Controls[1] as Tform).Left:=(Self.Controls[1] as Tform).Left -speed;

if (Self.Controls[1] as Tform).Left < 0 then begin
Timer1.Enabled:=false;
(Self.Controls[0] as Tform).close;
(Self.Controls[1] as Tform).Left:=0;
end;
end;

if ScrollType=SclRight then begin


(Self.Controls[0] as Tform).Left :=(Self.Controls[0] as Tform).Left +speed;

(Self.Controls[1] as Tform).Left:=(Self.Controls[1] as Tform).Left +speed;

if (Self.Controls[1] as Tform).Left > 0 then begin
Timer1.Enabled:=false;
(Self.Controls[0] as Tform).close;
(Self.Controls[1] as Tform).Left:=0;
end;
end;

end;







end.

حتى الكود بحاجة الى تنظيم وتعديل لانه يعتبر مسودة لما قمت به في ساعة من الليل

برنامج تسيير مختبر تحاليل طبية

Wed, 17 Feb 2016 11:33:18 +0100

السلام عليكم
المشروع هو عبارة عن برنامج يقوم بتسيير مخبر التحاليل الطبية
الهدف من البرنامج هو:
1 - تسجيل المرضى المتقدمين لاجراء التحاليل
2- اضافة التحاليل المطلوبة من كل مريض وربطها به
3- ادخال نتائج التحاليل
4- اظهار القيم النموذجية للمقارنة مع النتائج
5- طباعة تقرير به كل المعلومات حول المريض والتحاليل والنتائج
مبدئيا البرنامج يحتاج الى قاعدة بيانات تحتوي على التالي:
جدول يحتوي معلومات خاصة بالمريض
جدول يحتوي على مختلف انواع التحاليل الطبية مع القيم النموذجية للمقارنة
جدول يحتوي على فروع التحاليل الطبية، حيث ان كل نوع من التحاليل ينتمي الى فرع معين
جدول به كود المريض واكواد التحاليل المطلوبة والنتائج المتحصل عليها
هذا كل ما عندي في الاول
ننتظر مشاركاتكم خاصة من اصحاب الاختصاص في المخابر او ذوي العلم بكيفية تسييرها

دعم قواعد بيانات اكسس لتعمل علي شبكة انترنات

Sat, 16 May 2015 15:31:38 +0100

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

من امتلة هته القواعد هي اكسس و بارودكس
لاكن هته القواعد لاتعمل علي شبكة انترنات فمحركاتهاا لاتوفر هته الميزة لدي ارتايت لربما نستطيع اضافة هته الميزة ليس علي مستوي محرك و انما علي مستوي ال ado و مكونات ربط

بانتظار اراءكم اخواني فهل يمكن تحقيق هدا و ما جداوه فعلية

برنامج تصوير سطح المكتب

Thu, 07 May 2015 12:57:47 +0100

السلام عليكم
وجدت برنامج احترافي لتصوير ورفع صور لسطح المكتب على موقع Imgur
اسم البرنامج Lightshot

كود :
http://st.prntscr.com/2015/04/28/0352/img/media-screen-1.jpg

ووجدت ايضا برنامج لتصوير سطح المكتب مفتوح المصدر اضفت له خاصية رفع وضغط وحفظ الصور لاكن يحتاج الى بعض الخصائص
مايحتاجه البرنامج

تغيير الواجهة
التعامل مع الرسوميات
كاضافة الكتابة والاسهم والخطوط
امكانية الرسم االحر
امكانية اضافة خطوط عريضة مع عدم اخفاء الخط
اضافة قياس حجم الشاشة الملتقط

الكود سورس مرفق
اي تعديلات يرجـــــــى اعادة رفع السورس مع التعديلات المطلوبة

ScreenGrab.rar (الحجم : 5.28 ك ب / التحميلات : 141)

مشروع Let Me Teach - مفتوح المصدر - قيد التطوير

Tue, 24 Mar 2015 07:37:15 +0100

السلام عليكم ورحمة الله وبركاتة

بدأت مؤاخراً مشروع اسميته Let Me Teach , حيث سيكون المشروع عبارة عن برنامج
يأخذ مقاطع الفيديو والدروس المصورة ويضيف عليها صناديق رسائل ويقوم بإنتائج الفيديو
مدمجا مع تلك الرسائل .

باب المشاركة في تطوير المشروع مفتوح , ويجب توفير الشروط الأتي عندما تريد المشاركة
* كتابة أكواد نضيفة وسهلة الفهم والقراءة
فقط

من يريد المشاركة بشكل رسمي سيتم تسجيل إسمه ضمن مطوير البرنامج وتحديد الجزء الذي ساهم فيه
ومن يريد المساهمه كذلك يسيتطيع مثلاً يشارك بجزء من البرنامج وسيتم ذكر اسمه ضمن المساهمين وفي
الجزء الذي ساهم فيه .

معلومات عن المشروع
المشروع مفتوح المصدر تحت رخصة : LGPL
المشروع موجه إلى 3 أنظمة بشكل مبدئي : Linux, Mac OS, Windows
بيئة العمل : Lazarus/Free Pascal
عدد المطورين الرسيميين الحالي : 1 (أنا )
صفحة المشروع :

PHP كود :
https://sourceforge.net/projects/letmeteach/ 

الهدف من المشروع هو توفير محرر شروحات بسيط وسهل ومجاني ومفتوح المصدر
المكتبات التي يستعملها الشمروع :
* BGRABitmap ( إن وجد أفضل سيتم الإنتقال إليه )
* PasLibVlc ( VLC Player ) or MPlayer(MPlayerControl) z

حتى الآن يرجح ان يتم إستعمال مكتبة PasLibVlc لانها تعمل على جميع المنصات تقريباً وتدعم مميزات أكثر
وسيتم إستعمال FFMpeg من خلال الـ TProcess لعملية الدمج والتحرير وأمور الكوديك

الفكرة العامة لطريقة عمل البرنامج :
* تحميل فيديو تم تصويره مسبقاً
* تشغيله من خلال مكون اليفيديو
* عند الوقوف يتم تشغيل محرر لشاشة المتوقف عليها
* يتم محاكها التغيرات من خلال فلتر logo المتوفر في مكتبة PasLibVlc أو عن طريقة Fifo في مكون MPlayerControl
* يتم إنتاج الفيديو بستعمال أحد ادوات الكوديك الخارجية والأغلب أنها FFmpeg من خلال TProcess

فقط

كما اخبرت سيتم إنتاج البرنامج إلى ثلاث أنظمة رئيسية Linux, Mac OS و Windows وبشكل مبدئي سأنطلق من Linux

من أراد المساهم فل يبدا بتطوير ما يريد وبعد ان ينتهي يرسالني .
بالنسبة لمصدر الكود تجدونها دائماً في صفحة الموضوع بآخر تحديث ينزل على الإنرنت .

بالمناسبة تستطيع دعم المشروع بإقتراحاتك وأفكراك

بالتوفيق للجميع

مشروع القران الكريم ( تصف العمل اكتمل )

Mon, 01 Dec 2014 11:43:53 +0100

السلام عليكم
المشروع لوجه الله
من يريد المساهمة فليتفضل
قاعدة البيانات sqlite تم ارفاقها مع البرنامج لاستكشافها استخدموا DB Browser for SQLite
تحتوي على مكان السجدة والاحزاب وغيرها ...
البرنامج ملتي ثريد
صور من البرنامج

الخط العادي

اعدادات

لتحميل البرنامج مع الكود سورس

كود :
http://www.mediafire.com/download/62a76yc57dsbfi7/quranSqlite2.rar

]

مشروع عمل برنامج installer او setup بسيط

Fri, 28 Feb 2014 01:03:22 +0100

سلام عليكم اخواني

اليوم و في اطار النهوض بالبرامج العربية
خطرت ببالي فكرة عمل برنامج يكثر استعماله الا وهو

برنامج تثبيت و تحزيم للملفات

الرنامج يكون بسيط و يفي بالغرض و هته هي لوحة تقنية له

عنوان المشروع :
برنامج تثبيت و تحزيم للملفات
الهدف :
تحزيم عدة ملفات في ملف واحد قابل للنشر و تنصيب في اجهزة اخرى
الغرض :
تعليمي
التلخيص :
المشروع موجه بالخصوص لمبرمجي قواعد بيانات التي تنتج عندهم ملفات كثيرة بعد برمجة فهو يساعدهم على تحزيمها و جعلها قابلة للنشر كملف تنصيب واحد
الخطة :
العمل بالنسبة لي ييكون على دلفي 7 من يملك نسخ احدث فلاباس لاكني غير مسؤول عن الاخطاء ناتجة عن استعمال نسخ احدث
الفكرة للنسخة اولى هي ضمان
1 - صغط كل ملف لحجم اقل
2 - تحديد مسار نزول لكل ملف
3 - حماية ملف تنصيب اساسي بكلمة سر

الملف الناتج قابل لنشر على كل انظمة و ندوز

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