najy_zl

السلام عليكم... مع أنكم اعتبرتموني "خبير معتمد" (أد الدنيا !!!) لكن بصراحة (بيني و بينك على شان ما يسمعوناش) ما زلت "غشيم" في استعمال بعض المهام في المنتدى، مثلاً كيف أراسل أحد المشرفين على القسم؟ و بالمناسبة عندي سؤال: هل يوجد موضوع يبين صلاحيات المجموعات (ال…

السلام عليكم... صيغة جملة SQL الواردة في مشاركتك صحيحة: انسخ الكود Adodc1. RecordSource = "SELECT * FROM q_mat1 WHERE mat LIKE '" & kk & "'" لذلك الرجاء التأكد من التالي: 1. استعمال العلامة % بدل العلامة * . 2. التأكد من اسم الجدول أو الاستعلام q_mat1 و اسم ال…

السلام عليكم... الـ BookMark هي بالعربي "إشارة مرجعية". بعض محركات قواعد البيانات تعطي لكل سجل (Record) في مجموعة السجلات (Recordset) رقماً أو رمزاً خاصاً لا يتكرر بين السجلات يسمى الـ BookMark. الخاصية BookMark من النوع Variant و نستخدمها للإشارة إلى سجل معين…

السلام عليكم... بدل استعمال علامة التعجب (!) لتحديد اسم الحقل استعمل الأقواس: انسخ الكود Text2. Text = Adodc1. Recordset ( Text1. Text ) ' Recordset أو إذا كانت مجموعة السجلات المستخدمة عبارة عن متغير من النوع Text2. Text = RS ( Text1. Text ) نرجو الاستفادة و …

السلام عليكم... و الله زمان على بعض التفاصيل في Visual Basic (منذ أن أخذتنا دلفي). شكراً على التذكير. الفكرة الموجودة في البرنامج المرفق في مشاركتك السابقة ممتازة. فطالما أنه لا يمكننا استعمال WithEvents لإنشاء مصفوفة مكونات مع أحداثها، إذن يمكننا إنشاء صنف (C…

السلام عليكم... هذا الموضوع " رسم خرائط كونتورية " في منتدى دلفي يظهر مغلقاً دون وجود مشاركة أو إعلان في نهايته يبين سبب إغلاقه. نرجو توضيح السبب (حتى لا نعيدها مرة أخرى)! و السلام.

السلام عليكم... الكود التالي مأخوذ من المكتبة VBAppAss.dll (و هي من تصميمي الخاص و أستعملها في كل البرامج المصممة بـ Visual Basic): انسخ الكود Private Const GWL_EXSTYLE = ( -20 ) Private Const WS_EX_LAYOUTRTL = &H400000 Private Declare Function GetWindowLong L…

السلام عليكم... هذا مثال مأخوذ من كتاب Total VB SourceBook: انسخ الكود ' تعريف بعض الثوابت Private Const EM_GETLINECOUNT = &HBA Private Const EM_LINEINDEX = &HBB Private Const EM_LINELENGTH = &HC1 Private Const EM_GETLINE = &HC4 ' التصريح عن دالة من دوال ويندو…

السلام عليكم... طالما أننا سنقوم برسم خرائط على الشاشة فأعتقد أن أول خطوة هي توضيح نظام الإحداثيات و كيفية التحويل من نظام إلى آخر، ثم تأتي مرحلة توضيح صيغة أو تركيب ملف البيانات و كيفية القراءة منه و الحفظ فيه. على أية حال أحببت أن أبدأ من هذه النقطة بداية عم…

السلام عليكم... لقد رأينا في موضوعك السابق إضافة Label في Picture كيفية إنشاء عنصر جديد بالكود، و ذلك بالتصريح عن المتغير الذي يمثل العنصر مع استعمال كلمة WithEvents ثم استعمال Controls.Add. و هذه الطريقة سهلة جداً و عملية إذا كان عدد العناصر قليلاً (اثنين أو …

السلام عليكم... بعد ما قمت بتنزيل المشروع و فحصه، فإني أعتقد أنك تريد حفظ الصور في المجلد Photo التابع لمجلد المشروع نفسه. و النقطة الأخرى أن الصورة سيتم حفظها في ملف باسم محدد مسبقاً (رقم معين مثلاً) و أن هذا الاسم (أو الرقم) موجود في مربع نص Text1 مثلاً (أو …

السلام عليكم... قرأت سؤالك الآخر في موضوعك "سؤال بخصوص Commondialog". انسخ الجزء الأول من الكود وضعه في بداية كود الـ Form التي تستعملها للحفظ. و في المكان الذي حاولت أن تستخدم فيه الـ CommonDialog استعمل الكود التالي (الذي يستدعي الدالة SelectDirectory): لتحد…

السلام عليكم... استعمل الكود التالي لعرض نافذة اختيار مجلد: انسخ الكود Private Type BrowseInfo hWndOwner As Long pIDLRoot As Long pszDisplayName As String lpszTitle As Long ulFlags As Long lpfnCallback As Long lParam As Long iImage As Long End Type Private Con…

السلام عليكم... بالنسبة إلى منع تعديل سطر (سجل) معين، فكما قال الأخ "علي .ع" بالتأكيد أنك ستعتمد على شرط معين لتحديد ذلك السجل. يمكن الاستفادة من الحدث OnAfterScroll للـ DataSet المرتبطة بها الـ DBGrid (أي الجدول أو الاستعلام المرتبطة به) للتأكد من وجود الشرط …

السلام عليكم... إذا كان الكود لديك كما يبدو في مشاركتك تماماً فأعتقد أن المشكلة هي وجود فراغات قبل و بعد اسم الحقل داخل علامات التنصيص: انسخ الكود t1 . fieldvalues [ ' num ' ] : = a ; // خطأ t1 . fieldvalues [ 'num' ] : = a ; // صح نرجو الاستفادة و السلام.

السلام عليكم... "سبقني rober بينما كنت أجهز الرد" رغم أني لا أعرف الفرنسية إلا قليلاً فأعتقد أن الرسالة تقول: لا يمكن تحويل الـ Variant المحتوي على Null إلى قيمة من النوع Integer. و يحدث هذا الخطأ عند السطر: a := t1.fieldvalues['num'] + 1 و السبب هو أن الحقل n…

السلام عليكم... ربما تكون نسخة الـ Crystal Report التي لديك ناقصة. أنا كنت أستعمل النسخة 8 و كانت المكتبة CRAXDRT.DLL موجودة و يتم تركيبها تلقائياً عند تركيب الـ Crystal Report. و السلام.

السلام عليكم... يبدو أن الموقع تحت الصيانة أو ما شابه... ظهرت لي هذه الرسالة: Site Temporarily Unavailable، أي الموقع غير متوفر بشكل مؤقت. و السلام.

السلام عليكم... يمكنك القيام بذلك بطريقتين: 1. أن تستعمل بعض العمليات الحسابية لتحسب مواقع نقاط الرسم حسب الجزء (أو المنطقة) التي تريد أن يظهر فيها الرسم. 2. أن تستعمل فكرة مناطق القص (أو الاقتصاص Clipping Regions) بحيث تقوم بتعريف منطقة محددة لتستقبل أوامر ال…

السلام عليكم... المشكلة ليست مشكلة صعوبة، و إنما هي عدم توفر الوقت... على أية حال، مرفق مع هذه المشاركة مشروع صغير يستعمل الملف المرفق في مشاركتك الأولى مع إجراء تعديلات بسيطة عليه: 1. قمت بحذف السطر الأول الذي يحتوي على كلمتي number و value، بحيث تبدأ محتويات…