Salah Al-Samawi

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

اذا عملنا برنامخ يحتاج لاعدادات شاشة خاصة يمكن ان نغير اعدادات الشاشة عند فتح الشاشة ثم نعود للاعدادات السابقة عند غلق البرنامج 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);

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

جرب هذا الحل اذا كنت قد فهمت السؤال الحل في استعلاام 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 TForm1.Button1Click(Sender: TObject); begin ShowMessage(IntToStr(WeekOfYear(Date))); end;

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;

جرب عذا الحل الذي يمكن معة اضافة فروع بدون تعديل الأستعلامات و التقارير 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