欢迎来到天天文库
浏览记录
ID:31286331
大小:136.04 KB
页数:6页
时间:2019-01-08
《库存管理之用户登录及用户列表——vb代码》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、K首页,用户登录界面'连接SQL数据库吋必写语句ImportsSystem・Data・SqlClientPublicClassFrm_l)serloginPrivateSubBt_login_Click(ByVaisenderAsSystem.0bject,ByVaieAsSystem・EventArgs)HandlesBtlogin.ClickIfTxt_UserTd.Text="”ThenMsgBoxC用户名不能为空,请输入用户名!",MsgBoxStyle.OkOnly,"温馨提示")ExitSubEndIfTfTxtPaw.Text=""
2、ThenMsgBoxC密码不能为空,请输入密码!",MsgBoxStyle.OkOnly,"温馨提示")ExitSubEndIf'连接数据库DimconnAsNewSqlConnection'conn・ConnectionString="userid=sa;password=:database=test;datasource连扌妾SQL2000数据库的方法'连接SQLServer2005数据库的方法conn.ConnectionString="server二.[integratedsecurity二sspi;database二N0.4〃conn.
3、Open()DimconstrAsString'判断输入的数据是否正确DimUserNtime,passwordAsStringUserName=Trim(Txt_Userld.Text)password=Trim(TxtPaw.Text)constr="select*fromtlwhereid=,/z&UserName&"1andPsd=,,z&password&"DimdaAsNewSqlDataiAdapter(constr,conn)DimdsAsNewDataSetda.Fill(ds)Ifds.Tables(0).Rows.Count
4、>=1ThenMDIParentl.ShowDialogOMe.Hide()ElseMsgBoxC用户需或密码错i吴",MsgBoxStyle.OkOnly,"温馨提示")Txt_UserId.Text=””Txt_Paw.Text="”Txt_Paw.Focus()TxtUserid.Focus()EndIfEndSubPrivciteSubBt_cancel_Click(ByVaisenderAsSystem・0bject,ByVtileAsSystem・EventArgs)IkindlesBt_Ccince1・ClickTxt_UserTd
5、.Text="”Txt_Paw.Text="”Txt_Paw.Focus()Txtjserld.Focus0EndSubEndClass口回冈用户列表用戶数据添加修改删除保存取消退出ImportsSystem.Data.SqlClientPublicClassFrm^yhlbDimconnAsNewSqlConnection()DimflagAsIntegerDimdsAsNewDataSetPrivateSubForm2Load(ByVaisenderAsSystem.Object,ByVaieAsSystem.EventArgs)Handle
6、sMyBase.Load,添加数据库中的数据到DGW控件中GroupBoxl.Enabled=Falsebaocun.Enabled=Falsequxiao.Enabled=Falseconn.Connectionstring=/"server=(local):integratedsecurity二sspi;database二N0.4"corm.0pen()DimstAsStringst="select*fromtl"DimdaAsNewSqlDataAdapter(st,conn)DimdsAsNewDataSetdel.Fill(ds)DGW
7、1.ColumnCount=ds.Tables(0)・Columns・CountDGW1.RowCount=ds.Tables(0).Rows.Count'DGW1.ColumnCount=4'列'DGW1.RowCount=4'行Fori=0Tods.Tables(0).Rows.Count-1Forj=0Tods.Tables(0).Columns.Count一1DGW1.Rows(i).Cells(j).Value=ds.Tables(0).Rows(i).TtemArray(j)NextjForj=0Tods.Tables(0).Colu
8、mns.Count一1DGW1.Columns(j).HeaderText=ds.Tables(0).Columns(j).Column
此文档下载收益归作者所有