หนูก็เลยสร้าง Class ที่ชื่อว่า EncryptDecryptClass ขึ้นมา
แต่มันเรียกใช้ไม่ได้อ่ะค่ะ ไม่ทราบว่าหนูนั้นทำผิดตรงไหนประการใด แล้วการเรียกใช้ class ตัวนี้ต้องเริ่มจากตรงไหนก่อนดีคะ
ตอนนี้งงมากเลยอ่าค่ะ ไปไม่ถูกแล้วว
Code (VB.NET)
Imports System.Data.SqlClient
Imports DevExpress.Utils
Imports DevExpress.XtraGrid.Views.Base
Imports System.Text
Imports System.IO
Imports System.Xml
Public Class LoginForm
Dim sb As StringBuilder
Dim ds As DataSet
Dim da As SqlDataAdapter
Dim com As SqlCommand
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = "" Then
MessageBox.Show("กรุณาใส่ Username", "No Username", MessageBoxButtons.OK, MessageBoxIcon.Error)
UsernameTextBox.Focus()
End If
If PasswordTextBox.Text = "" Then
MessageBox.Show("กรุณาใส่ Password", "No Password", MessageBoxButtons.OK, MessageBoxIcon.Error)
PasswordTextBox.Focus()
End If
If UsernameTextBox.Text <> "" Then
sb = New StringBuilder
sb.Append("SELECT User_id FROM STAFF")
sb.Append(" WHERE User_id ='" & UsernameTextBox.Text & "'")
sb.Append(" AND Site_code = '001'") 'เฉพาะพนักงานสาขานี้
sb.Append(" AND department_id = '03'") 'เฉพาะพนักงานแผนกนี้
connection()
da = New SqlDataAdapter(sb.ToString, conn)
ds = New DataSet
conn.Close()
If da.Fill(ds, "STAFF") = 0 Then
MessageBox.Show("ขออภัย!สงวนสิทธิ์เฉพาะแผนกบุคลเท่านั้น", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
Else
sb = New StringBuilder
sb.Append("SELECT User_id,Pass FROM Login")
sb.Append(" WHERE Pass = '" & PasswordTextBox.Text & "'") ' Password
connection()
da = New SqlDataAdapter(sb.ToString, conn)
ds = New DataSet
conn.Close()
If da.Fill(ds, "STAFF") <> 0 Then
Dim f As New FrmMenu
f.ShowDialog()
Me.Close()
End If
End If
End If
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub
End Class