مبرمج أوتار

السلام عليكم ورحمة الله وبركاته اقدم لكم مشروع التخرج وهو عبارة عن برنامج وحده التدريب والتوظيف  البرمج المستخدمة :  1 - فيجوال بيسك 2010 لغه vb 2 - sql server 3 - DevExpress   صور من البرنامج  1- اضافة طلاب وتعديل البيانات والبحث عنها و طباعة تقرير عنهم 2- اضافة دورات  وتعديل البيانات والبحث عن دورة و طباعة تقرير عن دورة  3- اضافة مدربين  وتعديل البيانات والبحث عنها و طباعة تقرير عنهم  4- اضافة شركات  وتعديل البيانات والبحث عن شركة و طباعة تقرير عن شركة  5- اضافة خريج  وتعديل البيانات والبحث عن خريج و طباعة تقرير عن خريج 6- اضافة مستخدمين وتعديل بياناتهم  7- تغير كلمة السر من قبل المستخدم  8- وتقارير عن كل مهمة في برنامج  9-  اخذ نسخة الاحتياطية    اسم المستخدم : 1 الرقم السري : 1 تحميل البرنامج من هنا  تحميل قاعده البيانات من هنا  تحميل برنامج المساعد نسخة كاملة  DevExpress  لابد من تثبت البرنامج  لكي لاتظهر مشاكل في الفورمات . الرابط اول  من هنا الرابط الثاني من هنا  تحميل تقرير عن مشروع تخرج من  هنا هذا العمل مجانا لوجه الله يمكن تعديل عليها وتطوير البرامج اخوكم مبرمج أوتار 

السلام عليكم    تفضل يالغالي Private Sub TextNO_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextNO.KeyPress 'كود ادخل ارقام فقط If Char.IsControl(e.KeyChar) = False Then If Char.IsDigit(e.KeyChar) Then Else e.Handled = True MsgBox(" يقبل قيمة رقمية فقط ", MsgBoxStyle.Information, "تنبيه") End If End If End Sub

تفضل يا اخي    مثال لتغير لغه البرنامج ...          test Languages.zip

تم حل المشكله بارك الله فيكم

السلام عليكم ورحمة الله وبركاته    اتمنى المساعده :-    لدي مشكله في اضافة البيانات الموجوده في كمبوبوكس مثل التخصصات مثال على ذلك :-    لدي فقط بيانات محدوده اريد اضافته فقط مثل تخصص علوم الحاسب  و الموارد البشرية و التأمين و التسويق    الفكره واضحه اتمنى تزويدي بكود المطلوووب ...    هذا المثال    http://m-aw.com/aa/W.rar   اتمنى منك المساهده يالغالي 

الحمد الله انحلت المشكله عبر مساعده اخوي ثامر في منتدي الفيجوال بيسك لكل العرب   طرح هنا للفائده فقط ...   الكود هو :-    Function DatagridDatasource() As DataTable Dim querytxt As String = "SELECT RECORD.IDSTU, RECORD.ID, STUDENT.NAMESTU, UIT.NAME FROM UIT INNER JOIN (STUDENT INNER JOIN RECORD ON STUDENT.IDSTU = RECORD.IDSTU) ON UIT.ID = RECORD.ID" If sqlconn.State = ConnectionState.Closed Then sqlconn.Open() End If Dim adapter As New SqlDataAdapter(querytxt, sqlconn) Dim dt As New DataTable adapter.Fill(dt) Return dt End Function  ثم قم باضافة datagridview الى مشروعك ثم قم باسناد الدالة هكذا DataGrid.DataSource = DatagridDatasource()         

بارك الله فيك    لكن لم يظهر اسم الطالب و اسم الدورة    اظهر فقط رقم الطالب و رقم الدورة    هذى صورة تبين ذلك      الكود :-  

هل من حل لم يتبقي على مشروع التخرج الي اسبوع

  السلام عليكم ورحمة الله وبركاته  كيف الحال يا اخواني  لدي مشكله في عرض البيانات في داتا قريد بعد عملية الحفظ   تفصيل  المشكله :-  اول العلاقة المستخدمة هي m to n  الصور تبين لكم ذلك  ...  الجداول الموجودها في القاعده :-     الجدول الاول Student هذا عبرها عن جدول الطلاب  الجدول الثاني uit هذا عبرها عن جدول الدورات   الجدول الثالث  Record هذا عبرها عن العلاقة بين جدول الطلاب والدورات مربوط برقم طالب و رقم الدورات .        المطلوب هو :- بعد عملية الحفظ يتم عرض البيانات في داتا قريد من الجدول Record  هو رقم طالب و رقم الدورة ومن جدول Student اسم طالب فقط ومن جدول uit اسم الدورة فقط  اتمني اني اوصلت الفكره لكم ...  هذا المشروع مرفق لكم عبر الرابط التالي :- http://m-aw.com/gp اتمنى تزويد بحل المشكله  مسار قاعده البيانات  Graduation Project\Graduation Project\bin\Debug

الله يعطيكم الف عافية ماقصرتو معي اعتذر عن عدم الرد    اشكرك يا اخ  evry1falls تم تجربة لم ينجح معي  kslawy اشكر يا اخ لكن وجهتني مشكله في مكتبه الاستدعاء Imports Oracle.DataAccess.Clientتم الحصول على هذا كود من احد دكاتره في احد الجامعات بعد التواصل معه بارك الله فيها ماقصر معي   Imports System.Data.OdbcPublic Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim oODBCConnection As OdbcConnection = New OdbcConnection() Dim mycommand As OdbcCommand = New OdbcCommand Dim myda As OdbcDataAdapter = New OdbcDataAdapter Dim myds As DataSet = New DataSet Dim sConnString As String = _ "Driver={Microsoft ODBC for Oracle};" & _ "Server=orcl;" & _ "Uid=system;" & _ "Pwd=manager" ' بيانات القاعدة اسم القاعده واسم وكلمة المرور oODBCConnection = New Odbc.OdbcConnection(sConnString) oODBCConnection.Open() ' VB.NET MsgBox("تم الاتصال بقاعده البيانات بنجاح") mycommand.CommandText = ("Select * from tab") ' يجب مراعاه تغير tab mycommand.Connection = oODBCConnection myda.SelectCommand = mycommand myda.Fill(myds, "tab") With DataGridView1 .DataSource = myds .DataMember = "tab" '.CaptionText = .DataMember End With Catch ex As Exception MsgBox(ex.Message & vbCrLf & "يوجد مشكله بقاعده البيانات") End Try End SubEnd Class  تم ارفاق المثل لكي يستفيد الاخرين    cconect or.rar   لكن لدي استفسار كيف اسحب قاعد البيانات اوراكل كيف اثبته على جهاز العميل  اتمنى احصل على الاجابه ...

السلام عليكم ورحمة الله وبركاته    اتمنى المساعده في كيفية ربط قاعدة بيانات اوراكل بالفيجوال استوديو 2010 ؟   لاني بحث في محرك البحث لم اجد غير طريقه واحد وهي في الفيجوال بيسك اصدار 6    لم تضبط مع الطريقة ...   ان شاء الله انكم ما تقصر معي ...