基于VB及SQLSERVER的管理系統(tǒng)實(shí)訓(xùn)指導(dǎo)書

1、基于VB A SQLSERVER的管理彙饑 計算機(jī)軟件技術(shù)專業(yè)適用 大連職業(yè)技術(shù)學(xué)院 信息技術(shù)系 計算機(jī)軟件技術(shù)教研室 實(shí)驗（訓(xùn)）一連接數(shù)據(jù)庫及調(diào)用存儲過程（15學(xué)時） 一、創(chuàng)建數(shù)據(jù)庫及其表 1. 新建個人信息管理系統(tǒng)數(shù)據(jù)庫Pinformation 2. 建表 Contacts ContactPhones Reminders 表。 （1） Contacts （聯(lián)系人表） 字段名 字段數(shù)據(jù)類型 主鍵 標(biāo)識列 說明 ContactID Int Yes Yes 聯(lián)系人編號 Name Varchar (50) 聯(lián)系人姓名 Address Varchar (100) 聯(lián)系人所在城市 ZipCode Va

2、rchar(20) 郵編 EmailAddress Varchar (50) 電子郵箱 ContactNote Varchar (50) 備注 (2) ContactPhones (聯(lián)系人電話表) 字段名 字段數(shù)據(jù)類型 主鍵 標(biāo)識列 說明 ContactPhonelD Int Yes Yes 聯(lián)系人電話編號 ContactID Int 聯(lián)系人編號 PhoneType Varchar (50) 電話類型 PhoneNumber Varchar (50) 電話號碼 (3) Reminders (提示信息表) 字段名 字段數(shù)據(jù)類型 主鍵 標(biāo)識列 說明 ReminderlD Int Yes Yes 聯(lián)

3、系人電話編號 AlarmOn Bit 報警標(biāo)識 AlarmTime datetime 報警時間 ReminderNote Varchar(1000) 提示內(nèi)容 二、在VB中查看數(shù)據(jù)庫對象 （圖一） 新建工程，在VB界面中，執(zhí)行“視圖” 菜單的“數(shù)據(jù)視圖窗口”菜單項，或者在ADO 控件屬性中操作，創(chuàng)建數(shù)據(jù)庫的連接。 1. 在圖一的屬性頁中選擇通用”選項 卡，選擇“使用連接字符串”，點(diǎn)擊“生成” 按鈕，彈出圖二。 2. 在圖二中選擇“提供者”選項卡，選 擇為SQL Server提供的數(shù)據(jù)驅(qū)動，點(diǎn)擊“下 一步”按鈕，彈出圖三。 3 恕帛52璉按n:做足 OLE DB捉供吾 Connect i vi

4、t/ Sr vi ce Frc-vi dr Mo crsoft Jt 3.51 OLE CB frwider Ma crsolt Jvt 4. 0 OLE DD odda M cr oxo t OLEDBPr ova drforDrS Pxek* Mi crbsoft OLEDB?rwi dwfrIndexinc Service MiOLEDIrxovi(l drforODBC Driv*r Mo crscft OLEDBProv: dcrfrOLAT Services Mi crsoft OLEDBovi dtrorOLg Sfttrvics 6.0 Mj cr oxo t OLE DB P

5、r ovj dr for OrxcLa MSD*t (hF OLR PB Prcvider Integrated Security二SSPI; _ 贏嬴了裏申香詢解款鏑尋苔薛弄顧茗排萍 CREATE PROCEDURE contactlist AS begin select contactid, name from contacts order by name end return 厲能：4 contacts 香詢聯(lián)索只刖一條適錄 CREATE PROCEDURE contactrecord contactid integer AS begin if contactid=0 begin sel

6、ect * from contacts where contac ti d=(select min (co nt actid) from co nt acts) end else begin select * from contacts where contactid=contactid end end return 場能：在contacts視申對一條錄迸行更政 CREATE PROCEDURE contactupdate contactid integer, name varchar(50), address varchar(100), zipcode varchar(20), emaila

7、ddress varchar(50), contactnote varchar(500) AS begin update contacts set name=name, address=address, zipcode=zipcode, emai1address=emai1address, contactnote=contactnote where contactid=contactid end return 厲能：S contacts S申蒯礫一條運(yùn)錄 CREATE PROCEDURE deletecontact contactid integer AS begin delete from

8、contacts where contactid=contactid end return 功能：S Cont act Phones裏申漆加一條竜話適錄 CREATE PROCEDURE contactphoneadd contactid integer, phonetype varchar(50), phonenumber varchar(50) AS begin insert into contactphones (contactid, phonetype, phonenumber) values (contactid, phonetype, phonenumber) end return

9、 功能：5 ContactPhones裏申蒯際一條電話迫錄 CREATE PROCEDURE contactphonedelete contactphoneid integer AS begin delete from contactphones where contactphoneid=contactphoneid end return 歷能：SContactPhones裏申香詢雖岳岳箓 CREATE PROCEDURE contactphonelist contactid integer AS begin select contactphoneid, phonetype+, - +phon

10、enumber as thephone from contactphones where contactid=contactid order by phonetype+, - +phonenumber end return ri-iSSiio CREATE TRIGGER deletecontacts ON contacts after DELETE AS begin delete from contactphones where contactid= (select contactid from deleted) end 5. form2的代碼設(shè)計。 (1) 變量的定義： Option Ex

11、plicit Private current id As Long 當(dāng)前聯(lián)系人編號 (2) 用戶自定義子程序： 顯示一條聯(lián)系人的記錄 Public Sub displaycontact (id2use As Long) Dim rscontact As ADODB Recordset Set rscontact = wy. Execute (z/exec Contactrecord _ & id2use) If rscontact EOF Then Command4_Click Else currentid = rscontact(contactid) Textl .Text = rscont

12、act(name) Text2Text = rscontact(address) Text3Text = rscontact Czipcode) Text4. Text = rscontact Cemailaddress，z) Text5 .Text = rscontact(contactnote) displayphonelist End If End Sub 匸麗頑紊麗茁麗頁廠蘇菇斥麗擁審 Public Sub updatenamecombo() Dim rsnames As ADODB Recordset Set rsnames = wy. Execute (，zexec contactlistzz) cmbcontacts Clear Do Until rsnames.EOF cmbcontacts Additem rsnames(name) cmb