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

لو سمحتم عايز مشروع صغير لجرد المخزن

الخواص المطلوبة هى

مسلسل|اسم الصنف|نوع الصنف|دخول|خروج|السعر|العدد|اجمالى



البرنامج لمخزن صغير

يريت لو فى خواص تانى بتكون موجودة داخل هذه البرامج قولوعليها

وبانتظار المساعدة

انا لم اشتغل فى مثل هذه البرامج من قبل نهائيا

كل برامجى كانت عن الفيس بوك
الرد }}}
تم الشكر بواسطة:
#2
فينكم يا شباب

طيب لو حتى اى شرح لعمل مثل هذه البرامج

لانى متعاملتش معاها من قبل

وياترى الخواص دى كفاية ولا فى خواص تانى بتكون موجودة؟
الرد }}}
تم الشكر بواسطة:
#3
اخي الكريم تحتاج الى انشاء جدول تضع في رقم الصنف ونوعه والكمية المدخلة والكمية المخرجة والكمية المتبقية
بالاضافة الى سعر الشراء هذه معلومات متواضعه ربما تساعدك.
الرد }}}
تم الشكر بواسطة: الماجيك مسعد
#4
(07-04-16, 03:28 PM)Adrees كتب : اخي الكريم تحتاج الى انشاء جدول تضع في رقم الصنف ونوعه  والكمية المدخلة والكمية المخرجة والكمية المتبقية
بالاضافة الى سعر الشراء هذه معلومات متواضعه ربما تساعدك.

اهلا بيك

طبعا اى معلومة هتفدنى

ولكن كما قلت فى موضوعى انى لم اتعامل مع هذه البرامج من قبل ولا حتى مع قواعد البيانات

فيريت شرح لتطبيقه
او مشروع لتعديله
الرد }}}
تم الشكر بواسطة:
#5
السلام عليكم ورحمة الله وبركاته
تابع هذا المشروع الصغير:
Imports system.DateTime
Imports system.Data.oleDb
لتعريف المتغيرات التي سنتعامل معه في قواعد البيانات
( " Dim conn AS New OleDb connection ("provider=msdaora;user id =scott;password=tiger
Dim db1 AS New oleDbdataAdapter
Dim db2 AS New oleDbCommand
Dim dset1 AS New Dataset
لي استعراض الجدول dapt من قاعدة البيانات
Conn .open()
db1=New oleDbDataAdapter("select * from dapt",conn
db1.fill(dset1,"dapt1
conn.close
dg.DataSouree=dset1
dg.DataMember="dapt1"
t1.DataBindings.Add("text",dset1,"dapt.daptno
")
زر الاضافة
Tname.Clear()
Tno.Clear()
conn.Open()
db1 = New OleDbDataAdapter("select max(deptno) from dept", conn)
db1.Fill(dataset1, "dept1
")
Tno.Text = Val(dataset1.Tables("dept1").Rows(0).Item(0).ToString) + 10
Tno.ReadOnly = True
dataset1.Tables("dept1").Clear()

زر الحفظ
conn.Open()
db2.Connection = conn
db2.CommandText = ("INSERT INTO dept(deptno,dname,loc) values (" & Tno.Text & ",'" & Tname.Text & "','" & tloc.Text
& "')")
db2.ExecuteNonQuery()
db1 = New OleDbDataAdapter("select * from dept order by deptno", conn)
dataset1.Tables("dept").Clear()
db1.Fill(dataset1, "dept")
conn.Close()
زر الحذف
conn.Open()
db2.Connection = conn
db2.CommandText = ("delete from dept where deptno= " & Val(Tno.Text))
db2.ExecuteNonQuery()
db1 = New OleDbDataAdapter("select * from dept order by deptno", conn)
dataset1.Tables("dept").Clear()
db1.Fill(dataset1, "dept")
conn.Close()
اول سجل
Me.BindingContext(dataset1, "dept").Position = 0
اخر سجل
Me.BindingContext(dataset1, "dept").Position = Me.BindingContext(dataset1, "dept").Count - 1
التالي
Me.BindingContext(dataset1, "dept").Position += 1
السابق
Me.BindingContext(dataset1, "dept").Position -= 1
لمعرفة رقم السجل
Label1.Text = "سجل " & Me.BindingContext(dataset1, "dept").Position + 1 & "من " & Me.BindingContext(dataset1, "dept").Count
التعامل مع القوائم إضافة حذف تعديل مسح القائمة
SelectedIndexChanged ( عند الحث للقائمة )
t1.Text = l1.SelectedItem
زر إضافة
Dim i, flag As Integer
flag = 0
For i = 0 To l1.Items.Count - 1
If Trim(t1.Text) = l1.Items(i) Then
flag = 1
End If
Next
If Trim(t1.Text) <> "" And flag = 0 Then
l1.Items.Add(Trim(t1.Text))
t1.ResetText()
t1.Focus()
ElseIf flag = 1 Then
MsgBox("الؼنصر مىجىد فؼلا ")
End If
زر التعديل
If l1.SelectedIndex <> -1 Then
l1.Items.Insert(l1.SelectedIndex, Trim(t1.Text))
l1.Items.Remove(l1.SelectedItem)
End If
t1.ResetText()
زر الحذف
l1.Items.Remove(l1.SelectedItem)
زر حذف القائمة
l1.Items.Clear()

وهذا مشروع بسيط لالة حاسبة
برنامج الآلة الحاسبة البسيطة
Private Sub Button١_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button١.Click
Dim x, y, z As Single
x = Val(TextBox١.Text)
y = Val(TextBox٢.Text)
If RadioButton١.Enabled = True Then
z = x + y
End If
If RadioButton٢.Checked = True Then
z = x - y
End If
If RadioButton٣.Checked = True Then
z = x * y
End If
If RadioButton٤.Checked = True Then
z = x / y
End If
TextBox١.Text = Str(x)
TextBox٢.Text = Str(y)
TextBox٣.Text = Str(z)
End Sub
Private Sub Form١_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
End Sub
Private Sub Button٢_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Button٢.Click
TextBox١.Text = ""
TextBox٢.Text = ""
TextBox٣.Text = ""
End Sub
End Class

(07-04-16, 02:02 PM)الماجيك مسعد كتب : السلام عليكم جميعا

لو سمحتم عايز مشروع صغير لجرد المخزن

الخواص المطلوبة هى

مسلسل|اسم الصنف|نوع الصنف|دخول|خروج|السعر|العدد|اجمالى



البرنامج لمخزن صغير

يريت لو فى خواص تانى بتكون موجودة داخل هذه البرامج قولوعليها

وبانتظار المساعدة

انا لم اشتغل فى مثل هذه البرامج من قبل نهائيا

كل برامجى كانت عن الفيس بوك
الرد }}}
تم الشكر بواسطة: الماجيك مسعد
#6
وربنا انت اسطورة

سوف اجرب الان افعل مثل ما قلتلى

ومشكور جدا جدا يا غالى

ربنا يجعله فى ميزان حسناتك

ويقدرك على فعل الخير دايما
الرد }}}
تم الشكر بواسطة:
#7
الرد }}}
#8
(07-04-16, 07:35 PM)سعود كتب :

تسلم ايدك يا استاذ سعود
جارى التجربة
اجمل ما فيك

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

وبتبسط الاكواد لسهولة فهمها

وهذا دليل انك انسان راقى جدا وذكى ومتواضع

ربنا يذيدك من علمه

(07-04-16, 07:35 PM)سعود كتب :

يريت تضيف بعد الاضافات الاتية ليصير مشروع كامل

زر جديد لاضافة سلعة جديدة وليس من الداتا جريد

بمعنى يكون فى تكست بوكس بعدد العواميد
وعند ضغط اضافة يتم اضافتهم الى الدتا جريد
ليبل بوكس يظهر فيه

سعر السلعة المباعة بعد ضغط زر بيع

بمعنى

مثلا لو هبيع حاسب

واخترت عدد السلعة الى هتتباع بعد ما ضاغط بيع

يظهر فى الليبل

سعر عدد السلع + اجمالى السعر

مثلا لو اخترت بيع 7 حاسب
والحاسب ب5 يظهر فى الليبل اجمالى سعر السلع = 35
وهكذا

ويكون فى زر اخر لجرد السلع بمعنى

يكون فى زر للجرد جنب زر البيع

وعند الضغط على جرد يتم ظهور رسالة بعدد السلع الموجودة حاليا وعدد السلع المباعة اليوم من هذه السلعة
وعدد السلع المباعة من هذه لسلعة خلال الشهر الحالى

واجمالى مبلغ هذه السلع المباعة خلال الشهر وخلال اليوم

يكون فى رسالة انذار عند قرب انتهاء سلعة
الرد }}}
تم الشكر بواسطة:
#9
اخي الكريم كل اللي تريده موجود بس عاد انت وتجاربك بالتعديل على المشاريع.
الرد }}}
تم الشكر بواسطة:
#10
(07-04-16, 09:00 PM)سعود كتب : اخي الكريم كل اللي تريده موجود بس عاد انت وتجاربك بالتعديل على المشاريع.

حسنا يا غالى

ساعدل عليه

وعندما انتهى هبعتلك صورة لتقول رايك
الرد }}}
تم الشكر بواسطة:



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


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