najy_zl

السلام عليكم... حدد أول Edit (مثلاً Edit1) تريدها أن تقبل أعداد كسرية (بالفاصلة) ثم اذهب إلى الحدث OnKeyPress الخاص بها. امسح أي كود مكتوب فيه سابقاً ثم انسخ إليه الكود التالي: if Key > #31 then begin if Key = '.' then begin if Pos('.', TEdit(Sender).Text) <> …

السلام عليكم... الرسالة تعني أن: القيم المعطاة للبارامترات غير متوافقة مع أنواع الحقول التي تمثلها البارامترات. أو: القيم خارج النطاق المقبول لواحد أو أكثر من الحقول التي تمثلها البارامترات. أو: هناك تعارض بين بعض القيم. أعتقد أن عليك التأكد من أنواع الحقول و …

السلام عليكم... نسيت أن تضع فواصل (comma) بعد t6 و t12 و t18 عند إضافتها إلى الخاصية SQL حتى تفصلها عن العبارة التي تليها ضمن الـ SQL. يعني: SQL.Add('e_no=:t1,emp_name=:t2,branch=:t3,branch_no=:t4,R_account=:t5,iqma=:t6,'); SQL.Add('salary=:t7,solfa=:t8,static…

السلام عليكم... عند إنشاء نسخة احتياطية (Backup) لا توجد مشكلة إذا كانت قاعدة البيانات مفتوحة ببرنامج آخر، و لكن عند الاستعادة (Restore) يجب أن لا تكون فاعدة البيانات قيد الاستخدام عند تنفيذ أمر الاستعادة، سواء من داخل برنامجك أو بواسطة برامج أخرى مثل الـ Ente…

السلام عليكم... هناك خطأ بسيط في الكود قد يمنع تنفيذ أمر الاستعادة: عند إنشائك للنسخة الاحتياطية تقوم بإضافة الامتداد bak لاسم الملف الذي يعيده الـ SaveDialog. يعني لو أدخلت في الـ SaveDialog الاسم 555 كاسم للملف فإن اسم ملف الـ backup سيكون: 555.bak لكن عند ت…

السلام عليكم... جرب الدالة StrConv لتحويل النص إلى Unicode ربما تنفع (لم أجربها) مثلاً: Dim X As Variant X = StrConv(Text1.Text, vbUnicode) أرجو الاستفادة و السلام.

السلام عليكم... مبدئياً - و كما ذكر أخونا omani مشكوراً - فإن أول شيء هو التأكد من اسم الـ Server في الـ ConnectionString. و إذا كان البرنامج سيتم تشغيله دائماً على جهاز واحد فإنه يمكنك تجنب تعديل اسم الـ Server كلما نقلته إلى جهاز مختلف باستعمال كلمة "(LOCAL)…

السلام عليكم... هناك نقطة مهمة بالنسبة إلى مقارنة النصوص في دلفي. فعند مقارنة النصوص باستعمال علامة المساواة (=) فإن دلفي تقوم بمقارنة ثنائية (Binary) حيث تكون العملية حساسة لحالة الأحرف، أي أنه مثلاً كلمة month ليست نفسها كلمة Month بسبب اختلاف حالة الحرف m (…

السلام عليكم... لا أعتقد أنه يوجد في لغة SQL أمر لتغيير اسم حقل، لكن يمكنك القيام بالخطوات التالية من خلال المكون ADOCommand 1. إنشاء حقل جديد بالاسم الجديد (مطابق في نوعه و حجمه للحقل القديم) باستخدام الأمر ALTER TABLE ALTER TABLE tablename ADD COLUMN newfiel…

السلام عليكم... و الله يا أخي لقد رأيت سؤالك من قبل في موقع Vb4Arab و الآن هنا، لكني - من ناحيتي - لم أفهم ما المطلوب و لا الغاية من السؤال أو الطريقة. نرجو إذا كان من الممكن توضيح المطلوب بشرح موسع و مثال عملي لعلنا نستطيع - أنا أو غيري - مساعدتك. عيدك مبارك …

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

السلام عليكم... 1. قم بتعريف متغير عام في بداية القسم implementation، مثلاً: var CancelSpace: Boolean; 2. اكتب الأكواد التالية لمكون الـ Edit الذي تتعامل معه: // OnKeyDown: procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begi…

السلام عليكم... لكل مكون (Component) على الـ Form توجد الخاصية ComponentIndex التي تعطي رقمه ضمن مجموعة الـ Components، حيث أول مكون رقمه 0 (صفر) و الثاني رقمه 1 و الثالث رقمه 2... إلخ. (الأخير رقمه ComponentCount - 1). المثال التالي يملأ ListBox بأرقام و أسما…

السلام عليكم... لقد سبقني أخونا hez124 بتقديم الحل، إلا أنه يجب بعض التصحيح: اكتب الكود في الحدث OnClick لأول CheckBox، مثلاً CheckBoxVisiteDentiste. الكود ينبغي أن يكون بالشكل التالي: procedure TForm1.CheckBoxVisiteDentisteClick(Sender: TObject); begin if TCh…

السلام عليكم... معك حق أخي جواد. الكود الذي كتبته أولاً كنت أستخدم فيه النسخة 5 من الـ ListView و هي مختلفة قليلاً عن النسخة 6 الموجودة في برنامجك. الفرق - من ناحية ما نقوم به في هذا المثال - هو أن خلايا النسخة 6 تحتوي على هوامش داخلية قبل و بعد النص. في المرف…

السلام عليكم... لا يختلف Access و SQL Server من هذه الناحية. الطريقة التالية تعمل مع Access 1. أضف المكون TADOCommand إلى الـ Form و اربطه مع ADOConnection أو اضبط الخاصية ConnectionString للـ ADOCommand لتتصل بقاعدة البيانات. 2. استخدم في الخاصية CommandText …

السلام عليكم... يبدو أنه لم يتم رفع المثال. أرجو التأكد. و السلام.

السلام عليكم... أرجو تحميل المثال الذي تعمل عليه حتى نحاول - أنا أو غيري - تعديله حسب المستطاع. و السلام.

السلام عليكم... 1. ضع على الـ Form مكون PictureBox و اضبط الخاصية Visible له على False حتى لا يظهر أثناء التشغيل. ثم اكتب الكود التالي في الحدث Load للنافذة: Picture1.ScaleMode = vbTwips Set Picture1.Font = ListView1.Font * المكون PictureBox سنستخدمه في عملية …

السلام عليكم... أرجو ذكر ما هو نوع قاعدة البيانات التي تتعامل معها: Access أو Paradox أو SQL Server أو .... و السلام.