數(shù)據(jù)庫(kù)應(yīng)用技術(shù)音像租借管理系統(tǒng)課件

1、遼 寧 工 業(yè) 大 學(xué) 數(shù)據(jù)庫(kù)應(yīng)用技術(shù) 課程設(shè)計(jì)（論文）題目： 音像租借管理系統(tǒng) 院 （系）： 軟件學(xué)院 專業(yè)班級(jí)： 網(wǎng)絡(luò)工程141班 學(xué) 號(hào)： 141302007 學(xué)生姓名： 指導(dǎo)教師： 張莉莉 教師職稱： 助 教 起止時(shí)間：2014.11.17至2014.11.30設(shè)計(jì)任務(wù)及評(píng)語(yǔ)院（系）：軟件學(xué)院 教研室：軟件教研室學(xué) 號(hào)141302007學(xué)生姓名王一鏑專業(yè)班級(jí)網(wǎng)絡(luò)工程141班設(shè)計(jì)題目音像租借管理系統(tǒng) 設(shè) 計(jì) 任 務(wù)要求根據(jù)管理信息系統(tǒng)及數(shù)據(jù)庫(kù)設(shè)計(jì)原理，按照系統(tǒng)設(shè)計(jì)的步驟和規(guī)范，完成各階段的設(shè)計(jì)內(nèi)容。需求分析具體實(shí)際，數(shù)據(jù)流圖、數(shù)據(jù)字典、關(guān)系模型要規(guī)范。在sql server2000 上實(shí)

2、現(xiàn)數(shù)據(jù)庫(kù)的模型建立（數(shù)據(jù)庫(kù)、表的建立、完整性約束的實(shí)現(xiàn)、關(guān)系圖、必要的存儲(chǔ)過(guò)程及觸發(fā)器的編程），并用VB實(shí)現(xiàn)簡(jiǎn)單的應(yīng)用程序。設(shè)計(jì)過(guò)程中，要嚴(yán)格遵守設(shè)計(jì)的時(shí)間安排，聽(tīng)從指導(dǎo)教師的指導(dǎo)。正確地完成上述內(nèi)容，規(guī)范完整地撰寫(xiě)出設(shè)計(jì)報(bào)告。指導(dǎo)教師評(píng)語(yǔ)及成績(jī)成績(jī)： 指導(dǎo)教師簽字： 2013 年 12 月 2 日遼 寧 工 業(yè) 大 學(xué) 課 程 設(shè) 計(jì) 說(shuō) 明 書(shū)（論 文）目 錄 第1章 設(shè)計(jì)目的與要求11.1 設(shè)計(jì)目的11.2 設(shè)計(jì)環(huán)境11.3 主要參考資料11.4 設(shè)計(jì)內(nèi)容與要求1第2章 設(shè)計(jì)內(nèi)容2.1數(shù)據(jù)庫(kù)設(shè)計(jì)2.1.1需求分析2.1.2 概念設(shè)計(jì)2.1.3 邏輯設(shè)計(jì)2.1.4物理設(shè)計(jì) 2.1.5數(shù)據(jù)庫(kù)

3、實(shí)現(xiàn)2.2 程序設(shè)計(jì)2.2.1概要設(shè)計(jì)2.2.2 程序?qū)崿F(xiàn)第3章 設(shè)計(jì)總結(jié)參考資料第1章 設(shè)計(jì)目的與要求1.1設(shè)計(jì)目的 SQL Server 2000 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā)技術(shù)是計(jì)算機(jī)相關(guān)專業(yè)的必修專業(yè)基礎(chǔ)課程，其實(shí)踐性、應(yīng)用性很強(qiáng)。實(shí)踐教學(xué)環(huán)節(jié)是必不可少的一個(gè)重要環(huán)節(jié)。本課程的程序設(shè)計(jì)專題實(shí)際是計(jì)算機(jī)相關(guān)專業(yè)學(xué)生學(xué)習(xí)完SQL Server 2000 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā)技術(shù)課程后，進(jìn)行的一次全面的綜合訓(xùn)練，SQL Server 2000 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā)技術(shù)的設(shè)計(jì)目的是加深對(duì)理論教學(xué)內(nèi)容的理解和掌握，使學(xué)生較系統(tǒng)地掌握程序設(shè)計(jì)及其在網(wǎng)絡(luò)開(kāi)發(fā)中的廣泛應(yīng)用，基本方法及技巧，為學(xué)生綜合運(yùn)用所學(xué)知識(shí)，

4、利用軟件工程為基礎(chǔ)進(jìn)行軟件開(kāi)發(fā)、并在實(shí)踐應(yīng)用方面打下一定基礎(chǔ)。1.2設(shè)計(jì)環(huán)境硬件要求能運(yùn)行Windows 9.X操作系統(tǒng)的微機(jī)系統(tǒng)。SQL Server 2000 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā)技術(shù)及相應(yīng)的集成開(kāi)發(fā)環(huán)境，SQL Server 2000 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā)工具和Visual Basic6.0程序設(shè)計(jì)開(kāi)發(fā)工具。1.3主要參考資料1.管理信息系統(tǒng) 黃梯云 高等教育出版社2.數(shù)據(jù)庫(kù)系統(tǒng)概論 薩師煊 高等教育出版社 3.SQL Server 2000 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā)技術(shù)朱如龍編，機(jī)械工業(yè)出版社。4.SQL Server 2000 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā)技術(shù)實(shí)驗(yàn)指導(dǎo)朱如龍編，機(jī)械工業(yè)出版社1. 4設(shè)計(jì)

5、內(nèi)容及要求 一、內(nèi)容1.要求根據(jù)管理信息系統(tǒng)及數(shù)據(jù)庫(kù)設(shè)計(jì)原理，按照數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)的步驟和規(guī)范，完成各階段的設(shè)計(jì)內(nèi)容。2.需求分析具體實(shí)際，數(shù)據(jù)流圖、數(shù)據(jù)字典、關(guān)系模型要正確規(guī)范3.在sql server2000 上實(shí)現(xiàn)設(shè)計(jì)的數(shù)據(jù)庫(kù)模型。4.對(duì)應(yīng)用程序進(jìn)行概要設(shè)計(jì)。5.用VB實(shí)現(xiàn)簡(jiǎn)單的應(yīng)用程序編寫(xiě)。二、要求設(shè)計(jì)過(guò)程中，要嚴(yán)格遵守課程設(shè)計(jì)的時(shí)間安排，聽(tīng)從指導(dǎo)教師的指導(dǎo)。正確地完成上述內(nèi)容，規(guī)范完整地撰寫(xiě)出課程設(shè)計(jì)報(bào)告。 第2章 設(shè)計(jì)內(nèi)容2.1數(shù)據(jù)庫(kù)設(shè)計(jì)2.1.1需求分析本系統(tǒng)考慮到人們的一些操作習(xí)慣，由其可操作性的方便、快捷著手，針對(duì)中小音像租賃店設(shè)計(jì)。使這樣的中小型租賃店在使用本系統(tǒng)時(shí)，可以輕松

6、管理音像數(shù)據(jù)庫(kù)，方便的進(jìn)行交易管理。本系統(tǒng)靈活的搜索和查詢功能完全擺脫了傳統(tǒng)管理模式下經(jīng)營(yíng)者面對(duì)龐大的音像制品庫(kù)，不知道自己有哪些音像制品，租出多少，還存多少；解決顧客面對(duì)長(zhǎng)長(zhǎng)的音像目錄，很難找到自己要找的影片的弊端。用戶在使用本系統(tǒng)時(shí)，系統(tǒng)應(yīng)主要滿足用戶的以下幾個(gè)方面要求：1.當(dāng)租借者來(lái)對(duì)該店鋪內(nèi)的音像制品進(jìn)行租借時(shí)，系統(tǒng)應(yīng)能夠準(zhǔn)確，快速，詳盡的幫助管理人員查找到租借者與管理人員相聯(lián)系的相關(guān)音像制品的信息。2.管理人員在對(duì)音像制品的種類，格式等多方面信息應(yīng)可以根據(jù)自己本身的喜好習(xí)慣或按照當(dāng)下流行方式進(jìn)行細(xì)化分類，以方便對(duì)其信息的管理。3.管理人員應(yīng)可以通過(guò)系統(tǒng)添加會(huì)員，并對(duì)會(huì)員信息詳細(xì)記錄在

7、案，同時(shí)可進(jìn)行修改和刪除。并對(duì)會(huì)員借出的商品狀態(tài)有一定掌握。4.管理人員可以通過(guò)系統(tǒng)提供的報(bào)表分析當(dāng)日、月、年的各種音像制品的相關(guān)租賃信息，并對(duì)營(yíng)業(yè)額進(jìn)行查詢。5.具有網(wǎng)絡(luò)條件的租借顧客可以通過(guò)訪問(wèn)系統(tǒng)瀏覽該店鋪的音像制品相關(guān)信息，并且可以通過(guò)搜索手段對(duì)其感興趣的音像制品具有針對(duì)性的查詢。2.1.2概念設(shè)計(jì)概念結(jié)構(gòu)設(shè)計(jì)是數(shù)據(jù)庫(kù)設(shè)計(jì)的核心。概念結(jié)構(gòu)獨(dú)立于數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)，也獨(dú)立于所使用的具體的數(shù)據(jù)庫(kù)管理系統(tǒng)。根據(jù)音像租賃管理信息系統(tǒng)的實(shí)際要求和規(guī)范，在設(shè)計(jì)整個(gè)系統(tǒng)概念時(shí)，利用概念模型（E-R模型）將概念結(jié)構(gòu)實(shí)體化，可以借此對(duì)整個(gè)系統(tǒng)的概念結(jié)構(gòu)設(shè)計(jì)進(jìn)行評(píng)估，分析，然后根據(jù)整體實(shí)際情況進(jìn)行必要的修改

8、和補(bǔ)充。按照前面所敘述的本系統(tǒng)中所必要包含的一些要素，本次設(shè)計(jì)實(shí)體及其屬性圖如下。音像制品的相關(guān)信息分為其音像名、格式類別、分類類別、入庫(kù)量、庫(kù)存量、出版社名稱、ISRC編號(hào)。則其設(shè)計(jì)實(shí)體及其屬性圖如圖： 圖4.1 音像實(shí)體E-R圖會(huì)員相關(guān)信息分為會(huì)員姓名、聯(lián)系地址、聯(lián)系電話、押金、會(huì)員編號(hào)、租借記錄。則其設(shè)計(jì)實(shí)體及其屬性圖如圖圖4.2 會(huì)員實(shí)體E-R圖在整體系統(tǒng)邏輯設(shè)計(jì)上，主要闡述的是管理員在操作系統(tǒng)時(shí)對(duì)于會(huì)員相關(guān)信息以及音像制品相關(guān)信息的掌控情況，由于管理員如前所述的相對(duì)于整個(gè)系統(tǒng)的特殊性，所以在整體系統(tǒng)邏輯的設(shè)計(jì)上其總體ER圖就如圖：圖4.3 音像租賃管理系統(tǒng)總體ER圖2.1.3邏輯設(shè)計(jì)

9、數(shù)據(jù)庫(kù)中所有表的名稱及其標(biāo)識(shí)如表所示：表4.1表名及其標(biāo)示表名別名管理員信息Admin音像制品分類信息Class音像制品格式信息Format音像制品信息Vedio會(huì)員信息member租借信息rent下為管理員信息表，主要存儲(chǔ)了管理員的各項(xiàng)信息以及各項(xiàng)信息的約束條件。表4.2 管理員信息列表FieldType(Length)NullableDefaultCommentIDint(4)not主鍵,遞增Namenvarchar(50)管理員登陸用戶名passnvarchar(32)管理員登陸密碼loginNumint(4)登陸次數(shù)lastLogindatetime(8)getdate()最近登陸時(shí)間

10、下為音像制品分類信息表，主要存儲(chǔ)了音像制品分類的各項(xiàng)信息以及各項(xiàng)信息的約束條件。表4.3 音像制品分類信息列表FieldType(Length)NullableDefaultCommentIDint(4)not主鍵,遞增Classnamenvarchar(50)音像制品分類名Parentedint (4)音像制品父類id下為音像制品格式信息表，主要存儲(chǔ)了音像制品格式的各項(xiàng)信息以及各項(xiàng)信息的約束條件。表4.4 音像制品格式信息列表FieldType(Length)NullableDefaultCommentIDint(4)not主鍵,遞增Formatnaenvarchar(50)not音像制品格

11、式名下為會(huì)員信息表，主要存儲(chǔ)了會(huì)員的各項(xiàng)信息以及各項(xiàng)信息的約束條件。表4.5 會(huì)員信息列表FieldType(Length)NullableDefaultCommentIDint(4)not主鍵,遞增usernamenvarchar(50)not會(huì)員姓名CardNumnvarchar(50)not10000卡號(hào)telnvarchar(50)聯(lián)系電話Addressnvarchar(50)聯(lián)系地址Rnumint(4)not租借數(shù)量Btotalint(4)租借次數(shù)AdddateDatetime(8)getdate()租借日期MoneyMoney(8)押金下為租借信息表，主要存儲(chǔ)了租借的各項(xiàng)信息以及各

12、項(xiàng)信息的約束條件。表4.6 租借信息列表FieldType(Length)NullableDefaultCommentIDint(4)not主鍵,遞增Vidint(4)not音像制品idVnamenvarchar(50)not音像制品名Visrcnvarchar(50)not狀態(tài)Moneymoney(8)0押金Idcardnvarchar(18)證件號(hào)renttimedatetime(8)not租借時(shí)間Adminnvarchar(50)not管理backtimedatetime(8)(1900-1-1)歸還時(shí)間constmoney(8)0消費(fèi)額2.1.4物理設(shè)計(jì)在數(shù)據(jù)庫(kù)中創(chuàng)建索引時(shí)，查詢所使用

13、的索引信息存儲(chǔ)在索引頁(yè)中。連續(xù)索引頁(yè)由從一個(gè)頁(yè)到下一個(gè)頁(yè)的指針鏈接在一起。當(dāng)對(duì)數(shù)據(jù)的更改影響到索引時(shí)，索引中的信息可能會(huì)在數(shù)據(jù)庫(kù)中分散開(kāi)來(lái)。重建索引可以重新組織索引數(shù)據(jù)（對(duì)于聚集索引還包括表數(shù)據(jù))的存儲(chǔ)，清除碎片。這可通過(guò)減少獲得請(qǐng)求數(shù)據(jù)所需的頁(yè)讀取數(shù)來(lái)提高磁盤(pán)性能。 在 SQL Server 2000 中，如果要用一個(gè)步驟重新創(chuàng)建索引，而不想刪除舊索引并重新創(chuàng)建同一索引，則使用 CREATE INDEX 語(yǔ)句的 DROP_EXISTING 子句可以提高效率。這一優(yōu)點(diǎn)既適用于聚集索引也適用于非聚集索引。 邏輯結(jié)構(gòu)設(shè)計(jì)的任務(wù)就是把概念結(jié)構(gòu)設(shè)計(jì)階段設(shè)計(jì)好的基本E-R圖轉(zhuǎn)換為與選用DBMS產(chǎn)品所支持

14、的數(shù)據(jù)模型相符合的邏輯結(jié)構(gòu)。因此設(shè)計(jì)邏輯結(jié)構(gòu)首先應(yīng)該選擇最適于描述與表達(dá)相應(yīng)概念結(jié)構(gòu)的數(shù)據(jù)模型，然后選擇最合適的DBMS。設(shè)計(jì)邏輯結(jié)構(gòu)時(shí)一般要分三步進(jìn)行。將概念結(jié)構(gòu)轉(zhuǎn)換為一般的關(guān)系、網(wǎng)狀、層次模型將轉(zhuǎn)化來(lái)的關(guān)系、網(wǎng)狀、層次模型向特定DBMS支持下的數(shù)據(jù)模型轉(zhuǎn)換對(duì)數(shù)據(jù)模型進(jìn)行優(yōu)化根據(jù)上述的轉(zhuǎn)換原則，將音像租賃管理系統(tǒng)總體E-R圖轉(zhuǎn)換成關(guān)系模型，并對(duì)關(guān)系模型進(jìn)行優(yōu)化，結(jié)果如下：音像信息音像名，ISRC，格式，分類，庫(kù)存，入庫(kù)，出版社 音像名是此關(guān)系的主碼。會(huì)員信息會(huì)員編號(hào)，會(huì)員名，聯(lián)系地址，聯(lián)系電話，租賃記錄，押金 會(huì)員編號(hào)是此關(guān)系的主碼。管理員用戶名，密碼用戶名是此關(guān)系的主碼。2.1.5 數(shù)據(jù)庫(kù)

15、實(shí)現(xiàn)CREATE TABLE Admin (ID int NOT NULL ,name nvarchar (50) COLLATE Chinese_PRC_CI_AS NULL ,pass nvarchar (32) COLLATE Chinese_PRC_CI_AS NULL ,loginnum int NULL ,lastlogin datetime NULL ) ON PRIMARYGOCREATE TABLE Class (ID int NOT NULL ,Classname nvarchar (50) COLLATE Chinese_PRC_CI_AS NULL ,Parented

16、int NULL ) ON PRIMARYGOCREATE TABLE Format (Id int NOT NULL ,Formatnae nvarchar (50) COLLATE Chinese_PRC_CI_AS NOT NULL ) ON PRIMARYGOCREATE TABLE member (ID int NOT NULL ,username nvarchar (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,CardNum nvarchar (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,tel nvarcha

17、r (50) COLLATE Chinese_PRC_CI_AS NULL ,Address nvarchar (50) COLLATE Chinese_PRC_CI_AS NULL ,Rnum int NOT NULL ,Btotal int NULL ,Adddate datetime NULL ,Money money NULL ) ON PRIMARYGOCREATE TABLE rent (ID int NOT NULL ,VID int NOT NULL ,Vname nvarchar (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,Visrc n

18、varchar (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,Money money NULL ,Idcard nvarchar (18) COLLATE Chinese_PRC_CI_AS NULL ,renttime datetime NOT NULL ,Admin nvarchar (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,backtime datetime NULL ,const money NULL ) ON PRIMARYGO2.2程序設(shè)計(jì)按照需求分析中所涉及到的經(jīng)營(yíng)業(yè)者與租賃者相互關(guān)系以及交流過(guò)程的概念。

19、1首先是經(jīng)營(yíng)管理者在使用本系統(tǒng)的一開(kāi)始，對(duì)音像租賃制品的格式進(jìn)行分類添加，然后是對(duì)音像租賃制品的類別進(jìn)行分類添加，再就是對(duì)音像租賃制品的信息進(jìn)行添加。添加完成后，如果需要，可以使用管理功能對(duì)某一格式，某一類別或某一音像租賃制品信息進(jìn)行修改或刪除。2考慮到現(xiàn)在的音像租賃業(yè)比較流行的會(huì)員制度，簡(jiǎn)單設(shè)計(jì)了會(huì)員的添加與管理功能，如果租借者希望辦理會(huì)員，可以在管理員處登記相關(guān)個(gè)人信息，并交納一定押金，管理員在將相關(guān)信息輸入后可得到該會(huì)員的ID編號(hào)（該編號(hào)唯一），且設(shè)計(jì)了會(huì)員結(jié)算時(shí)打九折。管理人員還可對(duì)會(huì)員的信息進(jìn)行必要的修改或刪除。3.具有網(wǎng)絡(luò)條件的租借者可以通過(guò)網(wǎng)絡(luò)訪問(wèn)主頁(yè)瀏覽音像租賃制品的相關(guān)信息，

20、并可以通過(guò)搜索功能節(jié)省時(shí)間，很快得到查詢結(jié)果。在得到感興趣的音像制品的相關(guān)信息（如：感興趣的音像制品還有庫(kù)存等）之后，可以前往店鋪進(jìn)行相關(guān)音像制品的租借。4管理業(yè)者還可在平時(shí)對(duì)所有業(yè)務(wù)進(jìn)行查詢，查看音像租賃制品的各種狀態(tài)以及借還情況，以免發(fā)生借而不還等情況。音像制品租借工作流程圖如圖5.1所示 ：圖5.1 音像制品租借工作流程圖2.2.1概要設(shè)計(jì)概要設(shè)計(jì)基礎(chǔ)是完成需求分析后提供的需求說(shuō)明書(shū)，用概念數(shù)據(jù)模型表示數(shù)據(jù)及其相互間的關(guān)系，這種數(shù)據(jù)模型是與DBMS無(wú)關(guān)的、面向現(xiàn)實(shí)世界的、易如理解的數(shù)據(jù)模型，其獨(dú)立于計(jì)算機(jī)的數(shù)據(jù)模型，獨(dú)立于計(jì)算機(jī)的軟硬件系統(tǒng)，與用戶進(jìn)行交流十分方便。概念性數(shù)據(jù)模型關(guān)心的是

21、如何完整、正確地反映客觀實(shí)際情況，不關(guān)心在數(shù)據(jù)庫(kù)中如何實(shí)現(xiàn)。這種數(shù)據(jù)模式能真實(shí)地反應(yīng)用戶要求的實(shí)際情況，是一種容易被人們理解的直觀的數(shù)據(jù)庫(kù)結(jié)構(gòu)模式。同時(shí)也是一種相對(duì)穩(wěn)定統(tǒng)一的數(shù)據(jù)模式，一般情況下很少變動(dòng)。概念性數(shù)據(jù)在用戶和設(shè)計(jì)者之間建立了橋梁。是設(shè)計(jì)數(shù)據(jù)庫(kù)結(jié)構(gòu)的基礎(chǔ)。概念設(shè)計(jì)中自頂向下的實(shí)體分析方法，即常用的實(shí)體聯(lián)系模型（簡(jiǎn)稱E-R模型），對(duì)具體數(shù)據(jù)進(jìn)行抽象加工，將實(shí)體集合抽象成實(shí)體類型。用實(shí)體間聯(lián)系反映現(xiàn)實(shí)世界事物間的內(nèi)在聯(lián)系。E-R模型是建立概念性數(shù)據(jù)模型的有力工具。通過(guò)對(duì)企業(yè)員工管理內(nèi)容、工資管理內(nèi)容和過(guò)程的分析，本系統(tǒng)應(yīng)設(shè)計(jì)的實(shí)體和屬性如下：?jiǎn)T工（包括員工工號(hào)、員工姓名、學(xué)歷、性別、政

22、治面貌、出生日期、所屬部門(mén)、職稱、職務(wù)、入職時(shí)間、身份證號(hào)、聯(lián)系電話、家庭住址、手機(jī)號(hào)碼、Email、有效標(biāo)志）部門(mén)（部門(mén)代號(hào)、部門(mén)名稱）職務(wù)（職務(wù)代號(hào)、職務(wù)名稱）職稱（職稱代號(hào)、職稱名稱）薪金結(jié)構(gòu)（月份、員工工號(hào)、薪水帳目、數(shù)目）薪水帳目（薪水帳目代號(hào)、薪水帳目名稱）2.2.2程序?qū)崿F(xiàn)一、客戶信息代碼Sub queryMembers()Dim rs As ADODB.Recordset Dim i As Integer Dim j As Integer If optQuery(0).Value = True Then sqlStr = select * from members End If

23、 If optQuery(1).Value = True Then sqlStr = select * from members where no= & cboNo.Text End If Set rs = ExecuteSQL(sqlStr, msgText)If rs.RecordCount = 0 Then MsgBox 沒(méi)有查找滿足條件的數(shù)據(jù)！, vbExclamation, 提示 fgMember.Rows = 1 Else fgMember.Rows = rs.RecordCount + 1 fgMember.Cols = 7設(shè)定行高 For i = 0 To fgMember.R

24、ows - 1 fgMember.RowHeight(i) = 280 Next i 設(shè)定列的屬性 fgMember.Row = 0 For i = 0 To fgMember.Cols - 1 fgMember.Col = i 指定當(dāng)前列為第i列 fgMember.FixedAlignment(i) = 4 每列內(nèi)容居中顯示 Select Case i Case 0 fgMember.ColWidth(i) = 600 設(shè)定列寬 fgMember.Text = 編號(hào) Case 1 fgMember.ColWidth(i) = 1200 設(shè)定列寬 fgMember.Text = 姓名 Case

25、 2 fgMember.ColWidth(i) = 600 設(shè)定列寬 fgMember.Text = 性別 Case 3 fgMember.ColWidth(i) = 1000 設(shè)定列寬 fgMember.Text = 電話號(hào)碼 Case 4 fgMember.ColWidth(i) = 1500 設(shè)定列寬 fgMember.Text = 身份證號(hào) Case 5 fgMember.ColWidth(i) = 2600 設(shè)定列寬 fgMember.Text = 聯(lián)系地址 Case 6 fgMember.ColWidth(i) = 1000 設(shè)定列寬 fgMember.Text = 備注信息 En

26、d Select二、主界面代碼Private Sub addCategory_Click()frmAddCategory.ShowEnd SubPrivate Sub addDisk_Click()frmAddDisk.ShowEnd SubPrivate Sub addMember_Click()frmAddMember.ShowEnd SubPrivate Sub Form_Load()窗體居中顯示Me.Top = (Screen.Height - Me.Height) 2Me.Left = (Screen.Width - Me.Width) 2獲取數(shù)據(jù)庫(kù)的位置dbPath = App.P

27、ath + dbdiskrent.mdbconnStr = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & dbPathEnd SubPrivate Sub lendDisk_Click()frmRentDisk.ShowEnd SubPrivate Sub listCategory_Click()frmListCategory.ShowEnd SubPrivate Sub queryDisk_Click()frmQueryDisk.ShowEnd SubPrivate Sub querylendInfo_Click()frmQueryLendI

28、nfo.ShowEnd SubPrivate Sub queryMember_Click()frmQueryMember.ShowEnd SubPrivate Sub returnDisk_Click()frmReturnDisk.ShowEnd SubPrivate Sub updateCategory_Click()frmUpdateCat.ShowEnd SubPrivate Sub updateDisk_Click()frmUpdateDisk.ShowPrivate Sub updateMember_Click()frmUpdateMember.ShowEnd Sub三、音像信息代碼

29、Option ExplicitPublic sqlStr As StringPublic msgText As StringPublic userNo As StringPrivate Sub cmdOk_Click()Private Sub cmdRent_Click()lendDiskcmdSave.Enabled = TrueEnd Sub窗體居中顯示Me.Top = (Screen.Height - Me.Height) 2Me.Left = (Screen.Width - Me.Width) 2設(shè)定行高 For i = 0 To fgRent.Rows - 1 fgRent.RowH

30、eight(i) = 280 Next i設(shè)定列的屬性fgRent.Row = 0 For i = 0 To fgRent.Cols - 1 fgRent.Col = i 指定當(dāng)前列為第i列 fgRent.FixedAlignment(i) = 4 每列內(nèi)容居中顯示 Select Case i Case 0 fgRent.ColWidth(i) = 600 設(shè)定列寬 fgRent.Text = 序號(hào) Case 1 fgRent.ColWidth(i) = 1200 設(shè)定列寬 fgRent.Text = 影碟編號(hào) Case 2 fgRent.ColWidth(i) = 2200 設(shè)定列寬 fgRent.Text = 影碟名稱 Case 3 fgRent.ColWidth(i) = 1000 設(shè)定列寬 fgRent.Text = 會(huì)員編號(hào) Case 4 fgRent.ColWidth(i) = 800 設(shè)定列寬 fgRent.Text = 數(shù)量 End Select 第3章 設(shè)計(jì)總結(jié)再課程設(shè)計(jì)中，我所選擇的是設(shè)計(jì)一個(gè)音像租借管理系統(tǒng)，這對(duì)我來(lái)說(shuō)是一次嘗試與創(chuàng)新的過(guò)程，也可以說(shuō)是一個(gè)挑戰(zhàn)的過(guò)程，畢竟以前沒(méi)有作過(guò)，缺少經(jīng)驗(yàn)?，F(xiàn)在利用自己學(xué)到的知識(shí)設(shè)計(jì)并制作一個(gè)圖書(shū)管理系統(tǒng)，這本身就是一個(gè)知識(shí)轉(zhuǎn)化為生產(chǎn)力的過(guò)程，所以大家都很興奮，不同程度的投入了很高的熱情與努力。雖然有的同學(xué)沒(méi)