نظام أنساب - برنامج شجرة عائلة وتةثيق علاقات النسب

[shagrouni]

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

هذا البرنامج تم إعداده بواسطة دلفي.

وهو يهتم بتسجبل تاريخ شجرة العائلة وتوثيق علاقات النسب.

كود :

http://www.ansab.ca/img/ansab_trial_main_50.jpg

موقع البرنامج: http://www.ansab.ca
يمكن تحميل البرنامج من الموقع

[onexite]

برنامج غريب عجيب
بعد تجربة بسيطة وجدت انه برنامج عملي يخلوا من الاخطاء
وهذه شجرة العائلة لقبيلتي

[shagrouni]

مرحبا onexite حتى أنا مستغرب مثلك!!

إذا كانت لديك بيانات أخرى تخص هذه الشجرة، هل يمكنك اكمال باقي الفروع؟

[ibrahimkira]

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

رمضان مبارك أهله الله علينا و عليكم بالخير

برنامج رائع ... إن شاء الله ان يعتمد في توثيق أنساب العرب مستقبلا ... بالتوفيق

ملاحظة : - قاعدة البيانات لايوجد بها كلمة مرور ...
- يوجد زرا غلق في نافذة اساسيات الادخال .

كود :

http://store1.up-00.com/2015-06/1434570145171.png

هذا الذي استطعت ملاحظته :p

ممكن سؤال : كيف استطيع ان اضع لاحقة خاصة ببرنامجي ؟ و استعمال ايقونة خاصة بها ؟ .. كما في برنامجك

انا لدي فكرة انها في قيم الريجيستري لكن لا اعرف كيف ... اشكرك

[shagrouni]

ملاحظة : - قاعدة البيانات لايوجد بها كلمة مرور ...

هل كلمة المرور ضرورية؟ في النسخ القادمة ربما تكون كخيار للمستخدم

يوجد زرا غلق في نافذة اساسيات الادخال .

أشكرك على التنبيه وجاري الاستدراك

ممكن سؤال : كيف استطيع ان اضع لاحقة خاصة ببرنامجي ؟ و استعمال ايقونة خاصة بها ؟ .. كما في برنامجك

سأبحث عنها في البرنامج وأنسخها في رد لاحق إنشاء الله

شكرا ابراهيم

[shagrouni]

ممكن سؤال : كيف استطيع ان اضع لاحقة خاصة ببرنامجي ؟ و استعمال ايقونة خاصة بها ؟ .. كما في برنامجك

كود :

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]

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


شكرا جزيلا استاذ shagrouni ... على الكود -الله يحفظك-

هل كلمة المرور ضرورية؟

هي ليست ضرورية . فقط لمنع المتطفلين من أمثالي :p


شكرا على البرنامج الرائع ... و شكرا على اجابتك لي ... و رمضان كريم

[محمد الدرة]

<p>شكراُ لك</p><p>ممكن اسم الاداة التي تظهر شجرة العائلة</p>