تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
برنامج وارد ومصروفات
#1
السلام عليكم ورحمة الله وبركاتة وكل عام وانتم بخير وسعادة وبعد

ارجو المساعدة في بعض الاكواد 

1- كود التنقل بين السجلات واظهار السجل المتواجد فية حاليا
2- كود ارسال بيانات الداتا جريد الي ملف اكسيل 
3- كيفية عمل تقرير يومي وبين تاريخين


الملفات المرفقة
.rar   WindowsApp1.rar (الحجم : 438.18 ك ب / التحميلات : 71)
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاتة 

اية ياجماعة الخير مفيش رد هو الموضوع صعب ؟؟؟
الرد }}}
تم الشكر بواسطة:
#3
(16-06-18, 02:14 PM)abdohassan كتب : السلام عليكم ورحمة الله وبركاتة وكل عام وانتم بخير وسعادة وبعد

ارجو المساعدة في بعض الاكواد 

1- كود التنقل بين السجلات واظهار السجل المتواجد فية حاليا
2- كود ارسال بيانات الداتا جريد الي ملف اكسيل 
3- كيفية عمل تقرير يومي وبين تاريخين


ليس بالموضوع الصعب اخى الحبيب

لكن نحن فى يومين العيد ومن الصعب
تجد الجميع متواجد هنا لكي يساعد
فعيد سعيد عليك

اولاً بخصوص رقم 1
قم بتوضيح رقم الفورم المطلوب عمل عليه ما تريد
حتى يتم كتابة الكود المناسب بناءاً على المسميات لديك

ثانياً بخضوض رقم 2
فى البداية قم بانشاء الـ Sub التالى
كود :
Private Sub releaseObject(ByVal obj As Object)
   Try
       System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
       obj = Nothing
   Catch ex As Exception
       obj = Nothing
   Finally
       GC.Collect()
   End Try
End Sub

ثم بعد ذلك ضع هذا الكود داخل الـ Buttun
كود :
   Dim xlApp As Microsoft.Office.Interop.Excel.Application
   Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
   Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
   Dim misValue As Object = System.Reflection.Missing.Value
   Dim i As Integer
   Dim j As Integer

   xlApp = New Microsoft.Office.Interop.Excel.ApplicationClass
   xlWorkBook = xlApp.Workbooks.Add(misValue)
   xlWorkSheet = xlWorkBook.Sheets("sheet1")


   For i = 0 To DataGridView1.RowCount - 2
       For j = 0 To DataGridView1.ColumnCount - 1
           For k As Integer = 1 To DataGridView1.Columns.Count
               xlWorkSheet.Cells(1, k) = DataGridView1.Columns(k - 1).HeaderText
               xlWorkSheet.Cells(i + 2, j + 1) = DataGridView1(j, i).Value.ToString()
           Next
       Next
   Next

   xlWorkSheet.SaveAs("D:\vbexcel.xlsx")
   xlWorkBook.Close()
   xlApp.Quit()

   releaseObject(xlApp)
   releaseObject(xlWorkBook)
   releaseObject(xlWorkSheet)

   MsgBox("You can find the file D:\vbexcel.xlsx")

ثالثاً بخصوص رقم 3
كل ما عليك هو استخدام الاستعلام التالى
كود :
SELECT * FROM nametable WHERE namedate >= date1, namedate <=date2

مع تغيير المسميات حسب ما لديك من مسميات بالجدول

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: abdohassan
#4
(18-06-18, 02:36 AM)elgokr كتب :
(16-06-18, 02:14 PM)abdohassan كتب : السلام عليكم ورحمة الله وبركاتة وكل عام وانتم بخير وسعادة وبعد

ارجو المساعدة في بعض الاكواد 

1- كود التنقل بين السجلات واظهار السجل المتواجد فية حاليا
2- كود ارسال بيانات الداتا جريد الي ملف اكسيل 
3- كيفية عمل تقرير يومي وبين تاريخين


ليس بالموضوع الصعب اخى الحبيب

لكن نحن فى يومين العيد ومن الصعب
تجد الجميع متواجد هنا لكي يساعد
فعيد سعيد عليك

اولاً بخصوص رقم 1
قم بتوضيح رقم الفورم المطلوب عمل عليه ما تريد
حتى يتم كتابة الكود المناسب بناءاً على المسميات لديك

ثانياً بخضوض رقم 2
فى البداية قم بانشاء الـ Sub التالى
كود :
Private Sub releaseObject(ByVal obj As Object)
   Try
       System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
       obj = Nothing
   Catch ex As Exception
       obj = Nothing
   Finally
       GC.Collect()
   End Try
End Sub

ثم بعد ذلك ضع هذا الكود داخل الـ Buttun
كود :
   Dim xlApp As Microsoft.Office.Interop.Excel.Application
   Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
   Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
   Dim misValue As Object = System.Reflection.Missing.Value
   Dim i As Integer
   Dim j As Integer

   xlApp = New Microsoft.Office.Interop.Excel.ApplicationClass
   xlWorkBook = xlApp.Workbooks.Add(misValue)
   xlWorkSheet = xlWorkBook.Sheets("sheet1")


   For i = 0 To DataGridView1.RowCount - 2
       For j = 0 To DataGridView1.ColumnCount - 1
           For k As Integer = 1 To DataGridView1.Columns.Count
               xlWorkSheet.Cells(1, k) = DataGridView1.Columns(k - 1).HeaderText
               xlWorkSheet.Cells(i + 2, j + 1) = DataGridView1(j, i).Value.ToString()
           Next
       Next
   Next

   xlWorkSheet.SaveAs("D:\vbexcel.xlsx")
   xlWorkBook.Close()
   xlApp.Quit()

   releaseObject(xlApp)
   releaseObject(xlWorkBook)
   releaseObject(xlWorkSheet)

   MsgBox("You can find the file D:\vbexcel.xlsx")

ثالثاً بخصوص رقم 3
كل ما عليك هو استخدام الاستعلام التالى
كود :
SELECT * FROM nametable WHERE namedate >= date1, namedate <=date2

مع تغيير المسميات حسب ما لديك من مسميات بالجدول

تحياتى لك
وتمنياتى لك التوفيق

السلام عليكم ورحمة الله وبركاتة وكل عام وانت بخير اخي [b]elgokr [/b]

[b]اولاً بشكرك علي ردك جعلة الله في ميزان حسناتك [/b]
[b]ثانيا بخصوص رقم 1 وليكن الفورم 3 [/b]
الرد }}}
تم الشكر بواسطة:
#5
لتصدير المعلومات باسرع طريقة ( عند وجود عدد كبير جدا من العلومات ) او في حال تريد تصدير البيانات دون وجود MS Office على الجهاز .
استخدم الكود هنا
الرد }}}
تم الشكر بواسطة: elgokr , abdohassan , abdohassan
#6
السلام عليكم ورحمة الله وبركاتة اخي [b]HASAN6.0 وكل عام وانت بخير [/b]

[b]شكرا علي ردك بس ممكن شرح عمل الكود ؟[/b]
الرد }}}
تم الشكر بواسطة: elgokr , HASAN6.0
#7
(19-06-18, 01:50 PM)abdohassan كتب : السلام عليكم ورحمة الله وبركاتة وكل عام وانت بخير اخي [b]elgokr [/b]

[b]اولاً بشكرك علي ردك جعلة الله في ميزان حسناتك [/b]
[b]ثانيا بخصوص رقم 1 وليكن الفورم 3 [/b]


عفواً اخى انا سهيت فى الكتابة بخصوص رقم 1

لا اقصد به رقم الفورم  Big Grin
فسامحنى على السهو وعدم الانتباه

بخصوص:
إقتباس :كود التنقل بين السجلات واظهار السجل المتواجد فية حاليا

ما ارسده توضيح السجلات المقصودة وبيانتها
او ارفاق مثال مصغر حتى يتم عمل الكود بناءاً على ما ترفقه

واتمنى رقم 2 و 3 قد يكون تم معك وامره بسيطة لديك
كما الاخ HASAN6.0
اضف لك طريقة فعالة ايضاً

تحياتى لك
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: abdohassan
#8
شكرا اخي الفاضل علي تعبك معاي لاني مبتدئ

بس ممكن توضحلي كود الاستعلام بين تاريخين بشرط الاسم الموجود في التكست بوكس
الرد }}}
تم الشكر بواسطة:
#9
(19-06-18, 06:07 PM)abdohassan كتب : شكرا اخي الفاضل علي تعبك معاي لاني مبتدئ

بس ممكن توضحلي كود الاستعلام بين تاريخين بشرط الاسم الموجود في التكست بوكس


فقط استخدم نفس ما قمت بكتابته مسبقاً 

مع اضافة التحقق بالاسم كما التالى
كود :
SELECT * FROM nametable WHERE namedate >= date1, namedate <=date2, name='textbox'

مع تغيير المسميات وطريقة استدعاء TextBox بالكود حسب المسميات لديك

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 598 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  [VB.NET] كيف يمكنني استظافة سوفت وير برنامج ادارة جهاز السي بي سي في المختبر الى برنامجي الحزين اليماني 2 282 15-01-24, 10:39 PM
آخر رد: الحزين اليماني
  برنامج لحفظ اكوادي samsunggears 2 385 05-01-24, 12:57 AM
آخر رد: HALIM ELEULMA
  انشاء واجهات برنامج شؤون الموظفين والرواتب شمسـ لا تغيب 5 12,847 27-09-23, 10:05 PM
آخر رد: melad2002
  مطلوب برنامج لحوافظ المالية الاسطورة1 2 432 27-09-23, 09:12 PM
آخر رد: melad2002
  تشغيل برنامج خارجي ضمن شاشة برنامجي strongriseman 1 341 13-09-23, 10:14 PM
آخر رد: anes
  طلب برنامج Active report v1.1 ali_dark 2 436 19-07-23, 01:33 AM
آخر رد: مصمم هاوي
  [نقاش] مساعدة برنامج جمعية خيرية mgsmm 0 457 30-06-23, 01:03 AM
آخر رد: mgsmm
  برنامج الصادر والوارد vb.net crazykinko 3 910 23-06-23, 04:19 AM
آخر رد: kebboud
  [سؤال] سؤال بخصوص برنامج يعمل بالباركود eslam kady 2 622 05-06-23, 11:26 PM
آخر رد: eslam kady

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم