【正文】 34 Set objRecordset = ExecuteSQL(strSQL) Do While Not (0) Loop = 0 39。 代碼如下： Private Sub Form_Load() Dim objRecordset As 39。這是利用了 adodc 部件和 DataGrid 部件，二者經(jīng)常搭配使用。 學(xué)生界面 .Show End Select 39。 Trim() amp。顯示主界面 學(xué)生界面 .StudentID = 39。獲得符合輸入的密碼記錄集 Set objRecordset = ExecuteSQL(strSQL) 39。 39。 amp。從數(shù)據(jù)庫(kù)中獲得用戶名 sno = (0) 39。獲得符合輸入的用戶記錄集 Set objRecordset = ExecuteSQL(strSQL) 30 39。 39。 amp。顯示主界面 管理員界面 .Show Case 2 39。獲得符合輸入的密碼記錄集 Set objRecordset = ExecuteSQL(strSQL) 39。 39。 amp。從數(shù)據(jù)庫(kù)中獲得用戶名 mno = (0) 39。獲得符合輸入的用戶記錄集 Set objRecordset = ExecuteSQL(strSQL) 39。 39。 amp。聲明 SQL 字符串 29 Dim strSQL As String Select Case opt Case 1 39。 代碼如下： Private Sub Command1_Click() 39。Data Source=.。Persist Security Info=False。連接字符串賦值函數(shù) Public Function ConnectString() As String ConnectString=Provider=。釋放對(duì)象 Set objRecordset = Nothing Set objConnection = Nothing Exit Function 39。執(zhí)行 SQL 查詢 strSQL Else 39。打開(kāi)數(shù)據(jù)庫(kù) 39。定義新連接 Set objConnection = New 39。聲明 對(duì)象變量 Dim objRecordset As 39。 Option Explicit Public strSQL As String Public Function ExecuteSQL(ByVal strSQL As String) As On Error GoTo ErrorTrap 39。對(duì)于我們的實(shí)驗(yàn)關(guān)機(jī)后會(huì)使數(shù)據(jù)庫(kù)中我們自己建立的數(shù)據(jù)庫(kù)不見(jiàn)，所以可以進(jìn)行如同下圖的步驟： 客戶端 客戶端 客戶端 ADO 對(duì)象 各種數(shù)據(jù)庫(kù)所對(duì)應(yīng)的驅(qū)動(dòng)程序 各種數(shù)據(jù)庫(kù) (如 Access、 SQL Server以及 Oracle 等 ) 26 選擇 mdf 格式文件即可，會(huì)提示附加數(shù)據(jù)庫(kù)成功。故而，實(shí)現(xiàn)本系統(tǒng) VB 是一個(gè)相對(duì)較好的選擇。 Visual Basic 提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過(guò)程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。)。,39。,39。,39。 INSERT INTO worker(wno,wname,wpost,rno) VALUES(39。0239。經(jīng)理39。周揚(yáng) 39。4048339。)。,39。,39。,39。 INSERT INTO worker(wno,wname,wpost,rno) VALUES(39。0139。經(jīng)理39。張?zhí)m 39。4048139。)。,39。,39。,39。,39。,39。 INSERT INTO operation(rno,sno,fno,fnum,way,fbelong) VALUES(39。veg39。card39。0139。0639。20211514339。0139。)。,39。,39。,39。,39。,39。 INSERT INTO operation(rno,sno,fno,fnum,way,fbelong) VALUES(39。carn39。cash39。0139。0239。20216897439。0239。)。,39。,39。,39。,39。,39。 INSERT INTO operation(rno,sno,fno,fnum,way,fbelong) VALUES(39。carn39。cash39。0139。0139。20216897439。0239。)。,39。,39。,39。,39。,39。 INSERT INTO operation(rno,sno,fno,fnum,way,fbelong) VALUES(39。veg39。cash39。0139。0439。20214738439。0239。)。,39。,39。,39。,39。,39。 INSERT INTO operation(rno,sno,fno,fnum,way,fbelong) VALUES(39。carn39。cash39。0239。0139。20214738439。0239。)。,39。,39。,39。,39。,39。 INSERT INTO operation(rno,sno,fno,fnum,way,fbelong) VALUES(39。carn39。cash39。0239。0239。20211514339。0139。)。,39。,39。,39。,39。,39。 INSERT INTO operation(rno,sno,fno,fnum,way,fbelong) VALUES(39。carn39。cash39。0139。0139。20211512139。0139。)。,39。,39。,39。 INSERT INTO food(fno,fname,fprice,fbelong) VALUES(39。veg39。239。酸辣土豆絲39。0539。)。,39。,39。,39。 INSERT INTO food(fno,fname,fprice,fbelong) VALUES(39。veg39。239。清炒西洋菜39。0339。)。,39。,39。,39。 INSERT INTO food(fno,fname,fprice,fbelong) VALUES(39。carn39。439。 紅 燒 魚(yú) 塊39。0139。)。,39。 INSERT INTO restaurant(rno,rname) VALUES(39。清風(fēng)樓 39。0139。 20 由于建立了觸發(fā)器會(huì)自動(dòng)修改學(xué)生卡內(nèi)余額，截圖是在所有消費(fèi)記錄輸入過(guò)以后的，所以插入數(shù)據(jù)時(shí)的余額跟截圖的余額會(huì)有不同。7039。is39。6897439。張立 39。20216897439。)。,39。,39。,39。,39。 INSERT INTO student(sno,sname,spsw,sdept,sbalance) VALUES(39。14039。cs39。1514339。劉晨 39。20211514339。)。,39。,39。,39。,39。 2)向?qū)W生表中插入數(shù)據(jù) INSERT INTO student(sno,sname,spsw,sdept,sbalance) VALUES(39。3048239。李明 39。3048239。)。,39。,39。 18 創(chuàng)建視圖 CREATE VIEW pf_operation AS SELECT ,fprice,fnum,fnum*fprice*1 price,ctime FROM operation,restaurant,student,food WHERE = AND = AND = 19 七． 數(shù)據(jù)庫(kù) 的 實(shí)施 1）向管理員表中插入數(shù)據(jù) INSERT INTO manager(mno,mname,mpsw) VALUES(39。 begin UPDATE student SET =**1 FROM student, operation, food WHERE = and = and ctime = time end END 學(xué)生卡內(nèi)余額 =原余額 食品單價(jià) X數(shù)量 X 折扣。 17 創(chuàng)建觸發(fā)器 CREATE TRIGGER student_balance ON operation AFTER INSERT AS BEGIN DECLARE card char(10) 定義變量 DECLARE time datetime select card = way, time = ctime from inserted if card = 39。 16 CREATE UNIQUE INDEX food_fno ON food(fno)。 15 CREATE UNIQUE INDEX student_sno ON student(sno)。 14 建立 索引 CREATE UNIQUE INDEX worker_wno ON worker(wno)。 13 5）創(chuàng)建餐廳營(yíng)業(yè)表 CREATE TABLE operation (rno CHAR(9) NOT NULL, sno CHAR(9) NOT NULL, fno CHAR(9) NOT NULL, fnum CHAR(10) NOT NULL, ctime DATETIME DEFAULT GETDATE(), way CHAR(10) NOT NULL, fbelong CHAR(20) NOT NULL, FOREIGN KEY(rno) REFERENCES restaurant(rno), FOREIGN KEY(sno) REFERENCES student(sno), FOREIGN KEY(fno) REFERENCES food(fno) )。 12 3）創(chuàng)建餐廳表 CREATE TABLE restaurant (rno CHAR(9) PRIMARY KEY, rname CHAR(20) NOT NULL )。) 11 創(chuàng)建基本表 1) 創(chuàng)建管理員表 CREATE TABLE manager (mno CHAR(9) PRIMARY KEY, mname CHAR(20) NOT NULL, mpsw CHAR(18) NOT NULL )。) log on ( name=學(xué)校餐廳 _log, filename=39。 選擇存取路徑 create database 學(xué)校餐廳 on ( name=學(xué)校餐廳 _data, filename=39。為一個(gè)給定的邏輯數(shù)據(jù)模型選取一個(gè)最適合應(yīng)用環(huán)境的物理結(jié)構(gòu)的過(guò)程，就是數(shù)據(jù)庫(kù)的物理設(shè)計(jì)。 5) 對(duì)關(guān)系模式進(jìn)行必要的分解，提高數(shù)據(jù)操作的效率和存儲(chǔ)空間的利用率。 4) 按照需求分析階段得到的處理要求，分析對(duì)于這樣的應(yīng)用環(huán)境這些模式是否合適，確定是否要對(duì)模式進(jìn)行合并或分解。方法為： 1) 確定數(shù)據(jù)依賴； 2) 對(duì)于各個(gè)關(guān)系模式之間的數(shù)據(jù)依賴進(jìn)行極小化的處理，消除冗余的聯(lián)系； 3) 按照數(shù)據(jù)依賴的理論對(duì)關(guān)系模式逐一進(jìn)行分析，考察是否存在部分函數(shù)、傳遞依賴、多值依賴等，確定各關(guān)系模式分別處于第幾范式。 合并分 ER圖，生成總的 ER 圖 學(xué)生 消費(fèi) 餐廳 工作 食品 點(diǎn)菜 管理 管理員 學(xué)號(hào) 姓名 專(zhuān)業(yè) 卡內(nèi) 余額 食品號(hào) 食品名 職位 食品類(lèi)別 編號(hào) 名稱 工號(hào) 姓名 密碼 銷(xiāo)售 員工 工號(hào) 姓名 單價(jià) 所屬餐廳 學(xué)生密碼 10 五． 邏輯結(jié)構(gòu)設(shè)計(jì) 數(shù)據(jù)模型的優(yōu)化 數(shù)據(jù)庫(kù)邏輯設(shè)計(jì)的結(jié)果不是唯一的。 （ 2） 每個(gè)學(xué)生可以點(diǎn)多種食物，每個(gè)食物也可以被多個(gè)學(xué)生點(diǎn)。 由于餐廳的營(yíng)業(yè)表 學(xué)生、餐廳、 食品 三者之間的多對(duì)多聯(lián)系轉(zhuǎn)換