vb结合SQL开发网上书店管理系统.docVIP

某某学院 计算机科学与技术系 课 程 设 计 报 告 课 程 名 数据库应用 设计题目 网上书店管理系统 班 级 08本科2班 专 业 计算机科学与技术 姓 名 某某 指导教师 孙海霞 2011年6月制 设计任务 1）根据题目需求设计功能结构图； 2）设计书籍信息管理子窗体界面； 3）编写书籍信息管理子窗体程序。 完成任务的思路、方法与算法： 熟悉VB，学会在用VB对数据库中的信息进行操作！了解掌握一些VB中的一些常用控件，实现对窗体界面的设计，熟悉ADO控件和对象知识，连接数据库，并利用VB中的编程语言编辑一些控件的功能对数据库中的数据进行添加、修改和查询。 网上书店管理系统功能结构图： 网上书店管理系统E-R图： 核心程序（对主要的语句要加注 网上书店管理系统 登陆界面： 登陆界面vb代码： Private Sub Command1_Click() Dim user As String Dim pass As String user = Text1.Text pass = Text2.Text If user = hxl And pass = 123 Then Unload Me Frm_Main.Show Else MsgBox (用户名或密码错误) End If End Sub Private Sub Command2_Click() Unload Me End Sub MDI主题窗口界面： 3.子窗体功能的实现 ① 数据库的连接 Private Sub Form_Load() conn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=网上书店管理系统;Data Source2310 rs.Open select * from 图书信息表, conn, 1, 3, adCmdText Set MSHFlexGrid1.DataSource = rs End Sub ② 对添加功能的实现 输入图书编号、图书名称和单价，添加数据到数据库 Private Sub Command1_Click() rs.AddNew rs.Fields(图书编号) = Text1.Text rs.Fields(图书名称) = Text2.Text rs.Fields(单价) = Text3.Text If Len(Text1.Text) 0 And Len(Text2.Text) 0 And Len(Text3.Text) 0 Then rs.Update Set MSHFlexGrid1.DataSource = rs MsgBox 信息添加成功！ End If End Sub ③ 对修改功能的实现 对查询的的图书信息进行修改 Private Sub Command2_Click() rs.Close rs.Open select * from 图书信息表 where 图书编号= + Text1.Text + , conn, adOpenKeyset, adLockOptimistic, adCmdText rs.Fields(图书名称) = Text2.Text rs.Fields(单价) = Text3.Text rs.Update Set MSHFlexGrid1.DataSource = rs End Sub ④ 对查询功能的实现 通过图书编号查询图书的信息 Private Sub Command3_Click() rs.Close rs.Open select*from 图书信息表 where 图书编号= Trim(Text1.Text) , conn, adOpenDynamic, adLockPessimistic Set MSHFlexGrid1.DataSource = rs End Sub ⑤ 调试运行结果 购买者信息管理界面： 1.子窗体设计 Dim conn As New ADODB.Connection//声明Connection对象 Dim rs As New ADODB.Recordset//声明Recordset对象 Private Sub Command1_Click() rs.AddNew rs.Fields(购买者编号) = Text1.Text rs.Fields(购买者