SQL+VB图书管理系统.doc

  1. 1、本文档共33页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
SQL+VB图书管理系统 实验报告 小型图书管理系统 一、 实验目的 采用C/S模式完成一个小型的图书管理系统;完成从需求分析、数据模式设计到编码实现、系统调试的所有流程;通过此一图书管理系统的实现,在实践中掌握数据库系统设计的特点、方法和步骤。 二、 实验环境 SQL Server 2000 ,Visual Basic 5人组成一组,共同开发完成; 三、 实验小组 况佳亮、梁苏苏、唐宏宇、姚荣景、子丽天 四、 实验要求 完成一个小型图书管理系统,功能要求如下: 假定需要保存图书,“读者”,“借阅”和作者信息以及他们之间的关系。 1) 图书基本信息(图书编号、书名、类别、出版社、出版日期、作者、内容摘要,存放地 点,数量) 2) 读者基本信息(读者编号、读者名称、性别、读者类别、工作单位、家庭住址、联系电 话) 3) 借阅基本信息(借阅编号(自动编号)、读者编号、读者名称、图书编号、书名、出借日 期、还书日期) 要求: 1) 能对以上三个基本信息进行添加、修改和删除等操作。 2) 能随时查阅图书的基本情况; 3) 能随时查询读者的借阅情况; 能完成借书和还书的功能; 4) 5) 以上每项操作应打印出报表 四、实验原理 数据库应用系统的开发包括数据库设计和应用程序设计两部分。在系统开发正式开始之前,首先要进行系统分析。这一阶段的任务是通过调查研究,了解应用系统使用者的组织机构、业务范畴,确定新系统的目标,并且对系统开发能否达到这一目标做出可行性分析。整个开发过程分为七个阶段,即系统分析、需求分析、总体设计、详细设计、系统实施、系统测试、系统运行与维护。 在客户机/服务器结构中,应用程序中所需的代码可以根据需要划分到服务器或客户机端,这样,为了一个特定的任务,客户机上的程序可以和服务器上的程序协同合作。一般客户端的代码用于完成用户的输入、输出及数据的检查,而服务器端的代码完成对数据库的操 作。 VB不仅是一种程序设计,它也是一个开发数据库应用或其他应用的环境。VB为开发的人员提供可视化的设计环境,提供了构造用户界面所需的大多数可视化对象。在VB环境中开发数据库应用、与数据库连接和对数据库中的数据操作是通过ODBC,数据库引擎、OLE DB等实现提供了一个可视化的数据管理器Visual Data Manager来完成各种数据库的管理,包括创建表、建索引、查询数据等功能,方便了数据开发。 五、程序代码 1、 Private Sub queding_Click() If Trim(computer.Text) = Or shujuku.Text = Then MsgBox 服务器名和数据库名有误, vbOKOnly + vbExclamation, computer.SetFocus Else Set cnn = New ADODB.Connection cnn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog= shujuku.Text ;Data Source= computer.Text Unload Me 登录.Show End If End Sub Private Sub quxiao_Click() Unload Me End Sub 2、 Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdOK_Click() Dim rs_login As New ADODB.Recordset If Trim(txtUserName.Text) = Then 判断输入的用户名是否 为空 MsgBox 没有这个用户, vbOKOnly + vbExclamation, txtUserName.SetFocus Else rs_login.Open select * from usertable where username= txtUserName.Text , cnn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox 没有这个用户, vbOKOnly + vbExclamation, txtUserName.SetFocus Else 检验密码是否正确 If Trim(rs_login.Fields(userpsw).Value) = Trim(txtPassword.Text) Then rs_login.Cl

文档评论(0)

Kumba + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档