图书馆管理系统示范.docVIP

宿舍图书馆管理系统 本系统采用SQL Server 2000作后台数据库，Visual Basic 6.0作前台界面。 系统需求分析 需求分析 概念模型设计 逻辑结构设计 系统设计（系统总体设计，数据库设计） 系统界面及代码设计 工程的结构 该图书馆系统由19个窗体，1个标准模块(Module1.Bas) 和1个设计器组成,如图所示： 模块程序（Module1） 模块的代码如下： Option Explicit Public cnn As ADODB.Connection 定义连接数据库对象 Public cmd As ADODB.Command Public cmd1 As ADODB.Command 定义执行sql语句对象 Public rst As New ADODB.Recordset 定义打开表对象 Public rst1 As New ADODB.Recordset Public rst2 As New ADODB.Recordset Public cnt As Integer 定义用户登录次数值 连接数据库（Form1） ①“连接数据库”窗体的设计界面如下图： ②窗体中各控件的属性设置。其caption属性与文本框的text属性如表： “连接数据库”窗体控件属性 Name属性 其他属性 Label1(0) Caption=” 服务器” Label1(1) Caption=” 数据库” Command1 Caption=”连接” Command2 Caption=” 返回” Form1 Caption=”连接数据库” Text1 Text2 ③“连接数据库”窗体的代码如下： Private Sub Command1_Click() If Text1.Text = Then MsgBox 没有填写服务器, vbOKOnly + vbExclamation, Text1.SetFocus ElseIf Text2.Text = Then MsgBox 没有填写数据库, vbOKOnly + vbExclamation, Text2.SetFocus Else cnn = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog= Text2.Text ;Data Source= Text1.Text cnn.Open cnn Unload Me login.Show End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Set cnn = New ADODB.Connection End Sub 登录（login） ①“登录”窗体的设计界面如下图： ②窗体中各控件的属性设置。其caption属性与文本框的text属性如表： Name属性 其他属性 Label1(0) Caption=” 用户名” Label1(1) Caption=” 密码” Command1 Caption=”确定” Command2 Caption=” 返回” login Caption=”连接数据库” Text1 Text2 Passwordchar=”*” ③“登录”窗体的代码如下： Private Sub Command1_Click() If Text1.Text = Then 判断输入的用户名是否为空 MsgBox 没有这个用户, vbOKOnly + vbExclamation, Else If rst.State = 1 Then rst.Close End If rst.Open select * from 用户 where 用户名= Text1.Text , cnn,adOpenKeyset, adLockPessimistic If rst.EOF = True Then MsgBox 没有这个用户, vbOKOnly + vbExclamation, rst.Close Text1.Text = Text1.SetFocus Else 检验密码是否正确 If Trim(rst.Fields(密码).Value) = Trim(Text2.Text) Then