• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

Salah Al-Samawi

اعضاء جدد
  • عدد المشاركات

    47
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

15 عادي

عن Salah Al-Samawi

  • الرتبة
    عضو جديد
  • تاريخ الميلاد 01/19/1982

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : Yemen
  1. جهاز البصمة T6

    جرب الرابط التالي التعامل مع جهاز البصمه
  2. اذا عملنا برنامخ يحتاج لاعدادات شاشة خاصة يمكن ان نغير اعدادات الشاشة عند فتح الشاشة ثم نعود للاعدادات السابقة عند غلق البرنامج uses ShellApi; var DefWidth, DefHeight, BPP: word; ... procedure SaveSettings; var DC: hDC; begin DefWidth := Screen.Width; DefHeight := Screen.Height; DC := CreateDC('DISPLAY', nil, nil, nil); BPP := GetDeviceCaps(DC, BITSPIXEL); end; procedure SetScreen(BPP:byte;width,height,FR:integer); var D: TDevMode; h: HWND; begin h:=0; D.dmDeviceName:='DISPLAY'; D.dmBitsPerPel:=BPP; D.dmDisplayFrequency:=FR; D.dmPelsWidth:=Width; D.dmPelsHeight:=Height; D.dmFields:=DM_BITSPERPEL+DM_PELSWIDTH+DM_PELSHEIGHT+DM_DISPLAYFREQUENCY; D.dmSize:=SizeOf(D); if ChangeDisplaySettings(D,CDS_TEST)=DISP_CHANGE_SUCCESSFUL then ChangeDisplaySettings(D,CDS_UPDATEREGISTRY) else MessageBox(h,'This mode is not supported by your video.', 'Failed to change mode', MB_ICONWarning); end; مثال الاستخدام: SetScreen(32,800,600,80); //32 بيت //800*600 //80 قيقا قيرتز للعودة للاعدادات السابقة: SetScreen(BPP,DefWidth,DefHeight,80);
  3. { معرفة اسم الكمبيوتر } function GetComputerName: string; var buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char; Size: Cardinal; begin Size := MAX_COMPUTERNAME_LENGTH + 1; Windows.GetComputerName(@buffer, Size); Result := StrPas(buffer); end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(GetComputerName); end; { تسمية اسم الكمبيوتر } function SetComputerName(AComputerName: string): Boolean; var ComputerName: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char; Size: Cardinal; begin StrPCopy(ComputerName, AComputerName); Result := Windows.SetComputerName(ComputerName); end; procedure TForm1.Button2Click(Sender: TObject); begin if SetComputerName('NewComputerName') then ShowMessage('Computer Name Reset Setting will be used at next startup.') else ShowMessage('Computer Name Not Reset'); end;
  4. مشكله في استعلام جرد الرصيد اليومي

    جرب هذا الحل اذا كنت قد فهمت السؤال الحل في استعلاام BOXNEW db2.rar
  5. ايجاد قيمة

    تفظل اخي الحل مع الأكواد db2.rar بدون اكواد db2_2.rar
  6. السلام عليكم لقد قام الأخ مالك2010 مشكورا بحل مشكلة الأستعلام لكن كان هناك نقص بسيط في حالة اذا لم يتم اختيار كلا الخانتين ارجو ان تجربو هذا الحل المتواضع Database1-M.rar
  7. function WeekOfYear(ADate: TDateTime): word; var day: word; month: word; year: word; FirstOfYear: TDateTime; begin DecodeDate(ADate, year, month, day); FirstOfYear := EncodeDate(year, 1, 1); Result := Trunc(ADate - FirstOfYear) div 7 + 1; end; مثال rocedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(IntToStr(WeekOfYear(Date))); end;
  8. function SetPCSystemTime(tDati: TDateTime): Boolean; var tSetDati: TDateTime; vDatiBias: Variant; tTZI: TTimeZoneInformation; tST: TSystemTime; begin GetTimeZoneInformation(tTZI); vDatiBias := tTZI.Bias / 1440; tSetDati := tDati + vDatiBias; with tST do begin wYear := StrToInt(FormatDateTime('yyyy', tSetDati)); wMonth := StrToInt(FormatDateTime('mm', tSetDati)); wDay := StrToInt(FormatDateTime('dd', tSetDati)); wHour := StrToInt(FormatDateTime('hh', tSetDati)); wMinute := StrToInt(FormatDateTime('nn', tSetDati)); wSecond := StrToInt(FormatDateTime('ss', tSetDati)); wMilliseconds := 0; end; SetPCSystemTime := SetSystemTime(tST); end;
  9. تعديل

    جرب عذا الحل الذي يمكن معة اضافة فروع بدون تعديل الأستعلامات و التقارير za-db2-UP2.rar
  10. الأمر التالي يحدد اسم الشهر MonthName(Month([ndate]);0) فاذا كان التاريخ في الحقل "ndate" 1/3/2012 تكون قيمة الحقل "مارس" والعام : Year([ndate]) كما في المثال trable.rar
  11. تعديل

    هل تقصد بهذة الطريقة؟ za-db2-UP.rar
  12. يمكن استخدام هذا الحل ان كنت قد فهمت السؤال db5.rar
  13. كيف أنسق تقرير بشكل جدولى

    هل تقصد بهذا الشكل؟ 01.rar
  14. هذا بالضبط ما قمت بعملة! شكرا للاخ "سلامنا لكم" الذي تكفل مشكورا بالشرح
  15. هذا الكود للجدول المرفق SELECT Table1.Name, Table1.Date, Table1.Result, Table1.male FROM Table1 WHERE (((Table1.Date)=#1/1/2012#) AND ((Table1.Result)=Yes) AND ((Table1.male)=Yes)); DB1.rar