|
 |
| |
อยากทราบโค๊ดการ Login นะคะ พร้อมตัวอย่างฐานได้ยิ่งดีนะคะ พอดีหนูต้องการโค๊ดมากๆๆคะ เพราะหนูไม่เคยเรียนนะคะ (ด่วน) |
| |
 |
|
|
 |
 |
|
If (UsernameTextBox.Text = "") Then
MessageBox.Show("กรุณาใส่ชื่อ username !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
UsernameTextBox.Focus()
Exit Sub
ElseIf (PasswordTextBox.Text = "") Then
MessageBox.Show("กรุณาใส่รหัส Password !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
PasswordTextBox.Focus()
Exit Sub
'ElseIf (Status.Text = "") Then
' MessageBox.Show("กรุณาเลือกสถานะ Status !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
' Status.Focus()
' Exit Sub
ElseIf (UsernameTextBox.Text.Length <= 4) Or (PasswordTextBox.Text.Length <= 4) Then
MessageBox.Show("กรุณาป้อน UserName และรหัส Password มากกว่า 4 ตัวอักษร !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
UsernameTextBox.Focus()
Exit Sub
End If
Dim OleDbUser As String = ""
OleDbUser = "SELECT UserName,Password FROM Login"
OleDbUser &= " WHERE (UserName='" & UsernameTextBox.Text & "')"
OleDbUser &= " AND (Password='" & PasswordTextBox.Text & "')"
'OleDbUser &= " AND (Status='" & Status.Text & "')"
If IsFind = True Then
ds.Tables("Login").Clear()
IsFind = False
End If
da = New OleDbDataAdapter(OleDbUser, Conn)
da.Fill(ds, "Login")
IsFind = True
If ds.Tables("Login").Rows.Count <> 0 Then
'If ds.Tables("Login").Rows(0)(2).ToString = "Admin" Then
' MessageBox.Show("ยินดีตอนรับผู้ดูแลโปรแกรม " & UsernameTextBox.Text & "")
MainForm.Show()
Me.Hide()
'ElseIf ds.Tables("Login").Rows(0)(2).ToString = "User" Then
' MessageBox.Show("ยินดีตอนรับคุณ " & UsernameTextBox.Text & "")
' tblCustomer.Show()
' Me.Hide()
'End If
Else
IsFind = False
MessageBox.Show("กรุณากรอกข้อมูลผู้ใช้ระบบให้ถูกต้อง !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
UsernameTextBox.Text = ""
PasswordTextBox.Text = ""
'Status.Text = ""
UsernameTextBox.Focus()
End If
เป็น VB 2008 นะ ใช้ได้กะ 2005 หรือ 2010
ลองแก้ดูครับ
|
 |
 |
 |
 |
| Date :
2010-11-15 15:52:22 |
By :
stepxforce |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
|
|
| |
|
 Load balance : Server 05
|
