najy_zl
خبير دلفي و مشرف سابق
- التاريخ الهجري
السلام عليكم... أعتقد أن الدالة صحيحة مع بعض التعديل (السبب هو أن StrToDate ستعتبر أن التاريخ المطلوب هو التاريخ الميلادي): 1. غير نوع الدالة من TDateTime إلى string 2. غير السطر الأخير في الدالة إلى هذا الشكل: Result := StrPas(HigriText); لاحظ أنه في هذه الحا…
- تاريخ ووقت Server
السلام عليكم... نعم... كانت إجابتي السابقة على أساس أن المقصود بالـ Server هو أي حاسوب آخر على الشبكة بصرف النظر إن كان يحتوي على محرك قواعد بيانات أم لا. أما للحصول على الوقت و التاريخ من خلال محرك قواعد بيانات، فكما قال الأخ hikmat حيث يعتمد على نوع قاعدة ال…
- الفلترة بين Delphi 2009 وsqlserver2008
السلام عليكم... إذا كنت تستعمل الـ ADOTable أو ADOQuery فجملة الـ Filter يجب أن تكون هكذا: DM.Twer.Filter := 'Name LIKE ' + QuotedStr(Edt1.Text + '*'); أي باستعمال العامل LIKE. و إذا استعملت الخاصية SQL للمكون ADOQuery فاستعمل الرمز (%) بدل النجمة (*) ADOQuery…
- ظهور رسالة خطاء وقت تنفيذ البرنامج
السلانم عليكم... البرنامج لم يتمكن من إيجاد نقطة الدخول للإجراء SSR_Z_QueryUserInfo_ ضمن المكتبة zkemsdk.dll. تأكد من صحة كتابة اسم الإجراء في الكود الخاص بك، و أن رقم الـ Index للإجراء (40 إذا كان مستعملاً) صحيح. أيضاً ربما يكون الملف zkemsdk.dll نفسه معطوباً…
- إستفسار عن الإستفادة من الأكواد المصدرية للبرامج
السلام عليكم... إذا كانت لديك خبرة سابقة في البرمجة بلغة أخرى قلا أعتقد أنه ستكون لديك صعوبة في تعلم دلفي، لأن لغات البرمجة هي مجرد أدوات بإمكانيات مختلفة و يمكنك تعلمها بسرعة طالما كانت لديك الخبرة كمبرمج. أما إذا كنت جديداً في البرمجة فأعتقد أن واحدة من الطر…
- تاريخ ووقت Server
السلام عليكم... أضف تعريفات الأنواع التالية تحت عبارة type في القسم interface type TIME_OF_DAY_INFO = record tod_elapsedt : DWord; tod_msecs : DWord; tod_hours : DWord; tod_mins : DWord; tod_secs : DWord; tod_hunds : DWord; tod_timezone : LongInt; tod_tinterva…
- مساعدة بسيطة في msflexgrid
السلام عليكم... و لا إله إلا الله... والصبر جميل... في زر النقل ضع الكود التالي: Private Sub Command1_Click() Dim RRow As Long Dim LRow As Long Dim ACol As Long Dim ItemFound As Boolean For RRow = MSFlexGrid1.FixedRows To MSFlexGrid1.Rows - 1 For LRow = MSFlex…
- لائحة (ListBox) ببنود ملونة و لاختيار الألوان
السلام عليكم... جاءني تنبيه من أحد الإخوة إلى أنه لا توجد طريقة للتعامل مع البنود (إضافة، تعديل، حذف) أثناء التشغيل (بالكود)!!! لا أدري كيف فاتني ذلك. ربما لأني كنت مستعجلاً على الانتهاء من تصميم الأداة. على أية حال قمت بالتعديلات اللازمة و أضفت إلى المكون الو…
- لائحة (ListBox) ببنود ملونة و لاختيار الألوان
السلام عليكم... في المرفقات مكون لائحة (ListBox) قمت أساساً بتصميمه لاختيار الألوان، كما يمكن استعماله كلائحة عادية (ببنود نصية) ملونة. استعمال المكون TColorListBox في Visual Basic 1. انسخ الملف ColorListControls.ocx إلى المجلد System32. 2. من القائمة "ابدأ" (…
- اكواد قوائم الوورد
السلام عليكم... أعتقد - و الله أعلم - أنه هناك لخبطة في الموضوع. إذا كنت تقصدين أكواد برنامج Microsoft Word فلا أظن أن أحداً يملك الإجابة لأن تلك الأكواد خاصة بذلك البرنامج و لا يعرفها غير الذين قاموا ببرمجته. أما إذا كنت تقومين بتصميم برنامج تحرير نصوص يشبهه …
- تاريخ يوم محدد فى السنه
السلام عليكم... انسخ الدالة التالية و ضعها في Module Public Function GetSimilarDays(ByVal ADay As VbDayOfWeek, ByVal StartDate As Date, ByVal EndDate As Date) As Variant Dim ADate As Date Dim FirstDayFound As Boolean Dim ResultArr() As Date Dim ResultCln As Co…
- اكواد قوائم الوورد
السلام عليكم... قلة الردود غالباً بسبب عدم وضوح السؤال! ما هي القائمة المطلوب إنشاؤها (القائمة "عرض" ؟) و ما هي البنود أو الأوامر في القائمة؟ و ما هو المطلوب من كل أمر؟ نرجو التوضيح و سنحاول الإجابة إن شاء الله. و السلام.
- ارجو مساعدة في فهم هذه الدالة
السلام عليكم... بعد إذن أخينا الكريم "حسين طي" و مع الاعتذار لأخينا الكريم "V0LCAN0" عن التأخير... كنت أجهز الرد منذ الأمس بشيء من التفصيل لكنني توقفت بسبب بعض المشاغل، وها قد سبقني الأخ "حسين طي" مشكوراً، و لكن لا بأس من الإعادة، ففي الإعادة إفادة! الدالة exp…
- ارجو مساعدة في فهم هذه الدالة
السلام عليكم... لا أعتقد أن الأخ fkugd2003 يقصد أية إساءة. تلك وجهة نظره و قد عبر عنها بكلام ليس فيه أي تجريح أو إهانة. على أية حال دعنا نتجاوز تلك النقطة. نلتقي مساء الغد إن شاء الله. و السلام.
- ارجو مساعدة في فهم هذه الدالة
السلام عليكم... بعد إذن الأخ fkugd2003 ... من أين استنتج أن الكود له علاقة بـ "تروجان" (Trojan) ؟ الأخ V0LCAN0 سنحاول في الليلة القادمة شرح الدالة بالتفصيل إن شاء الله. المعذرة الليلة الوقت متأخر. و السلام عليكم.
- التحكم في الفورم عن طريق أداة
السلام عليكم... للوصول إلى خصائص الـ Form من داخل الـ UserControl استخدم الخاصية Parent للكائن Extender التابع للـ UserControl. مثلاً للحصول على موقع النافذة (أي Left و Top) نستخدم السطرين التاليين: انسخ الكود X = UserControl. Extender . Parent . Left Y = User…
- طلب بسيط - كيف اقوم بتعطيل Usb
السلام عليكم... الكود التالي يقوم بإيقاف قرص USB أو إخراج قرص CD/DVD. ضع على الـ Form زر أمر Command1 و مؤقت Timer1 ثم انسخ الكود التالي و ألصقه. الـ Timer موجود لإعطاء فترة انتظار للبرامج التي قد تكون تستعمل قرص الـ USB. قم بتعديل الكود داخل إجراء النقر على ا…
- مساعده في إستخلاص نص..
السلام عليكم... ما الذي تقصده بـ "استخلاص" ؟ أنت تعرف النصين مسبقاً. هل تريد الحصول على موقع كل من العبارتين في النص أم ماذا؟ نرجو التوضيح. ثم إن طول العبارتين ثابت فطول كل من "nonojomes" و "we love u" هو 9 حروف. نرجو التوضيح و السلام.
- كيف يمكن لبرنامجي Windows App أن يعرف أنه تم إضافة او تعديل بيانات في جدول معين بدون إستخدام Timer,
السلام عليكم... أنا للأسف لست مبرمج dotNET محترف (حتى الآن)، لكن أعتقد أنه يمكن إنشاء Trigger يستعمل الإجراء الموسع (Extended Stored Procedure) المسمى xp_cmdshell لتشغيل برنامج موجود على الـ Server ثم يتولى هذا البرنامج إخبار التطبيقات على الأجهزة الأخرى باستع…
- سؤال عن كيفية إنشاء اداه شبيهة للكومبو بوكس
السلام عليكم... صنعت لك مثالاً - في المرفقات - بسيطاً لـ ComboBox لاختيار الألوان. لكنني لم أضف إليه أية خصائص فعلية. أردت فقط أن أبين كيفية إنشاء و عرض القائمة المنسدلة (Dropdown List) للـ ComboBox - حسب سؤالك - بحيث تظهر فوق المكونات الأخرى، أو حتى خارج حدود…