[dametucorazon]

السلام عليكم ورحمه الله وبركاته
حياكم الله عزوجل
الفكره التي لدي هي كالتالي
لدي عدد 5 موظفين وعند تسجيل الدخول للبرنامج هناك سؤال ومتاح ان تجيب فقط  ب 10 او 20  
وبالفعل استطيع ان اعرف من قام بالاجابه علي السؤال 10 او 20
 فلنفترض انه قام بالرد فقط عدد 2 موظفين تبقي لدى 3 لم يقوموا بالرد
ما اريده هو كيف اعرف من لم يقم بالاجابه علي السؤال ولم يتفاعل اصلا؟
 من خلال البرمجة فانا افعلها بالنظر انظر من قام بالرد واعرف من لم يرد فهل هناك طريقه اعرف بها ذلك برمجيا


وشكرا

[سعود]

فورم الدخول

PHP كود :

Using con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
            Using cm As New OleDb.OleDbCommand("", con)
                cm.CommandText = "update tb set n=@n where tn=@tn"
                cm.Parameters.AddWithValue("@n,", Val(ComboBox1.Text))
                cm.Parameters.AddWithValue("@tn,", TextBox1.Text)
                If con.State = ConnectionState.Closed Then con.Open()
                cm.ExecuteNonQuery()
                If con.State = ConnectionState.Open Then con.Close()
            End Using
        End Using
        Me.Hide()
        Form2.Show() 


الفورم الرئيسي

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dt As DataTable
        Using con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
            Using da As New OleDb.OleDbDataAdapter("select tn,n from tb", con)
                dt = New DataTable
                da.Fill(dt)
                Me.DataGridView1.DataSource = dt
            End Using
        End Using
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim dt As DataTable
        Using con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
            Using da As New OleDb.OleDbDataAdapter("select tn,n from tb where n=10", con)
                dt = New DataTable
                da.Fill(dt)
                Me.DataGridView1.DataSource = dt
            End Using
        End Using
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim dt As DataTable
        Using con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
            Using da As New OleDb.OleDbDataAdapter("select tn,n from tb where n=20", con)
                dt = New DataTable
                da.Fill(dt)
                Me.DataGridView1.DataSource = dt
            End Using
        End Using
    End Sub 


[dametucorazon]

جزاك الله خيا اخي الفاضل سعود علي ماتقدم من مساعدات  ربنا يتقبل منك ويبارك في علمك
ويشرح صدرك ويزيدك علم ويسلل سخيمه قلبك ويبارك في رزقك وعلمك ويغفرلك الذلات أمين أمين أمين
فكرة رائعة ماشاء الله