اريد شرح مبسط - نسخة قابلة للطباعة

PHP كود :
   Private Sub BtnaLogen_Click(sender As Object, e As EventArgs) Handles BtnaLogen.Click
        If txtUserName.Text = "" Then
            MessageBox.Show("من فضلك ادخل اليوزر نيم", "تاكيد", MessageBoxButtons.OK, MessageBoxIcon.[Error])
            txtUserName.Focus()
            Return
        End If
        If txtPassword.Text = "" Then
            MessageBox.Show("من فضلك ادخل الباسوورد", "تاكيد", MessageBoxButtons.OK, MessageBoxIcon.[Error])
            txtPassword.Focus()
            Return
        End If
        myconn.tbl.Clear()
        If rbtnManager.Checked = True Then
            myconn.tbl = myconn.readData("select * from Users where User_Name='" + txtUserName.Text + "' and User_Password='" + txtPassword.Text + "' and Type='مدير'", "")
        ElseIf rbtnEmp.Checked = True Then
            myconn.tbl = myconn.readData("select * from Users where User_Name='" + txtUserName.Text + "' and User_Password='" + txtPassword.Text + "' and Type='مستخدم عادى'", "")
        End If
        myconn.tbl = myconn.readData("Select * from Users", "")
        If myconn.tbl.Rows.Count <= 0 Then
            myconn.exceuteData("insert into Users values (1,'admin','admin','مدير')", "")               '"?????????????????//??????????????????????????
            myconn.exceuteData("insert into Users_Edit Values (1 , 1,1,1,1,1)", "")                     '"?????????????????//??????????????????????????
            myconn.exceuteData("insert into Users_seting Values (1 , 1,1,1,1)", "")                      '"?????????????????//??????????????????????????
            myconn.exceuteData("insert into Usres_Add Values (1 , 1,1,1,1)", "")                        '"?????????????????//??????????????????????????
            myconn.exceuteData("insert into Usres_Prent Values (1 , 1,1,1,1,1,1)", "")                     '"?????????????????//??????????????????????????
            myconn.exceuteData("insert into Usres_Restor Values (1 , 1,1)", "")                            '"?????????????????//??????????????????????????
            myconn.exceuteData("insert into Usres_Sresh Values (1 , 1,1,1,1,1)", "")                         '"?????????????????//??????????????????????????
            myconn.tbl.Clear()
        End If
        If rbtnManager.Checked = True Then
            myconn.tbl = myconn.readData("select * from Users where User_Name='" + txtUserName.Text + "' and User_Password='" + txtPassword.Text + "' and Type='مدير'", "")
        ElseIf rbtnEmp.Checked = True Then
            myconn.tbl = myconn.readData("select * from Users where User_Name='" + txtUserName.Text + "' and User_Password='" + txtPassword.Text + "' and Type='مستخدم عادى'", "")
        End If
        If myconn.tbl.Rows.Count >= 1 Then
            My.Settings.USERNAME = txtUserName.Text
            My.Settings.Save()
            FrmMain.Show()
            Close()
        Else
            MessageBox.Show("كلمة السر او اسم المستخدم  خطا", "تاكيد", MessageBoxButtons.OK, MessageBoxIcon.[Error])
            Return
        End If

    End Sub