najy_zl

السلام عليكم... و الله إن الكود المعدل في مشاركتي الأخيرة شغال عندي تمام. انتبه إلى أن عبارة ElseIf InStr("0123456789", Chr$(KeyAscii)) = 0 Then لم تعد تحتوي على رموز غير الأرقام، و خاصة إشارة السالب لأنها تم فصلها في عبارة ElseIf لوحدها. نرجو الاستفادة و السل…

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

السلام عليكم... هذا تعديل للكود السابق: يقبل الأرقام و فاصلة عشرية واحدة، بالإضافة إلى قبول إشارة سالب أو ناقص (-) واحدة، و فقط عندما يكون مؤشر الكتابة في بداية العدد: Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii > 31 Then If Chr$(KeyAscii) = ".…

السلام عليكم... أولاً شكراً على مديحك الذي أظنني لا أستحقه فكله من فضل الله. ثانياً هناك حل مبدئي و هو وضع زر سالب/ موجب كما في الآلات الحاسبة (+/-) يقوم بتغيير إشارة العدد الموجود في الـ TextBox أو الـ Label و يكون الكود كالتالي: Private Sub Command1_Click() …

السلام عليكم... استعمال الوظيفة Delete على مجموعة Recordset تشمل أكثر من جدول غير مضمونة النتيجة، كما حدث معك. أعتقد أنه ينبغي استعمال ADODB.Command للحذف من الجدول المطلوب ثم إغلاق و إعادة فتح الـ Recordset، مثلاً إذا افترضنا أن حقل المفتاح الرئيسي في الجدول …

السلام عليكم... ضع الكود التالي في الحدث Click للـ Combo (تعديل على الكود الأصلي): Private Sub Combo1_Click() Dim Idx As Long, EmptyIdx As Long If db.State = 1 Then db.Close db.Provider = "Microsoft.JET.OLEDB.4.0;" db.Open App.Path & "\db1.mdb" rs.Open "select…

السلام عليكم... بالنسبة إلى قبول الأرقام الكسرية مع منع تكرار الفاصلة العشرية استعمل الكود التالي في الحدث KeyPress لمربع النص: Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii > 31 Then If Chr$(KeyAscii) = "." Then If InStr(Text1.Text, ".") <> 0 Th…

السلام عليكم... حسب ما لدي: الخاصية RowSizingMode موجودة ضمن خصائص الـ MSHFlexGrid و لكنها غير موجودة في MSFlexGrid. لاحظ أنه توجد نسختان من هذه الـ Grid في VB6. إذا لم تكن موجودة لديك ضمن خصائص الـ MSHFlexGrid فربما لأني قمت بتحديث VB6 بواسطة Service Pack 6 f…

السلام عليكم... استعمل الأكواد التالية حسب مكان كل منها: ' قسم التصريحات العام Private DoExchange As Boolean Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyEscape Then DoExchange = False List1.MousePointer = 0 End If End Sub …

السلام عليكم... طبعاً يمكن جعل النص يلتف في MSHFlexGrid ضمن نفس الخلية بضبط الخاصية WordWrap على True. و لا تنس ضبط الخاصية AllowUserResizing على flexResizeRows أو flexResizeBoth للسماح للمستخدم بتغيير حجم الصفوف (و الأعمدة) لمشاهدة المزيد من النص الملتف. كما …

السلام عليكم... انسخ الكود التالي و ضعه في Module (انظر التوضيحات فيما بعد) Option Explicit Public Enum TModifyControlIDs ctl_TextBox = 1 ' TextBox ctl_Label = 2 ' Label ctl_Command = 4 ' CommandButton ctl_Combo = 8 ' ComboBox ctl_ListBox = 16 ' ListBox ctl_Ch…

السلام عليكم... لا يتم الحذف لأنه يوجد خطأ في بناء جملة SQL. كما أنه في حالة العمليات التي لا تريد منها إعادة مجموعة سجلات (Recordset) يستحسن استخدام ADODB.Command. هنا تعديل لكود الزر: Private Sub Command5_Click() On Error GoTo Command5_Click_Err: Dim DB As N…

الكود التالي يفترض وجود: * قائمة محركات أقراص: Drive Combo باسم Drive1 * قائمة مجلدات: Directory ListBox باسم Dir1 * قائمة ملفات: File ListBox باسم File1 * مؤقت: Timer باسم Timer1 * مربع صور: Image باسم Image1 Private ImgIndex As Long Private Function AddBacks…

السلام عليكم... المثال في المرفقات. نرجو الاستفادة و السلام. FlexGrid ReadWrite.rar

السلام عليكم... المثال كان جاهزاً من مدة و لكن للأسف لم يكن لدي اتصال بالإنترنت طوال الفترة السابقة. آسف على التأخير. المثال في المرفقات، و لكن للأسف مرة أخرى، معمول بالنسخة 7 من دلفي لأني لا أملك النسخة 6. لكن يمكنك تشغيل الملف التنفيذي و التأكد مما إذا كان ه…

السلام عليكم... نرجو توضيح بعض النقاط: 1.هل برنامجك من النوع MDI (أي يتكون من نافذة واحدة رئيسية و تظهر بقية النوافذ بداخلها) أم أن كل نافذة مستقلة؟ 2. إذا كان من النوع MDI فهل تريد الشريط داخل النافذة الرئيسية أم مستقلاً بذاته على الشاشة؟ 3. ذكرت في سؤالك أنك…

السلام عليكم... 1. في قاعدة البيانات: أ. افتح الاستعلام EMPLOYEE في وضعية التصميم، ثم انقر في أي مكان داخل نافذة التصميم بالزر الأيمن و اختر الأمر "معلمات" (Parameters). ب. قم بتعريف البارامترين (FROM و TO) و اجعل نوعهما "تاريخ/وقت" (Date/Time). * ملاحظة: قمت …

السلام عليكم... نرجو فقط توضيح نوع قاعدة البيانات (Access أو SQL Server أو غير ذلك) و هل تستعمل الـ DAO أم ADO للاتصال بقاعدة البيانات. و السلام.

السلام عليكم... بعدما جهزت الرد (طبعاً بنظرية فيثاغورس) وجدت أن أخي محمد مصطفى قد سبقني :) و لكن على أية حال في الزيادة إفادة... و أيضاً لي ملاحظة للأخ omani و هي أنه إذا أردت التحويل بين إحداثيات الـ Form و إحداثيات الشاشة ككل فأنت بحاجة لاستعمال الدالتين Cli…

السلام عليكم... بعد إذن الأخ hikmat و استكمالاً لإجابته.... الكود التالي عبارة عن إجراء بصيغتين (Overloaded) نحتاج كليهما لتغيير اتجاه الـ ListView procedure ChangeControlLayout(Control: TWinControl; ArabicLayout: Boolean); overload; var OldLong: LongWord; beg…