+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي الأخرى (https://delphi4arab.net/forum/forumdisplay.php?fid=4)
+--- قسم : برامج دلفي من عمل الأعضاء (https://delphi4arab.net/forum/forumdisplay.php?fid=27)
+--- الموضوع : نظام أنساب - برنامج شجرة عائلة وتةثيق علاقات النسب (/showthread.php?tid=7053)
نظام أنساب - برنامج شجرة عائلة وتةثيق علاقات النسب - shagrouni - 17-06-2015
السلام عليكم ورحمة الله
هذا البرنامج تم إعداده بواسطة دلفي.
وهو يهتم بتسجبل تاريخ شجرة العائلة وتوثيق علاقات النسب.
كود :
http://www.ansab.ca/img/ansab_trial_main_50.jpgموقع البرنامج: http://www.ansab.ca
يمكن تحميل البرنامج من الموقع
نظام أنساب - برنامج شجرة عائلة وتةثيق علاقات النسب - onexite - 17-06-2015
برنامج غريب عجيب
بعد تجربة بسيطة وجدت انه برنامج عملي يخلوا من الاخطاء
وهذه شجرة العائلة لقبيلتي
![[صورة: fXFOoPf.png]](http://i.imgur.com/fXFOoPf.png)
نظام أنساب - برنامج شجرة عائلة وتةثيق علاقات النسب - shagrouni - 17-06-2015
مرحبا onexite حتى أنا مستغرب مثلك!!
إذا كانت لديك بيانات أخرى تخص هذه الشجرة، هل يمكنك اكمال باقي الفروع؟
نظام أنساب - برنامج شجرة عائلة وتةثيق علاقات النسب - ibrahimkira - 17-06-2015
السلام عليكم و رجمة الله تعالى و بركاته
رمضان مبارك أهله الله علينا و عليكم بالخير
برنامج رائع ... إن شاء الله ان يعتمد في توثيق أنساب العرب مستقبلا ... بالتوفيق
ملاحظة : - قاعدة البيانات لايوجد بها كلمة مرور ...
- يوجد زرا غلق في نافذة اساسيات الادخال .
كود :
http://store1.up-00.com/2015-06/1434570145171.pngهذا الذي استطعت ملاحظته
:pممكن سؤال : كيف استطيع ان اضع لاحقة خاصة ببرنامجي ؟ و استعمال ايقونة خاصة بها ؟ .. كما في برنامجك
انا لدي فكرة انها في قيم الريجيستري لكن لا اعرف كيف ... اشكرك
نظام أنساب - برنامج شجرة عائلة وتةثيق علاقات النسب - shagrouni - 18-06-2015
إقتباس :ملاحظة : - قاعدة البيانات لايوجد بها كلمة مرور ...هل كلمة المرور ضرورية؟ في النسخ القادمة ربما تكون كخيار للمستخدم
إقتباس :يوجد زرا غلق في نافذة اساسيات الادخال .أشكرك على التنبيه وجاري الاستدراك
إقتباس :ممكن سؤال : كيف استطيع ان اضع لاحقة خاصة ببرنامجي ؟ و استعمال ايقونة خاصة بها ؟ .. كما في برنامجك
سأبحث عنها في البرنامج وأنسخها في رد لاحق إنشاء الله
شكرا ابراهيم
نظام أنساب - برنامج شجرة عائلة وتةثيق علاقات النسب - shagrouni - 18-06-2015
إقتباس :ممكن سؤال : كيف استطيع ان اضع لاحقة خاصة ببرنامجي ؟ و استعمال ايقونة خاصة بها ؟ .. كما في برنامجك
كود :
uses
System.Classes, Winapi.Windows, SysUtils, Registry, ShlObj;
procedure Reg_RegisterFileType(sExt, sProgId, sDescription, sExeName: string;
IcoIndex: integer; sIconPath:string; DoUpdate: boolean = false);
var
Reg: TRegistry;
sDefProgId: string;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey(sExt, True);
sDefProgId := Reg.ReadString('');
Reg.WriteString('', sProgId);
Reg.CloseKey;
Reg.OpenKey(sExt + '\' + 'OpenWithProgIDs', True);
Reg.WriteString('', sProgId); // default
Reg.WriteString(sDefProgId, '');
Reg.WriteString(sProgId, '');
Reg.CloseKey;
Reg.OpenKey(sProgId, True);
Reg.WriteString('', sDescription);
Reg.CloseKey;
Reg.OpenKey(sProgId + '\DefaultIcon', True);
if Trim(sIconPath) = '' then
Reg.WriteString('', sExeName + ',' + IntToStr(IcoIndex))
else
Reg.WriteString('', sIconPath);
Reg.CloseKey;
Reg.OpenKey(sProgId + '\Shell\Open', True);
Reg.WriteString('', '&Open');
Reg.CloseKey;
Reg.OpenKey(sProgId + '\Shell\Open\Command', True);
Reg.WriteString('', '"' + sExeName + '" "%1"');
Reg.CloseKey;
if DoUpdate then SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
finally
Reg.Free;
end;
end;وهذه تعليمة الاستدعاء
كود :
Reg_RegisterFileType('.nsb', 'Ansab.nsb', 'Nidam Ansab Data File',
Application.ExeName, 0, '', true);نظام أنساب - برنامج شجرة عائلة وتةثيق علاقات النسب - ibrahimkira - 18-06-2015
السلام عليكم و رحمة الله تعالى وبركاته
شكرا جزيلا استاذ shagrouni ... على الكود -الله يحفظك-
إقتباس :هل كلمة المرور ضرورية؟
هي ليست ضرورية . فقط لمنع المتطفلين من أمثالي :p
شكرا على البرنامج الرائع ... و شكرا على اجابتك لي ... و رمضان كريم
RE: نظام أنساب - برنامج شجرة عائلة وتةثيق علاقات النسب - محمد الدرة - 28-07-2021
<p>شكراُ لك</p><p>ممكن اسم الاداة التي تظهر شجرة العائلة</p>