如果您无法下载资料,请参考说明:
1、部分资料下载需要金币,请确保您的账户上有足够的金币
2、已购买过的文档,再次下载不重复扣费
3、资料包下载后请先用软件解压,在使用对应软件打开
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.Text<>row.Item("password")Then'用户密码不正确MessageBox.Show(_"对不起,您密码有误。",_"警告",MessageBoxButtons.OK,MessageBoxIcon.Error)ReturnFalseEndIfReturnTrueEndFunctionPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimQueryStringAsStringQueryString="select*fromTeaMagInfowhereid='"&account.Text&"'"Ifaccount.Text="Administrator"Andpasswords.Text="pass"ThenDimAddservAsNewAddServerAddserv.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.CheckedThe
胜利****实阿
实名认证
内容提供者
相关资源
最近下载
最新上传
2025届安徽省六安市三校九年级化学上学期期末调研试题含解析.docx
2025届安徽省六安市三校九年级化学上学期期末调研模拟试题含解析.docx
2025届安徽省六安市三校九年级化学上学期期末联考试题含解析.docx
2025届安徽省六安市三校九年级化学上学期期末联考模拟试题含解析.docx
2025届安徽省六安市三校九年级化学上学期期末考试试题含解析.docx
2025届安徽省六安市三校九年级化学上学期期末考试模拟试题含解析.docx
2025届安徽省六安市三校九年级化学上学期期末综合测试试题含解析.docx
2025届安徽省六安市三校九年级化学上学期期末综合测试模拟试题含解析.docx
2025届安徽省六安市三校九年级化学上学期期末统考试题含解析.docx
2025届安徽省六安市三校九年级化学上学期期末统考模拟试题含解析.docx