Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > .NET Framework > Forum > ขอความช่วยเหลือแก้โค้ด ระบบล๊อกอิน (VB.net) ตรวจสอบ Username Password และ วันเวลาที่จองเอาไว้ในฐานข้อมูล

[.NET] ขอความช่วยเหลือแก้โค้ด ระบบล๊อกอิน (VB.net) ตรวจสอบ Username Password และ วันเวลาที่จองเอาไว้ในฐานข้อมูล

เริ่มหัวข้อใหม่

arminfor

โพสกระทู้ ( 4 )
บทความ ( 0 )

ระบบล๊อกอินนี้จะตรวจสอบ Username Password และ วันเวลาที่จองเอาไว้ในฐานข้อมูล (ตอนล๊อกอินเวลาปัจจุบันของคอมพิวเตอร์ต้องตรงกับวลาที่อยู่ในฐานข้อมูง จอง)

Code (VB.NET)

Imports MySql.Data.MySqlClient
Imports System.Data
 
 
Public Class frmLogin
 
frmlogin.lblnum.Text = txtnumber.Text
 
    'เข้าสู่ระบบ 
    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        Dim objConn As New MySqlConnection
        Dim objCmd As New MySqlCommand
        Dim strConnString, strSQL, strNUMANDDATE, strTIMETOLOCK As String
 
        Dim i As Integer
        i = TimeOfDay.Hour
        If i Mod 2 = 0 Then
            strTIMETOLOCK = i
        Else
            strTIMETOLOCK = i - 1
        End If
 
 
        strConnString = "Server=localhost;User Id=root; Password=1234; Database=reservations; Pooling=false"
        objConn.ConnectionString = strConnString
        objConn.Open()
 
        Dim checkid As Integer
        strSQL = "SELECT COUNT(*) FROM member WHERE Username = '" & Me.txtUsername.Text & "' AND password = '" & Me.txtPassword.Text &
            "'  AND member_id = '" & Me.txtmemberid.Text & "'"
        objCmd = New MySqlCommand(strSQL, objConn)
        checkid = objCmd.ExecuteScalar()
 
        Dim checkcomanddate As Integer
        strNUMANDDATE = "SELECT COUNT(*) FROM book WHERE book_no = '" & Me.lblnum.Text & "' AND book_date = '" & Format(Now, "yyyy-mm-dd") &
            "' AND member_id = '" & Me.txtmemberid.Text & "'"
        objCmd = New MySqlCommand(strNUMANDDATE, objConn)
        checkcomanddate = objCmd.ExecuteScalar()
        objConn.Close()
        objConn = Nothing
 
        If checkid > 0 Then
            If checkcomanddate > 0 Then
                tmlockwindow1.Start()
                tmmessage1.Start()
                tmtimeshow.Start()
                Me.Hide()
            Else
                MessageBox.Show("คุณไม่ได้จองเครื่องคอมพิวเตอร์ในเวลาดังกล่าว")
            End If
        Else
            MessageBox.Show("รหัสผ่านหรือรหัสประจำตัวไม่ถูกต้อง ")
        End If
    End Sub
 
    'ปุ่มปิด
    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        If MessageBox.Show("คุณต้องการออกจากโปรแกรมใช่หรือไม่ ?", "", MessageBoxButtons.YesNo) = DialogResult.Yes Then
            Application.Exit()
        End If
    End Sub
 
End Class

Code (SQL)

-- phpMyAdmin SQL Dump
-- version 2.10.3
-- http://www.phpmyadmin.net
-- 
-- โฮสต์: localhost
-- เวลาในการสร้าง: 
-- รุ่นของเซิร์ฟเวอร์: 5.0.51
-- รุ่นของ PHP: 5.2.6
 
SET SQL_MODE="NO_AUTO_VALUE_ON_ZERO";
 
-- 
-- ฐานข้อมูล: `reservation`
-- 
 
-- --------------------------------------------------------
 
-- 
-- โครงสร้างตาราง `book`
-- 
 
CREATE TABLE `book` (
  `book_id` int(11) NOT NULL,
  `member_id` int(11) default NULL,
  `book_date` date default NULL,
  `book_hour` int(11) default NULL,
  `book_no` int(11) default NULL,
  PRIMARY KEY  (`book_id`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8;
 
-- 
-- dump ตาราง `book`
-- 
 
INSERT INTO `book` VALUES (1, 2, '2014-02-20', 1, 1);
INSERT INTO `book` VALUES (2, 2, '2014-02-28', 2, 2);
INSERT INTO `book` VALUES (3, 3, '2014-02-18', 1, 3);
 
-- --------------------------------------------------------
 
-- 
-- โครงสร้างตาราง `member`
-- 
 
CREATE TABLE `member` (
  `member_id` int(11) NOT NULL,
  `username` varchar(20) default NULL,
  `password` varchar(20) default NULL,
  `email` varchar(20) default NULL,
  `active_password` varchar(5) default NULL,
  PRIMARY KEY  (`member_id`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8;
 
-- 
-- dump ตาราง `member`
-- 
 
INSERT INTO `member` VALUES (1, 'arminfor', 'arminfor', 'arminfor@hotmail.com', NULL);
INSERT INTO `member` VALUES (3, 'arm', 'arm', 'arminf1or@hotmail.co', NULL);

Tag : Java, MySQL, VBScript, Win (Windows App), VB.NET, Windows

Date : 2014-02-19 12:15:20

By : arminfor

View : 901

Reply : 1

No. 1

TC Admin

โพสกระทู้ ( 74,059 )
บทความ ( 838 )

ติดปัญหาตรงไหนครับ มี Tools mี่สุดยอดอย่าง Visual Studio ใช้การ Debug เอาเลยครับ

Date : 2014-02-20 06:01:15

By : mr.win

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : ขอความช่วยเหลือแก้โค้ด ระบบล๊อกอิน (VB.net) ตรวจสอบ Username Password และ วันเวลาที่จองเอาไว้ในฐานข้อมูล

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Registered : 109,038

No. 1

ค้นหาข้อมูล

อัพโหลดแทรกรูปภาพ

Notice