Salah Al-Samawi

جرب الرابط التالي التعامل مع جهاز البصمه

اذا عملنا برنامخ يحتاج لاعدادات شاشة خاصة يمكن ان نغير اعدادات الشاشة عند فتح الشاشة ثم نعود للاعدادات السابقة عند غلق البرنامج uses ShellApi; var DefWidth, DefHeight, BPP: word; ... procedure SaveSettings; var DC: hDC; begin DefWidth := Screen.Width; DefHeigh…

{ معرفة اسم الكمبيوتر } 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 TFo…

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

تفظل اخي الحل مع الأكواد db2.rar بدون اكواد db2_2.rar

السلام عليكم لقد قام الأخ مالك2010 مشكورا بحل مشكلة الأستعلام لكن كان هناك نقص بسيط في حالة اذا لم يتم اختيار كلا الخانتين ارجو ان تجربو هذا الحل المتواضع Database1-M.rar

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 TF…

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 …

جرب عذا الحل الذي يمكن معة اضافة فروع بدون تعديل الأستعلامات و التقارير za-db2-UP2.rar

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

هل تقصد بهذة الطريقة؟ za-db2-UP.rar

يمكن استخدام هذا الحل ان كنت قد فهمت السؤال db5.rar

هل تقصد بهذا الشكل؟ 01.rar

هذا بالضبط ما قمت بعملة! شكرا للاخ "سلامنا لكم" الذي تكفل مشكورا بالشرح

هذا الكود للجدول المرفق 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

السلام عليكم!! هذا برنامجك بعد التعديل مشتروات.rar

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

يمكن ان تحذف عن طريق وحدات الماكرو من امر "DeleteObject" ثم من الخواص تختار نوع و اسم الكائن سواء كان نموذج او جدول او مودل

لست ادري ان كنت قد فهمت المطلوب بشكل صحيح, لكن جرب هذا الحل ارجو ان يكون هو المطلوب :) 01.rar

في البداية يجب استخدام uses Printers; لطباعة نص مباشرتا: begin with Printer do begin BeginDoc; { بدايةالطباعه } Canvas.Font:=label1.font; { نحدد نوع الخط } { نطبع النص } Canvas.TextOut(100,100,'هذا فحص لطباعة الطابعة !!!'); EndDoc; { نهاية الطبع } end; لطباعة …