طلب مساعدة في مشروع بسيط

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

default طلب مساعدة في مشروع بسيط

مُساهمة من طرف memouz في الخميس نوفمبر 23, 2006 8:31 am

أخي الكريم جاد

السلام عليكم

لقد أرسلت لك رسالة على الايميل قبل أن أعرف بهذا الموقع فاعذرني و سوف أعيد طلبي هنا
أريد عمل برنامج دفتر فواتير و الصورة المرفقة توضح المشروع تماما
و البرنامج عبارة عن صفحة واحدة ( فاتورة ) مع امكانية اعطاء عدد غير منتهي من الفواتير بأرقام تسلسلية
و انا أعرف جميع الاكواد المطلوبة في الحسابات فقط أريد كيفية عمل الدفتر و بأرقام تسلسلية
يعني زر التالي يفتح نفس الصفة فارغة و لكن برقم متسلسل مع التي قبلها مع امكانية بقاء العد التسلسلي جاري حتى بعد اغلاق البرنامج اي اذا اغلقت البرنامج و اعدت فتحه يعطيك رقم متسلسل مع اخر فاتورة عملتها قبل الاغلاق و ايضا مع امكانية حفظ كل فاتورة في مجلد معين

اسف على الاطالة و أرجو أن أجد ضالتي هنا
و هذا رابط الصورة
http://www.servamega.com/img/44c6804bf916ccfb477f1e596e000074/5.jpg


و السلام عليكم

memouz
عضو
عضو

عدد الرسائل : 5
تاريخ التسجيل : 23/11/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: طلب مساعدة في مشروع بسيط

مُساهمة من طرف Admin في الخميس نوفمبر 23, 2006 5:46 pm

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

فتستطيع استخدام هذا الكود لمعرفة الرقم التسلسلي للفاتورة

هذا الكود يقوم بحفظ الرقم الحالي والموجود في صندوق النص 1 text1.text
في الرجستري

SaveSetting "test", "test", "Fnomber", Text1.Text

وهذا الكود يقوم بإستخراج الرقم السابق وحفظة في مربع النص text1.text

Text1.Text = GetSetting("test", "test", "Fnomber")

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

_________________
إذا أعجبك موضوع من مواضيعي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين ماتقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..

اخوكم جاد القرعان
الأردن- الطفيلة
jadquraan@yahoo.com
jad_quraansoft@hotmail.com
00962777765709
avatar
Admin
jadquraan
jadquraan

عدد الرسائل : 125
العمر : 35
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: طلب مساعدة في مشروع بسيط

مُساهمة من طرف memouz في الخميس نوفمبر 23, 2006 8:48 pm

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

memouz
عضو
عضو

عدد الرسائل : 5
تاريخ التسجيل : 23/11/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: طلب مساعدة في مشروع بسيط

مُساهمة من طرف memouz في الجمعة نوفمبر 24, 2006 3:55 am

أخي العزيز جاد و كل الاخوة
لدي سؤال اخر هل يمكن ان يقوم البرنامج بحفظ العمل بصيغة ما ثم يكون قادر على اعادة فتح الملف المحفوظ للتعديل عليه او القراءة مع العلم أنه أي البرنامج يحوي عدد كبير من تكست و ليبل كما تشاهد في الصورة
و كيف يمكن ادراج مجلد مع البرنامج ليتم الحفظ به
مع الشكر الجزيل

memouz
عضو
عضو

عدد الرسائل : 5
تاريخ التسجيل : 23/11/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: طلب مساعدة في مشروع بسيط

مُساهمة من طرف Admin في الجمعة نوفمبر 24, 2006 8:19 pm

'هذا المثال يقوم بحفظ ثلاث متغيرات في ملف خارجي ويقوم بفتح ذلك الملف وجلب البيانات منه
'اضف للمشروع زري امر وسميهما
'Command1 , Command2
'اضف اداة فتح الملفات والتي وسمها
'CommonDialog1
'طبعا تستطيع اضافة هذه الأداة عن طريق النقر بالزر الايمن على شريط الادوات واختيار
'COMPONENTS>microsoft common dialog control
'اضف ثلاث مرباعات نص وسمها
'text1,text2,text3
'ثم اضف هذا الكود
Private Sub Command1_Click()
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> Empty Then
Open CommonDialog1.FileName For Input As #1
Input #1, a, b, c
Close #1
Text1.Text = a
Text2.Text = b
Text3.Text = c
End If
'طبعا هذا الكود يقوم بفتح الملف الذي قمت بحفظه وجلب البيانات التي فيه على الترتيب وحفظها في المتغيرات
'a,b,c
'ثم يقوم بوضع قيمة المتغيرات في مربعات النص
End Sub

Private Sub Command2_Click()
CommonDialog1.ShowSave
Open CommonDialog1.FileName & ".jdoc" For Output As #1
Write #1, Text1.Text, Text2.Text, Text3.Text
Close #1
'هذا الكود يقوم بحفظ البيانات الموجودة في مربعات النص داخل ملف خارجي انت تقوم بتسميته
'طبعا يقوم بحفظ البيانات على الترتيب
'انا قمت بإختيار امتداد للملف الذي قمنا بحفظه ولك الخيار لإختيار اي امتداد تراه مناسب
End Sub

Private Sub Form_Load()
Command1.Caption = "فتح"
Command2.Caption = "حفظ"
'في هذا الكود نقوم بجعل اداة فتح الملفات لا تقراء سوى الملفات التي نحن نحدد امتدادها
CommonDialog1.Filter = "Jad Documents|*.jdoc"
End Sub


'طبعا هذا كود انشاء مجلد
FileSystem.MkDir App.Path & "\jad folder"

_________________
إذا أعجبك موضوع من مواضيعي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين ماتقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..

اخوكم جاد القرعان
الأردن- الطفيلة
jadquraan@yahoo.com
jad_quraansoft@hotmail.com
00962777765709
avatar
Admin
jadquraan
jadquraan

عدد الرسائل : 125
العمر : 35
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: طلب مساعدة في مشروع بسيط

مُساهمة من طرف memouz في السبت نوفمبر 25, 2006 5:47 am

أخي الكريم جاد
و الله لا أعرف كيف أشكرك

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

memouz
عضو
عضو

عدد الرسائل : 5
تاريخ التسجيل : 23/11/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى