数据库技术及应用课程设计项目设计报告说明书之diy装机平台

数据库技术及应用课程设计项目设计报告说明书之diy装机平台内容摘要：

() End If End Sub ③ 管理登陆窗口 Public Function check(ByVal user As String, ByVal pswd As String) 这个函数主要是用来验证用户名和密码是否正确，及根据不同的权限出现不同的 button If user = Or pswd = Then MsgBox(用户名和密码不能为空 ) Else () Dim sqlstr As sqlstr = New (pswd。 1, ) = Dim username As = (@_temp, , 40) create proc pswd。 1找出用户密码 @_temp varchar(40) as select 密码 from 用户表 where 用户名 =@_temp create proc rigt。 1找出权限 @_temp varchar(40) as select 权限 from 用户表 where 用户名 =@_temp DIY 装机平台系统 项目设计报告 = user Dim sqlstr1 As sqlstr1 = New (rigt。 1, ) = Dim username1 As = (@_temp, , 40) = user Dim tmppswd As String = Dim tmprigt As String = If pswd = tmppswd Then = False = False = False = False = False = False = True = True = True = True = True = True If tmprigt = 超级 Then = True = 76 = 296 = 76 = 328 Else = 76 = 296 End If = user usersname = user Else MsgBox(您输入的用户名或密码有错误 ) = End If () End If End Function Private Sub Button1_Click(ByVal„„„„„„ 39。 登录按钮 Call check(Trim(), Trim()) DIY 装机平台系统 项目设计报告 End Sub Private Sub Button2_Click(ByVal „„„„„„ 39。 重置按钮 = = End Sub Function editpswd(ByVal tpswd As String, ByVal npswd As String) If tpswd = Or npswd = Then MsgBox(您没有输入您的密码 ) ElseIf tpswd npswd Then MsgBox(您两次输入的密码不一致 ,请重新输入 ) = = () Else () Dim sqlstr As sqlstr = New (editpswd。 1, ) = Dim username As = (@tuser, , 40) = Dim password As = (@tpswd, , 40) = Trim(tpswd) () MsgBox(成功修改了您的密码 ) () „„„„„„完成以后，回到修改前窗口的状态，只要改变一些控件的 visble属性就可以了 End If End Function Private Sub TextBox3_LostFocus(ByVal „„„„ 39。 对输入密码长度进行控制 If Len() 20 or Len() 5 Then MsgBox(密码长度 5到 20为好 !) () End If End Sub 31 产品管理窗口 这个函数主要是用来更改用户自己的密码 两个参数就是用户所填的新密码和确认密码。 create proc editpswd。 1更改密码 @tuser varchar(40),@tpswd varchar(40) as update 用户表 set 密码 =@tpswd where 用户名 =@tuser DIY 装机平台系统 项目设计报告 39。 有关显隐性控制、 可访问性控制 内容很多，但很简单，因此下面都不再叙述了，相关原始程序代码请查看原文件 39。 有关系统自动 生成的 SqlConnection SqlDataAdapter Dataset1的说明 : 39。 Dataset1”产品表“ Dim p As New Point 39。 窗体移动相关 Dim row_no As New Integer 39。 数据所在的行号 Dim ds3 As New Public mybind As BindingManagerBase Public check As Integer = 2 39。 check=1对应于点击了新增按纽之后 Public t1 As String 39。 点击保存前配件名 Public t2 As String 39。 点击保存前品牌名 Public t3 As String 39。 点击保存前配件名 Public Function save() 39。 保存函数 If () 200 Then MsgBox(性能描述最多为 200字，请精简你 的描述 , , 描述过长 ) Else If () 20 Then DIY 装机平台系统 项目设计报告 MsgBox(配件名最多为 20字，请精简你的配件名 , , 配件名过长 ) Else If () 25 Then MsgBox(品牌名最多为 25字，请精简你的品牌名 , , 品牌名过长 ) Else If () 40 Then MsgBox(型号名最多为 40字，请精简你的型号名 , , 型号名过长 ) Else If = Or = Or = Or = Then MsgBox(您输入的信息不完整。 (若性能描述无，请在性能描述中填写品牌 )。 , , 警告 ) Else If = Then = MsgBox(未填写价格 , , 未填写价格 ) DIY 装机平台系统 项目设计报告 Else Dim i% i = MsgBox(要保存了，请确认你的编辑 , , 保存提示 ) If i = Then () ( ) Dim temp1 As String Dim temp2 As String temp1 = temp2 = Call refre(, ) Call refre_co1() = temp1 = temp2 Call refre(temp1, temp2) 39。 使回到原选择单，方便使用 End If End If End If End If End If End If End If End Function Public Function refre(ByVal name1 As String, ByVal name2 As String) 39。 对应于 datagrid的更新 Dim myadapater1 As Dim mysqlstr1 As () mysqlstr1 = New (配件。 1, ) = 39。 以下为存储过程 配件。 1 create proc 配件。 1 @_产品名 varchar(40), @_品牌名 varchar(50) as select 型号名 ,价格 ,性能 DIY 装机平台系统 项目设计报告 from 产品表 where 产品名 =@_产品名 and 品牌名 =@_品牌名 给出 产品名 及 品牌名 查询 Dim par1 As = (@_产品名 , , 50) = name1 Dim par2 As = (@_品牌名 , , 50) = name2 myadapater1 = New (mysqlstr1) (ds3, 配件 ) = (配件 ) End Function Public Function refre_co1() 39。 ComboBox1的更新 即配件下拉列框的更新 Dim ds1 As New Dim ada1 As Di。