rober

select sum(sak),custemer_name from table_name group by custemer_name اخي الكريم لاتنسى ان تقوم بتغيير table_name باسم الجدول عندك ارجو الإستفادة

اخي الكريم ماهو نوع بطاقة الشاشة ؟؟ يمكنك ان تحل المشكلة من برنامج تشغيل الكرت ستجد خيار لتدوير الشاشة ارجو الاستفادة

أخي الكريم سأحاول أن ارى الجهاز في السوق و أرد لك خبرا في القريب بإذن الله :blush:

اخي سنان رأس الكيبل الخاص بالمودم هو نفس رأس الخط الموصول في الهاتف RJ11 هي المقبس الخاص بالمودم و RJ45 هي المقبس الخاص بكرت الشبكة انظر إلى الصورة ارجو ان تكون الصورة قد أوضحت ما أقصد أرجو الإستفادة .. أخوك أحمد

نعم بمجرد تجهيز الأعدادت نعم ستسمع طنين الفاكس المعتاد في اجهزة المودم الخاصة بالـ Desktop لا تنسى ان ترفع صوت الطنين من خصائص المودم لكي يكون مسموعا بوضوح معلومات بسيطة عن المودم من موقع الشركة تجدها هنا ارجو الأستفادة

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

شكرا لك اخي الكريم :blush: الأجراء مأخوذ من delphi about يمكنك مشاهدة المثال و شرح عنه هنا بالنسبة للمعاملات التي يستخدمها الإجراء pathname يستخدم لتحديد مسار البحث filename يستخدم لتحديد اسم الملف مع اللاحقة و يمكن إستخدام الرمز * لدلالة على مجموعة مجهولة من …

أخي الكريم استخدم الإجراء التالي procedure FileSearch(const PathName, FileName : string; list : Tlistbox; const InDir : boolean); var Rec : TSearchRec; Path : string; begin Path := IncludeTrailingBackslash(PathName); if FindFirst(Path + FileName, faAnyFile - f…

جرب ان تقوم بالخطوات التالية 1- قم بإيقاف الـ DHCP = Auto IP من الراوترين 2- قم بإعطاء الراوترين بروتوكولات = IP من نفس المجال لنفترض الأول 192.168.1.1 الثاني 192.168.1.100 3- قم بوصل الراوترين إلى السويتش 4- قم بوصل حاسبين و قم بإعداد الـ TCP/IP على الشكل الت…

هل تستخدم DHCP او بمعنى اخر هل تستخدم IP تلقائي ام تقوم بوضع الـ IP يدويا للحواسب ما الخطوات التي أتبعتها لحل المشكلة لكي نوفر وقت التجريب :blush:

ما الهدف من وضع راوترين في الشبكة إن كان الهدف دمج سرعة الراوترين للحصول على سرعة اكبر فالموضوع غير ممكن إلا في حال قمت بتقسيم الأجهزة المرتبطة بالشبكة إلى مجموعتين و كل مجموعة تأخذ الأتصال من راوتر و بهذه الطريقة تكون قد خففت العبئ عن راوتر واحد ليوزع على أثن…

بشكل مبدأي قد تكون المشكلة أحد الأحتمالين 1- كبل الطاقة الموصول من قابس الكهرباء إلى الحاسب ( يمكن تجريب كبل الشاشة للتأكد ) 2- مشكلة في وحدة تغذية الحاسب ( Power Supply ) أرجو الإستفادة

أخي الكريم الكود التالي يقوم بتشغيل البرنامج مع الإقلاع و ذلك بوضع مفتاح للمشروع في الـ Registry أرجو أن يفيدك uses registry; procedure TForm1.FormCreate(Sender: TObject); var reg : tregistry ; begin reg := tregistry.Create ; reg.RootKey := HKEY_LOCAL_MACHINE …

السلام عليكم أخي الكريم استخدم التابع التالي على القاعدة التي تريد سأقوم بإرفاق مثال للتوضيح أكثر var Form1: TForm1; implementation {$R *.dfm} uses comobj; function compactandrepair(db: string): boolean; var v : olevariant ; begin result := true; try v := crea…

image1.Picture := nil ;

قسم الفيجوال دليلك الأسرع قسم السي و السي ++ فهرس قسم لغة السي و سي ++ قسم الدلفي أسئلة شائعة في دلفي الأخ / ت الكريم / ة هناك في كل قسم موضوع مثبت أو منتدى فرعي يتحدث عن أكثر الأسئلة شيوعا أو المواضيع الهامة أرجو أن تكون الأمثلة السابقة كافية :blush:

أخي وضاح الرد جاء متأخرا فأرجو أن تعذرني بكل الأحوال المرفق فيه مثال جيد و كافي لأيقاف زر أبدأ بعد النقر على زر Lock جرب أن تضغط على الزر أبدأ أو الضغط على الزرين ctrl+esc و ستلاحظ أن قائمة أبدأ لن تفتح و يمكنك أستخدام الكود التالي لألغاء النقر على زر أبدأ بإس…

procedure TForm1.BitBtn7Click(Sender: TObject); Begin query1.Active := false ; query1.SQL.Clear ; query1.SQL.Add('select * from arabteam2000') ; query1.SQL.Add('where cod = :co'); query1.SQL.Add('and prix >= :pr1') ; query1.SQL.Add('and prix <= :pr2') ; query1…

أنا مع كلام الأخ حكمت و الأخ زكيري بكل الأحوال الكود التالي يقوم بعمل ما تريد على الوضع الحالي procedure TForm1.BitBtn7Click(Sender: TObject); var chan:String; Begin chan:=''; Table1.Filtered:=False; chan := 'cod=' + ''''+edit1.Text+'''' + ' and ' + 'prix>=' +…

أخي medreg أعتذر عن غيابي لكن بصراحة لم أجد حل للمشكلة حتى الأن و أعتذر مرة أخرى عن غيابي أخي tahasit عدل كود الزر calculer على الشكل التالي procedure TForm1.BitBtn1Click(Sender: TObject); var bv,i : integer ; begin bv := 0 ; table1.First ; for i := 1 to table…