基于VB及SQLSERVER的管理系统实训指导书

基于VB及SQLSERVER的管理系统
实训指导书
计算机软件技术专业适用
大连职业技术学院
信息技术系
计算机软件技术教研室
实验（训）一连接数据库及调用存储过程（15学时）
一、创建数据库及其表
1．新建个人信息管理系统数据库“Pinformation”。

2．建表Contacts、ContactPhones、Reminders表。

(1) Contacts（联系人表）
字段名字段数据类型主键标识列说明
ContactID Int Yes Yes 联系人编号Name Varchar(50) 联系人姓名
Address Varchar(100) 联系人所在城市
ZipCode Varchar(20) 邮编EmailAddress Varchar(50) 电子邮箱
ContactNote Varchar(50) 备注
(2) ContactPhones（联系人电话表）
字段名字段数据类型主键标识列说明ContactPhoneID Int Yes Yes 联系人电话编号ContactID Int 联系人编号
PhoneType Varchar(50) 电话类型
PhoneNumber Varchar(50) 电话号码
(3) Reminders（提示信息表）
字段名字段数据类型主键标识列说明ReminderID Int Yes Yes 联系人电话编号
AlarmOn Bit 报警标识
AlarmTime datetime 报警时间
ReminderNote Varchar(1000) 提示内容
二、在VB中查看数据库对象
新建工程，在VB界面中，执行“视图”
菜单的“数据视图窗口”菜单项，或者在ADO
控件属性中操作，创建数据库的连接。

1．在图一的属性页中选择“通用”选项
卡，选择“使用连接字符串”，点击“生成”
按钮，弹出图二。

2．在图二中选择“提供者”选项卡，选
择为SQL Server提供的数据驱动，点击“下
一步”按钮，弹出图三。

（图一）
（图二）（图三）3．在图三中根据SQL Server的用户设置情况，确定使用的登录服务器方式；服务器的名称，取决于是网络访问还图三是本地访问，如果为
本地访问，则不必输入任何信息；如网
络访问必须输入服务器的名称；然后再
选择要访问的数据库名称，最后点击“测
试连接”按钮，如弹出图四所示对话框，
则证明测试数据库连接成功，点击每一
层的“确定”按钮即可。

（图四）（图五）
三、设计窗体界面
如图五、图六所示。

四、设计应用程序代码
1．添加模块Module1。

'显示声明变量
Option Explicit
'登录用户账号
Public sqluserneme As String
'登录用户密码
Public sqlpassword As String
'数据库连接对象（图六）
Public wy As New ADODB.Connection
2．工程启动窗体form1的设计。

Private Sub Form_Load()
'为连接对象设置连接字符串，并打开。

3．创建存储过程。

4．创建触发器。

5．form2的代码设计。

（1）变量的定义：
Option Explicit
Private currentid As Long '当前联系人编号（2）用户自定义子程序：
✧显示一条联系人的记录
✧查询联系人姓名和编号，并添加到下拉列表框中
✧读取联系人的电话号码，并添加到列表框中
✧Cmbcontacts的单击事件
✧Command3 “添加”按钮的单击事件
✧Command4 “修改”按钮的单击事件
✧Command5 “删除”按钮的单击事件
✧Command6 “清除”按钮的单击事件
✧Command8 “退出”按钮的单击事件
实验（训）二创建数据库报表（15学时）
一、添加数据报表设计器
1．如图七所示。

添加标签、文本框线控件。

在文本框的DataField属性中添
加相应标签所对应数据库中contacts
表中的数据字段。

2．在数据库“Pinformation”
中创建存储过程contactreport
CREATE PROCEDURE contactreport
@contactid int
AS
SELECT 0110, dbo.contacts0110.address0110,
dbo.contacts0110.zipcode0110, dbo.contacts0110.emailaddress0110, dbo.contacts0110.contactnote0110
FROM dbo.contactphones0110 left outer JOIN
dbo.contacts0110 ON
dbo.contactphones0110.contactid0110 = dbo.contacts0110.contactid0110 where dbo.contacts0110.contactid0110=@contactid
return
3．Form2中的代码设计：Command7 “报表”按钮的单击事件
Private Sub Command7_Click()
Dim rs As New ADODB.Recordset
If currentid = 0 Then Exit Sub
rs.Open "select * from contacts where contactid=" & currentid & "", wy, adOpenStatic, adLockReadOnly
If rs.RecordCount > 0 Then
Set DataReport1.DataSource = rs
DataReport1.Show 1
Else
rs.Close
End If
End Sub
4．运行。