基于VB与SQLSERVER的管理系统实训指导书.docVIP

基于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() 为连接对象设置连接字符串，并打开。 wy.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI; _ Persist Security Info=False;Initial Catalog=pinformation; _ Data source= wy.Open End Sub 注意：代码折行的写法。 “下一步”按钮的单击事件： Private Sub Command1_Click() Form2.Show 显示窗体Form2 Unload Me 卸载窗体Form1 End Sub 3．创建存储过程。