منظومة خاصة بالموظفين في اي مصلحة
#1
سلام الله عليكم

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

[صورة: attachment.php?aid=4530]

رابط التحميل
https://www.mediafire.com/file/pe5417lwm...a.rar/file

نسيت هذا الخط المستخدم


.rar   bukra-bold.rar (الحجم : 33.52 ك ب / التحميلات : 214)


الملفات المرفقة
.jpg   aaasssddd.jpg (الحجم : 96.23 ك ب / التحميلات : 393)
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
[-] كل من 8 users say قال شكرا ل Delphi4Us على المشاركة المفيدة
  • أبو معاذ, embarcadero, محمد عبد العزيز, larbiparadox, ALG2009, Ibn Battuta, h-farid, belkhir2
الرد
#2
وعليك السلام

بالنسبة للخط لماذا لا تضمنه في الملف التنفيذي
[-] كل من 1 user says قال شكرا ل embarcadero على المشاركة المفيدة
  • Delphi4Us
الرد
#3
هل تقصد وضعه في الريسورس ومنها تثبيته في مجلد الخطوط
ام انشاء حزمة تثبيت وتثبيته في مجلد الخطوط
ام ان هناك طريقة أخرى غير ما ذكرت تستخدمونها
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
الرد
#4
(26-08-2021, 10:56 AM)Delphi4Us كتب : هل تقصد وضعه في الريسورس ومنها تثبيته في مجلد الخطوط
ام انشاء حزمة تثبيت وتثبيته في مجلد الخطوط
ام ان هناك طريقة أخرى غير ما ذكرت تستخدمونها

أظن أن الأخ يقصد استعمالها دون تثبيتها.


PHP كود :
// first load it in the OnCreate event of a form:
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  AddFontResource
('c:\FONTS\MyFont.TTF');
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;

// before application terminates, we must free it:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  RemoveFontResource
('C:\FONTS\MyFont.TTF');
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end; 
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
[-] كل من 1 user says قال شكرا ل أبو معاذ على المشاركة المفيدة
  • Delphi4Us
الرد
#5
أعجبتني طريقة البحث و هي تضليل الاحرف الاولى فالرجاء الطرقة الاخ Delphi4Us و شكرا
وقل ربي زدني علماً
الرد
#6
طريقة مضمنة مع المكون نفسه EhLib.VCL
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
الرد
#7
السلام عليكم.
لاحظت في برنامجك امكانية استدعاء شريطط البحث في Dbgrid و جعل ال Focus عليه.
هل ممكن شرح بسيط لهذا الأمر ؟
جزاك الله خيرا.
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
[-] كل من 1 user says قال شكرا ل أبو معاذ على المشاركة المفيدة
  • Delphi4Us
الرد
#8
وعليكم السلام

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

كود :
DBGridEh1.SearchPanel.Enabled:=not DBGridEh1.SearchPanel.Enabled;

بالنسبة لكلمة البحث كما بالصورة

http://forum.ehlib.com/en/download/file.php?id=531

يمكن التحكم فيها كالتالي:
كود :
unit Unit1; ... uses ... EhLibLangConsts ... initialization   EhLibLanguageConsts.SearchPanelEditorPromptText := 'My Search ...'; end.
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
الرد
#9
(29-08-2021, 06:25 PM)أبو معاذ كتب : السلام عليكم.
لاحظت في برنامجك امكانية استدعاء شريطط البحث في Dbgrid و جعل ال Focus عليه.
هل ممكن شرح بسيط لهذا الأمر ؟
جزاك الله خيرا.

وعليك السلام

يمكنك اظاهره في EhLib ، أو إضغط عل Ctrl+ F  تخرج نافذة البحث أخرى

كود :
DBGridEh1.SearchPanel.Enabled:= not DBGridEh1.SearchPanel.Enabled; DBGridEh1.SetFocus;

EhLib هو المفضل لدي ، يمتاز بإظهار المجاميع ، ترقيم السطور ، .... الخ

كما لديه الفلترة كما في Excel
[صورة: 682586983.jpg]

وأيضا Export الى Excel

جميع هذه الامور موجودة في مجلد Demo مع مكون التثبيت
‏اللّهمّ فرّج أُموراً ضَاقت بها صُدورنا وعجزت بها حيلتنا وقلّ بها صَبرنا الّلهمّ أَسعِد قلوبنا بما أنتَ أعْلَمُ بِهِ مِنّا
[-] كل من 3 users say قال شكرا ل larbiparadox على المشاركة المفيدة
  • Delphi4Us, أبو معاذ, Ibn Battuta
الرد
#10
هنا رابط لموقع المكون وما الذي يمكنه ان يفعله

كود :
http://www.ehlib.com/en/screenshots
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
[-] كل من 3 users say قال شكرا ل Delphi4Us على المشاركة المفيدة
  • larbiparadox, أبو معاذ, Ibn Battuta
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم