• الإعلانات

    • فيصل الحربي

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

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

abo_shroook

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

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

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

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

-1 مقبول

عن abo_shroook

  • الرتبة
    عضو

أحدث الزائرين لملفلك الشخصي

2,736 زياره للملف الشخصي
  1. مساعدة فى فكرة مشروع

    إن شاء الله اوضح لكى الفكره 1- فى جدول الموظفين فومى بعمل عمود زياده فى وسمه ماشئت ( del_impoمثلا ) ويكون عدد لوقاعده البيانات اكسس تلقائيا يكون قيمه العمود صفر تمام 2- فى زر حذف موظف لاتقومى بعمل دليت للاسم من قاعده البيانات بل عدلى الكود يعدل قيمه العمود del_impo الى واحد بدل من صفر اذا الموضف الحالى يكون رقمه 0 والموظف المحذوف يكون رقمه 1 عند الاستعلام عن الموظفين الحاليين ضعى شرط فى جمله الاستعلام هكذا cm.commandtext="select * from (tabel_name)where del_impo <>1 ولو حبيتى استعلام عن الموظفين الذين تم الغائهم يكون الشرط del_impo<>0 ياريت اكون وصلتلك الفكره
  2. اتشرف ان اضف لحضراتكم طريقه تصميم كشف حساب مثل كشف حساب البنك تماما بالتعاون من الاخ الفاضل vb.helper وحبيت اضيفه فى موضوع منفصل من اجل عمليه البحث للاخوه الاعضاء حيث كان عنوان الموضوع الاصلى تعديل كود vb6 وكان من الصعب الوصول للموضوع تحت هذا العنوان ( ويارب اكون سدت جزء صغير من افضال اساتذه المنتدى على فى تعلم برمجه vb.net) WindowsApplication1.rar
  3. تعديل كود vb6

    اليك الحل يا حبيبنا الغالى وانا متشكر لحضرتك جدا جدا جدا على تعبك مهايا WindowsApplication1.rar
  4. تعديل كود vb6

    مشكور اخى على اهتمامك الشديدد ولكن للاسف مش دة المطلوب كماسويت حضرتك الداتا جريد بس بيكون هناك صف ثالث للرصيد يتم جمع الدائن وطرح المدين ( مثل كشف حساب البنك ) الكود ده شغال vb.6 100% ولكن للاسف مش قادر اوصفه على vb.net 2008 حضرتك ممكن تتطلع على كود vb6 الموجود فى المشاركه الاولى وتعدل على احداث الداتا جريد مشكور على تعاونك معى
  5. تعديل كود vb6

    اخى الكريم كود vb6 كنت اسوى بيه كشف حساب وحاولت انفذه على vb.net 2008 وكود الى معدله لا يعمل ممكن تساعدنى من فضلك بمعنى الكود كان بيجمع الجانب الدائن ويطرح الجانب الممدين ويضع النتيجه فى الصف التالى وانا كنت باستخدم datagrid يارب اكون وصلت لحضرتك الفكره
  6. مساعده في شاشة الفواتير

    ممكن التوضيح اكثر على مافهمت انتى مححتاجه تصممى فاتوره حضرتك بكون فيه تكست وااحد يوضع به رقم الصنف ومن خلال جمله اسستعلام باستخدام داتا ريدر ممكن تستعلمى عن البيانات الخاصه بهاا الصنف وممكن تستخدة داتا جريد فيو لاضافه البيانات فيها 0 والله اعلم وده كود Try cm.CommandText = "select * from items where id = '" & Me.TextBox1.Text & "' and del<>1" cm.Connection = cnn dr = cm.ExecuteReader Do While dr.Read With Me.DataGridView1 .Rows.Add() .Rows(.Rows.Count - 2).Cells(0).Value = .Rows.Count - 1 .Rows(.Rows.Count - 2).Cells(1).Value = (dr("id")) .Rows(.Rows.Count - 2).Cells(2).Value = MaskedTextBox1.Text .Rows(.Rows.Count - 2).Cells(3).Value = (dr("snames")) .Rows(.Rows.Count - 2).Cells(4).Value = "1" .Rows(.Rows.Count - 2).Cells(5).Value = (dr("saleunity")) .Rows(.Rows.Count - 2).Cells(6).Value = Val(.Rows(.Rows.Count - 2).Cells(4).Value) * (.Rows(.Rows.Count - 2).Cells(5).Value) End With Loop dr.Close() Catch ex As Exception MsgBox(ex.Message) End Try
  7. تعديل كود vb6

    12 مشاهده بدون رد خير اللهم اجعله خير
  8. تعديل كود vb6

    هذا الكود من خلال vb6 واريد تحويله الى vb.net 2008 وارجوا المساعده منالاخوه الافاضل Dim i, DB, cr, openbal, bal, sumdb, sumcr openbal = 0: sumdb = 0: sumcr = 0 For i = 1 To rep1.Rows - 1 rep1.Row = i rep1.Col = 4 DB = Val(rep1.Text) sumdb = sumdb + DB rep1.Col = 5 cr = Val(rep1.Text) sumcr = sumcr + cr bal = openbal + DB - cr rep1.Col = 6 rep1.Text = bal openbal = bal Next i وهذا التعديل الذى قمت به Dim i, DB, cr, openbal, bal, sumdb, sumcr openbal = 0 : sumdb = 0 : sumcr = 0 For i = 1 To DataGridView1.Rows.Count - 2 DataGridView1.RowCount = i DataGridView1.ColumnCount = 3 DB = Val(DataGridView1.Text) sumdb = sumdb + DB DataGridView1.ColumnCount = 4 cr = Val(DataGridView1.Text) sumcr = sumcr + cr bal = openbal + DB - cr DataGridView1.ColumnCount = 5 DataGridView1.Text = bal openbal = bal Next i ولم يعمل معى ارجوا التصحيح ولكم جزيل الشكر
  9. ربط كومبوبوكس بتكست بوكس

    ممكن الكود ده يشتغل معال بس انا هنا باختار الاسم ويعطينى الرقم قاعده بيانات اكسس Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged cm.CommandText = "select * from expenses where snames='" & ComboBox1.Text & "'" cm.Connection = cnn dr = cm.ExecuteReader Do While dr.Read TextBox2.Text = (dr("id")) TextBox2.Enabled = False Loop dr.Close() End Sub
  10. الود السابق الحفظ من داتا جريد الكود الحالى هو ملىء داتا جريد من خلال البيانات الموجوده فى textbox With Me.DataGridView1 .Rows.Add() .Rows(.Rows.Count - 2).Cells(0).Value = .Rows.Count - 1 .Rows(.Rows.Count - 2).Cells(1).Value = (dr("id")) .Rows(.Rows.Count - 2).Cells(2).Value = Me.MaskedTextBox1.Text .Rows(.Rows.Count - 2).Cells(3).Value =me.textbox2.text")) .Rows(.Rows.Count - 2).Cells(4).Value = "1" .Rows(.Rows.Count - 2).Cells(5).Value =me.textbox3.text")) الكود بالاسفل لوضع ناتج الضرب فى عمود داتا جريد .Rows(.Rows.Count - 2).Cells(6).Value = Val(.Rows(.Rows.Count - 2).Cells(4).Value) * (.Rows(.Rows.Count - 2).Cells(5).Value) End With
  11. - تفضل اخى Dim i As Integer For i = 0 To DataGridView1.Rows.Count - 2 Dim row As DataGridViewRow = DataGridView1.Rows(i) Dim iditems As DataGridViewTextBoxCell = row.Cells(1) Dim dateinvoice As DataGridViewTextBoxCell = row.Cells(2) Dim snames As DataGridViewTextBoxCell = row.Cells(3) Dim buy As DataGridViewTextBoxCell = row.Cells(4) Dim buyquantity As DataGridViewTextBoxCell = row.Cells(5) Dim totalbuy As DataGridViewTextBoxCell = row.Cells(6) cm.CommandText = "insert into invoice (dateinvoice,iditems,snames,buy,buyquantity,totalbuy,type)values('" & dateinvoice.Value & "','" & iditems.Value & "','" & snames.Value & "','" & buy.Value & "','" & buyquantity.Value & "','" & totalbuy.Value & "','" & Me.Label8.Text & "')" cm.Connection = cnn cm.ExecuteNonQuery() Next
  12. الاخ الفاضل عدى ممكن لوسمحت التوسع اكثر فى شجره الحسابات من حيث قراءه البيانات من قاعده البيانات ولكم جزيل الشكر
  13. بارك الله فيك اخى عدى جعله الله فى ميزان حسناتك واكثر من امثالك جميل جدا جدا وشئ مميز فعلا
  14. اخى عمر بالتوفيق ونحن معك حتى الان صممنا جدول واحد فى قاعده البيانات (جدول الحسابات ) ماذا بعد ذلك نحن فى الانتظار بالتوفيق
  15. السلام عليكم ورحمه الله ويركلته من وجهه نظرى ان نبدأ اولا بعمل جدول المسزانيه ويتكون من عمودين رقم الحساب اسم الحساب ونضيف فيه 3 حسابات كالاتى :- رقم الحساب 230000 اسم الحساب المتاجره رقم الحساب 240000 اسم الحساب الارباح والخسائر رقم الحساب 250000 اسم الحساب الميزانيه العموميه ثم نكون جدول اخر ويشمل 4 اعمده رقم الحساب الرئيسى رقم الحساب الفرعى اسم الحساب الفرعى النوع مثال 230000 230100 ايرادات التشغيل 1 ملحوظه النوع يمثل هل الحساب مدين ام دائن ونستخدم 1 للمدين و2 للدائن فى كل من حساب المتجره والارباح والخسائر وفى المسزانيه يمثل جانب الاصول او الخصوم حتى يستطيع المستخدم تميز الحساب عند اضافته لانه من رأئ ان الجدول الثانى ستم عمل نموذج له وترك الحريه للمستحدم فى اضافه اسماء الحسابات وتميزها بين حساب متاجره او ارباح وخسائر او ميزانيه وده من وجه نظرى يجعل البرنامج كامل لجميع الانشطه حيت ان اسماء الحسابات تختلف معظمها فى نشاط عن اخر ثم يتم ربط الجدولين وبالتوفيق ان شاء الله