Imports System.Data
Imports System.Data.OleDb
Module Module1
Public con As OleDbConnection
Public da As OleDbDataAdapter
Public ds As DataSet
Public cmd As OleDbCommand
Public rd As OleDbDataReader
Public str As String
Public Sub connection()
str = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\admim\Documents\ฐานข้อมูล5.accdb"
con = New OleDbConnection(str)
If con.State = ConnectionState.Closed Then
con.Open()
End If
End Sub
End Module
Public Class frmlogin
Private Sub Login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
connection()
If (txtuser.Text = "") Then
MessageBox.Show("กรุณากรอกUsername", "Login", MessageBoxButtons.OK, MessageBoxIcon.Warning)
txtuser.Focus()
Exit Sub
End If
If (txtpass.Text = "") Then
MessageBox.Show("กรุณากรอกPassword", "Login", MessageBoxButtons.OK, MessageBoxIcon.Warning)
txtpass.Focus()
Exit Sub
End If
If txtuser.Text = "user1" And txtpass.Text = "1234" Then
MessageBox.Show("คุณคือ user1", "Login", MessageBoxButtons.OK)
Call user1login()
ElseIf txtuser.Text = "user2" And txtpass.Text = "4567" Then
MessageBox.Show("คุณคือ user2", "Login", MessageBoxButtons.OK)
Call user2login()
ElseIf txtuser.Text = "user3" And txtpass.Text = "7890" Then
MessageBox.Show("คุณคือ user3", "Login", MessageBoxButtons.OK)
Call user3login()
Else
MsgBox("username หรือ password ไม่ถูกต้อง")
End If
End Sub
Private Sub user1login()
Dim frmpro As New frmproject
frmproject.Show()
Me.Hide()
frmpro.ToolStripButton1.Visible = True
frmpro.ToolStripButton2.Visible = False
frmpro.ToolStripButton3.Visible = False
frmpro.ToolStripButton4.Visible = True
End Sub
Private Sub user2login()
Dim frmpro As New frmproject
frmproject.Show()
Me.Hide()
frmpro.ToolStripButton1.Visible = False
frmpro.ToolStripButton2.Visible = True
frmpro.ToolStripButton3.Visible = False
frmpro.ToolStripButton4.Visible = True
End Sub
Private Sub user3login()
Dim frmpro As New frmproject
frmproject.Show()
Me.Hide()
frmpro.ToolStripButton1.Visible = False
frmpro.ToolStripButton2.Visible = True
frmpro.ToolStripButton3.Visible = True
frmpro.ToolStripButton4.Visible = True
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If MessageBox.Show("คุณต้องการออกจากระบบ?", "Login", MessageBoxButtons.YesNo) = DialogResult.Yes Then
Application.Exit()
End If
'ใช้แทน me.close() เพราะต้องการมีกล่องข้อความถามว่า คุณต้องการออกจากระบบ?
End Sub
Imports System.Data
Imports System.Data.OleDb
Public Class frmproject
Private Sub frmproject_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If Not (Me.ActiveMdiChild Is Nothing) Then
Me.ActiveMdiChild.Close()
End If
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
Dim frm As Form 'ให้ frm เป็น Form ธรรมดา
'ค้นหาฟอร์มลูกทั้งหมดก่อนว่ามี Form1 หรือยัง
For Each frm In Me.MdiChildren
If (TypeOf frm Is Form1) Then
frm.Activate() 'ถ้าพบ สั่ง Activate เพื่อให้วินโดว์นั้นแสดงขึ้นมาอยู่ข้างบนสุด
Exit Sub 'บรรลุความประสงค์ของ procedure นี้แล้ว.
End If
Next
Dim f1 As New Form1 'ให้สร้างอ๊อบเจ็กต์ฟอร์มใหม่ เพื่อเปิดฟอร์มตามปกติ
f1.MdiParent = Me 'กำหนดให้เป็นฟอร์มลูกของฟอร์มปัจจุบัน
f1.Show() 'สั่งให้แสดงบนหน้าจอ
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
Dim frm1 As Form 'ให้ frm เป็น Form ธรรมดา
'ค้นหาฟอร์มลูกทั้งหมดก่อนว่ามี Form1 หรือยัง
For Each frm1 In Me.MdiChildren
If (TypeOf frm1 Is Form2) Then
frm1.Activate() 'ถ้าพบ สั่ง Activate เพื่อให้วินโดว์นั้นแสดงขึ้นมาอยู่ข้างบนสุด
Exit Sub 'บรรลุความประสงค์ของ procedure นี้แล้ว.
End If
Next
Dim f2 As New Form2 'ให้สร้างอ๊อบเจ็กต์ฟอร์มใหม่ เพื่อเปิดฟอร์มตามปกติ
f2.MdiParent = Me 'กำหนดให้เป็นฟอร์มลูกของฟอร์มปัจจุบัน
f2.Show() 'สั่งให้แสดงบนหน้าจอ
End Sub
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
Dim frm2 As Form 'ให้ frm เป็น Form ธรรมดา
'ค้นหาฟอร์มลูกทั้งหมดก่อนว่ามี Form1 หรือยัง
For Each frm2 In Me.MdiChildren
If (TypeOf frm2 Is Form3) Then
frm2.Activate() 'ถ้าพบ สั่ง Activate เพื่อให้วินโดว์นั้นแสดงขึ้นมาอยู่ข้างบนสุด
Exit Sub 'บรรลุความประสงค์ของ procedure นี้แล้ว.
End If
Next
Dim f3 As New Form3 'ให้สร้างอ๊อบเจ็กต์ฟอร์มใหม่ เพื่อเปิดฟอร์มตามปกติ
f3.MdiParent = Me 'กำหนดให้เป็นฟอร์มลูกของฟอร์มปัจจุบัน
f3.Show() 'สั่งให้แสดงบนหน้าจอ
End Sub
Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
MessageBox.Show("ออกจากระบบ", "Exit", MessageBoxButtons.OK)
Me.Close()
End Sub
Public Class Form3
Private Sub Form3_Move(sender As Object, e As EventArgs) Handles MyBase.Move
If Not (Me.Location.X = 0 And Me.Location.Y = 0) Then
Me.Location = New Point(0, 0)
End If
End Sub
End Class
Code (VB.NET)
Public Class Form2
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
OpenFrm()
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
End Sub
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
OpenFrm()
End Sub
Private Sub OpenFrm()
If Not (Me.ActiveMdiChild Is Nothing) Then
Me.ActiveMdiChild.Close()
End If
Dim frm As New Form3
frm.MdiParent = Me
frm.StartPosition = FormStartPosition.Manual
frm.Location = New Point(0, 0)
frm.Show()
End Sub
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.IsMdiContainer = True
If Not (Me.ActiveMdiChild Is Nothing) Then
Me.ActiveMdiChild.Close()
End If
End Sub
End Class
Private Sub Form3_Move(sender As Object, e As EventArgs) Handles MyBase.Move
If Not (Me.Location.X = 0 And Me.Location.Y = 0) Then
Me.Location = New Point(0, 0)
End If
End Sub
Load balance : Server 01
