VB编写界面-公司产品信息管理系统.pptx

产品信息管理系统,答辩小组：缪林、严杨鸿、姜泽、 徐彬、曾雨潇、胡朋、 罗力,1.系统功能简介,1.公司产品信息系统对企业加强产品管理 有着极其重要的作用，就一般的大型企业来说，它的设计内容非常复杂而且繁多，比如产品的售价、产品的储量、产品的销售量等等，所以我们简单的模拟了公司产品信息系统的内容。,2.我们通过自己了解的信息来构建公司产品信息总体框图，利用自己了解的VB和数据库知识进行了构思、设计，最终完成了我们的公司产品信息系统。,系统功能模块图,2.功能需求描述,1.用户清单模块 该模块包括用户名、密码，用户自行注册，注册过的用户可以对其产品清单进行添加、查询、删除产品信息，从而对产品信息进行管理。 2.产品清单模块 根据产品，我们的产品信息内容包括ID编号、型号、品牌、价格、产地、生产厂商，当公司的产品进行变动时，管理人员能及时对产品信息进行更改，并浏览公司现有的全部产品。,3.系统要求,系统应达到以下要求： 1.逻辑时间短。当对一个系统进行操 作时，系统效应速率高，反应速度 快。 2.适用性强。功能齐全，能满足公司 管理产品信息的需求。 3.易维护。易于扩充、修改从而满足 社会发展的需求。 4.保密性好。保证系统的安全，数据 存储信息的保密与安全。,4.实体E-R图,系统组成的的总体框图：,5.数据库的设计,系统的设定：,5.数据库的设计,1.用户清单表,5.数据库的设计,1.产品清单表,1.用户注册,6. VisualBasic设计,显示注册界面,6. VisualBasic设计,Private Sub Command2_Click() ADDNEWUSER.Show 显示注册界面 Unload ENTER End Sub Private Sub Form_Load() Set DataGrid1.DataSource = Adodc1 加载ADO End Sub,进行注册,*查找用户名是否有记录* strUser = “ + USERNAME.Text + “ Adodc1.RecordSource = “select * from 用户清单 where 用户名 = “ + strUser Adodc1.Refresh,*查找用户名是否有记录* strUser = “ + USERNAME.Text + “ Adodc1.RecordSource = “select * from 用户清单 where 用户名 = “ + strUser Adodc1.Refresh * If (Adodc1.Recordset.RecordCount = 0) Then 无记录才可注册新用户 If KEY1.Text = KEY2.Text Then Adodc1.Recordset.AddNew Adodc1.Recordset(“用户名“) = USERNAME.Text Adodc1.Recordset(“密码“) = KEY1.Text MsgBox “注册成功“, vbOKOnly, “注册信息“ Else,MsgBox “两次输入密码错误“, vbOKOnly, “注册信息“ End If Else MsgBox “用户名已存在,注册失败“, vbOKOnly, “注册信息“ End If End Sub Private Sub Command2_Click() ENTER.Show 返回登陆窗口 Unload ADDNEWUSER End Sub *,6. VisualBasic设计,2.登录,登录界面,Private Sub Command1_Click() Dim strName As String Dim strKey As String strName = “ + User_Name.Text + “ 封装用户输入的用户名和密码 strKey = “ + User_Key.Text + “ Adodc1.RecordSource = “select * from 用户清单 where 用户名 = “ + strName + “and 密码 = “ + strKey 搜索用户记录 Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then 无用户记录，提示 MsgBox “失败,用户名或者密码错误“, vbOKOnly, “登陆信息“ Else MsgBox “登陆成功“, vbOKOnly, “登陆信息“ CurrentUser = User_Name.Text 保存当前登录用户名 CurrentPermission = p_USER MANAGE_USER.Show Unload ENTER End If End Sub,6. VisualBasic设计,3.产品清单全览,产品全览,Private Sub Form_Load() Set DataGrid1.DataSource = Adodc1 End Sub,4.插入产品信息,6. VisualBasic设计,插入,Private Sub Form_Load() Set DataGrid1.DataSource = Adodc1 加载ADO为记录源 End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub InsertButton_Click() Dim OldPath As String Dim NewPath As String Dim strUser As String Adodc1.Recordset.AddNew Adodc1.Recordset(“ID“) = blank0.Text Adodc1.Recordset(“型号“) = blank1.Text Adodc1.Recordset(“品牌“) = blank2.Text Adodc1.Recordset(“价格“) = blank3.Text Adodc1.Recordset(“产地“) = blank4.Text Adodc1.Recordset(“生产厂商“) = blank5.Text Adodc1.Recordset.Update MsgBox “插入成功“, vbOKOnly, “插入信息” End Sub,6. VisualBasic设计,5.查询产品,查询,Private Sub Command2_Click() Dim strName As String strName = “ + FIND_USER.Text + “ Adodc1.RecordSource = “select * from 产品清单 where 型号 = “ + strName Adodc1.Refresh End Sub,6. VisualBasic设计,6.删除产品信息,删除,Private Sub DeleteButton_Click() Dim strName As String DataGrid1.Col = UserCol strName = “ + DataGrid1.Text + “ Adodc1.RecordSource = “select * from 产品清单 where ID = “ + strName Adodc1.Refresh DataGrid1.Col = UserCol Adodc1.Recordset.Delete 删除 Adodc1.Recordset.Update Adodc1.RecordSource = “select * from 产品清单“ Adodc1.Refresh End S