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

برجاء من السادة الاعضاء والمشرفين 

اريد ان اقوم بتسجيل اقساط عميل وليكن عدد الاقساط 40 وهذا الرقم غير ثابت بل سيتغير بين كل عميل 

المشكلة ان هذا التسجيل يدوى
مثال
الاسم جمال عبدالناصر     رقم القسط 1     قيمة القسط 400 جنيه     تاريخ السداد 1/3/2015

الاسم جمال عبدالناصر     رقم القسط 2     قيمة القسط 400 جنيه     تاريخ السداد 1/4/2015

حتى اخره وبالطبع هذا سياخد وقت كبير فى ادخال بيانات العملاء 

اريد معرفة كيفية تسجيل هذا العميل مرة واحدة فقط وتسجيله فى الداتا بيز 40 مرة باختلاف رقم القسط وتاريخ السداد

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

بمعنى

يكون قيمة كل قسط مثلا 400 جنيه
ويكون المده بين كل قسط مثلا شهر

طبعا اقصد بثابت اي للعميل الواحد
وستقوم بتحديده انت بشكل طبيعي من واجهة البرنامج

بمعنى آخر
لايكون مثلا قيمة القسط الاول 400 والثاني 500 والثالث 600 والرابع 300
ولا يكون الفرق بين القسط الاول والثاني شهر وبين الثاني والثالث شهرين وبين الثالث والرابع اسبوعين مثلا

لو تحقق الشرطين فبالامكان عمل المهمه بكود واحد بسيط

هذا ما في جعبتي

وبالتوفيق


ربما تغمض عينيك في سقف غرفتك فلا تفتحها الا أمام جبار السماوات والأرض يوم القيامه ... 
 " لا تنس آخرتك "
الرد }}}
تم الشكر بواسطة: dhetos
#3
(27-03-15, 02:21 AM)Dr.Sherif Alazizi كتب : الموضوع بسيط لو كان قيمة كل قسط ثابته والمده بين القسط والثاني ايضا ثابته

بمعنى

يكون قيمة كل قسط مثلا 400 جنيه
ويكون المده بين كل قسط مثلا شهر

طبعا اقصد بثابت اي للعميل الواحد
وستقوم بتحديده انت بشكل طبيعي  من واجهة البرنامج

بمعنى آخر
لايكون مثلا قيمة القسط الاول 400 والثاني 500 والثالث 600 والرابع 300
ولا يكون الفرق بين القسط الاول والثاني شهر  وبين الثاني والثالث شهرين وبين الثالث والرابع اسبوعين مثلا

لو تحقق الشرطين فبالامكان عمل المهمه بكود واحد بسيط

هذا ما في جعبتي

وبالتوفيق

شكرا لك يا Dr.Sherif Alazizi


بالظبط يادكتور هو  ده الكود ائلى انا عايزه القيمة بتبقا ثابتة كل شهر مبتتغيرش والمدة بتبقا ثابتة غالبا بنسبة 70 % بتبقا كل شهر 
الرد }}}
تم الشكر بواسطة:
#4
ارفق مشروعك بقاعدة بياناتك اعدلك عليه مباشره باذن الله


ربما تغمض عينيك في سقف غرفتك فلا تفتحها الا أمام جبار السماوات والأرض يوم القيامه ... 
 " لا تنس آخرتك "
الرد }}}
تم الشكر بواسطة:
#5
(29-03-15, 02:18 AM)Dr.Sherif Alazizi كتب : ارفق مشروعك بقاعدة بياناتك اعدلك عليه مباشره باذن الله

تم ارسال رسالة خاصة اليك تحتوى على رابط المشروع وجزاك الله الف شكر يا دكتور 
الرد }}}
تم الشكر بواسطة:
#6
اخي الفاضل dhetos

قمت بتحميل المشروع لكن يبدو انه ناقص حيث انه فشل انه يفتح عندي بشكل صحيح

كنت اود التعديل المباشر على مثالك حتى اوفر الوقت علي وعليك

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

انتظرني


ربما تغمض عينيك في سقف غرفتك فلا تفتحها الا أمام جبار السماوات والأرض يوم القيامه ... 
 " لا تنس آخرتك "
الرد }}}
تم الشكر بواسطة:
#7
وانا فى انتظارك يادكتور
الرد }}}
تم الشكر بواسطة:
#8
(30-03-15, 12:36 AM)dhetos كتب : وانا فى انتظارك يادكتور

الاخ dhetos


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


وهذا هو الكود كامل

كود :
Imports System.Data.SqlClient
Public Class Form1
   Dim con As New SqlConnection
   Dim cmd As New SqlCommand
   Dim PremDate As Date  
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       con.ConnectionString = ("Data Source=.\SQLEXPRESS;Initial Catalog=CustDb;Integrated Security=SSPI;")
       cmd.Connection = con
       DMY.Items.Add("يوم")
       DMY.Items.Add("شهر")
       DMY.Items.Add("سنه")
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       con.Close()
       con.Open()
       cmd.CommandText = "INSERT INTO CustomerTbl ([CustName], [PremiumValue], [PremiumDate]) values('" & CustName.Text & "','" & PremiumValue.Text & "','" & PremiumDate.Text & "')"
       cmd.ExecuteNonQuery()
       Try
           For i As Integer = 1 To PremiumsNum.Text - 1
               If DMY.SelectedIndex = 0 Then PremDate = DateAdd("d", Val(PremiumEach.Text), PremiumDate.Text)
               If DMY.SelectedIndex = 1 Then PremDate = DateAdd("M", Val(PremiumEach.Text), PremiumDate.Text)
               If DMY.SelectedIndex = 2 Then PremDate = DateAdd("YYYY", Val(PremiumEach.Text), PremiumDate.Text)
               PremiumDate.Text = PremDate
               cmd.CommandText = "INSERT INTO CustomerTbl ([CustName], [PremiumValue], [PremiumDate]) values('" & CustName.Text & "','" & PremiumValue.Text & "','" & PremiumDate.Text & "')"
               cmd.ExecuteNonQuery()
           Next
           PremiumDate.Text = Now.Date
           MsgBox(" تم تسجيل أقساط العميل " & CustName.Text & " بنجاح ", vbExclamation, "تسجيل الأقساط")
       Catch ex As Exception
           MessageBox.Show(" حدث خطأ أثناء إدخال البيانات .. من فضلك حاول مرة أخرى" & ex.Message, "خطأ")
       Finally
           con.Close()
       End Try
   End Sub
End Class

وبالمرفقات تجد 

المثال الذي تم عمله كامل مع قاعدة البيانات SQL  - لاني لاحظت ان مشروعك يعتمد على هذه القاعده
فيديو بسيط يوضح كيفية عمل المثال

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

ولو واجهت اي عقبات اخبرني


الملفات المرفقة
.rar   Premium.rar (الحجم : 1.38 م ب / التحميلات : 93)
.rar   تكرار تسجيل الأقساط.rar (الحجم : 300.96 ك ب / التحميلات : 76)


ربما تغمض عينيك في سقف غرفتك فلا تفتحها الا أمام جبار السماوات والأرض يوم القيامه ... 
 " لا تنس آخرتك "
الرد }}}
تم الشكر بواسطة: dhetos
#9
الف الف الف شكر يادكتور الله يباركلك تم روية الفيديو وانشاء الله هاجرب اكتب الكود بليل فى البرنامج وربنا يكرمك
الرد }}}
تم الشكر بواسطة:
#10
والهى يادكتور متعرفش مدى سعادتى ايه بالمثال ائلى حضرتك رفعته مش عارف اشكرك ازاى الصراحة

حاجة تانية بسيطة انا عايز ارقم الاقساط يعنى يبقا رقم القسط على اجمالى 40/1 40/2 40 /3 يعنى كولم فى الداتا بيز يبقا فيه اجمالى عدد الاقساط وكولك تانى فيه رقم القسط

ولو مش فاضى مش مشكلة انا تقلت وبردو هادعيلك والهى ومش لازم تتعب نفسك

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 402 09-01-24, 01:41 AM
آخر رد: Taha Okla
Heart [C#.NET] حول بطئ عملية نقل البينات الكثيرة من أكسس إلى داتا غريد فيو بلال بلال 11 710 15-12-23, 07:47 AM
آخر رد: foad8920
  طريقة إسناد اكثر من جدول للكريستال ريبورت Adel27213 2 353 25-11-23, 11:51 PM
آخر رد: Adel27213
  [VB.NET] حذف اكثر من سطر محدد في جرد فيو h2551996 3 439 25-11-23, 12:30 PM
آخر رد: h2551996
  مشكلة غربية عندما اقوم بالطباعة تطلع معي فاتورة الكاشير صغيرة جدا moh61 3 357 28-10-23, 06:57 PM
آخر رد: moh61
  [VB.NET] كيف اقوم بمنع المستخدم من استخدام الكيبورد وخصوصا مفتاح Print screen Ameenh 0 235 07-10-23, 10:45 PM
آخر رد: Ameenh
  [VB.NET] ناتج عملية الطرح للأرقام الشعرية خطا عبدالله الصافي 3 362 27-09-23, 11:01 AM
آخر رد: قناص المدينة
  استفسار عام بخصوص فتح اكثر من اتصال على قاعدة بيانات واحدة assuhimi 0 324 15-09-23, 04:54 PM
آخر رد: assuhimi
  مشكلة عجيبة و غريبة ! عندما اقوم بطباعة فاتورة من Reportveiwer ينطبع التاريخ هجري moh61 2 327 09-09-23, 11:15 AM
آخر رد: alfaiz678

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


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