سورس کد فرم لاگین به زبان 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
امیدوارم این آموزش براتون مفید باشه.
نظرات و پیشنهادات خود را با ما در میان بگذارید.
سلام دانلودش کردم ممنون فقط ببخشید این مطلب قسمت های بعد هم داره؟
سلام ممنون میشم بخش های دیگه رو هم بگذارید مثلا فرم ثبت کابران در vb.net برای ورود که دیگه در sql خودمون دستی رمز عبور و نام کاربری و نزنیم