السلام عليكم ورحمة الله وبركاته
تابع هذا المشروع الصغير:
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)الماجيك مسعد كتب : السلام عليكم جميعا
لو سمحتم عايز مشروع صغير لجرد المخزن
الخواص المطلوبة هى
مسلسل|اسم الصنف|نوع الصنف|دخول|خروج|السعر|العدد|اجمالى
البرنامج لمخزن صغير
يريت لو فى خواص تانى بتكون موجودة داخل هذه البرامج قولوعليها
وبانتظار المساعدة
انا لم اشتغل فى مثل هذه البرامج من قبل نهائيا
كل برامجى كانت عن الفيس بوك