库存管理之用户登录及用户列表——vb代码

《库存管理之用户登录及用户列表——vb代码》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、K首页，用户登录界面'连接SQL数据库吋必写语句ImportsSystem・Data・SqlClientPublicClassFrm_l)serloginPrivateSubBt_login_Click(ByVaisenderAsSystem.0bject,ByVaieAsSystem・EventArgs)HandlesBtlogin.ClickIfTxt_UserTd.Text="”ThenMsgBoxC用户名不能为空，请输入用户名！"，MsgBoxStyle.OkOnly,"温馨提示")ExitSubEndIfTfTxtPaw.Text=""ThenMsgBoxC密码不能

2、为空，请输入密码!",MsgBoxStyle.OkOnly,"温馨提示")ExitSubEndIf'连接数据库DimconnAsNewSqlConnection'conn・ConnectionString="userid=sa;password=:database=test;datasource连扌妾SQL2000数据库的方法'连接SQLServer2005数据库的方法conn.ConnectionString="server二.[integratedsecurity二sspi;database二N0.4〃conn.Open()DimconstrAsString'判断输入的数

3、据是否正确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>=1ThenMDIParentl.ShowDialogOMe.Hide()ElseMsg

4、BoxC用户需或密码错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.Text="”Txt_Paw.Text="”Txt_Paw.Focus()Txtjserld.Focus0EndSub

5、EndClass口回冈用户列表用戶数据添加修改删除保存取消退出ImportsSystem.Data.SqlClientPublicClassFrm^yhlbDimconnAsNewSqlConnection()DimflagAsIntegerDimdsAsNewDataSetPrivateSubForm2Load(ByVaisenderAsSystem.Object,ByVaieAsSystem.EventArgs)HandlesMyBase.Load，添加数据库中的数据到DGW控件中GroupBoxl.Enabled=Falsebaocun.Enabled=Falsequx

6、iao.Enabled=Falseconn.Connectionstring=/"server=(local):integratedsecurity二sspi;database二N0.4"corm.0pen()DimstAsStringst="select*fromtl"DimdaAsNewSqlDataAdapter(st,conn)DimdsAsNewDataSetdel.Fill(ds)DGW1.ColumnCount=ds.Tables(0)・Columns・CountDGW1.RowCount=ds.Tables(0).Rows.Count'DGW1.ColumnC

7、ount=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).Columns.Count一1DGW1.Columns(j).HeaderText=ds.Tables(0).Columns(j).Column