เอามาฝากครับ Login Form แบบง่ายๆครับสำหรับมือใหม่
กระทู้เก่าบอร์ด อ.Yeadram

 2,125   3
URL.หัวข้อ / URL เอามาฝากครับ Login Form แบบง่ายๆครับสำหรับมือใหม่

เอามาฝากครับ Login Form แบบง่ายๆครับสำหรับมือใหม่ครับ

วิธีทำ

สร้าง Table ชื่อ Tlogin
ฟิลด์ชื่อ
- Tuser
- Tpass
- TStartForm (ไว้เก็บข้อมูลฟอร์มของผู้ใช้แต่ละคน)


หน้าออกแบบ Form

สร้างช่องใส่ข้อความ ให้ชื่อ Username
สร้างช่องใส่ข้อความ ให้ชื่อ Password
สร้างปุ่มกด ให้ชื่อ Login แล้วไปที่ Event > Onclick แล้วเอา Code VB ด้านล่างไปใส่


Private Sub Login_Click()
Username.SetFocus
     Dim StartForm As Variant
StartForm = DLookup("TStartForm", "Tlogin", "Tuser = '" & Username & "' and Tpass = '" & Password & "' ")
If Not IsNull(StartForm) Then
        MsgBox "ยินดีต้อนรับสู่ระบบบันทึกข้อมูล"
        DoCmd.Close
        DoCmd.OpenForm StartForm
        Exit Sub
    Else
        MsgBox "กรุณาใส่ ชื่อและรหัส ให้ถูกต้อง"
    End If
    Static intLogonAttempts As Integer
    intLogonAttempts = intLogonAttempts + 1
    If intLogonAttempts >= 3 Then
        MsgBox "คุณพยายามเข้าระบบเกินสามครั้ง กรุณาติดต่อผู้ดูแลระบบ", vbCritical, "ปิดโปรแกรม"
        Application.Quit
    End If
    LastUserName = Username
End Sub

เครดิต Ittiphol Live
โดย: โอ๋ เมื่อ: 10 มี.ค. 2558 , 16:38

3 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R20196
แล้วถ้าอยากทราบว่า Login ตอนกี่โมง จะทำเพิ่มได้มั้ยครับ
โดย: บอย เมื่อ: 11 มี.ค. 2558 , 16:05
2 @R20197
คิดว่าน่าจะเพิ่มฟิลเวลาเพิ่มในเทเบิล แล้ว สร้างช่องเวลาที่หน้าฟอร์มที่ login แล้วให้มาเก็บค่าอีกที

คิดว่านะครับ ผมก็มือใหม่ๆๆๆๆมวกกก ครับ
โดย: โอ๋ เมื่อ: 11 มี.ค. 2558 , 18:23
3 @R20198
ผมลองทำดูมั่วๆงูๆปลาๆ เป็นแบบเก็บ Log นะครับ
เผื่อๆอาจารย์อาจจะมีทางง่ายกว่านี้ครับ

Copy Table Tlogin เปลี่ยนชื่อเป็น TloginLog

ฟิลด์ชื่อ
- TuserLog
- TpassLog
- TStartFormLog
- TDateLog
- TTimeLog

ที่ Form Login ที่สร้างไว้ ให้เพิ่มช่องข้อความไปสองอัน ให้ตั้งชื่อว่า

- DateLog ช่องข้อมูลให้พิมพ์ = date()
- TimeLog ช่องข้อมูลให้พิมพ์ = Time()

- FUserLog แหล่งข้อมูล TUserLog
- FDateLog แหล่งข้อมูล TDateLog
- FTimeLog แหล่งข้อมูล TTimeLog

ที่ปุ่มกด Login ให้เพิ่มโค้ดนี้เข้าไป ต่อจากบรรทัดนี้
MsgBox "ยินดีต้อนรับเข้าสู่ระบบ", vbInformation, "เข้าสู่ระบบ"

เพิ่ม
Me.FUserLog = Username
Me.FDateLog = DateLog
Me.FTimeLog = TimeLog
DoCmd.RunCommand acCmdSaveRecord

และที่ Form Login หลักอันนี้ละแต่ไปเพิ่มที่ เหตุการณ์

Private Sub Form_Current()
DoCmd.RunCommand acCmdDataEntry
End Sub


ก็จะได้แบบนี้อะครับ จะเก็บค่าที่มีการ Login ทุกครั้งครับผม



ผิดพลาดประการใดขออภัยครับ มือใหม่มากๆครับผม
โดย: โอ๋ เมื่อ: 11 มี.ค. 2558 , 19:36
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2957s