sakit sa ulo............ Imports System.Data.SqlClient Public - TopicsExpress

sakit sa ulo............ Imports System.Data.SqlClient Public Class frmStudentLogin Public userLogin As String Public userType As String Dim msg As String Dim time As Date Dim ctr As Integer Private Sub frmStudentLogin_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated flashLogin.Movie = Application.StartupPath & \Login.swf txtStudentID.Focus() chkAdminId.Checked = False createconn() End Sub Private Sub flashLogin_FSCommand(ByVal sender As Object, ByVal e As AxShockwaveFlashObjects._IShockwaveFlashEvents_FSCommandEvent) Handles flashLogin.FSCommand If emand = ButtonClick6 Then Try If chkAdminId.CheckState = CheckState.Checked Then If txtStudentID.Text = Then MsgBox(Please Input a Student Number, MsgBoxStyle.MsgBoxHelp, Login) Exit Sub End If conn.Open() command = New SqlCommand(select * from tbl_teacher where ID like % & txtStudentID.Text & , conn) dr = command.ExecuteReader While (dr.Read()) userLogin = (dr(FirstName)) & & (dr(LastName)) userType = (dr(UserType)) End While If dr.HasRows Then conn.Close() If userType = Admin Then frmLoading.flashMain.Movie = Application.StartupPath & \admin.swf msg = Admin Login to System ElseIf userType = Teacher Then frmLoading.flashMain.Movie = Application.StartupPath & \teacher1.swf msg = Teacher Login to System End If time = Now conn.Open() command = New SqlCommand(insert into tbl_audit (Audit_User,Audit_Time,Audit_Activity) values ( & userLogin & , & time & , & msg & ), conn) command.ExecuteNonQuery() flashWelcome.Movie = Application.StartupPath & \welcome.swf MsgBox(Welcome & userLogin, vbInformation, Login) frmLoading.Show() conn.Close() flashWelcome.Movie = Application.StartupPath & \main_form.swf Me.Hide() Else ctr = ctr + 1 MsgBox(Login Failed, vbCritical, Login) conn.Close() End If Else If txtStudentID.Text = Then MsgBox(Please Input a Student Number, MsgBoxStyle.MsgBoxHelp, Login) Exit Sub End If conn.Open() command = New SqlCommand(select * from tbl_student where Student_ID like % & txtStudentID.Text & , conn) dr = command.ExecuteReader While (dr.Read()) userLogin = (dr(FirstName)) & & (dr(LastName)) End While If dr.HasRows Then flashWelcome.Movie = Application.StartupPath & \welcome.swf MsgBox(Welcome & userLogin, vbInformation, Login) frmLoading.flashMain.Movie = Application.StartupPath & \main_form.swf frmLoading.flashMusic.Movie = Application.StartupPath & \mainsound2.swf frmLoading.Show() conn.Close() flashWelcome.Movie = Application.StartupPath & \main_form.swf Me.Hide() Else ctr = ctr + 1 MsgBox(Login Failed, vbCritical, Login) conn.Close() End If End If Catch ex As Exception MsgBox(ex.ToString) End Try If ctr = 3 Then MsgBox(System will shutdown) End End If txtStudentID.Text = End If If emand = ButtonClick7 Then frmMain.Show() Me.Hide() End If If emand = ButtonClick2 Then frmStudentRegister.Show() Me.Hide() End If If emand = ButtonClick3 Then frmStudentMaintenance.Show() Me.Hide() End If If emand = ButtonClick4 Then frmAdminTeacherRegister.Show() Me.Hide() End If If emand = ButtonClick5 Then frmAdminTeacherMaintenance.Show() Me.Hide() End If End Sub Private Sub txtStudentID_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtStudentID.KeyPress If (Microsoft.VisualBasic.Asc(e.KeyChar) < 47) Or (Microsoft.VisualBasic.Asc(e.KeyChar) > 57) Then If (Microsoft.VisualBasic.Asc(e.KeyChar) 32) Then e.Handled = True End If If (Microsoft.VisualBasic.Asc(e.KeyChar) = 8) Then e.Handled = False ElseIf (Microsoft.VisualBasic.Asc(e.KeyChar) = 46) And ctr < 1 Then e.Handled = False ctr = ctr + 1 ElseIf (Microsoft.VisualBasic.Asc(e.KeyChar) = 32) Then ctr = 0 End If End If End Sub Private Sub chkAdminId_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkAdminId.CheckedChanged If chkAdminId.Checked = True Then txtStudentID.PasswordChar = * Else txtStudentID.PasswordChar = End If End Sub End Classified

भारत अजाद होते हि सरदार

DOC Holiday: You came out west to cure your tuberculosis, but

Amable Stoqua, son of a Chief Lamab (Amable) Stoqua (son of Chief

What a sicko ! Things like this worry me for my boys future, I

Low Fat Diet Cons CLICK HERE TO DOWNLOAD FREE Customized Fat Loss

If the president decides to be fair and square with every part of

Po finále 3x3 Slovak StreetBasket Tour 2013 sa konalo

“Nature’s Provision for Human Beings The needs of everyday

PERMISSION TO POST TWELVE REASONS FOR CHOOSING EMGOLDEX 1. The

ESTAMPAS DE NATUREZA Outra tendência que à pouco voltou

Amanda Chain Cross Body Bag Black Friday,Cyber Monday Deals. Most

Wayne Gretzky #/150 (Hockey Card) 1996-97 Donruss Canadian Ice

Looking for a new metal band to listen to Check out my friends

Much too early for someone who has not been made to think in these

I posted this before but actually forgot to mention what it is

Finley Home Turner Lift Top Coffee Table -, Oak, Wood, 40 inches

Education Forum III Asociacion Borinqueña of Central Florida

Pomeranian - Frostys Helper - Garden Flags :: Black Friday & Cyber

Love is just a word until someone comes along and gives it

Do you know_ _ _ _ _ you would need approx. INR 2 Crores in your

Everybody knows there are two Ms in Mmusic right? We sure

Lord I come to you this morning thanking you for the rain and

Bilan humanitaire de la 12e édition du Trophée Roses des sables

11 Medical Universities: fee + hostel= 1 year 1: Yichun