mike_mousa

قابلت نفس المشكلة والحل الذى استخدمته حتى الان استخدام الخط Microsoft Sans Serif ويكون Bold

'Select * From InvoiceDetail , Invoice WHERE InvoiceDetail.InvoiceNo = Invoice.InvoiceNo And Invoice.SaleDate Between #' +DateToStr(D1.Date)+'# and #'+DateToStr( D2.Date)+'# order by Invoice.SaleDate' or 'Select * From Invoice INNER JOIN InvoiceDetail ON Invoi…

هذه مشكلة قابلتنى انا ايضا مع النسخة 6 لانك تستخدم Ado للربط مع قاعدة البيانات وتجعل الاتصال مفتوح وقت التصميم وعند فتح النموذج يحاول فى التصميم فتح هذا الاتصال فتحدث المشكلة الحل احدى الطريقتين 1- تأكد من قاعدة البيانات فى مكانها الصحيح وبها الجداول التى بنيت…

يمكن وضع مواصفات الاتصال داخل ملف Config وقراءته فى بدء التشغيل وضع ConnctionString كلها فى سطر واحد او عمل تجزئة لها App.Config ======================================================= <?xml version="1.0" encoding="utf-8" ?> <configuration> <appSettings> <add …

قد قرات الموضوع بسرعة فااسف لو لم افهم ما فهمت انك تريد التخزين عند اغلاق الفورم فى حدث الاغلاق On Form Close اختبر حالة الجدول اذا كانت تعديل بيانات او اضافة وهنا قم بالتخزين (ممكن ان تسبق برسالة تأكيد) If Table1.State in [DsEdit,DsInsert] then Table1.post

اجراء لمعرفة مسار السى دى procedure TForm1.Button1Click(Sender: TObject); var x, DrvType : Integer; DrvLetter,CDDrv : string; begin for x := Ord('D') to Ord('Z') do begin DrvLetter := Chr(x)+':'; DrvType := GetDriveType(pChar(DrvLetter)); case DrvType of DRIVE…