مساعدة عااااااااجلة لمشروع تخرج

يمكنك ربط الصور بالاداة ImageBox و تقومي بتحميل الصوره كل مره يتم تغيير الريكورد سيت بها.

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

يعني من ضمنها أحفظي أخر ريكورد أتفتح في ملف نصي أو في قاعدة البيانات أو في Configuration File و عند بدأ البرنامج تعرضي الرقم المسجل +1.

أما الطلب الأخيير انا مش فاهمه

مرحبا

اول شي شكرا مررررره على الرد السريع :rolleyes:

بس مافي اداة اسمها ImageBox يمكن تقصد pictuerBox هذي اللي انا استخدمها وكتبتلها الكود

PictureBox1.Image = DataSet11.Tables("food").Rows(i).Item("foodpic")l

لكن للاسف مانفع مع انه شغال على كل ال TextBox

ماادري اذا في شي نغيره في الكود عشان تظهر الصور؟؟؟

بالنسبة للمعلومة المختلفة قلت لها عدة الطرق بس انا مررره ماعندي خلفية عن اي طريقة ياليت توضح اكثر بليز :unsure:

الطلب الاخير اعتقد هو MDI اذا ماني غلطانةmulti interface شي زي كذا يعني اذا كان عندك مجموعة بتونات في يمين الفورم مثلا فكل buttonمايفتح فورم في windoجديد

لكنه راح يفتح على نفس الفورم ماادري اذا وصلت ولا لا؟؟؟

بلييز اول طلب كان الطباعة لكن الظاهر ماقراته معليش محتاجه اعرف كود الطباعة؟

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

اللي فهمته انو لازم يصير refresh or redownload the dataset but how???

حاليا انا خليت بتون delete يحذف ويقفل الفورم عشان اجبر اليوزر انه يفتح الفورم ثاني طبعا مرررررررره غلط بس كان في خاصيه درستها على asp.net تخلي البتون يسوي تحديث للفورم(اعتقد كانت AutoPostBack) ومالقيتها في vb.net

ماادري اذا عندكم حل لهذي المشكلة؟؟؟

سوري مررررررررررررره على الازعاج :wacko:

وشكرا مرة ثانية...

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

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

ولكن ليه ماتنشأين Panel وتضعين فيه من الازرار ماشئتي

ويكون ال Visible حقه False

واذا ضغط الزر يصير True هذا اقتراح.

بالنسبة لعملية الحذف

لما تسوين Select حطيها في داتا سيت جديدة

هذا مثال يقرا يحذف من جدول الزبائن ويعرض معلوماتهم

في Datagrid

OleDbDataAdapter1 = New OleDb.OleDbDataAdapter("delete from customers where id=12", OleDbConnection1)
            OleDbDataAdapter1.Fill(data, "Cuatomer")
            OleDbDataAdapter1 = New OleDb.OleDbDataAdapter("select * from customers", OleDbConnection1)
            OleDbDataAdapter1.Fill(data2, "Customer")
            DataGrid1.SetDataBinding(data2, "Customer")

بالنسبة لقضية معلومة اليوم

هذا كود يعرض معلومات عن زبون عشوائي في

MsgBox

اقريه وشوفي ونفذيه بمشروعك وان شاء الله تضبط معك

 Try
            OleDbConnection1.Open()
            Dim cmd As New OleDb.OleDbCommand("select id from customers", OleDbConnection1)
            Dim reader As OleDb.OleDbDataReader = cmd.ExecuteReader

            Dim Myarray As New ArrayList()
            While reader.Read
                Myarray.Add(reader("id"))
            End While
            OleDbConnection1.Close()
            Dim random As New Random()
            Dim r As Integer = random.Next(0, Myarray.Count - 1)
            Dim id As Integer = Myarray.Item(r)
            OleDbConnection1.Open()
            Dim cmd2 As New OleDb.OleDbCommand("select id, name,tel from customers where id =" & id, OleDbConnection1)
            Dim reader2 As OleDb.OleDbDataReader = cmd2.ExecuteReader
            Dim result As String
            While reader2.Read
                result = "Random Customer is " & reader2("id") & reader2("name") & reader2("tel")
            End While
            OleDbConnection1.Close()
            MsgBox(result)
        Catch ere As Exception
            MsgBox(ere.ToString)
        End Try

بالنسبة لامر الطباعة

ماادري وش تبين بالضبط

هل تريدين طباعة تقرير عن الطبخات باستخدام

كريستال ريبورت

ام انك تستدعين امر الطباعه

تبع الويندوز؟؟

والكريستال ريبورت قوي جدا

يوفر لك تقرير عن الطبخات وفيه زر لطباعه التقرير موجود فيه

وايضا يمكنك اضافة صور ورسومات بيانية عن

اكثر الطبخات طلبا وهكذا

حددي وش تبين بالضبط