vbnet登录界面源代码教务标准管理系统.doc 立即下载
2024-02-13
约3.8千字
约6页
0
39KB
举报 版权申诉
预览加载中,请您耐心等待几秒...

vbnet登录界面源代码教务标准管理系统.doc

vbnet登录界面源代码教务标准管理系统.doc

预览

免费试读已结束,剩余 1 页请下载文档后查看

11 金币

下载文档

如果您无法下载资料,请参考说明:

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
查看更多
胜利****实阿
实名认证
内容提供者
单篇购买
VIP会员(1亿+VIP文档免费下)

扫码即表示接受《下载须知》

vbnet登录界面源代码教务标准管理系统

文档大小:39KB

限时特价:扫码查看

• 请登录后再进行扫码购买
• 使用微信/支付宝扫码注册及付费下载,详阅 用户协议 隐私政策
• 如已在其他页面进行付款,请刷新当前页面重试
• 付费购买成功后,此文档可永久免费下载
全场最划算
12个月
199.0
¥360.0
限时特惠
3个月
69.9
¥90.0
新人专享
1个月
19.9
¥30.0
24个月
398.0
¥720.0
6个月会员
139.9
¥180.0

6亿VIP文档任选,共次下载特权。

已优惠

微信/支付宝扫码完成支付,可开具发票

VIP尽享专属权益

VIP文档免费下载

赠送VIP文档免费下载次数

阅读免打扰

去除文档详情页间广告

专属身份标识

尊贵的VIP专属身份标识

高级客服

一对一高级客服服务

多端互通

电脑端/手机端权益通用