delphi4arab منتديات دلفي للعرب
من الارشيف ( Fiche de Pointage & Certificat de travail) - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي الأخرى (https://delphi4arab.net/forum/forumdisplay.php?fid=4)
+--- قسم : برامج دلفي من عمل الأعضاء (https://delphi4arab.net/forum/forumdisplay.php?fid=27)
+--- الموضوع : من الارشيف ( Fiche de Pointage & Certificat de travail) (/showthread.php?tid=6016)

من الارشيف ( Fiche de Pointage & Certificat de travail) - onexite - 13-03-2014

السلام عليكم
البرنامج برمجته منذ حوالي سنتين او اكثر ( كانت بدايتي البرمجية ) وقمت بالتعديل عليه قبل اشهر
واضن انه سينفع البعض منكم

الاجابيات
  • امكانية الاستراد والتصدير
  • الاضافة والحذف والتعديل والبحث والتصفية لا توجد بها اخطاء
  • متعدد المستخدمين وامكانية تحديد الصلاحيات
  • امكانية تغيير اسم ومكان الشركة
  • لا يحتاج تنصيب ( شيء جديد / طبخة سرية )
  • الطباعة بالجملة
  • الاحصائيات
  • الحماية / تاريخ اخر استخدام

السلبيات
  • جعلته محدود 34 عامل فقط
  • الاخطاء الاملائية ...

صور من البرنامج
[صورة: rnni.jpg]

[صورة: l2v5.jpg]

تنزيل البرنامج
كود :
http://www.mediafire.com/download/25sf9fzhik34fn0/Idmaj.7z

هل من اقتراحات او انتقادات ؟

من الارشيف ( Fiche de Pointage & Certificat de travail) - bassem_43 - 12-07-2014

السلام عليكم
بعد تجريب برنامجك لدي ملاحظات سريعه ان سمحت :
- اولا البرنامج جميل ويحتوي على خصائص متعددة .
- عند اختيار الاشهر تظهر كلها 31 يوم في fiche de pointage حتى ولو اخترنا شهر فيفري
- حاول اظافة امكانية اظهار الايام التي لم يعمل بها الشخص كالعطل و الاعياد في fiche .
- ما هي كلمة مرور المدير ؟؟
وبارك الله فيك

من الارشيف ( Fiche de Pointage & Certificat de travail) - onexite - 25-08-2014

bassem_43 كتب :السلام عليكم
بعد تجريب برنامجك لدي ملاحظات سريعه ان سمحت :
- اولا البرنامج جميل ويحتوي على خصائص متعددة .
- عند اختيار الاشهر تظهر كلها 31 يوم في fiche de pointage حتى ولو اخترنا شهر فيفري
- حاول اظافة امكانية اظهار الايام التي لم يعمل بها الشخص كالعطل و الاعياد في fiche .
- ما هي كلمة مرور المدير ؟؟
وبارك الله فيك
تم ارفاق صورة

من الارشيف ( Fiche de Pointage & Certificat de travail) - onexite - 29-08-2014

إقتباس :- عند اختيار الاشهر تظهر كلها 31 يوم في fiche de pointage حتى ولو اخترنا شهر فيفري
- حاول اظافة امكانية اظهار الايام التي لم يعمل بها الشخص كالعطل و الاعياد في fiche .
كل هذا يوجد

من الارشيف ( Fiche de Pointage & Certificat de travail) - ALG2009 - 29-08-2014

لو تتقضل أنت أو أحد الأشخاص بشرح برمجه البرنامج خطوه خطوه حتى نتعلم منكم

من الارشيف ( Fiche de Pointage & Certificat de travail) - onexite - 04-09-2014

سيكون متاحا للتحميل في الاشهر المقبلة ( النسخة التي تعمل على lan ) مع قاعدة بيانات مشتركة
PHP كود :
function GetNetworkByWorkgroup(Workgroup: String): TStrings;
var
EnumHandle: THandle;
WorkgroupRS: TNetResource;
Buffer: array[1..500] of TNetResource;
BufSize: Cardinal;
Entries: Cardinal;
Res: Integer;
begin
Result := TStringList.Create;
FillChar(WorkgroupRS, SizeOf(WorkgroupRS), 0);
with WorkgroupRS do begin
dwScope := RESOURCE_GLOBALNET;
dwType := RESOURCE_REMEMBERED;
dwDisplayType := RESOURCEDISPLAYTYPE_DOMAIN;
dwUsage := RESOURCEUSAGE_CONTAINER;
lpRemoteName := @Workgroup[1];
end;

WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @WorkgroupRS, EnumHandle);
repeat
Entries := 1;
BufSize := SizeOf(Buffer);
Res := WNetEnumResource(EnumHandle, Entries, @Buffer, BufSize);
if (Res = NO_ERROR) and (Entries = 1) then
Result.Add( StrPas(Buffer[1].lpRemoteName) );
until (Entries <> 1) or (Res <> NO_ERROR);
WNetCloseEnum( EnumHandle );
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
 ComboBox1.Items := GetNetworkByWorkgroup('Workgroup');
end; 


من الارشيف ( Fiche de Pointage & Certificat de travail) - mohamine87 - 11-02-2015

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

من الارشيف ( Fiche de Pointage & Certificat de travail) - ahmedhamza1111 - 16-06-2015

بارك الله فيكم