vb net登录界面源代码 教务管理系统

ImportsSystem.DataImportsSystem.Data.OleDbPublicClassLoginInheritsSystem.Windows.Forms.FormDimServerLogAsNewAddServerDimStrServerAsString=ServerLog.TSever.TextPrivateConnAsNewOleDbConnection(IntegratedSecurity=SSPI;PacketSize=4096;DataSource='&StrServer&';Tagwithcolumncollationwhenpossible=False;InitialCatalog=ys;UseProcedureforPrepare=1;AutoTranslate=True;PersistSecurityInfo=False;Provider=SQLOLEDB.1;WorkstationID='&StrServer&';UseEncryptionforData=False)PrivateDCAsNewOleDbConnectionPrivateDAAsNewOleDbDataAdapterPrivateDSAsNewDataSetDimAdminformAsNewAdministratorDimstuformAsNewstudentDimTeaformAsNewTeacherPrivateFunctionQuery(ByValQueryStringAsString)AsBooleanDS.Clear()TryDA=NewOleDbDataAdapter(QueryString,Conn)DA.Fill(DS,TMInfo)CatchMessageBox.Show(Err.Description,警告,_MessageBoxButtons.OK,MessageBoxIcon.Warning)ExitFunctionEndTryDimdtAsNewDataTabledt=DS.Tables.Item(0)Ifaccount.Text=Orpasswords.Text=ThenMessageBox.Show(账号或密码不能为空,提示信息,MessageBoxButtons.OK,MessageBoxIcon.Information)ReturnFalseElseIfdt.Rows.Count=0Then'错误MessageBox.Show(_您输入的账号不存在,_警告,MessageBoxButtons.OK,MessageBoxIcon.Error)ReturnFalseEndIfDimrowAsData.DataRow'定义一个表格行对象。row=dt.Rows.Item(0)'将表格的第一行即密码读出'passwords.Text=row.Item(password)Ifpasswords.Textrow.Item(password)Then'用户的密码不正确MessageBox.Show(_对不起，您的密码有误。,_警告,MessageBoxButtons.OK,MessageBoxIcon.Error)ReturnFalseEndIfReturnTrueEndFunctionPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimQueryStringAsStringQueryString=select*fromTeaMagInfowhereid='&account.Text&'Ifaccount.Text=AdministratorAndpasswords.Text=passThenDimAddservAsNewAddServerAddserv.ShowDialog()ElseIf(Query(QueryString)=True)ThenTryDA=NewOleDbDataAdapter(QueryString,Conn)DA.Fill(DS,TMInfo)CatchMessageBox.Show(Err.Description,警告,_MessageBoxButtons.OK,MessageBoxIcon.Warning)ExitSubEndTryDimdtAsNewDataTabledt=DS.Tables.Item(0)DimrowAsData.DataRow'定义一个表格行对象。row=dt.Rows.Item(0)IfRadioAdmin.CheckedThenIfrow.Item(ocu)管理员.ToStringThenMessageBox.Show(你选择的用户类型不正确,提示信息,MessageBoxButtons.OK,MessageBoxIcon.Information)ElseAdminform.Show()Me.Visible=FalseEndIfEndIfIfRadioTeacher.CheckedThenIfrow.Item(ocu)教师.ToStringThenMessageBox.Show(你选择的用户类型不正确,提示信息,MessageBoxButtons.OK,MessageBoxIcon.Information)Else'Me.Visible=FalseMe.DialogResult=DialogResult.OKTeaform.Show()Me.Visible=FalseEndIfEndIfEndIfEndIfIfRadiostu.CheckedThenDS.Clear()Ifaccount.Text=Orpasswords.Text=ThenMessageBox.Show(账号或密码不能为空,提示信息,MessageBoxButtons.OK,MessageBoxIcon.Information)ElseDimstuAsBoolean=FalseDimQuerStringAsStringQuerString=select*fromstuBaseInfowherestuID='&account.Text&'andpassword='&passwords.Text&'TryDA=NewOleDbDataAdapter(QuerString,Conn)DA.Fill(DS,lk)DimdtabAsDataTabledtab=DS.Tables.Item(lk)Ifdtab.Rows.Count0Thenstu=TrueElseMessageBox.Show(不存在此账号信息或原始密码错,提示信息,MessageBoxButtons.OK,MessageBoxIcon.Information)EndIfCatchexAsExceptionMessageBox.Show(Err.Description,警告,MessageBoxButtons.OKCancel,MessageBoxIcon.Warning)EndTryIfstuThenstuform.Show()Me.Visible=FalseEndIfEndIfEndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.Close()EndSubPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.AcceptButton=Button1Me.CancelButton=Button2EndSubPrivateSubOleDbConnection1_InfoMessage(ByValsenderAsSystem.Object,ByValeAsSystem.Data.OleDb.OleDbInfoMessageEventArgs)EndSubPrivateSubRadioButton1_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRadiostu.CheckedChangedEndSubPrivateSubRadioTeacher_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRadioTeacher.CheckedChangedEndSubEndClass