najy_zl
خبير دلفي و مشرف سابق
- سؤال اخواني لماذا يعلق معي البرنامج عند أسخدام كود Do While Not .EOF
السلام عليكم... كان من المفترض أن تبين الكود بين بداية و نهاية الحلقة! لكن أعتقد أنك نسيت كتابة: .MoveNext قبل نهاية الحلقة (قبل Loop مباشرة) حتى يتم الانتقال إلى السجل التالي، و إلا فإن الحلقة ستستمر إلى ما لا نهاية و يعلق البرنامج لأنه لن يصل إلى EOF.. نرجو …
- سؤال مهم جدا تسمية الليبل والكوماند
السلام عليكم... الحقيقة السؤال غير واضح أبداً !! لكن حسب ما فهمت فأنت تريد تصميم واجهة ثنائية اللغة (مثلاً عربي / إنجليزي) بحيث يمكن للمستخدم تغيير لغة واجهة البرنامج. إذا كان الأمر كذلك فاستخدم ملف الموارد (Resource) بدلاً من استعمال قاعدة بيانات، لأن ذلك أسه…
- تحديد وتظليل جزء من صوره
السلام عليكم... في المرفقات برنامج رئيسي (ImgCoordinateMaker.vbp) لإنشاء إحداثيات على الصور ثم حفظ تلك الإحداثيات أو نسخها لاستعمالها في مكان ما. المجلد الفرعي TestApp يحتوي على مشروع صغير (QuranAyaMarker.vbp) لتمييز الآية التي يتم النقر عليها، باستعمال إحداثي…
- ما الهدف من وجود جملة text في فيجول
السلام عليكم... نظرياً - في كل لغات البرمجة - هناك فرق بين Text1 و Text1.Text أما عملياً ففي VB6 فقط لا يوجد فرق (لغات البرمجة الأخرى لن تسمح لك بذلك). فـ Text1 تشير إلى كائن أو مكون (مربع النص) و الذي له العديد من الخصائص مثل BackColor لتحديد لون الخلفية، و F…
- جديـــد Delphi and C++Builder XE5
السلام عليكم... خطأ في المشاركة (مشاركتي هذه)... أرجو من الإدارة حذفها. سلام.
- موضوع مهم
السلام عليكم.... عنوان الموضوع لا علاقة له بالموضوع... لن يلفت إليه أنظار أحد!!! سلام.
- مساعدة اذا ممكن
السلام عليكم... جرب هذا الكود: Private LastX As Single Private LastY As Single Private MoveDir As String Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) MoveDir = "" If X > LastX Then MoveDir = "يمين" ElseIf X < LastX …
- اخوكم بحاجة لمساعدتكم: تقارير QuickReport مع ماستر ديتيلز
السلام عليكم... طلبك في المرفقات إن شاء الله تعالى. و لكنه معمول بدلفي 2010 (أعتقد أنه يمكن فتحه بدلفي XE2). إذا لم يفتح لديك فأرجو إخباري حتى أشرحه لك بالكتابة. المرفقات: QR-Master-Detail.rar نرجو الاستفادة و السلام.
- اريد جلب جميع قواعد البيانات من SQL SERVER
السلام عليكم... السؤال ليس صعباً، و لكن المنتدى يمر بمرحلة ركود :huh: !! تأكد من أن الـ References (من القائمة Project) تحتوي على إشارة على Microsoft ActiveX Data Objects x.x Library (حيث x.x رقم النسخة). بفرض أن النافذة تحتوي على ListBox باسم List1. ضع الكود …
- [سؤال] تسريع أداة التايمر
السلام عليكم... أداة الـ Timer تعتمد على تردد دقات ساعة النظام (TickCount) بوحدة الملي ثانية (milliseconds) و بالتالي فأقل قيمة لها هي 1 (أي 1 ملي ثانية) بالإضافة إلى أنها تصبح غير دقيقة عند استعمال قيم صغيرة. البديل هو استعمال ما يسمى بـ "المؤقت ذو الدقة العا…
- كيفية حساب الزكاة - خاص بالمبرمجين (فقه برمجية)
السلام عليكم... شكراً على الإفادة الكبيرة (فقهياً و برمجياً). سلام.
- حقل نصي واحد لصلاحيات المستخدم - عودة إلى الموضوع
السلام عليكم... في سنة 2009 طرحت موضوعاً لكيفية حفظ صلاحيا المستخدم في حقل واحد نوعه عددي (Integer) و كانت الفكرة تعتمد على معاملة العدد كسلسلة من البتات بحيث تمثل كل بت إحدى الصلاحيات في البرنامج. طبعاً بتلك الطريقة كان عدد الصلاحيات محدوداً بـ 32 أو 64 صلاحي…
- سؤال عن منظومة شؤون موظفين
السلام عليكم... المشاركة الأصلية للأخت آمال محمد كانت بتاريخ 10/02/2012 و نحن اليوم في 23/08/2013 أي ما يقارب السنة و النصف ! أتوقع أنها حلت مشاكلها و تخرجت. سلام.
- مساعدة فى اداة msflexgrid ارجوكم
السلام عليكم.... أعتقد أن إحدى الخلايا لا تحتوي على قيمة يمكن تحويلها إلى تاريخ/وقت (خلية فارغة مثلاً). عندما يحدث الخطأ و تظهر الرسالة اختر Debug ثم ضع مؤشر الفأرة على كلمة TextMatrix ليعرض لك قيمة الخلية. يمكنك التخلص من رسالة الخطأ بتجاهل الخلايا التي تحتوي…
- مساعدة فى اداة msflexgrid ارجوكم
السلام عليكم... Dim Idx As Long Dim Mins As Long Dim Hours As Long Hours = 0 Mins = 0 For Idx = 1 To grid1.Rows - 1 Hours = Hours + CLng(Format$(CDate(grid1.TextMatrix(Idx, 2)), "hh")) Mins = Mins + CLng(Format$(CDate(grid1.TextMatrix(Idx, 2)), "nn")) Next Idx…
- كيف اجعل برنامجي يبحث عن قاعدة البيانات في الجهازتلقائي والا تصال بها ؟؟
السلام عليكم... لماذا يجب البحث عن قاعدة البيانات؟ إذا كانت قاعدة البيانات عبارة عن ملف (مثل قاعدة بيانات Access) فمن المفترض أن تكون في نفس مجلد البرنامج أو في مجلد متفرع من مجلد البرنامج، أو نادراً في مجلد معروف أنه موجود في كل الأجهزة - مثل مجلد المستندات أ…
- وضع الفورم بأكملها داخل PictureBox
السلام عليكم... تجد الحل هنا إن شاء الله تعالى. نرجو الاستفادة و السلام.
- طلب مساعدة لربط قاعدة البيانات
السلام عليكم... في الملف المرفق، نعم الغرض من إنشاء الـ Data Source هو فقط للتأكد من نجاح خطوات الربط. الأمر بعد ذلك يعتمد على البرنامج: 1. يمكنك استعمال ملف UDL كما ذكرت في نهاية مشاركتي السابقة. 2. يمكنك إنشاء DSN (أي Data Source Name) و استعماله. 3. يمكنك ا…
- تحديد نهاية الشهر
السلام عليكم... ضع الدوال التالية في القسم العام للكود (إذا أردت استعمالها في أكثر من Form فضعها في Module و غير الـ Private إلى Public): Private Function IsLeapYear(ByVal AYear As Integer) As Boolean If (AYear Mod 100) = 0 Then If (AYear Mod 400) = 0 Then IsL…
- طلب مساعدة لربط قاعدة البيانات
السلام عليكم... بشكل أساسي هناك طريقتان للاتصال بـ SQL Server: 1. باستخدام مصادقة ويندوز (Windows Authentication) و يكون شكل الـ ConnectionString كالتالي: "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DatabaseName;Da…