หลังจากที่ User LogIn ( หน้าฟอร์มลูก ) เสร็จ ก็จะเอา UserName เนี่ยะ ไปใส่ไว้ใน Status Bar
ทีนี้การเข้าถึง Control ของฟอร์มแม่ก็ทำได้ดังนี้ คือเราต้อง ใช้ตัวแปร Ref
'---Fomแม่ ชื่อว่า MainForm
Dim LoginPage as New Login
LoginPage.Form1 = me '<--- ส่ง Me เข้าไปให้ตัวแปรที่ Ref ถึง form แม่
LoginPage.ShowDialog()
'---Form Login ชื่อว่า Login
Public Form1 as MainForm '<--- Ref ไปถึง ฟอร์แม่
private sub btnok_click....
dim dal as new DalUser '<--- ประกาศ Object ของฐานข้อมูล
Dim HasAccount as boolean
HasAccount = Dal.CheckLogin(me.txtusername.text, me.txtpassword.text) '--- คืนค่าเป็น boolean
if HasAccount Then
Form1.StaShowUserName.text = me.txtUserName.text '--- อ้างถึง Cotrol ในฟอร์มแม่
me.dispose()
else
messagebox.show(" ไม่พบ Account ดังกล่าวกรุณาตรวจสอบ" ,"Error")
end if
end sub
เรียบร้อยครับ หรือ อาจจะคืนค่ามาเป็น String โดยเอา User ใน ฐานข้อมูลมาก็ได้ หรือถ้าไม่อ้างถึงแบบนี้ก็ไปทำเป็น Module ก็ได้ครับ
Special Thanks
อาจารย์สุเทพ
ไม่มีความคิดเห็น:
แสดงความคิดเห็น