najy_zl

السلام عليكم... الكود لا يحتاج إلى أي مكون، و إذا كنت تقصد GetColorComponents فهذا اسم أول إجراء في الكود! و يتم استدعاؤه من داخل الدالة ColorToGray. فقط انسخ الكود و قم بتجربته. نرجو الاستفادة و السلام.

السلام عليكم... المشكلة أصلاً في نقل البيانات إلى الـ TextBoxes. لاحظ أنك عند النقر تنقل بيانات السجل الذي كنت متوقفاً عنده سابقاً. ببساطة انقل الكود من DataGrid1_Click إلى DataGrid1_RowColChange و سيكون كله تمام. نرجو الاستفادة و السلام.

السلام عليكم... منذ مدة كتبت بعض الدوال لتحويل الصورة الملونة إلى أبيض و أسود (تدرج الرمادي) و قد جربت تطبيقها على سطح المكتب (Desktop) - بل الشاشة بأكملها - و قد نجح الأمر إلى حد ما و لكنه بحاجة إلى بعض التعديلات - ربما تقوم بها أنت أخ صلاح أو يساعدنا فيها أح…

السلام عليكم... أعتقد حدث التباس في مصطلح الـ Transaction. تستعمل بعض البرامج و خاصة التي تحتاج إلى متابعة دقيقة لما يحدث للبيانات من تغييرات (إضافة، تعديل، حذف) جدولاً واحداً أو أكثر لتسجيل تلك التغييرات (نوع العملية، القيمة القديمة، القيمة الجديدة، وقت الإجر…

الغريب أنه باستثناء إعلانه عن وجوده (في المشاركة رقم 1) لم يتقدم بأي رد آخر رغم كثرة التعليقات :rose: بعده !!!

السلام عليكم... إذا كان الرقم الوظيفي عدداً صحيحاً تسلسلياً فالأمر بسيط: 1. إما أن نجعل حقل الرقم الوظيفي (ID مثلاً) في Access من النوع "ترقيم تلقائي" (Auto Increment). و في هذه الحالة لا نحتاج إلى كود لتحديد الرقم الوظيفي الجديد لأنه بمجرد إضافة سجل جديد إلى …

السلام عليكم... قمت بتجربة الكود التالي مع SQL Server و قد نجح في الحالتين: إنشاء معاينة (CREATE VIEW) و حذف المعاينة (DROP VIEW). * ملاحظة: صيغة جملة الـ SQL قمت بإنشائها من داخل SQL Server Enterprise Manager ثم نسختها إلى VB: Private SQLCnn As New ADODB.Conn…

السلام عليكم... بالنسبة إلى سؤال الوقت : var ATime: TTime; begin ATime := 16010 / (24 * 60 * 60); Edit2.Text := FormatDateTime('hh:nn:ss', ATime); النتيجة ستكون 04:26:50 أي 4 ساعات و 26 دقيقة و 50 ثانية، و احسبها: (4 × 60 × 60 = 14400 ثانية) + (26 * 60 = 1560 …

السلام عليكم... الموضوع "موش صعب" لكن "إنجازه ممل" لعدة أسباب: 1. ستحتاج على الأقل إلى جدول واحد إضافي. 2. ستحتاج إلى عمليات ربط للجداول و إنجاز عمليات خصم الكميات داخل صفقات (Transactions). 3. و الأهم أن سحب البضاعة بنظام الداخل أولاً يصرف أولاً (FIFO) هو عمل…

السلام عليكم... المثال المرفق يبين إحدى الطرق لإنجاز ذلك البحث، لكن دائماً حاول استعمال الاستعلامات (Queries) لتجلب فقط البيانات المطلوبة خاصة إذا كان البرنامج يقرأ البيانات من Server على شبكة. يحتوي الكود الخاص بالمثال على بعض الملاحظات. ExtendedDBSearch.rar …

السلام عليكم... شكراً للأخ super_rio على الكود رغم أنني لا أقدم الحل لكنني وجدته فعلاً لا يعمل دون الـ XPManifest. طبعاً لملاحظة الفرق لا يكفي إزالة المكون XPManifest من النافذة بل يجب أيضاً حذف XPMan من عبارة uses لمنع تطبيق XP Manifest style. نرجو أن يتمكن ص…

السلام عليكم... برمجياً لا يحضرني حالياً الكود الذي يقوم بذلك، لكن يدوياً يمكنك القيام بالخطوات التالية: 1. من قائمة ابدأ (Start) اختر الأمر تشغيل (Run) و اكتب gpedit.msc ثم اضغط Enter. 2. في برنامج Group Policy: أ. قم بتوسيع "تكوين الكمبيوتر" (Computer Config…

السلام عليكم... المشروع المرفق يبين استعمال ActiveX Data Objects (مكونات ADO) للربط مع قاعدة بيانات Access باستعمال الـ ADO data control و باستعمال كائنات المكتبة ADODB. Use_ADO_Objects.rar نرجو الاستفادة و السلام.

السلام عليكم... بالتأكيد يوجد مكون جاهز يقوم بذلك لكني شخصياً لا أعرفه. و لكن يمكنك إنجاز ذلك بالطباعة على PictureBox باستعمال الكود التالي، مع الملاحظات التالية: 1. اضبط الخاصية AutoRedraw للـ PictureBox على True. 2. اضبط الخاصية ScaleMode للـ PictureBox على …

السلام عليكم... هل المشكلة في الوصول إلى قاعدة البيانات (Connection String مثلاً) ؟ أم المشكلة في كتابة الاستلام للحصول على البيانات بين التاريخين؟ أم غير ذلك؟ نرجو التوضيح... و السلام.

السلام عليكم... الكود التالي يعمل على إخفاء و إظهار الـ TaskBar: Private Const SW_HIDE = 0 Private Const SW_SHOW = 5 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Privat…

السلام عليكم... الحقيقة عندي نية أفهم المطلوب! الكود الذي كتبته سابقاً يعمل كما في الصورة أدناه. إذا كان المطلوب غير ذلك فالرجاء التوضيح بتفصيل أكثر، و السلام.

السلام عليكم... إليك هذا الكود الذي يحقق المطلوب: procedure TForm1.Edit1Change(Sender: TObject); var Coordinates: TGridCoord; APoint: TPoint; begin if Trim(Edit1.Text) <> '' then begin // نتأكد من وجود مؤشر الفأرة فوق DBGrid: if WindowFromPoint(Mouse.CursorPos…

السلام عليكم... أكتب بين الحين و الآخر دروساً تعليمية في البرمجة بلغة Delphi على هيئة ملفات HTML و قد قمت بتصميم برنامج صغير يقوم بفتح ملفات دلفي (dpr و pas) و يقوم بتحويلها إلى شفرة HTML ليتم عرض الكود كما يظهر في دلفي (تقريباً) مع إمكانية إضافة بعض التنسيقات…

السلام عليكم... يمكن تحديد عنوان الرسالة و أيضاً إعطاؤها رمزاً لأن صيغة الدالة MsgBox هي كالتالي: X = MsgBox(Prompt, Style, Caption) حيث: * Prompt هو نص الرسالة (String). * Style يحدد عدد و نوع أزرار الرسالة، رمز الرسالة، تعريب الرسالة (من اليمين إلى اليسار). …