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

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

المطلب الثاني
لدي تكست بوكس يكتب فيه المستخدم السجل المدني , المطلوب هو بعد الضغط على مفتاح انتر تتم عملية التحقق من السجل المدني هل هو موجود ام لا اذا كان موجود تظهر رساله بان هذا السجل موجود واذا لم يكن كذلك يستمر انتقاله الى التكست بوكس التالي


ودمتم
الرد }}}}
تم الشكر بواسطة:
#2
جرب حدث Lost focus
واي اشكال خبر به وباذن الله محلولة
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#3
هل تقصد انقل الكود الى حدث lost focus
الرد }}}}
تم الشكر بواسطة:
#4
لا طبعا لا اقصد هذا لان حسب علمي انك وجدت كود طويل يحول زر انتر الى زر تاب.
اللي اريده منك الان تسوي مثال بسيط وتكتب كود تحقق ابسط.
لازم مثال جديد مستقل ولو اعجبتك الطريقة تطبقها على مثالك وان لم تعجبك انساها.
ملاحظة!Smile
ترى اللي تريده طبقتها عدة مرات وماشية معي تمام


اول مربع نص اسمه tn والباقي على التوالي:
Textbox1
Textbox2

استخدمت حدثين :
1-LostFocus
2-KeyDown

وسواء نقرت بزر الادخال Enter ام نقرت زر Tab

وهذا هو الكلاس
كود :
Public Class Form1

    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.m = Me.Location
        My.Settings.Save()
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Location = My.Settings.m
        tn.Focus()
    End Sub

    Private Sub tn_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles tn.KeyDown
        If e.KeyData = Keys.Enter Then
            If sender.text = "" Then
                sender.focus()
            Else
                TextBox1.Focus()
            End If

        End If

    End Sub

    Private Sub tn_LostFocus(sender As Object, e As System.EventArgs) Handles tn.LostFocus
        If sender.text = "" Then
            sender.focus()
        End If
    End Sub

    

    Private Sub TextBox1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyData = Keys.Enter Then
            If tn.Text.Trim.Replace(" ", "") = "" Then Exit Sub 'Or TextBox1.Text.Trim.Replace(" ", "") = "" Then Exit Sub
            If sender.text = "" Then
                sender.focus()
            Else
                TextBox2.Focus()
            End If

        End If


    End Sub

    Private Sub TextBox1_LostFocus(sender As Object, e As System.EventArgs) Handles TextBox1.LostFocus
        If tn.Text.Trim.Replace(" ", "") = "" Then Exit Sub
        If sender.text = "" Then
            sender.focus()
        End If

    End Sub

  

    Private Sub TextBox2_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown
        If e.KeyData = Keys.Enter Then
            If tn.Text.Trim.Replace(" ", "") = "" Or TextBox1.Text.Trim.Replace(" ", "") = "" Then Exit Sub
            If sender.text = "" Then
                sender.focus()
            End If

        End If


    End Sub

    Private Sub TextBox2_LostFocus(sender As Object, e As System.EventArgs) Handles TextBox2.LostFocus
        If tn.Text.Trim.Replace(" ", "") = "" Or TextBox1.Text.Trim.Replace(" ", "") = "" Then Exit Sub
        If sender.text = "" Then
            sender.focus()
        End If

    End Sub

  
End Class
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#5
والمشروع مرفق vb 2010
لا اظنه يعمل لديك لانك ذكرت ان اصدارك اكسبرس
لكن الكلاس هذا هو مكتوب فوق المشاركة هذي


الملفات المرفقة
.zip   Just_My_Example.zip (الحجم : 32.12 ك ب / التحميلات : 37)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#6
الكود اللي عندي اللي يخص التاب هو عمله يحول الانتر الى تاب علشان كذا استغنيت عنه واعتمدت على مفتاح الانتر لو استخدم الكود الأول رح يتلغي مفتاح الانتر ويصير عمله مثل عمل مفتاح التاب

المشكله في مفتاح انتر انه يطلع صوت ولكن ضروري لها حل

اللي ابيه الان هو التحقق من البيانات وعدم ترك مربع النص سواء بالانتر او التاب او الماوس اذا كان مربع النص لم يتحقق فيه الشرط وهو انه ارقام فقط ولا يترك فارغ

تحياتي لك
الرد }}}}
تم الشكر بواسطة:
#7
فين المشكلة لو تستخدم حدث فقدان التركيز؟؟؟؟
اضفها للي عندك وجرب
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#8
كيف

مالقيت حدث اسمه lost focus
الرد }}}}
تم الشكر بواسطة:
#9
السلام عليكم
بالنسبة للقسم الثاني من السؤال
في الحدث KeyDown
اكتب هذا الكود
كود :
Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            TextBox2.Focus()
        End If

    End Sub

وفي الحدث Validated

اكتب هذا الكود
كود :
Private Sub TextBox1_Validated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Validated

هذا الكود غرضه التأكد من السجل المدني موجود اوغير موجود

        Dim con As New SqlConnection
        Dim cmd As New SqlCommand
        con.Close()
        con.ConnectionString = "Server=your server;Database=your database;Integrated Security=true"
        cmd.Connection = con
        con.Open()
        cmd.Parameters.Clear()
        cmd.CommandText = "Select * from your table where Number=@un"
        cmd.Parameters.Add("@un", SqlDbType.NVarChar, 50).Value = TextBox1.Text
        Dim dr As SqlDataReader = cmd.ExecuteReader()
        If dr.HasRows = True Then
            MessageBox.Show("هذا السجل موجود", "تحذير", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            TextBox1.Focus()
            TextBox1.SelectionStart = 0
            con.Close()

        End If


    End Sub
الرد }}}}
تم الشكر بواسطة:
#10
السلام عليكم

الكود معمول للـ SQL انا عدلت عليه بس يوقف عند الداتا ريدر وبالتحديد عند السطر التالي :
PHP كود :
Dim dr As OleDbDataReader cmd.ExecuteReader() 

ارجو اصلاح المشكله
وهذا الكود بالكامل :

PHP كود :
Private Sub txtCRN_Validated(sender As ObjectAs EventArgsHandles txtCRN.Validated

        Dim cmd 
As New OleDbCommand
        ApoSYSconn
.Close()
        
ApoSYSconn.ConnectionString "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=.\ApoSYS.ACCDB"
        
cmd.Connection ApoSYSconn
        ApoSYSconn
.Open()
        
cmd.CommandText "Select * from tblCustomers where CivilRegNum=txtCRN"

        
Dim dr As OleDbDataReader cmd.ExecuteReader()
        If 
dr.HasRows True Then
            MessageBox
.Show("هذا السجل موجود""تحذير"MessageBoxButtons.OKMessageBoxIcon.Warning)
            
txtCRN.Focus()
            
txtCRN.SelectionStart 0
            ApoSYSconn
.Close()

        
End If

    
End Sub 

تحياتي لكم
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] التجميع و الفرز قواعد البيانات tifagreet 4 60 أمس, 04:21 AM
آخر رد: tifagreet
  استفسار عن الجداول المتعددة في قاعدة البيانات اكسس أبووسم 4 120 14-01-17, 12:36 PM
آخر رد: أبووسم
  ياشباب ارجو منكم المساعده لدي مشاكل في اضافه الصورة الى قاعده البيانات وعمل بحث ammar ali 3 167 13-01-17, 11:15 PM
آخر رد: ammaraliali
  [VB.NET] استقبال البيانات عن طريق serail port engmedomed@gmail.com 1 65 11-01-17, 02:13 AM
آخر رد: مساعدة
  تصدير البيانات الى PDF باستخدام ITextSharp لايدعم اللغة العربية فاطمة غ 8 343 04-01-17, 12:00 AM
آخر رد: مساعدة
  تغيير قاعدة البيانات الى .bak صبري زينوبي 5 133 01-01-17, 02:33 PM
آخر رد: صبري زينوبي
  ماهو كود اضافة صفوف الداتا قرد الي قاعدة البيانات SQL SERVER معتز الجازوي 0 70 26-12-16, 05:13 AM
آخر رد: معتز الجازوي
  مساعده اريد كود لحذف عدد من الصفوف من الداتا قرد فيو وكذلك تنحذف من قاعدة البيانات معتز الجازوي 2 107 25-12-16, 01:44 PM
آخر رد: thevirus
  [VB.NET] اريد إضافة صورة للموظف في جدول أخر بنفس قاعدة البيانات أبووسم 11 567 18-12-16, 07:15 PM
آخر رد: أبووسم
  ما هو كود حفظ البيانات من الداتا جريد فيو إلى قاعدة البيانات kofa 4 270 18-12-16, 05:00 AM
آخر رد: zinom

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


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