najy_zl

السلام عليكم... لا أدري ما مشكلة هذه الأزرار، لكن على أية حال نفرض أن الزر الذي تتحدث عنه اسمه RB1 و كان كود الـ Click لهذا الزر كالتالي: انسخ الكود Private Sub RB1_Click ( ) Unload Me End Sub الآن: اضبط الخاصية KeyPreview للـ Form على True، و في إجراء الحدث K…

السلام عليكم... بعد الإذن من الأخ "السندبااد"... كما قال: اضبط الخاصية Cancel لزر الخروج على True (ليستجيب للمفتاح Escape)، لكن لا نستعمل الأمر End لأنه يؤدي إلى إغلاق البرنامج كله، بل نستعمل الجملة Unload Me لإغلاق النافذة نرجو الاستفادة و السلام.

السلام عليكم... انسخ الكود Dim X As Long Dim I As Long Dim J As Long 'Cls X = 3 ' عدد النجمات في الصف الأوسط، أي أعرض صف For I = 1 To X Print Spc ( X - I ) ; For J = 1 To I Print "*" ; Spc ( 1 ) ; Next J Print Next I For I = X - 1 To 1 Step -1 Print Spc ( X - …

السلام عليكم... مع أن الأمر ليس واضحاً بعد! لكن عادة البيانات العامة للفاتورة (رقم الفاتورة، تاريخها، اسم الزبون، ... إلخ.) توضع في منطقة الـ ReportHead و هي تلقائياً لا تتكرر، بعكس ما يوضع في منطقة الـ Detail حيث تتكرر البيانات مع كل سجل. نرجو الاستفادة و الس…

السلام عليكم... الرجاء توضيح السؤال أكثر، مع مثال إن أمكن، و نحن في المساعدة إن شاء الله. و السلام.

السلام عليكم... ليس لدي دلفي 2009 و إنما دلفي 2007 و هي تحتوي أيضاً على الوحدة Consts.pas و لكن طبعاً في مسار مختلف: C:\Program Files\CodeGear\RAD Studio\5.0\source\Win32\vcl و قد وجدت بها نفس الثوابت. بالنسبة إلى سؤال الأخ "tahasit" بشأن اللغة العربية، ليس من…

السلام عليكم... أسهل طريقة هي استعمال الدالة Replace لوضع أي رمز تريده بدل الفراغ: انسخ الكود Private Sub Command1_Click ( ) Dim Txt As String Txt = Text1. Text If Txt <> "" Then Txt = Replace ( Txt, " " , "%" ) Text1. Text = Txt ' إذا أردت إظهار علامة % حتى ف…

السلام عليكم... كلام أخينا "Abboodd" صحيح. ضعها جميعاً في حلقة واحدة حتى توفيراً للكود و الوقت. نرجو الاستفادة و السلام.

السلام عليكم... لا أدري ما علاقة الخاصية ReadOnly بالموضوع، لكن عندما ضبطت هذه الخاصة على True للـ ref2 أصبح يعمل بشكل طبيعي، و عندما ضبطتها على False للـ ref1 أصبحت المشكلة فيه هو !!!!!!!!!!!!!!!!! إذا توصلتَ للسبب فنرجو أن تخبرنا به. و السلام.

السلام عليكم... شكراً للأخ "زكيري عبد العالي"... الآخ "@hmed" لا تستغرب أحياناً قلة الردود، فأنا عن نفسي لا أجد أحياناً ما يكفي من الوقت لكتابة ردود بسبب مشاغل العمل و الأسرة و و و و ... رغم أني أدخل كل يوم تقريباً للمنتدى لكن أحياناً فقط لتصفح المواضيع. على أ…

السلام عليكم... في الحدث KeyPress للـ TextBox ضع الكود التالي: انسخ الكود Private Sub Text1_KeyPress ( KeyAscii As Integer ) If KeyAscii > 31 Then If ( KeyAscii < 48 ) Or ( KeyAscii > 57 ) Then KeyAscii = 0 End If End Sub الرقم 48 هو رقم الصفر في جدول آسكي، و …

السلام عليكم... قبل كل عبارة Do Until rs.EOF اكتب عبارة rs.MoveFirst نرجو الاستفادة و السلام.

السلام عليكم... أولاً أعتذر لأني لا أحب كثيراً رفع المرفقات (نوع من الكسل)، لهذا أرجو أن تتحمل عناء نسخ الكود!! و آسف مرة أخرى. بالنسبة إلى تحديد عدد السجلات في الصفحة الواحدة فاستعمل الخطوات التالية التالي: 1. صمم منطقة الـ Detail بالطريقة العادية، أي كأنها ت…

السلام عليكم... ضع الكود التالي في Module ثم استخدم الدالة IsLetter لقبول أو رفض أي حرف أو رقم أو رمز انسخ الكود Public Enum TAcceptedLanguage LANG_BOTH_LANGS = 0 LANG_ARABIC_ONLY = 1 LANG_ENGLISH_ONLY = 2 End Enum Public Function IsLetter ( KeyAscii As Intege…

السلام عليكم... هناك طريقة سهلة لتعريب عناوين الأزرار - مع الحرص و الاحتياط: * أدخل إلى مجلد دلفي (C:\Program Files\Borland\Delphi7). * افتح المجلد Source ثم افتح المجلد Vcl. * ابحث عن الملف Consts.pas و اصنع نسخة احتياطية منه (نسخة إضافية في نفس المجلد للاحتي…

السلام عليكم... تمام! الفكرة التي ذكرتها في سؤالك هي فعلاً ما نستخدمه في مثل هذه الحالات، حيث يتم ربط جدولين بعلاقة "واحد - إلى - مجموعة" أو "طرف - إلى - أطراف" (One-to-Many)، كما في سؤالك حيث أن كل وسيط (واحد) يقابله مجموعة من العملاء (مجموعة). و يكون في هذه …

السلام عليكم... رغم أن لغة SQL لها مقاييس أساسية تتفق فيها جميع محركات قواعد البيانات (Database Engines) فإنه أيضاً لكل محرك مجموعة من الصيغ الخاصة به، مثلاً دوال Visual Basic for Applications (التي تسمى اختصاراً VBA) يمكن استعمالها داخل جمل SQL المستخدمة مع M…

السلام عليكم... لا. الجدول الإضافي يختلف عن الجداول الأخرى، لكنه يأخذ معلوماته من تلك الجداول. سأوضح أكثر مع مثال. نقوم بإنشاء جدول باسم CustAccounts فيه الحقول التالية (يمكن إضافة حقول أخرى حسب الضرورة): الحقل AccountID: ترقيم تلقائي (رقم الحساب). الحقل Accou…

السلام عليكم... أنا شخصياً أستعمل جدول آخر إضافي لتسجيل "حسابات الزبائن" (اسمه مثلاً CustAccounts) و فيه الحقول الأساسية التالية: * رقم الحساب: يمكن أن يكون ترقيم تلقائي (المهم رقم لا يتكرر). * رقم الزبون: لتسجيل رقم تعريف الزبون حسب جدول الزبائن. * تاريخ الحس…

السلام عليكم... قم بتغيير السطر التالي: انسخ الكود if TDest . Locate ( 'CDE' , vararrayof ( [ tCDE ] ) , [ locaseinsensitive , lopartialkey ] ) then إلى الشكل التالي: انسخ الكود if TDest . Locate ( 'CDE' , tCDE , [ loCaseInsensitive , loPartialKey ] ) then نرج…