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

ImportsSystem.Data

ImportsSystem.Data.OleDb

PublicClassLogin

InheritsSystem.Windows.Forms.Form

DimServerLogAsNewAddServer

DimStrServerAsString=ServerLog.TSever.Text

PrivateConnAsNewOleDbConnection(OleDbConnection(Security=SSPI;PacketSize=4096;DataSize=4096;Data

StrServerwithcolumncollationwhenpossible=False;InitialCatalog=ys;UseProcedurefor

Prepare=1;AutoTranslate=True;PersistSecurityInfo=False;Provider=SQLOLEDB.1;WorkstationInfo=False;Provider=SQLOLEDB.1;Workstation

StrServerStrServer)

PrivateDCAsNewOleDbConnection

PrivateDAAsNewOleDbDataAdapter

PrivateDSAsNewDataSet

DimAdminformAsNewAdministrator

DimstuformAsNewstudent

DimTeaformAsNewTeacher

PrivateFunctionQuery(ByValQueryStringAsString)AsBoolean

DS.Clear()

Try

DA=NewOleDbDataAdapter(QueryString,Conn)

DA.Fill(DS,DA.Fill(DS,)

Catch

MessageBox.Show(Err.Description,MessageBox.Show(Err.Description,警告警告,_

MessageBoxButtons.OK,MessageBoxIcon.Warning)

ExitFunction

EndTry

DimdtAsNewDataTable

dt=DS.Tables.Item(0)

Ifaccount.Text=account.Text=Orpasswords.Text=passwords.Text=Then

MessageBox.Show(MessageBox.Show(账号或密码不能为空空,,提示信息息,MessageBoxButtons.OK,

MessageBoxIcon.Information)

ReturnFalse

ElseIfdt.Rows.Count=0Then

错误

MessageBox.Show(_

您输入的账号不存在您输入的账号不存在,_

警告警告,MessageBoxButtons.OK,MessageBoxIcon.Error)

ReturnFalse

EndIf