04-04-18, 09:16 PM
السلام عليكم اخواتي عندي منظومة يوجد بها الرقم الوظيفي واسم الموظف بنسال ع طريقة بمجرد ادخال الرقم الوظيقي يظهر اسمه الموظف تلقائيا في الكومبو يااريت تساعدوني ضرو ري وشكرا مقدما
04-04-18, 09:16 PM
05-04-18, 06:32 PM
وعليكم السلام
أرجوا إرفاق مثال للمشروع ليتم التطبيق عليه
أرجوا إرفاق مثال للمشروع ليتم التطبيق عليه
05-04-18, 11:54 PM
(04-04-18, 09:16 PM)mawadaalmogrbi كتب : [ -> ]السلام عليكم اخواتي عندي منظومة يوجد بها الرقم الوظيفي واسم الموظف بنسال ع طريقة بمجرد ادخال الرقم الوظيقي يظهر اسمه الموظف تلقائيا في الكومبو يااريت تساعدوني ضرو ري وشكرا مقدما
السلام عليكم و رحمة الله و بركاته
ماذا تقصد أخي الكريم بالإدخال .. هل تقصد به الحفظ ..؟؟
تحياتي
09-04-18, 11:05 PM
وعليكم السلام ورحمة الله وبركاته
اولا :قم بعمل sub مثلا باسم EmpName_Load
وحدد اسم الفيلد الذي يحتوي علي رقم الموظف وليكن EmpID
كما يلي
ثانيا : في حدث ال TextChanged للتكست بوكس الذي تريد ان تضع فيه رقم الموظف تقوم باستدعاء ال Sub
وتكتب الكود التالي
اولا :قم بعمل sub مثلا باسم EmpName_Load
وحدد اسم الفيلد الذي يحتوي علي رقم الموظف وليكن EmpID
كما يلي
كود :
Public Sub EmpName_Load(ByVal EmpID As String)
Dim dtEmpName As New DataTable
dtEmpName.Clear()
Dim cmd As New OleDbCommand("select [EmpName] from EmpName_Table where EmpID=@EmpID", connAccess2007)
cmd.Parameters.Add("EmpID", OleDbType.Integer).Value = EmpID
connAccess2007.Open()
dtEmpName.Load(cmd.ExecuteReader)
connAccess2007.Close()
cmd = Nothing
End Subثانيا : في حدث ال TextChanged للتكست بوكس الذي تريد ان تضع فيه رقم الموظف تقوم باستدعاء ال Sub
وتكتب الكود التالي
كود :
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
EmpName_Load(TextBox1.Text)
comboBox1.Text = dtEmpName.Rows(0).Item(0)
End Sub