من الارشيف ( Fiche de Pointage & Certificat de travail)

[onexite]

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

الاجابيات

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

السلبيات

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

صور من البرنامج




تنزيل البرنامج

كود :

http://www.mediafire.com/download/25sf9fzhik34fn0/Idmaj.7z

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

[bassem_43]

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

[onexite]

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

تم ارفاق صورة

[onexite]

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

كل هذا يوجد

[ALG2009]

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

[onexite]

سيكون متاحا للتحميل في الاشهر المقبلة ( النسخة التي تعمل على 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; 


[mohamine87]

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

[ahmedhamza1111]

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