• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

essam7

اعضاء
  • عدد المشاركات

    232
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن essam7

  • الرتبة
    عضو

طرق الإتصال

  • ICQ 0
  1. السلام عليكم بالمرفقات كود صغير من اجل تكرار مقطع من ملف صوتي المشكلة بعد تكرار مرتين يعلق البرنامج ممكن السبب تابعته بالF7 ونفس الشي شكرا لكم مقدما question.rar
  2. شكرا جزيلا لك أخي الكريم أنا أيضا لا أعرف ما العلاقة بينهما الغريب انو عامل برنامج اخر به edit وخاصية القراءة له false والافلات يعمل بشكل صحيح عليه!!! على كل النت عندي ماساوي جدا فلحتى كتبت هالرد صارلي 20 دقيقة !!! شكرا لك مرة اخرى
  3. السلام عليكم ياشباب عندي مشكلة في السحب والافلات مع انو عامل عدة برامج فيها هالميزة المشكلة في افلات الملف في ref2 يعلق البرنامج اما الافلات في ref1 فلا توجد مشكلة قرأت الكود كتييييير ولم أجد الخطأ ممكن حل رجاء drag_problem.rar
  4. عند الخروج من try يحدث خطأ

    أتوقع عرفت المشكلة !! السبب اني أحرر الزر وأنا ما زلت داخل حدث الضغط عليه جربت عدم حذفه ومشي الحال الان سأجرب كيفية حذفه دون الضغط عليه
  5. عند الخروج من try يحدث خطأ

    السلام عليكم شباب معقول ما في حل لمشكلتي؟ استخدمت طريقة متخلفة لمنع ظهور رسالة الخطأ وذلك باقحام الاجراء loadexistingusers ضمن try لأن رسالة الخطأ لا تؤثر على عمل البرنامج لكن للاسف ما زالت الرسالة !!! الرجاء شوووو الحل؟؟؟ الرجاء اضف 1 ثم 2 ثم احذف 2 وستجد الخطأ !!!! جربت على جهاز اخر والمشكلة ذاتها
  6. عند الخروج من try يحدث خطأ

    السلام عليكم طيب اخي الكريم اتا عدلت الكود كما ترى !! وحررت كل الكومبوننت كالتالي: //Free components before create new one cRow:= 0; while (fmMain.FindComponent('edName'+ IntToStr(cRow)) <> nil) do begin if fmMain.FindComponent('edName'+ IntToStr(cRow)) <> nil then fmMain.FindComponent('edName'+ IntToStr(cRow)).Free; if fmMain.FindComponent('edTD'+ IntToStr(cRow)) <> nil then fmMain.FindComponent('edTD'+ IntToStr(cRow)).Free; if fmMain.FindComponent('edND'+ IntToStr(cRow)) <> nil then fmMain.FindComponent('edND'+ IntToStr(cRow)).Free; if fmMain.FindComponent('edK'+ IntToStr(cRow)) <> nil then fmMain.FindComponent('edK'+ IntToStr(cRow)).Free; if fmMain.FindComponent('edTO'+ IntToStr(cRow)) <> nil then fmMain.FindComponent('edTO'+ IntToStr(cRow)).Free; if fmMain.FindComponent('edRTD'+ IntToStr(cRow)) <> nil then fmMain.FindComponent('edRTD'+ IntToStr(cRow)).Free; if fmMain.FindComponent('edRND'+ IntToStr(cRow)) <> nil then fmMain.FindComponent('edRND'+ IntToStr(cRow)).Free; if fmMain.FindComponent('btDel'+ IntToStr(cRow)) <> nil then fmMain.FindComponent('btDel'+ IntToStr(cRow)).Free; cRow:= cRow+ 1 end; البرنامج يضيف المستخدمين كمفاتيح بالرجستري والبرنامج يقوم بعمله على اكمل وجه اي ان رسالة الخطا لا توثر على عمل البرنامج وهذا ما يحيرني عموما حتى احصر الخطا انشات يوزر واحد باسم 1 ثم حذفته ولا يوجد خطا انشات يوزرين 1 ثم 2 بالترتيب ثم حذفت 1 ثم 2 ولا خطا لكن لما خذفت 2 اولا نتج الخطا الان جربت شيء يحط العقل بالكف : انشات 1 ثم 2 ثم 3 حذفت 1 ثم 2ثم 3 لا مشكلة مباشرة انشات 1 ثم 2 ثم 3 ثم حذفت 1 فنشا خطا جديد وهو abstract eror والله مو عرفان شو المشكلة وكما قلت يتولد الخطا دون ضابط فقط عند حذف اليوزر فصراحة لم اطرح الموضوع الا بعد ان عجزت تماااما رجاء فالاجراء لا ارى به اي مشكل
  7. عند الخروج من try يحدث خطأ

    السلام عليكم أولا أشكرك على ردك السريع سيدي الكريم الخطأ الذي يظهر في Design time : Project test.exe raised exception class EAccessViolation with message Access violation at address xxx n module test.exe read of address xxx وهو في Run time: Access violation at address xxx in module test.exe read of address xxx أنا عدلت الكود والمشكلة تظهر عند الخروج من LOADEXISTING USERS هذا الاجراء يستدعى عند FORM.SHOW وعند اضافة مستخدم وعند حذف مستخدم المشكلة تظهر عند الحذف فقط وعلى التجلي اي دون ضابط !!! للعلم الاجراء بقوم بحذف العناصر داخل الاطار ثم يقوم بتوليدها حسب عدد اليوزرز الموجودة في الرجستري جرب اضافة يوزر باسم 1 ثم اخر باسم 2 ثم ثالث باسم 3 ثم مباشرة دون اغلاق البرنامج احذف 3 عندي تولد الخطأ!!!! الاجراء لقراءته بسرعة: procedure LoadExistingUsers; var ed: TEdit; bt: TButton; cRow, cColumn: integer; reg: TRegistry; StList: TStringList; Name: String; RemTotDur, RemNetDur: Integer; begin //Free components before create new one cRow:= 0; while (fmMain.FindComponent('edName'+ IntToStr(cRow)) <> nil) do begin if fmMain.FindComponent('edName'+ IntToStr(cRow)) <> nil then fmMain.FindComponent('edName'+ IntToStr(cRow)).Free; if fmMain.FindComponent('edTD'+ IntToStr(cRow)) <> nil then fmMain.FindComponent('edTD'+ IntToStr(cRow)).Free; if fmMain.FindComponent('edND'+ IntToStr(cRow)) <> nil then fmMain.FindComponent('edND'+ IntToStr(cRow)).Free; if fmMain.FindComponent('edK'+ IntToStr(cRow)) <> nil then fmMain.FindComponent('edK'+ IntToStr(cRow)).Free; if fmMain.FindComponent('edTO'+ IntToStr(cRow)) <> nil then fmMain.FindComponent('edTO'+ IntToStr(cRow)).Free; if fmMain.FindComponent('edRTD'+ IntToStr(cRow)) <> nil then fmMain.FindComponent('edRTD'+ IntToStr(cRow)).Free; if fmMain.FindComponent('edRND'+ IntToStr(cRow)) <> nil then fmMain.FindComponent('edRND'+ IntToStr(cRow)).Free; if fmMain.FindComponent('btDel'+ IntToStr(cRow)) <> nil then fmMain.FindComponent('btDel'+ IntToStr(cRow)).Free; cRow:= cRow+ 1 end; reg:= TRegistry.Create; with reg do try RootKey:= HKEY_LOCAL_MACHINE; if OpenKeyReadOnly(ConfigPath) then begin StList:= TStringList.Create; try GetKeyNames(StList); if StList.Count = 0 then //No users found begin PutNoUsersFound; Exit; end; if fmMain.FindComponent('lbNoUsers') <> nil then fmMain.FindComponent('lbNoUsers').Free; for cRow:= 0 to StList.Count - 1 do begin Name:= ''; RemTotDur:= 0; RemNetDur:= 0; if OpenKeyReadOnly(ConfigPath+ '\'+ StList[cRow]) then for cColumn:= 0 to 7 do //each row begin case cColumn of 0: begin ed:= TEdit.Create(fmMain); ed.Parent:= fmMain.frameUsers; ed.Name:= 'edName'+ IntToStr(cRow); ed.Width:= 75; ed.Left:= 10; ed.ReadOnly:= True; ed.Top:= 10+ (cRow * 25); if ValueExists('Name') then begin ed.Text:= ReadString('Name'); Name:= ReadString('Name'); end else ed.Text:= 'Error'; end; 1: begin ed:= TEdit.Create(fmMain); ed.Parent:= fmMain.frameUsers; ed.Name:= 'edTD'+ IntToStr(cRow); ed.Width:= 35; ed.Left:= 95; ed.ReadOnly:= True; ed.Top:= 10+ (cRow * 25); if ValueExists('TD') then ed.Text:= IntToStr(ReadInteger('TD')) else ed.Text:= 'Error'; end; 2: begin ed:= TEdit.Create(fmMain); ed.Parent:= fmMain.frameUsers; ed.Name:= 'edND'+ IntToStr(cRow); ed.Width:= 35; ed.Left:= 140; ed.ReadOnly:= True; ed.Top:= 10+ (cRow * 25); if ValueExists('ND') then ed.Text:= IntToStr(ReadInteger('ND')) else ed.Text:= 'Error'; end; 3: begin ed:= TEdit.Create(fmMain); ed.Parent:= fmMain.frameUsers; ed.Name:= 'edK'+ IntToStr(cRow); ed.Width:= 45; ed.Left:= 185; ed.ReadOnly:= True; ed.Top:= 10+ (cRow * 25); if ValueExists('K') then if ReadInteger('K') = 0 then ed.Text:= 'Daily' else ed.Text:= 'Weekly' else ed.Text:= 'Error'; end; 4: begin ed:= TEdit.Create(fmMain); ed.Parent:= fmMain.frameUsers; ed.Name:= 'edTO'+ IntToStr(cRow); ed.Width:= 30; ed.Left:= 240; ed.ReadOnly:= True; ed.Top:= 10+ (cRow * 25); if ValueExists('TO') then if ReadInteger('TO') = 0 then ed.Text:= 'No' else ed.Text:= 'Yes' else ed.Text:= 'Error'; end; 5: begin ed:= TEdit.Create(fmMain); ed.Parent:= fmMain.frameUsers; ed.Name:= 'edRTD'+ IntToStr(cRow); ed.Width:= 35; ed.Left:= 280; ed.ReadOnly:= True; ed.Top:= 10+ (cRow * 25); if GetRemainder_HKU(Name, RemTotDur, RemNetDur) then ed.Text:= IntToStr(RemTotDur) else if ValueExists('TD') then ed.Text:= IntToStr(ReadInteger('TD')); end; 6: begin ed:= TEdit.Create(fmMain); ed.Parent:= fmMain.frameUsers; ed.Name:= 'edRND'+ IntToStr(cRow); ed.Width:= 35; ed.Left:= 325; ed.ReadOnly:= True; ed.Top:= 10+ (cRow * 25); if GetRemainder_HKU(Name, RemTotDur, RemNetDur) then ed.Text:= IntToStr(RemNetDur) else if ValueExists('ND') then ed.Text:= IntToStr(ReadInteger('ND')); end; 7: begin bt:= TButton.Create(fmMain); bt.Parent:= fmMain.frameUsers; bt.Name:= 'btDel'+ IntToStr(cRow); bt.Left:= 370; bt.Top:= 10+ (cRow * 25); bt.Height:= 21; bt.Caption:= 'Delete'; bt.Tag:= cRow; bt.OnClick:= fmMain.btDelClick; end; end; //case end; //for cColumn end; //for cRow finally StList.Free; end; end; //open key finally Free; //reg end; end; test.rar
  8. السلام عليكم لو تتكرمون علي وتحملون المرفق أضيفوا عدة يوزرات ثم ابداوا بحذفها الواحد تلو الاخر سيتولد خطأ!!!! الرجاء اعلامي بسببه حاولت ب F7 لكنه يتولد بعد الخروج من جملة try !! وشكرا لكم مقدما test.rar test_exe.rar
  9. السلام عليكم شكرا جزيلا على البرنامج الجميل لي ملاحظة مرت بي صراحة ولم أبحث لها عن حل وعندما صادفتني مع هذا البرنامج تذكرتها وهي التالي اولا نظامي اكس بي لانه في الميلينيوم لم تظهر هالمشكلة وهي: عند الزر اليميني على الايقونة البرنامج جانب الساعة تظهر القائمة ولا يمكن ان تختفي الا اذا اخترنا احد اوامر القائمة او ضغطنا الزر اليساري!!! اي اذا ضغطنا الزر اليميني وبطلنا نختار احد الاوامر وحركنا الماوس لمكان اخر من الشاشة مثل زر ستارت او غيره فقائمة البرنامج اليمينية تظل مفتوحة!!! ما الحل؟؟؟
  10. بس للاسف الرابط قديم او معطل!!! اما هالرابط http://www.arabteam2000-forum.com/index.php?showtopic=57390 فبالانكليزي وايضا الملفات كبيرة وكتيرة!!! انا اعتبر مشاركتي او مشروعي كوظيفة وطبعا لا اريد الا المساعدة زاهم مساعدة لانه بعد اعتماد الجدداول ساكون تحت الامر الواقع وهو جداول محددة وساتعامل معها بعبارات sql اما الواجهات فهي مسؤوليتي فقط أريد دفعة للامام حتى لا اجد اي ارباكات بمنتصف الطريق :s
  11. السلام عليكم السلسة والحمد لله مفيدة أخ ولئل جزاك الله خيرا بس في أمور ما وجدتها بين الأسطر وهي التالي خليني ابدأ بمشروع لي سأبدؤه الأن تباعا وأرجو تصحيح أي خطأ وتوجيهي للحل الأمثل أنا أريد انشاء قاعدة بيانات لادخال مشتريات (تتألف من بطاقات موبايل والبطاقات تتألف من أقسام عدة) أي برنامج محاسبة لكن الاصناف ستون بطاقات فقط طريقة تصميم الجداول سأوردها بعد قليل لكن لي سؤال قبل البدء ذكرت أنه يجب ان تكون الاساسات متينة لاكمال البرنامج لذا قبل الجداول ماذا اختار هل أكسس أم ماذا للعلم حسب حاجتي انا اريد البرنامج على جهازي لاني اعمل بمجال البطاقات اي ليس للبيع او الشراء على كل ان كان الحل الامثل هو اكسس فالجهاز اذا مو نازل عليه الاوفس فماذا احتاج بالضبط اي ما هو محرك الاكسس كملف او ملفات!! هي المعلومة لم تذكر بين الاسطر!!! ثم سؤال اخر: تعليمات ال sql الستاندرد هل هي نفسها اللي عطيت لمحة سريعة عنها بالمشاركة!! لنفرض الان اني اخترت الاكسس (اذا لأ صوب لي رجاء) ونسخت الملفات لمحرك الاكسس لنبدأ بتخيل شكل الجداول الجدول الاول: هو جدول المزودين (اي كل ما يخص الذين اشتري منهم البطاقات) ويتضمن: رقم تعريفي id اسم الموزع عنوانه هاتف الثابت الهاتف الجوال ملاحظات (اذا ممكن معلومات اكثر خبروني) الجدول الثاتي هو جدول الزبائن (اي ما يخص الذين ابيعهم البطاقات) ويتضمن: رقم تعريفي اسم الزبون عنوانه الهاتف الثابت الهاتف الجوال ملاحظات (ممكن نزيد المعلومات) الجدول التالت هو جدول الاصناف يتضمن: (للعلم كما تعلم بما انك بدمشق نوجد بطاقات ياهلا واريبا وكل منها عدة اصناف حسب الوحدات) فهل اضع كل صنف لوحده؟؟؟ اي ياهلا 200 وحدة وياهلا 400 وهكذا!!! مع العلم ان السعر ل400 وحدة هو ضعف سعر 200 وحدة انا اتوقع تفصيل الاصناف بالجدول بما انها ستحمل اي كل صنف له رقم تعريفي خاص به اليس كذلك؟ مبدئيا ساعتبر الجدول يتالف من رقم تعريفي للصنف اسم الصنف لا اتوقع اني احتاج غير ذلك!! الان بدأ الجد شلون بدي ساوي جدول المشتريات والمبيعات ؟؟؟؟؟ وشو أحتاج جداول ايضا؟؟؟؟ لنفرض بدي ساوي جدول المشتريات يتكون من : الرقم التعريفي للمزود الرقم التعريفي للصنف الكمية الخصم السعر الاجمالي التاريخ (لنفرض اني اشتريت من المزود زيد الصنف ياهلا ذو 200وحدة والصنف اريبا ذو 1000 وحدة هل سيكتب ذلك بالجدول على سطرين!!!)؟ لن أستمر حتى اجد ان بداية عملي صحيحة للعلم كل حقول الارقام التعريفية ستكون مفتاح اساسي اكيد ساربط جدول المشتريات بجدول المزودين راس لراس وايضا جدول المبيعات بجدول الزبائن راس لراس وجدول الاصناف بجدولي المبيعات والمشتريات كل منهما راس لراس شكرا اخ وائل وانتظر الاجابة ارجو ان تعتبر هذه الاسئلة وهاذا المشروع هو اقصى درجات التفاعل معك :D مو حلو ة وانا طالب معلوماتية اطلب من مبرمج يساويلي اياه صحيح!!! :D والسلام عليكم
  12. عزيزي المشكلة مو بوقتي ولا بالبرمجة!!! المشكلة بالموقع !!! اللي كنت رابط البرنامج به تعلمت من هالبرنامج اني لما انوي اعمل برنامج أجعله همي حتى ينتهي ولو بميزات بسيطة أنا عملته بميزات ممتازة وقبل ما انتهي منه بساعات صار اللي صار نصيب!!!
  13. كيف يمكن ان استدعي TForm1.FormCreate

    عزيزي اذا بدك البيانات على القورم التاني لا تتغير عنداغلاقه مثل شيئ مكتوب بالميمو فعليك فيكفي استدعاء تابع create مرة واحدة (ممكن أن يكون الاستدعاء دون تدخلك اي بمجرد انشاء الفورم التاني بزمن التصميم يكتب تابع الاستدعاء في البروجكت بالتالي للاظهار form2.showmodal أو form2.show ولا تضع في حدث الاغلاق للفورم 2 action:=caFree
  14. شباب ما هو كود حذف ملف معين

    جرب أخي الكريم قبل الحذف ان تجعل الملف عادي اي ليس للقراءة فقط او مخفي او نظام اي اكتب الكود التالي SetFileAttributes('filepath', 0); ثم حاول الحذف جرب الكود وطمني
  15. السلام عليكم عزيزي FH شكرا على الرد مع أني تركت الموضوع صراحة لأني أوقفت هذا البرنامج لسبب طارئ ولن أعود له!!! على العموم أعلم أن الاليرت هو كود يكون بصفحة ال html لكن لو لاحظت المثال اللي أرفقته لوجدت أن الموقع عندما يظهر الاليرت مباشرة ينتقل لصفحة أخرى بالتالي لم أستطع من خلال حدث onnavigatecomplete أن أقرأ السورس !! ولم أكن أعرف التابع الذي من خلاله حفظت الصفحة وقرأت الاليرت لذا بالنسبة لإلغاء ظهور الاليرت فعلا هو أمر اخر (تطوير للبرنامج) الذي للأسف لن يستكمل !!! الجملتين لهما المعنى نفسه!! لم أفهم قصدك فعلا أريد لو تفضلت كيفية قراءة جملة الاليرت لكن دون تخزين السورس ثم قراءته! ممكن تخزينه اتوماتيكيا دون تدخل المستخدم ثم قراءة السورس شكرا لك عزيزي على متابعة الموضوع لكن والله الظرف اللي صار خلاني ازعل على الساعات الطوال اللي قضيتها بالبرنامج والله المستعان