سورس کد فرم لاگین به زبان VB.net + دانلود

سورس کد فرم لاگین به زبان VB.net + دانلود

با سورس کد دیگه VB.NET در خدمتتون هستیم ،
سورس امروز خیلی کاربردی میتونه باشه برای کسایی که میخوان برای برنامشون
فرم لاگینی درست کنن که به بانک متصل باشه.
ممکن است بخواهید برنامه ای بنویسید که توسط افرادی که دارای نام کاربری و کلمه عبور هستند استفاده کنید.
در این آموزش با نحوه نوشتن همچین برنامه ای به صورت پایه ای آشنا خواهید شد.
در این آموزش سعی شده که به نحو کاملا ساده یک جدول از کاربران در سمت دیتابیس ساخته شود و آن را به
برنامه سی شارپ در ویژوال استودیو متصل کرده و کاربر با وارد کردن نام کاربری و کلمه عبور خود بتواند از برنامه استفاده کند.

گام اول:

در ابتدا لازم است که یک جدول همانند جدول زیر در دیتابیس خود ایجاد کنید.
در این مقاله فرض بر این است که با مفاهیم جدول و پایگاه داده در حد ابتدایی آشنایی دارید.

نام پایگاه داده: LoginDB

نام جدول: Tbl_User

فیلد های جدول:

مقادیر اضافه شده به جدول:

گام دوم:

وارد محیط ویژوال شوید در ابتدا لازم است تا ارتباط ما با sql باز شود.

برای این منظور از پنجره Server Explorer روی Data Connection کلیک راست کنید

و add connection را بزنید:

سپس در پنجره باز شده در قسمت اول از یک (نقطه) برای نمایش تمامی پایگاه داده ها استفاده کنید.

و در قسمت دوم پایگاه داده مورد نظر را انتخاب کنید:

گام سوم:

حال باید در vb.net یک فرم طراحی کنید که از کاربر نام کاربری و کلمه عبور را دریافت نماید.
در این فرم از دو تکست باکس و دو دکمه استفاده کردیم.
کدهای ما در قسمت  رویداد دکمه ها قرار میگیرد.
قرار است با زدن دکمه ورود در صورت درست بودن نامه کاربری و کلمه عبور برنامه پیام ورود موفقیت آمیز را نمایش دهد
و در غیر این صورت پیام نام کاربری یا کلمه عبور اشتباه است را نشان دهد.

قبل از همه برای آسانی کار که بعدا برای فرم های دیگر هم کابرد دارد

یک سری کدجهت برقراری ارتباط با پایگاه داده و اجرای دستورات در کل برنامه یکسان است برای اینکه هربار به صورت دستی و مکرر تکرار نکنیم تا هم نا منظم نباشد وهم شلوغ یک ماژول تعریف میکنیم  به این صورت:

در قسمت Solution Explorer بر روی نام سند یا همان پروزه تان کلیک راست کنید Add و New Item کلیک کنید

و یا کنترل های ctrl+shift+A ب هم فشار دهید تا صفحه جدیدی باز شود

در صفحه باز شده شما باید ماژول (Module) کلیک کنید و در قسمت پایین یک نام مربوطه برایش انتخاب کنید

و بروی کلید Add را کلیک کنید .

حال بر روی آیتم Module خود ۲ بار کلیک کنید تا کد نویسی این قسمت را بنویسید

کدهای زیر مربوط به این قسمت است

Imports System.Data.SqlClient
Imports System.Data
Module Module_database
    Public sql_connct As New SqlConnection 'جهت برقراری ارتباط با پایگاه داده
    Public data_adapter As New SqlDataAdapter 'جهت اجرای دستورات استفاده می شود
    Public data_set As New DataSet 'یک ظرف کمکی که در اکثر مواقع جهت خواندن اطلاعات از آن استفاده می شود
    Public command As New SqlCommand 'جهت قرار دادن دستورات اصلی sql 
    Public data_table As New DataTable
    Public str_command As String
    Public type_report As String
      Public full_name As String
End Module

دوباره فرم login خود را باز کنید

به قسمت

بر روی دکمه “ورود” دوبار کلیک کرده و وارد رویداد مربوط به آن میشویم.

کد زیر را واردنمایید:

Try
            data_set.Tables.Clear()
            data_set.Clear()
            data_table.Clear()
            sql_connct.ConnectionString = "Data Source=.;Initial Catalog=LoginDB;Integrated Security=True"
            sql_connct.Open()
            If sql_connct.State = ConnectionState.Open Then
                'جستجو کردن اطلاعات در پایگاه داده               

                command.Connection = sql_connct
                command.CommandText = "SELECT        UserName ,Password" _
                & " FROM tbL_user " _
                & " WHERE        (UserName = N'" & txt_user.Text.Trim() & "') AND (Password = N'" & txt_pass.Text.Trim() & "') "
                data_adapter.SelectCommand = command
                data_adapter.Fill(data_set, "result")
                data_table = data_set.Tables("result")
                If data_set.Tables("result").Rows.Count = 1 Then
                    full_name = data_table.Rows(0).Item("UserName") & " " & data_table.Rows(0).Item("Password")
                    MessageBox.Show("ورود با موفقیت انجام شد")
                Else
                    MessageBox.Show("شناسه کاربری و کلمه عبور اشتباه است")
                    txt_user.Clear()
                    txt_pass.Clear()
                    txt_user.Focus()
                End If
                sql_connct.Close()
            Else
                MessageBox.Show("ارتباط برقرار نشد")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

بر روی دکمه “انصراف” دوبار کلیک کرده و وارد رویداد مربوط به آن میشویم.

Close()

نکته:‌ هنگامی که سورس کد ها را کپی کردید ممکن است ویژوال ( ” و ‘ )ها را تشخیص ندهد

بنابرین باید انها را اصلاح کنید.

می توانید از همین جا کدهای کامل برنامه را دانلود کنید و از آن استفاده کنید.

رمز فایل: www.zarrinhoor.com

امیدوارم این آموزش براتون مفید باشه.

نظرات و پیشنهادات خود را با ما در میان بگذارید.