 |
| |
หาคำตอบ code login ใช้ vb เขียนค่ะ ขอบคุณผู้รู้ที่ตอบมานะค่ะ code login ทางหนู๋ได้ใช้ vb ไม่รู้จะเริ่มเขียนจากตรงไหนไงตอนนี้มีผู้รู้ตอบมาแบบนี้ |
| |
 |
|
|
 |
 |
|
ถ้างั้น ก็ คล้ายๆ กัน ครับ แต่ ผม ไม่รู้ อิอิ ภาษา asp มันเป็น แค่ VBscript เท่านั้น
แยกย่อยมาจาก Visual Basic อีกที่นึง แต่ ถามว่าคล้ายกันมั้ย คล้ายกัน แต่ ใช้ด้วยกันไม่ได้ ToT
โทษที ครับ ผม นึกว่า asp
|
 |
 |
 |
 |
| Date :
14 ม.ค. 2550 19:27:47 |
By :
แควน |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
Private Sub CmdLogin_Click()
Dim sqlUser As String
Dim strCheckStatus As String
Dim CheckPW As String
TxtUN.SetFocus
If TxtUN.Text = "" Then
MsgBox "กรุณาระบุชื่อผู้ใช้งานครับ", vbOKOnly, "กรอกข้อมูลไม่ครบ"
TxtUN.Text = ""
TxtUN.SetFocus
Exit Sub
End If
If TxtPW.Text = "" Then
MsgBox "กรุณาระบุรหัสผ่านของท่านด้วยครับ", vbOKOnly, "กรอกข้อมูลไม่ครบ"
TxtPW.Text = ""
TxtPW.SetFocus
Exit Sub
End If
If Len(TxtPW.Text) < 5 Then
MsgBox "รหัสผ่านไม่ถูกต้องกรุณากรอกใหม่ด้วยค่ะ", vbOKOnly, "กรอกข้อมูลไม่ครบ"
TxtPW.Text = ""
TxtPW.SetFocus
Exit Sub
End If
'เตรียม SQL Statement
sqlUser = "SELECT * FROM Employees "
sqlUser = sqlUser & " WHERE Username= '" & Trim(TxtUN.Text) & "'"
sqlUser = sqlUser & " AND Password ='" & Trim(TxtPW.Text) & "'"
DBOpenConnection
With RS
If .State = adStateOpen Then .Close
.ActiveConnection = conn
.CursorType = adOpenForwardOnly
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Open sqlUser
If .RecordCount <> 0 Then 'ถ้ามีข้อมูลในตาราง
gUserID = RS!EmployeeID
gUserName = RS!EmployeeName
strCheckStatus = "Y"
Else
MsgBox "เสียใจด้วยคุณไม่มีสิทธิ์เข้าใช้ระบบค่ะ", vbOKOnly + vbExclamation, "ยืนยันการตรวจสอบข้อมูล"
strCheckStatus = "N"
End If
End With
DBCloseConnection
If strCheckStatus = "Y" Then
Unload Me
MDIFormMain.Show
End If
End Sub
ขอให้โชคดีครับ
|
| |
|
|
| |
| Date :
15 ม.ค. 2550 10:43:54 |
By :
madoadza |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ผม Login ไม่ได้เลยครับ
|
| |
|
|
| |
| Date :
2009-04-19 03:42:35 |
By :
kuu |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ช่วยแก้โค้ดนี้ให้ผมหน่อยครับ
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim username As String
Dim pwd As String
username = tblogin.Text.Trim
pwd = tbpass.Text.Trim
Dim strConn As String
strConn = "Server=CODENAME;Integrated Security=True;Database=dbtelnetservice;Persist Security Info=True"
Dim Conn As New SqlConnection(strConn)
Conn.Open()
If tblogin.Text.Trim = "" Or tbpass.Text.Trim = "" Then
MessageBox.Show("กรุณาใส่ข้อมูลเข้าสู่ระบบ", "แจ้งเตือน")
Else
Dim sqlEmp As String
sqlEmp = "SELECT EmpUse,EmpPass FROM Employee"
sqlEmp &= " WHERE (EmpUse ='" & username & "')"
sqlEmp &= " AND (EmpPass ='" & pwd & "')"
sqlEmp &= " AND (PriviledgeID = 001)"
Dim sqlEmp2 As String
sqlEmp2 = "SELECT EmpUse,EmpPass FROM Employee"
sqlEmp2 &= " WHERE (EmpUse ='" & username & "')"
sqlEmp2 &= " AND (EmpPass ='" & pwd & "')"
sqlEmp2 &= " AND (PriviledgeID = 002)"
Dim comemployee As New SqlCommand(sqlEmp, Conn)
Dim comemployee2 As New SqlCommand(sqlEmp2, Conn)
Dim CurrentNameemployee As String
CurrentNameemployee = CStr(comemployee.ExecuteScalar)
Dim CurrentNameemployee2 As String
CurrentNameemployee2 = CStr(comemployee2.ExecuteScalar)
End If
End Sub
|
| |
|
|
| |
| Date :
2009-04-19 03:47:08 |
By :
007 |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
