Dim loginerror As String 'This will

Dim loginerror As String 'This will tell the user what is going wrong with his/her
'Login.


Public Function Login() 'Name the Login section whatever you want, does not really
'Matter

Dim DBConn As New ADODB.Connection 'This is how we tell Visual Studio how to connect
'To our database

Dim User As New ADODB.Recordset 'We pass our arguments through our recordset.

Dim Username As String 'This will be our "Query"
Dim userDB As String 'This gets set to the Username field of our database
Dim passDB As String 'Same as above except for the Password field.

Dim UserFound As Boolean 'We will be using a Do Loop so we use this as our
'Condition.



'Lets open our connections

DBConn.Open("Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = '" & Application.StartupPath & "LoginDB.mdb'")
'The inverted comas in the data source statement are important as it keeps the
'location of your file as one string.

'This is our table /, / This is our connection,/ These are some settings, Have them as I have /
User.Open("UserTable", DBConn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)

UserFound = False
Login = False
Username = "Username = '" & txtUser.Text & "'" 'This statement tells the database to
'find the username field equivelant to what is entered in the textbox.

Do
User.Find(Username) 'This is the full statement that sends our "Query"
'To the recordset
If User.BOF = False And User.EOF = False Then
'BOF and EOF = Beggining of File
'And End of file, It tests whether the database has reached its sentinel
'Value, if it hasnt then the username has been found, if it has
'The username is invalid.

userDB = User.Fields("Username").Value.ToString
'"Username" is our table field. we are setting userDB to the Username
'Field of our table
'*Note* if writing TO the database do not use ToString simply use
'User.Fields("Username").Value = txtUser.Text

passDB = User.Fields("Password").Value.ToString

If userDB txtUser.Text Then
User.MoveNext()
'This IF STATEMENT handles different CASE usernames
'Example, admin and AdMiN
'We use this if statement to differentiate between different Case letters
Else
UserFound = True
If passDB = txtPass.Text Then
'DO NOT FORGET TO CLOSE YOUR CONNECTIONS

ผลลัพธ์ (ไทย) 1:

loginerror สลัวเป็นสตริง 'นี้จะบอกผู้ใช้สิ่งที่เป็นไปอย่างผิดปกติกับเขา / เธอ
' เข้าสู่ระบบ.

'ชื่อส่วนการเข้าสู่ระบบสิ่งที่คุณต้องการไม่ได้จริงๆ

เข้าสู่ระบบฟังก์ชั่น (มหาชน) เรื่อง

dbconn สลัวเป็น ADODB.Connection ใหม่นี้เป็นวิธีที่เราบอกสตูดิโอภาพวิธีการเชื่อมต่อ
'ไปยังฐานข้อมูลของเรา

ผู้ใช้สลัวเป็น' ใหม่ ADODB.RecordSet เราส่งผ่านอาร์กิวเมนต์ของเราผ่านระเบียนของเรา.

ชื่อผู้ใช้สลัวเป็นสตริง 'นี้จะเป็น "แบบสอบถาม" ของเรา
userdb สลัวเป็นสตริง' นี้ได้รับการกำหนดฟิลด์ชื่อผู้ใช้ฐานข้อมูลของเรา
passdb สลัวเป็นสตริง 'เช่นเดียวกับด้านบนยกเว้นสำหรับเขตข้อมูลรหัสผ่าน.

userfound สลัวเป็นบูลีน' เราจะใช้ทำห่วงเพื่อให้เราใช้สิ่งนี้เป็นของเรา
. สภาพ



'ช่วยให้เปิดการเชื่อมต่อของเรา

dbconn.open ("ผู้ให้บริการ = Microsoft.Jet.OLEDB.4.0;" & _
"แหล่งข้อมูล = '" && application.startuppath " logindb.mdb'")
Comas คว่ำในงบแหล่งข้อมูลที่มีความสำคัญที่จะช่วยให้
'ตำแหน่งที่ตั้งของแฟ้มของคุณเป็นหนึ่งในสตริง.

' นี้คือ ตารางของเรา / / นี้คือการเชื่อมต่อของเรา / เหล่านี้มีการตั้งค่าบางอย่างที่มีพวกเขาเป็นฉันได้ /
user.open ("usertable" dbconn, adodb.cursortypeenum.adopenstatic, adodb.locktypeenum.adlockoptimistic)

userfound = เท็จเข้าสู่ระบบ

= false ชื่อผู้ใช้ = "ชื่อผู้ใช้ = '" && txtuser.text "" "" คำพูดนี้บอกฐานข้อมูลเพื่อ
' หาเทียบเท่าสนามชื่อผู้ใช้กับสิ่งที่ถูกป้อนในช่อง.


ทำผู้ใช้ . หา (ชื่อผู้ใช้) นี้เป็นคำสั่งที่เต็มรูปแบบที่จะส่ง "แบบสอบถาม" ของเรา

ไประเบียนถ้า user.bof = เท็จและ use​​r.eof = false แล้ว
'ทั้งสองและ EOF = ​​beggining ของแฟ้ม
' และสิ้น ไฟล์,มันทดสอบว่าฐานข้อมูลได้ถึง 'ค่าถ้ามันไม่ได้แล้วชื่อผู้ที่ได้รับพบว่ามี
'
​​แมวมองของชื่อผู้ใช้ไม่ถูกต้อง.

= userdb user.fields ("ชื่อผู้ใช้") value.tostring.
"ชื่อผู้ใช้" เขตข้อมูลตารางของเราคือ เรามีการตั้งค่า userdb ไป
ชื่อผู้ใช้ 'ของตารางที่เรา
' * หมายเหตุ * ถ้าเขียนไปยังฐานข้อมูลที่ไม่ได้ใช้เพียงแค่ใช้ toString user.fields
("ชื่อผู้ใช้") มูลค่า. = txtuserข้อความ

= passdb user.fields ("รหัสผ่าน"). value.tostring

ถ้า userdb <> txtuser.text แล้ว
user.movenext ()
ถ้างบนี้จะจัดการกับชื่อผู้ใช้ที่แตกต่างกันกรณี
ตัวอย่างเช่นผู้ดูแลระบบและผู้ดูแลระบบ
'ที่เราใช้นี้ถ้างบถึงความแตกต่างระหว่างตัวอักษรกรณีที่แตกต่างกัน

อื่น userfound = true
ถ้า passdb = txtpass.text แล้ว
' ไม่ลืมที่จะปิดการเชื่อมต่อของคุณ

ผลลัพธ์ (ไทย) 2:

มิติ loginerror เป็นสายอักขระ ' นี้จะบอกผู้ใช้ว่าจะผิดเขา/เธอ
' เข้าสู่ระบบ


Login() ฟังก์ชันสาธารณะ ' ชื่อล็อกอินส่วนหากคุณต้องการ ไม่แนะ
' เรื่อง

มิติ DBConn เป็นใหม่ ADODBการเชื่อมต่อ ' เป็นอย่างไรเราบอก Visual Studio วิธีการเชื่อมต่อ
' ฐานข้อมูลของเรา

มิติผู้เป็นใหม่ ADODBชุดระเบียน ' เราผ่านอาร์กิวเมนต์ของระเบียนของเรากัน

หรี่ Username เป็นสตริ ' นี้จะ "ถาม" เรา
หรี่ userDB เป็นสตริ ' นี้จะตั้งค่าฟิลด์ชื่อผู้ใช้ของฐานข้อมูลของเรา
หรี่ passDB เป็นสายอักขระ ' เหมือนข้างต้นยกเว้นฟิลด์รหัสผ่าน

มิติ UserFound เป็น Boolean ' เราจะใช้วนทำให้เราใช้นี้เป็นของเรา
' เงื่อนไขการ


' ให้เปิดการเชื่อมต่อของเรา

DBConn.Open ("ผู้ให้บริการ = Microsoft.Jet.OLEDB.4.0; " &_
"แหล่งข้อมูล = ' " & Application.StartupPath & " LoginDB.mdb'")
' comas กลับในใบแจ้งยอดจากแหล่งข้อมูลสำคัญเท่านั้น
' ตำแหน่งที่ตั้งของแฟ้มของคุณเป็นหนึ่งสายอักขระ

' นี้เป็นตารางของเรา /, นี้เป็นการเชื่อมต่อของเรา, / ตั้งค่าบางอย่างเหล่านี้ ให้เป็นมี /
User.Open ("UserTable", DBConn, ADODBCursorTypeEnum.adOpenStatic, ADODBLockTypeEnum.adLockOptimistic)

UserFound = False
ล็อกอิน = False
Username = " Username = ' " & txtUser.Text & "'" ' นี้บอกต่อไป
' equivelant ฟิลด์ชื่อผู้ใช้กับสิ่งที่ป้อนลงในช่องค้นหา

ทำ
User.Find(Username) ' เป็นยอดทั้งหมดที่ส่ง "ถาม" เรา
' กับชุดระเบียน
User.BOF ถ้า = False และ User.EOF =เท็จแล้ว
' BOF และ EOF =เริ่มต้นแฟ้ม
' และจุดสิ้นสุดของ แฟ้ม ทดสอบว่าต่อแล้วองครักษ์ของ
' ค่า ถ้ามันไม่ได้ แล้วได้พบชื่อผู้ใช้ มี
' ชื่อผู้ใช้นั้นไม่ถูกต้อง

userDB = User.Fields("Username")Value.ToString
' "ชื่อ" เป็นฟิลด์ของตาราง เราตั้ง userDB การชื่อผู้ใช้
' ฟิลด์ของตารางของเรา
' * หมายเหตุ * ถ้าเขียนไปยังฐานข้อมูลใช้ ToString ก็ใช้
' User.Fields("Username")ค่า = txtUserข้อความ

passDB = User.Fields("Password")Value.ToString

ถ้า userDB <>txtUser.Text แล้ว
User.MoveNext()
' นี้ถ้างบจัดการชื่อผู้ใช้กรณีอื่น
' อย่าง ผู้ดูแลระบบ และผู้ดูแลระบบ
' เราใช้นี้ถ้างบเพื่อแยกความแตกต่างระหว่างอักษรต่าง ๆ กรณี
Else
UserFound = True
ถ้า passDB = txtPass.Text แล้ว
' ไม่ลืมเพื่อปิดการเชื่อม

ผลลัพธ์ (ไทย) 3:

loginerror มัวเป็นสตริง'นี้จะบอกให้ผู้ใช้สิ่งที่จะผิดกับการที่เขา/เธอ
ตามมาตรฐาน'ล็อกอิน.


สาธารณะหน้าล็อกอิน()"ชื่อล็อกอินส่วนไม่ว่าคุณต้องการ,ไม่ได้จริงๆ
ตามมาตรฐาน"เรื่องของ เรื่อง

dbconn มัวเป็นใหม่ ADODB .การเชื่อมต่อ"นี้มีวิธีที่เราบอก Visual Studio ได้อย่างไรในการเชื่อมต่อ
'กับเรามัว ฐานข้อมูล

ผู้ใช้ใหม่ ADODB . Recordset 'ของเราเราจะผ่านอาร์กิวเมนต์ผ่านของเรา Recordset .

หรี่ลงชื่อผู้ใช้เป็นสตริง"แห่งนี้จะเป็นของเรา"คำถาม"
userdb มัวเป็นสตริง"แห่งนี้จะได้รับในฟิลด์ชื่อผู้ใช้ของเรามัวฐานข้อมูล
ตามมาตรฐาน passdb เป็นสตริง"เหมือนกับด้านบนยกเว้นสำหรับฟิลด์รหัสผ่าน.

userfound มัวเป็น'เราจะใช้ที่ทำการต่อพ่วงดังนั้นเราจึงใช้นี้เป็นของเรา
' สภาพ .



'ช่วยให้เปิดให้บริการของเราการ เชื่อมต่อ

dbconn .เปิดให้บริการ(“ผู้ให้บริการ= MICROSOFT . Jet Clean System . oledb. 4.0 ;"&_
"ที่มาของข้อมูล=""&แอปพลิเคชัน. startuppath &" logindb .;'")
'ที่ติดตั้งแบบกลับด้าน comas ในที่ที่มาของข้อมูลใบแจ้งยอดบัญชีมีความสำคัญที่จะตอบแทน
'ที่ตั้งของของคุณไฟล์เป็นสตริง.

'แห่งนี้เป็นของเราตาราง/,/แห่งนี้เป็นของเราการเชื่อมต่อ,/เหล่านี้เป็นการตั้งค่าที่ได้เป็นผมมี/
ผู้ใช้.เปิดให้บริการ(" usertable ", dbconn , ADODB . cursortypeenum . adopenstatic , ADODB . locktypeenum . adlockoptimistic )

userfound =ผิดพลาด

ตามมาตรฐานล็อกอิน=ผิดพลาดชื่อผู้ใช้="ชื่อผู้ใช้=""& txtuser .ข้อความ&""แห่งนี้แถลงการณ์บอกให้ที่ฐานข้อมูลที่จะตอบแทน
'ค้นหาชื่อผู้ใช้ฟิลด์ที่ equivelant ในที่ใส่ในกล่องข้อความที่.


ตามมาตรฐานหรือไม่ผู้ใช้ค้นหา(ชื่อผู้ใช้)"ซึ่งเป็นแบบเต็มใบแจ้งยอดบัญชีที่จะส่งของเรา"คำถาม"
'ที่ Recordset
ตามมาตรฐานหากผู้ใช้. bof =ความผิดพลาดและผู้ใช้โพรเซส=ผิดพลาดแล้ว
ตามมาตรฐาน" bof และโพรเซส= beggining ของไฟล์
ตามมาตรฐาน"และสิ้นสุดของไฟล์,ไม่ว่าจะเป็นการทดสอบที่ฐานข้อมูลมีไปถึงมือยาม
'ค่า,หากขาวๆแล้วชื่อผู้ใช้มีการพบว่ามี
ตามมาตรฐาน"ที่ชื่อผู้ใช้ไม่ถูกต้อง.

userdb =ผู้ใช้ฟิลด์ต่างๆ("ชื่อผู้ใช้")..ค่า. tostring
ตามมาตรฐาน""ชื่อผู้ใช้"เป็นของเราตารางฟิลด์.เรามีการตั้งค่า userdb
ตามมาตรฐานที่ชื่อผู้ใช้'ฟิลด์ของโต๊ะ
'*หมายเหตุ*หากการเขียนข้อมูลลงในฐานข้อมูลไม่ใช้ tostring เลือกใช้
'ผู้ใช้ฟิลด์("ชื่อผู้ใช้")= txtuser .ข้อความ

passdb =ผู้ใช้ฟิลด์ต่างๆ("รหัสผ่าน").ค่า. tostring

หาก userdb <> txtuser .ข้อความแล้ว
ตามมาตรฐานผู้ใช้. movenext ()
'นี้หากงบจัดการแตกต่างกันกรณีชื่อผู้ใช้
'ตัวอย่างเช่น,และการดูแลระบบผู้ดูแลระบบ
ตามมาตรฐาน"เราใช้แบบนี้ถ้างบในการสร้างความแตกต่างให้กับระหว่างกรณีจดหมาย

ตามมาตรฐานอื่น userfound =จริง
ตามมาตรฐานหาก passdb = txtpass .ข้อความแล้ว
'ต้องไม่ลืมปิดการเชื่อมต่อของคุณ