najy_zl

السلام عليكم... الأمر يعتمد على الطريقة التي تريدها. إذا كنت تستعمل TQuery أو TADOQuery لجلب البيانات فيمكنك تعديل جملة SQL لإنشاء حقل يضم مجموع الحقول التي تريدها، مثلاً: SELECT Field1, Field2, ..., FieldA, FieldB, ... (FieldA + FieldB + ...) AS Total FROM Ta…

السلام عليكم... المثال المعدل في المرفقات. انتبه إلى تعديل مسار الـ DatabaseName للـ Table حسب ما لديك (في Form1 و Form2). استعملت Shapes و Labels. إذا كان عدد المقاعد كبيراً في البرنامج فربما من الأفضل إنشاؤها أثناء التنفيذ بالكود. Seat.rar نرجو الاستفادة و ا…

السلام عليكم... جملة SQL التالية تعطيك الأرقام الوظيفية (Id) للموظفين المستحقين للترقية (لديه درجة أكبر من 2 خلال العامين 2008 و 2009). يمكنك بعد ذلك التصرف بهذه الأرقام كما تريد: SELECT Id FROM Emp WHERE ((dat=2008) Or (dat=2009)) AND (drja>2) GROUP BY Id HAV…

السلام عليكم... هذه دوال معالجة الوقت في VB6: * الدالة Time للحصول على الوقت الحالي. * الدالة Hour للحصول على الساعة (بنظام 24) من الوقت: Dim H As Long H = Hour(ATime) حيث ATime أي قيمة وقت مقبولة. * الدالة Minute للحصول على الدقائق من الوقت: Dim M As Long M =…

السلام عليكم... أرفق لنا نسخة من قاعدة البيانات و جزء الكود الذي يظهر عنده الخطأ و سنحاول مساعدتك إن شاء الله. و السلام.

السلام عليكم... البارامتر الأول للدالة FindWIndow هو اسم الصنف (Class name) للنافذة التي تبحث عنها، و هو ليس بالضرورة اسم الملف التنفيذي للبرنامج. فقط بالصدفة أن اسم الملف التنفيذي للمفكرة هو Notepad.exe و اسم الـ Class هو Notepad. للوصول إلى نافذة جهاز الكمبي…

السلام عليكم... ما المقصود بـ "ضخمة" ؟ يعني كم عدد السجلات؟ و ما هو حجم الذاكرة؟ لا أعرف ما هو البرنامج، لكن هناك بعض الطرق البسيطة و لكنها فعالة في كثير من الأحيان: 1. لا تستعمل مكونات TTable أو TADOTable لأنها قد تعمل على تحميل كامل الجدول في الذاكرة، بل است…

السلام عليكم... انظر إلى هذا الموضوع لعله يفيدك. نرجو الاستفادة و السلام.

السلام عليكم... Adodc1.CommandType = adCmdText Adodc1.RecordSource = "SELECT * FROM [sold] WHERE ([time] >= #" & Format$(CDate(Text15.Text), "hh:nn:ss") & "#)" Adodc1.Refresh على أساس أن time هو حقل الوقت في الجدول. الـ TextBox يمكن أن يحتوي على وقت بنظام الـ …

السلام عليكم... نعم يمكن ذلك. ضع الكود التالي في قسم التصريحات العام للنافذة: Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function ReleaseCapture Lib "user32" () As Long Private Declare Function GetCapture Lib …

السلام عليكم... الكود السابق يقوم بتحريك Shape1 و أنت - في المشروع المرفق - قد ضبطت الخاصية Visible لـ Shape1 على False و بالتالي لا يظهر أثناء التنفيذ. قم بتغيير الخاصية Visible للـ Shape1 إلى True و شغل البرنامج. ستراه يتحرك و يعود. إذا أردت تحريك Label1 مثل…

السلام عليكم... CanClose هو بارامتر في إجراء الحدث OnCloseQuery لأي Form و هو بارامتر متغير var، أي يمكنك تغيير قيمته داخل الإجراء. قيمته الافتراضية هي True أي السماح بإغلاق النافذة. إذا غيرناه داخل الإجراء إلى False فإن النافذة ترفض أن تغلق. procedure TFMDIWi…

السلام عليكم... 1. في زر عرض السجلات التي بها أرقام: If RS2.State = 1 Then RS2.Close RS2.Open "Select * From Nme WHERE (Album IS NOT NULL)" DataGrid1.ReBind 2. في زر عرض السجلات التي ليس بها أرقام: If RS2.State = 1 Then RS2.Close RS2.Open "Select * From Nme WH…

السلام عليكم... ضع على الـ Form مؤقت (Time). اضبط خصائص الـ Timer كالتالي (يمكنك طبعاً ضبطها حسب الحاجة): * الخاصية Enabled على False. * الخاصية Interval على 100. استخدم الكود التالي: Private Const MinX = 100 ' أقل إحداثي أفقي Private Const MaxX = 2000 ' أقصى …

السلام عليكم... كما قال أخونا king_baghdad لا يمكن ترك الـ DateTimePicker فارغاً. لإظهار خانة لكتابة التاريخ مع بقاء الشرطات المائلة استعملي المكون MaskEdit (من مجموعة Additional) و اضبطي الخاصية EditMask له بهذا الشكل: 90/90/0000 حيث يسمح للمستخدم بترك مكان ا…

السلام عليكم... يمكنك تعطيل الأمر في القائمة (حسب Windows XP) بالكود التالي، لكن ذلك لا يمنع إغلاق البرنامج باستعمال المفاتيح Alt+F4. لتعطيل الأمر Close اكتب الكود التالي في الإجراء OnCreate للنافذة الرئيسية: procedure TFRtlForm1.FormCreate(Sender: TObject); v…

السلام عليكم... الكود في هذه المشاركة: قبول الأرقام الكسرية و انظر المشاركة رقم 13 في نفس الموضوع من أجل كود قبول الأرقام و الفاصلة و إشارة السالب. نرجو الاستفادة و السلام.

السلام عليكم... اضبطي الخاصية ShowCheckbox على True لإظهار CheckBox بجانب التاريخ، ثم: لإظهار الـ DateTimePicker بشكل طبيعي اضبطي الخاصية Checked على True. لإظهار الـ DateTimePicker بشكل باهت اضبطي الخاصية Checked على False. * ملاحظة: ضبط الخاصية Checked على F…

السلام عليكم... أرجو أن يلبي البرنامج المرفق طلبك أو جزءاً منه. ستجدعلى الـ Form مربع Label واحد فقط. يمكنك تحريكه لتحديد الزاوية العلوية اليسرى لشبكة المربعات. بقية المربعات يتم تحميلها و تحديد مواقعها بالكود. يمكنك تحديد عدد الصفوف و عدد الأعمدة بتغيير قيم ا…

السلام عليكم... البرنامج جاهز تقريباً.... لكن سؤال أخير فقط: أي من الطرق التالية متبعة في البرنامج: 1. يبدأ المتسابق من جهة اليمين (العمود الأيمن) و يتجه يساراً و يعتبر فائزاً إذا وصل إلى العمود الأخير من اليسار. 2. يبدأ المتسابق من الأعلى (الصف الأول) و يتجه …