基于vb及sqlserver的管理系统实训指导书

《基于vb及sqlserver的管理系统实训指导书》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、基于VB及SQLSERVER的管理系统实训指导书计算机软件技术专业适用大连职业技术学院信息技术系计算机软件技术教研室8实验（训）一连接数据库及调用存储过程（15学时）一、创建数据库及其表1．新建个人信息管理系统数据库“Pinformation”。2．建表Contacts、ContactPhones、Reminders表。(1)Contacts（联系人表）字段名字段数据类型主键标识列说明ContactIDIntYesYes联系人编号NameVarchar(50)联系人姓名AddressVarchar(100)联系人所在城市ZipCodeVarchar(20)邮编EmailAddressV

2、archar(50)电子邮箱ContactNoteVarchar(50)备注(2)ContactPhones（联系人电话表）字段名字段数据类型主键标识列说明ContactPhoneIDIntYesYes联系人电话编号ContactIDInt联系人编号PhoneTypeVarchar(50)电话类型PhoneNumberVarchar(50)电话号码(3)Reminders（提示信息表）字段名字段数据类型主键标识列说明ReminderIDIntYesYes联系人电话编号AlarmOnBit报警标识AlarmTimedatetime报警时间ReminderNoteVarchar(1000)

3、提示内容二、在VB中查看数据库对象新建工程，在VB界面中，执行“视图”菜单的“数据视图窗口”菜单项，或者在ADO控件属性中操作，创建数据库的连接。1．在图一的属性页中选择“通用”选项卡，选择“使用连接字符串”，点击“生成”按钮，弹出图二。2．在图二中选择“提供者”选项卡，选择为SQLServer提供的数据驱动，点击“下一步”按钮，弹出图三。8（图一）（图二）（图三）3．在图三中根据SQLServer的用户设置情况，确定使用的登录服务器方式；服务器的名称，取决于是网络访问还图三是本地访问，如果为本地访问，则不必输入任何信息；如网络访问必须输入服务器的名称；然后再选择要访问的数据库名称，最

4、后点击“测试连接”按钮，如弹出图四所示对话框，则证明测试数据库连接成功，点击每一层的“确定”按钮即可。（图四）（图五）三、设计窗体界面如图五、图六所示。四、设计应用程序代码1．添加模块Module1。'显示声明变量OptionExplicit'登录用户账号PublicsqlusernemeAsString'登录用户密码PublicsqlpasswordAsString'数据库连接对象（图六）PublicwyAsNewADODB.Connection2．工程启动窗体form1的设计。l窗体加载事件：PrivateSubForm_Load()'为连接对象设置连接字符串，并打开。wy.Con

5、nectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;"_&"PersistSecurityInfo=False;InitialCatalog=pinformation;"_&"Datasource="wy.Open8EndSub注意：代码折行的写法。l“下一步”按钮的单击事件：PrivateSubCommand1_Click()Form2.Show'显示窗体Form2UnloadMe'卸载窗体Form1EndSub3．创建存储过程。l功能：在contacts表中添加一条记录CREATEPROCEDUREcontactad

6、d@namevarchar(50),@addressvarchar(100),@zipcodevarchar(20),@emailaddressvarchar(50),@contactnotevarchar(50)ASbegininsertintocontacts(name,address,zipcode,emailaddress,contactnote)values(@name,@address,@zipcode,@emailaddress,@contactnote)select@@identityasthenewidendreturnl功能：在contacts表中查询联系人编号合姓

7、名，并按姓名排序CREATEPROCEDUREcontactlistASbeginselectcontactid,namefromcontactsorderbynameendreturnl功能：在contacts表中查询联系人的一条记录CREATEPROCEDUREcontactrecord@contactidintegerASbeginif@contactid=0beginselect*fromcontactswherecontactid=(