السلام عليكم
اخواني انا عندي برنامج الصادر والوارد وابي ادخل كل صورة خطاب او تعميم او بيان في الجهاز وثم اربطه برقم الخطاب او غير
يعني عندي خطاب نقل موظف وابي احفظ الخطاب عن طريق سكنر وثم احفظه بنفس رقم الخطاب حق النقل
( الفائده اني عندما ابحث عن الخطاب في اي وقت كان وابي صوره منه بس اعطيه امر طباعه)
تكفون يااخواني ترسلولي الكود او نموذج مصغر تكفون
يونكم ياشباب
تكتب كود فتح ملف1
With CommonDialog1 .InitDir = (App.Path & "\File_3OGOD") 'تحدد المجلد .Filter = "Text Files (*.bmp)|*.bmp" ' تحديد إمتداد الحفظ .ShowOpen 'لعرض شاشه الفتح .CancelError = True 'لمنع الخطاء الناتج عن عدم اعاده قيمه من النافذه RichTextBox1.LoadFile CommonDialog1.FileName, rtfRTF ليحفظ المسار على الريتش تكست الذي تم فتحه End With
2 حفظ مسار الملف
With CommonDialog1 .InitDir = (App.Path & "\File_3OGOD") 'تحدد المجلد .Filter = "Text Files (*.bmp)|*.bmp" ' تحديد إمتداد الحفظ .FileName = "Contract_" & Text16.Text 'إعطاء اسم افتراضي للملف .ShowSave 'لفتح شاشة الحفظ RichTextBox1.SaveFile CommonDialog1.FileName, rtfRTF ' ليحفظ المسار على الريتش تكست End With
وإنت هنا حتغير وتحفظ المسار فالحقل الخاص بمسارات الملفات وطبعا ممكن تضيف معاه مفتاح اجنبي ويكون مفتاح الموظف الاساسي يعني تضيف حقلين فالجدول
وبكدا ممكن تضيف اي عدد من الملفات للموظف
يعني
قبل كل شي انشإ حقلين فجدول جديد
الحقفل الاول تيم حفظ المسار عليه
الحقل التاني المفتاح الأساسي للموظف
وإن شاء الله يكون المطلوب
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
الف شششششششششششششششششششششكر لك اخي
وتمنى انه المطلوب
سوف اجربه ورد عليك
اخي الكريم ماعرفت كيف اضيف الكود ولا كن انا سوف ارفق الملف
وانت عدلي عليه تكفى
تكفى
تحيه
على السريع ..أنا عملتلك البرنامج بس بعد ما خلصت فهمت انك تبغى تجمع الصور فمكان واحد
كدا محتاج كود النسخ واللصق على زر 1
أنا خليت البرنامج يعرضلك الصور من اي مكان
كان تقديري انك حتعمل مجلد خاص بالفواتير مجلد خاص بالتقارير .. على هذا النحو
وتحمل الملفات عليها تبعا للفئة وعلى البرنامج عرضها تبعا للموظف
دعواتك :rolleyes:
تم تعديل هذه المشاركة بواسطة POWER _GIRL في 12 أبريل 2005 في 00:26
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
أعتذر عن الخطأ ..ماأرفقت المديول
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
الف الف الف الف
شكككككككككككككككككككككر لك على سرعت الرد الف الف
ششششششششششششششكر
لك اخي سوف اجربه ورد عليك
لاتشكرني :angry: ادعيلي :lol:
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
الله يوفقك
اخي الكريم ابيك تعدلي على هذا المثال لو سمحت
واذا مشتغل معك روح الى موضوعي هذا
اول شي البرنامج وضحت فيه العمل
ما اعتقد صعب تطبيقوا!
تاني شي وفين نافذه عرض الصور المتعلقه بصور الصادر!
إنت الان محتاج واجه اخرى للعرض
أنا عملتلك الحفظ والعرض على المثال
ياريت اخي الفاضل تجرب لأنك مع الاسف ماحاولت
والدليل ان المثال المرفق مافيه اي سطر من كودي الي فضيت نفسي والله عشان اعملك هوا
جرب ولو وقف ارجعلي
لو مافهمت إسألني واعتقد اني ساعدتك
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
ما شالله عليك اخت POWER _GIRL
مبدعه في شرحك الجميل واسلوبك الخلاب ... فعلا مجهود تشكرين عليه
الله يسعدك ويوفقك لما فيه الخير
واتمنى ان اجدك في اوجه التألق
وأعتقد اخ الباشق أن الاخت .. مهتمه في الموضوع
واسلوبها مفهموم .. واتمنى ان تكون قد أوصلت لك ما هو المطلوةب منك
تحياتي ... B)
تم تعديل هذه المشاركة بواسطة HnHn في 13 أبريل 2005 في 15:42
سجل ايميلك هنا
ليصلك كل ما هو مفيد في عالم البرمجةصحيح اخي ماهو موجود في هذا المثال ولك انا جربته ولا نفع
وفكرت ان ارفق البرنامج كامل حتى تعدلي عليه مباشرة لو تكرمتم
هذه البرنامج الاساس
والله انا معرفله
لو تكررمتم
Brother HnHn Thanks a lot
U Push Me UP
and All so I Wish This To U 2 :lol:
----------------------------------------------
and U :angry:
:lol: I will Do Soon :lol: إن شاء الله
But if U Can't Wait Try
Or Wait Someone
Good Luck B)
تم تعديل هذه المشاركة بواسطة POWER _GIRL في 14 أبريل 2005 في 22:07
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
هلا والله فيك كيف حالك
الف شكر على هذه الجملة
الآخ HnHn شكرأ جزيلاً
يو يدفعني فوق
كل لذا أتمنى هذا إلى يو 2
بس اخي ماعتلت على البرنامج لو سمحت ممكن
هلا والله فيك كيف حالك
الف شكر على هذه الجملة
الآخ HnHn شكرأ جزيلاً
يو يدفعني فوق
كل لذا أتمنى هذا إلى يو 2
بس اخي ماعتلت على البرنامج لو سمحت ممكن
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
هذا الموضوع مغلق.