هذا الكود خاص بالواجهة التالية
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Dim ObjetConnection As SqlConnection
' Déclaration Objet Commande
Dim ObjetCommand As SqlCommand
' Déclaration Objet DataAdapter
Dim ObjetDataAdapter As SqlDataAdapter
' Déclaration Objet DataSet
Dim ObjetDataSet 'Attention au New
'String contenant la 'Requête SQL'
Dim strSql As String
' Déclaration Objet DataTable
Public ObjetDataTable As DataTable
' Déclaration Objet DataRow (ligne)
Dim ObjetDataRow As DataRow
'Numéro de la ligne en cours
Public RowNumber As Integer
'Numéro de l'enregistrement courant
'Paramêtres de connexion à la DB
Dim strConn As String
Sub connection()
ObjetDataSet = New DataSet
'Initialisation de la chaîne de paramètres pour la connexion
strConn = "Data Source=192.168.1.4;Initial Catalog=cabinet;uid=sa;pwd=sa;"
' strConn_sql = "Data Source=" + My.Computer.Name + ";Initial Catalog=cabinet;uid=sa;pwd=sa;"
'Initialisation de la chaîne contenant l'instruction SQL
strSql = "SELECT * FROM c_user "
'Instanciation d'un Objet Connexion
ObjetConnection = New SqlConnection()
'Donner à la propriété ConnectionString les paramètres de connexion
ObjetConnection.ConnectionString = strConn
'Ouvrir la connexion
Try
ObjetConnection.Open()
Catch ex As SqlException
MsgBox(ex.Message)
End Try
'Instancier un objet Commande
ObjetCommand = New SqlCommand(strSql)
'Instancier un objet Adapter
ObjetDataAdapter = New SqlDataAdapter(ObjetCommand)
'initialiser l'objet Command
ObjetCommand.Connection() = ObjetConnection
'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
'ObjetDataAdapter.Fill(ObjetDataSet2, "ts2")
ObjetDataAdapter.Fill(ObjetDataSet, "c_user")
ObjetDataTable = ObjetDataSet.Tables("c_user")
'---------------------------------------------------
'---------------------------------------------------
End Sub
Sub clear()
ObjetConnection = Nothing
ObjetCommand = Nothing
ObjetDataAdapter = Nothing
'Objet déconnectée
ObjetDataSet = Nothing
ObjetDataTable = Nothing
ObjetDataRow = Nothing
End Sub
Private Sub txtPassword_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPassword.KeyPress
If e.KeyChar = vbCr Then
Login_Click(sender, e)
End If
End Sub
Private Sub Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login.Click
Dim i As Integer
connection()
For i = 0 To ObjetDataTable.Rows.Count - 1
If ComboBox1.Text = ObjetDataTable.Rows(i).Item("pseudo").ToString And txtPassword.Text = ObjetDataTable.Rows(i).Item("password").ToString Then
If ComboBox1.Text <> "medecin" Then
Form2.GestionDesToolStripMenuItem.Enabled = False
End If
Timer1.Start()
Exit Sub
End If
Next
If i > ObjetDataTable.Rows.Count - 1 Then
MsgBox("le mot de passe ou le nom d'utilisateur incorrect", MsgBoxStyle.Information)
End If
clear()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(20)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Stop()
Form2.Show()
Me.Hide()
clear()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("Do you want to exit?", MessageBoxButtons.YesNo)
Me.Hide()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
connection()
For i = 0 To ObjetDataTable.Rows.Count - 1
ComboBox1.Items.Add(ObjetDataTable.Rows(i).Item("p seudo").ToString)
Next
clear()
End Sub
Private Sub txtPassword_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPassword.TextChanged
End Sub
End Class
************************************************** ************************************************** ****
الشرح
هذا الكود خاص بالتعريف بالقيم المستعملة اي declaration des variables
هاهو الكود
************************************************** **************
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Dim ObjetConnection As SqlConnection
' Déclaration Objet Commande
Dim ObjetCommand As SqlCommand
' Déclaration Objet DataAdapter
Dim ObjetDataAdapter As SqlDataAdapter
' Déclaration Objet DataSet
Dim ObjetDataSet 'Attention au New
'String contenant la 'Requête SQL'
Dim strSql As String
' Déclaration Objet DataTable
Public ObjetDataTable As DataTable
' Déclaration Objet DataRow (ligne)
Dim ObjetDataRow As DataRow
'Numéro de la ligne en cours
Public RowNumber As Integer
'Numéro de l'enregistrement courant
'Paramêtres de connexion à la DB
Dim strConn As String
///////////////////////////////////////////
اما الكود التالي فهو خاص بالتعريف ب fonction de conexion
و هو الكونيكسيو بين قاعدة البيانات و ال vb
و هذه الفونكسيو لازم نديروها و هي الاساس
هاهو الكود :
************************
Sub connection()
ObjetDataSet = New DataSet
'Initialisation de la chaîne de paramètres pour la connexion
strConn = "Data Source=192.168.1.4;Initial Catalog=cabinet;uid=sa;pwd=sa;"
' strConn_sql = "Data Source=" + My.Computer.Name + ";Initial Catalog=cabinet;uid=sa;pwd=sa;"
'Initialisation de la chaîne contenant l'instruction SQL
strSql = "SELECT * FROM c_user "
'Instanciation d'un Objet Connexion
ObjetConnection = New SqlConnection()
'Donner à la propriété ConnectionString les paramètres de connexion
ObjetConnection.ConnectionString = strConn
'Ouvrir la connexion
Try
ObjetConnection.Open()
Catch ex As SqlException
MsgBox(ex.Message)
End Try
'Instancier un objet Commande
ObjetCommand = New SqlCommand(strSql)
'Instancier un objet Adapter
ObjetDataAdapter = New SqlDataAdapter(ObjetCommand)
'initialiser l'objet Command
ObjetCommand.Connection() = ObjetConnection
'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
'ObjetDataAdapter.Fill(ObjetDataSet2, "ts2")
ObjetDataAdapter.Fill(ObjetDataSet, "c_user")
ObjetDataTable = ObjetDataSet.Tables("c_user")
'---------------------------------------------------
'---------------------------------------------------
End Sub
///////////////////////////
و هذا الكود التالي هو تعريف لفونكسيو clear
و اللي نحتاجوها تاني و المهمة تاعها هي التجديد
******
Sub clear()
ObjetConnection = Nothing
ObjetCommand = Nothing
ObjetDataAdapter = Nothing
'Objet déconnectée
ObjetDataSet = Nothing
ObjetDataTable = Nothing
ObjetDataRow = Nothing
End Sub
***//////////////
هذا الكود التالي هو كي تكليكي على entrer
ما تبقاش الباجة تاع الدخول ...كيما تحب تحب تحطها تحب لالا
********
Private Sub txtPassword_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPassword.KeyPress
If e.KeyChar = vbCr Then
Login_Click(sender, e)
End If
End Sub
*************
اما بقية الشرح ساقوم به في المرة القادمة
اي مساعدة انا هنا
ملاحظة
ان العمل ب vb جيد و كذلك غير متعب من حيث الرسم فقط الكود لازم تكون عندك معلومات و تكون فاهمتو ....
اللي يعجبني فيه هو عدم التقيد بالماجيسكيل او وضع الفاصلة كما في الجافا ....كما انه كلما كتبت حرف تجيك قائمة فيها اقتراحات بلاما تزيد تكتب الكلمة او الجملة كامل
ممتع جدا اذا تمرنت عليه
بالمناسبة انا تعلمته في 10 ايام طبعا دراسة دون توقف
( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
2014-06-03, 14:46
العرض المتطور
