VB开发小 型 书 店 管 理 系 统.doc

某某学院 计算机科学与技术系 课 程 设 计 报 告 课 程 名 SQL Server 2005 数据库管理与开发教程 设计题目 小 型 书 店 管 理 系 统 班 级 08级本科(2)班 专 业 计算机科学与技术 姓 名 张世俊 指导教师 孙海霞 2011年6月16日制 一．设计任务 1.利用Visual Basic 6.0和microsoft SQL server 2005建立“小型书店管理系统” 2.查询购买书的数量超过10本的客户信息。 3.按照输入图书名称和购买的月份，来查询该图书当月销售情况（总数量，总金额） 任务分配：何洋洋 负责小型书店管理系统需求分析、逻辑结构设计(ER图)。 洪锐 负责图书管理系统功能结构图设计。 万磊 负责图书管理系统物理结构设计(创建数据库)。 张世俊 负责图书管理系统的VB界面与代码设计，并完成测试 二．完成任务的思路、方法与算法： 首先完成“小型图书管理系统”的需求分析，在此基础上完成E-R模型设计，再次设计数据库，完成系统数据库的物理结构设计，建立相应的数据库；然后使用VB连接数据库，设计登录界面、主界面、以及系统主要功能界面，最后编写代码完成系统设计要求，并作测试、最总完成整个图书管理系统设计 三．程序框图： 1.系统功能结构图： 2.系统E-R图： 该图书管理系统的E-R图如下所示： 四．核心程序（对主要的语句要加注释) 1.登陆界面代码： Public Function conn() As ADODB.Connection On Error GoTo 1 Set conn = New ADODB.Connection conn.Open Provider=SQLOLEDB.1 ;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=小型书店管理系统;Data Source=F301-63 Exit Function 1: MsgBox Err.Description End End Function Private Sub Command1_Click() If Trim(Text1.Text) And Trim(Text2.Text) Then Dim rs As New Recordset rs.Open select username from tb_user where username= Me.Text1 and password = Me.Text2 , conn, adOpenKeyset, adLockOptimistic If Not rs.EOF Then Frm_Main.Show Unload Me Else MsgBox 用户名或密码不正确, vbCritical End If rs.Close Set rs = Nothing Else MsgBox 请输入用户名和密码, vbCritical End If End Sub Private Sub Command2_Click() Unload Me 卸载当前窗体 End Sub 主窗体代码： Private Sub about_Click() Dim ab As New Frm_about ab.Show End Sub Private Sub add_tsinfo_Click() Dim ad As New Frm_addbookinfo ad.Show End Sub Private Sub de_tsinfo_Click() Dim de As New Frm_deletebookinfo de.Show End Sub Private Sub Exit_Click() Unload Me End Sub Private Sub gs10_Click() Dim gs10 As New Frm_g