數(shù)據(jù)庫技術(shù)與應(yīng)用課程設(shè)計---圖書信息管理系統(tǒng)

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：51 大?。?.88MB 人氣指數(shù)：12 舉報 版權(quán)申訴

數(shù)據(jù)庫技術(shù)與應(yīng)用課程設(shè)計---圖書信息管理系統(tǒng)_第1頁

已閱讀1頁，還剩50頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認領(lǐng)

文檔簡介

1、　　1 概述　　圖書館作為社會文化服務(wù)部門，提供的社會的是文獻服務(wù)。作為社會的重要文化信息部門，也需要一套有效的圖書館管理信息系統(tǒng)來提高管理效率。　　目前，我國中小型圖書館辦館的要求及領(lǐng)先標(biāo)志就是藏書全部開放，讀者共享開架借閱。為了充分發(fā)揮圖書館的功效，最大限度地為讀者服務(wù)，圖書館自動化管理以此為最

2、終目標(biāo)。實現(xiàn)這一目標(biāo)，必須有現(xiàn)代化的管理手段和管理體制。為此，各個圖書館都開始采用圖書館管理系統(tǒng)，從而實現(xiàn)人工管理無法實現(xiàn)的一些功能并發(fā)揮圖書館的最大效益。隨著越來越多的圖書館采用了現(xiàn)代化的管理軟件進行管理，進一步提升了圖書館管理的現(xiàn)代化水平。自身發(fā)展的需要和競爭的需要決定了采用圖書館管理系統(tǒng)的必要性。當(dāng)前主流系統(tǒng)采用客戶機/服務(wù)器(Client/Server) + 瀏覽器/服務(wù)器(Browser/Server)模式，所有信息

3、均存放在數(shù)據(jù)庫服務(wù)器上，各客戶機通過網(wǎng)絡(luò)與數(shù)據(jù)庫服務(wù)器通訊，WEB 服務(wù)通過ADO 模型訪問數(shù)據(jù)庫服務(wù)器，數(shù)據(jù)與應(yīng)用安全地隔離，可確保數(shù)據(jù)存放的安全性。　　2 需求分析　　這里要實現(xiàn)一個圖書信息管理系統(tǒng)，根據(jù)圖書館管理信息系統(tǒng)要實現(xiàn)的功能在簡單的基礎(chǔ)上，在此系統(tǒng)中需要涉及對學(xué)生、圖書和操作人員的相關(guān)基本管理和操作，包

4、括系統(tǒng)管理、讀者管理、編目、統(tǒng)計、查詢等功能。圖書館管理人員是圖書館管理信息系統(tǒng)的管理者，他們具有對學(xué)生信息和圖書信息管理的權(quán)限。而學(xué)生應(yīng)該可以利用圖書館管理信息系統(tǒng)來查詢圖書、并查詢個人借閱情況等。系統(tǒng)中實現(xiàn)了由管理員設(shè)置、修改各操作員的密碼，各操作員均需先登錄系統(tǒng)然后根據(jù)其權(quán)限再操作各其被允許使用的各種功能。　　圖書館管理信息系統(tǒng)的用例包括以下內(nèi)容：

5、　　學(xué)生信息管理：學(xué)生的查詢、修改、增加和刪除；　　圖書信息管理：書籍信息的查詢、修改、增加和刪除；　　查詢功能：圖書查詢、讀者查詢、借閱查詢；　　設(shè)置功能：密碼設(shè)置；　　因此，此系統(tǒng)要能夠記錄并實現(xiàn)查詢、修改、增添和刪除圖書的信息、學(xué)生的信息和查詢圖書信息、個人借閱情況

6、。具體要求為:　　一本圖書一次只能借給一名同學(xué)　　一個學(xué)生最多只能借5本圖書　　系統(tǒng)的所有數(shù)據(jù)進行統(tǒng)一的管理,要保證其安全性　　設(shè)計不同用戶的操作權(quán)限和登陸方法：　　只有管理員可對圖書信息和學(xué)生信息進行相關(guān)操作以及修改管理員和學(xué)生

7、的密碼。　　學(xué)生只能查詢圖書信息和個人借閱信息。　　除了對這些數(shù)據(jù)進行正常的管理、維護之外，還需要產(chǎn)生一些報表，例如學(xué)生借閱信息表，內(nèi)容包括學(xué)生卡號、姓名、所借圖書、借閱日期、歸還日期等。　　3 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計　　2.1 概念結(jié)構(gòu)設(shè)計

8、　　圖書館管理信息系統(tǒng)的核心活動是圖書，學(xué)生與圖書之間是通過學(xué)生借閱圖書發(fā)生聯(lián)系的。因此，此系統(tǒng)所包含的實體有：　?。?）圖書：用于描述一本圖書的基本信息，用圖書編號來標(biāo)識此實體；　?。?）學(xué)生：用于描述一個學(xué)生的基本信息，由卡號來標(biāo)識；　　（3）操作人員：用于描述一個操

9、作人員的基本信息，由用戶名來標(biāo)識；　　其初步E-R圖如下：　　實體的屬性比較多，在畫E-R圖時，不便于把所有的實體屬性都畫在E-R圖上，另外用文字說明：　　經(jīng)過初步分析，可知此系統(tǒng)中各實體所包含的基本屬性為：　　圖書：圖書編號、圖書類別、圖書名稱、圖書作者、出版社、出版日

10、期、備注；　　學(xué)生：卡號、姓名、年齡、性別、班級、院系、電話號碼、最大借書數(shù)目；　　操作人員：用戶名、用戶密碼、用戶類型。　　2.2 邏輯結(jié)構(gòu)設(shè)計　　第一步：確定基本E-R圖后，就根據(jù)該圖進行邏輯結(jié)構(gòu)設(shè)計即設(shè)計基本的關(guān)系模型。設(shè)計基本關(guān)系模式主要是從E-R圖出發(fā)，將其直接

11、轉(zhuǎn)換為關(guān)系模式。根據(jù)轉(zhuǎn)換規(guī)則，這個E-R圖轉(zhuǎn)換的關(guān)系模式為：　　圖書（圖書編號、圖書類別、圖書名稱、圖書作者、出版社、出版日期、備注），主碼為圖書編號；　　學(xué)生（卡號、姓名、年齡、性別、班級、院系、電話號碼、最大借書數(shù)目），主碼是卡號。　　操作人員（用戶名、用戶密碼、用戶類型），主碼為用戶名。

12、　　借閱信息（編號、圖書編號、圖書名稱、借閱時間、歸還時間），主碼為編號。　　第二步：在設(shè)計好了關(guān)系模式并確定好了每個關(guān)系模式的主碼后，再看一下這些關(guān)系模式之間的關(guān)聯(lián)關(guān)系，即確定關(guān)系模式的外碼，可通過E-R圖中的聯(lián)系實體發(fā)現(xiàn)：　　借閱關(guān)系中，卡號和圖書編號是外碼，分別引用學(xué)生關(guān)系中的卡號和圖書關(guān)系中的圖書編號；

13、　　第三步：最后，確定表中各屬性的詳細信息，包括數(shù)據(jù)類型和長度等：　　操作人員表：　　用戶名：char(50)，key　　用戶密碼：char(10),，not null　　用戶類型：int(4)，not null&

14、lt;/p>　　書籍信息表　　圖書編號：char(8)，key　　圖書類別：char(20)，not null　　圖書名稱：char(20)，not null　　圖書作者：char(20)，not null

15、　　出版社：char(20)　　出版日期：datetime(8)　　備注：char(30)　　學(xué)生記錄表　　卡號：char(10)，key　　姓名：c

16、har(16)，not null　　年齡：int(4)　　性別：char(10)，not null　　班級：char(16)，not null　　院系：char(16)，not null　　電

17、話號碼：char(16)　　最大借書數(shù)目：int(4)，not null　　借閱信息表　　編號：int(4)，key　　圖書編號：char(8)，not null　　圖書名稱：char(16)

18、，not null　　借閱人卡號：char(10)，not null　　借閱時間：datetime(8)，not null　　歸還時間：datetime(8)　　第四步：在SQL Server2000中建立上述表，并確定表和表之間的約束關(guān)系：主碼、外碼、規(guī)則、默認等；&l

19、t;/p>　　第五步：報表的設(shè)計（視圖的設(shè)計）　　有了數(shù)據(jù)庫的基本表之后，應(yīng)該看一下這些基本表能否滿足產(chǎn)生報表的需求。在數(shù)據(jù)庫應(yīng)用系統(tǒng)中，用戶需要產(chǎn)生大量的報表，而報表的內(nèi)容來自于數(shù)據(jù)庫中的基本表，因此，在設(shè)計好數(shù)據(jù)庫的基本表之后，要看一下這些基本表的內(nèi)容是否全部包含了要產(chǎn)生的報表的內(nèi)容。　　如：學(xué)生借閱圖書表，（卡號、姓名、

20、班級、院系、圖書編號、圖書名稱、借閱時間、歸還時間）　　姓名、班級、院系可由學(xué)生記錄表得到；卡號、圖書編號、圖書名稱、借閱時間、歸還時間可由書籍信息表得到。因此，可以滿足學(xué)生借閱圖書表的要求，可以通過定義視圖實現(xiàn)。　　4 數(shù)據(jù)庫行為功能設(shè)計　　4.1系統(tǒng)層級結(jié)構(gòu)設(shè)計

21、根據(jù)圖書館信息系統(tǒng)要實現(xiàn)的功能，經(jīng)過分析，可將圖書館信息系統(tǒng)分為模塊下6個模塊：用戶登錄模塊，圖書館管理系統(tǒng)中學(xué)生記錄管理模塊、圖書記錄管理模塊、修改密碼模塊，圖書館服務(wù)系統(tǒng)中的查詢圖書記錄模塊和查詢個人借閱情況模塊。通過這些基本實現(xiàn)登陸，管理員對于學(xué)生記錄和圖書記錄的查詢、修改、添加、刪除，學(xué)生對于圖書記錄和個人借閱情況的查詢等功能。本系統(tǒng)的主要模塊功能的樹結(jié)構(gòu)圖如下：　　4

22、.2 界面設(shè)計　?。ㄒ唬┯脩舻顷懡缑嬖O(shè)計　　任何數(shù)據(jù)庫應(yīng)用系統(tǒng)都需要安全控制功能，圖書館信息管理系統(tǒng)用戶分為如下兩類：　?。?）系統(tǒng)管理員：有系統(tǒng)的全部權(quán)限，包括學(xué)生記錄的查詢、修改、添加、刪除，圖書記錄的查詢、修改、添加、刪除，管理員和學(xué)生的密碼修改。

23、;　　（2）學(xué)生：具有普通權(quán)限，包括查詢圖書記錄和查詢個人借閱情況。　　在實現(xiàn)時，通過在操作人員表中設(shè)置用戶類型屬性，用不同的數(shù)字區(qū)別具有不同權(quán)限的用戶。通過登陸界面選擇用戶類型，再根據(jù)數(shù)據(jù)庫中的數(shù)據(jù)，通過判斷進入不同界面，實現(xiàn)不同操作。其中圖書館管理員進入圖書館管理信系統(tǒng)，學(xué)生進入圖書館服務(wù)系統(tǒng)。　　當(dāng)用戶名和密碼錯誤時，系統(tǒng)會自動提示“賬號或密碼錯誤

24、”。　　如圖為登陸界面和登錄用戶名和密碼錯誤時的提示界面。 　?。ǘ﹫D書館管理系統(tǒng)主界面設(shè)計　　圖書館管理系統(tǒng)主界面主要是為了使圖書館管理員實現(xiàn)學(xué)生記錄管理、圖書記錄管理和修改密碼設(shè)置等功能。單擊該界面的不同選項就會進入實現(xiàn)不同功能的窗體。如圖為圖書館管理系統(tǒng)的主界面。此界面還通過菜單實現(xiàn)個界面的鏈接。<

25、;/p>　?。ㄈW(xué)生記錄管理界面設(shè)計　　學(xué)生記錄管理界面主要是由圖書館管理員用來查詢、修改、插入、刪除學(xué)生信息的。在完成一個或者多個學(xué)生記錄的處理操作后，單價“返回”即可返回到圖書館管理系統(tǒng)主界面。　　如圖為學(xué)生記錄管理界面：　　1．學(xué)生記錄查詢界面：可實現(xiàn)按姓名、卡號、班級、院系方

26、式查詢。　　按姓名查詢：　　按卡號查詢：　　按班級查詢：　　按院系查詢：　　2

27、．學(xué)生記錄修改界面：　　可實現(xiàn)通過要修改的條件查詢顯示出來要修改的學(xué)生記錄，并在右側(cè)的修改板塊選擇要修改的內(nèi)容，再輸入修改后的內(nèi)容，點擊確定，實現(xiàn)學(xué)生記錄的相關(guān)修改。點擊“返回”按鈕，返回到圖書館管理界面。　　修改之后查詢，發(fā)現(xiàn)記錄已成功修改。　　3．學(xué)生記錄增添界面：

28、　可實現(xiàn)向數(shù)據(jù)中新添加學(xué)生記錄的功能。如圖為添加成功后，可見學(xué)生記錄已經(jīng)成功添加。　　4．學(xué)生記錄刪除界面：　　可實現(xiàn)先查詢要刪除的學(xué)生記錄，在點擊“刪除”，彈出“是否確定要刪除信息”的對話框，點擊“Yes”記錄刪除，點擊“No”取消刪除操作。點擊“返回”可返回到圖書館管理界面。　　如圖為刪除的記錄，可見選擇要刪

29、除的記錄已經(jīng)成功刪除。　　（四）圖書記錄管理界面設(shè)計　　圖書記錄管理界面主要是由圖書館管理員用來查詢、修改、插入、刪除圖書信息的。在完成一個或者多個圖書記錄的處理操作后，單價“返回”即可返回到圖書館管理系統(tǒng)主界面。本界面通過使用DBNavigator控件來直接實現(xiàn)圖書記錄的修改、添加和刪除等功能，操作十分方便。&

30、lt;b>　　修改功能：　　修改之前：　　修改時直接在表中修改，點擊對勾確定修改，點擊叉放棄修改。　　修改之后：　　刪除功能：<

31、;/p>　　確認刪除后：　　增加功能：　　在空白行中添加要增添的圖書記錄。　　增添成功后：　?。┬薷拿艽a界面設(shè)計</p&

32、gt;　　修改密碼設(shè)置界面主要由圖書館管理員用來修改管理員或?qū)W生的登錄密碼。點擊確定，可實現(xiàn)密碼修改，點擊取消，可取消密碼修改操作。在完成密碼修改后，會彈出對話框顯示“密碼成功修改”。點擊返回按鈕可返回到圖書館管理界面。　?。ㄆ撸﹫D書館服務(wù)系統(tǒng)主界面設(shè)計　　圖書館服務(wù)系統(tǒng)主界面模塊主要實現(xiàn)學(xué)生查詢各種圖書記錄，查詢個人借閱情況的功能

33、。選擇該界面的不同標(biāo)題就可以進入實現(xiàn)不同功能的窗體。點擊返回，可返回到用戶登陸界面。　　如圖為圖書館服務(wù)系統(tǒng)主界面。　?。ò耍┎樵儓D書記錄界面設(shè)計　　查詢圖書界面實現(xiàn)了學(xué)生查詢想要借閱的圖書。　　一般查詢圖書主要經(jīng)過一下方式：按書名查詢、按作者查詢、按出版日期查詢?nèi)N方式

34、。因此該界面提供此三種方式實現(xiàn)查詢操作。　　按書名查詢：　　按作者查詢：　　按出版日期查詢：　?。ň牛┎樵儌€人借閱情況界面設(shè)計<

35、p>　　查詢個人借閱情況實現(xiàn)了學(xué)生通過輸入自己的學(xué)號執(zhí)行查詢，顯示該生借閱圖書的情況。表中數(shù)據(jù)來自數(shù)據(jù)庫中建立的視圖——學(xué)生借閱圖書表。　?。ò耍┫到y(tǒng)信息界面設(shè)計　　該界面主要是用于介紹本系統(tǒng)，以及作者的信息。由圖書館管理系統(tǒng)主界面中菜單：系統(tǒng)—關(guān)于到達。點擊返回，可返回到圖書館管理系統(tǒng)主界面。　　5 數(shù)據(jù)

36、庫課程設(shè)計心得體會　　這次數(shù)據(jù)庫課程設(shè)計花費了自己很多時間，但是值得欣慰的是我也收獲了很多，尤其是在自己做的系統(tǒng)可以正常運行并實現(xiàn)所需功能時，自己的心情真的是非常激動。　　這次課程設(shè)計用到的Delphi是以前從未接觸過的軟件，其中的語言也是完全陌生的。在看到課程要求后就去圖書館借了很多參考資料回來啃。之后遇到問題，不斷請教會的同學(xué)，也在網(wǎng)上能夠不斷搜索答

37、案，逐一解決。從基本的數(shù)據(jù)類型到語句的結(jié)構(gòu)再到各種控件的作用和及相關(guān)屬性的設(shè)置，自己一點點的學(xué)習(xí)、理解。最后在模仿系統(tǒng)設(shè)計的方法，按照分析需求、列出關(guān)系模型、流程，明確各個模塊的功能，在精確到各個模塊的設(shè)計和其中控件動作語言的編寫。整個過程漫長而艱辛，還總是說出一些程序不能運行、代碼有錯誤等等插曲，但是自己還是挺過來了，并成功地完成了在自己的圖書館信息管理系統(tǒng)。　　在整個過程中，我覺得自己在自學(xué)

38、這方面提高了很多。能夠靠自己的能力初步掌握一個軟件的基本應(yīng)用。我也意識到學(xué)習(xí)的重要性，還有很多未知的只是等著我去學(xué)習(xí)，此謂之“學(xué)海無涯”也。此外，我也學(xué)會了和大家共同交流，不斷學(xué)習(xí)，善于向別人學(xué)習(xí)也是一種提高效率的好方法。我還發(fā)現(xiàn)網(wǎng)絡(luò)的好處，能夠很快解決很多棘手的問題，也進一步提高了自己檢索信息的能力。更重要的我對于數(shù)據(jù)庫的基本概念的功能應(yīng)用都有了很深刻的了解，鼓勵著我在今后的學(xué)習(xí)中進一步加深對它的了解。<

39、p>　　但是還是存在一些問題：　　（1）對于數(shù)據(jù)庫的控件了解還是不夠，有待繼續(xù)學(xué)習(xí)　　（2）自己解決問題的能力還不夠強，邏輯思維、建立組織架構(gòu)的能力有待加強　?。?）對于數(shù)據(jù)庫中的基本概念還是有些不夠熟悉，需要多操作實踐，在實踐中學(xué)習(xí)。　　附件：&

40、lt;/b>　　現(xiàn)將程序代碼附如下：　　登陸界面：　　unit Unit1;　　interface　　uses

41、　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　　Dialogs, StdCtrls, Buttons, ExtCtrls, DB, DBTables, ADODB;　　type</b

42、>　　TLogin = class(TForm)　　Panel1: TPanel;　　BitBtn1: TBitBtn;　　BitBtn2: TBitBtn;　　Label1: TLabel;<

43、p>　　Label2: TLabel;　　Edit1: TEdit;　　Edit2: TEdit;　　ADOQuery1: TADOQuery;　　RadioGroup1: TRadioGroup;　　ADOConnecti

44、on1: TADOConnection;　　procedure BitBtn1Click(Sender: TObject);　　procedure BitBtn2Click(Sender: TObject);　　private　　{

45、Private declarations }　　public　　{ Public declarations }　　end;　　var&

46、lt;p>　　Login: TLogin;　　implementation　　uses Unit2, Unit7;　　{$R *.dfm}　　procedure TLogin.BitBtn2Click(Sender: TObject);<

47、;p>　　begin　　Login.close;　　end;　　procedure TLogin.BitBtn1Click(Sender: TObject);　　var username,p

48、assword:string;　　begin　　if RadioGroup1.ItemIndex =0 then　　begin　　username :=trim(edit1.text);<

49、/p>　　password :=trim(edit2.text);　　if username='' then　　begin　　ShowMessage('請輸入用戶名！');&

50、lt;b>　　end　　else if password='' then　　begin　　ShowMessage('請輸入密碼');　　end</b&g

51、t;　　else　　begin　　adoquery1.Close;　　adoquery1.SQL.Clear;　　adoquery1.SQL.Add(&#

52、39;select * from 操作人員表 where 用戶名='''+edit1.text+''' and 用戶密碼 ='''+edit2.text+''' and 用戶類型=0');　　adoquery1.Open;　　if adoquery1.

53、RecordCount <1 then　　begin　　showmessage('帳號或密碼錯誤！');　　end　　else</

54、p>　　begin　　gly.show;　　Login.Hide;　　end;　　end;&

55、lt;/p>　　end;　　if RadioGroup1.ItemIndex =1 then　　begin　　username :=trim(edit1.text);

56、;　　password :=trim(edit2.text);　　if username='' then　　begin　　ShowMessage('請輸入用戶名！');　　end<

57、;/b>　　else if password='' then　　begin　　ShowMessage('請輸入密碼');　　end&l

58、t;p>　　else　　begin　　adoquery1.Close;　　adoquery1.SQL.Clear;　　adoquery1.SQL.Add('select * from

59、操作人員表 where 用戶名='''+edit1.text+''' and 用戶密碼 ='''+edit2.text+''' and 用戶類型=1');　　adoquery1.Open;　　if adoquery1.RecordCount <

60、1 then　　begin　　showmessage('帳號或密碼錯誤！');　　end　　else

61、　　begin　　xs.show;　　Login.Hide;　　end;　　end;<p&

62、gt;　　end;　　end;　　end.　　圖書館管理系統(tǒng)主界面　　unit Unit2;　　i

63、nterface　　uses　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　　Dialogs, StdCtrls, Menus, jpeg, ExtC

64、trls, ComCtrls;　　type　　Tgly = class(TForm)　　MainMenu1: TMainMenu;　　N1: TMenuItem;　　N2: TMenuItem

65、;　　N3: TMenuItem;　　Image1: TImage;　　StatusBar1: TStatusBar;　　Label1: TLabel;　　Label2: TLabel;

66、　Label3: TLabel;　　Label4: TLabel;　　Label5: TLabel;　　Label6: TLabel;　　Label7: TLabel;　　N6: TMenuItem;<

67、;p>　　S1: TMenuItem;　　N4: TMenuItem;　　N5: TMenuItem;　　N7: TMenuItem;　　N8: TMenuItem;　　B1: TMenuItem;&

68、lt;p>　　N9: TMenuItem;　　N10: TMenuItem;　　N11: TMenuItem;　　N12: TMenuItem;　　procedure N2Click(Sender: TObject);　　p

69、rocedure N3Click(Sender: TObject);　　procedure N6Click(Sender: TObject);　　procedure N4Click(Sender: TObject);　　procedure N5Click(Sender: TObject);

70、　　procedure N7Click(Sender: TObject);　　procedure N8Click(Sender: TObject);　　procedure N9Click(Sender: TObject);　　procedure N10Click(Sender: TObject)

71、;　　procedure N11Click(Sender: TObject);　　procedure N12Click(Sender: TObject);　　procedure Label4Click(Sender: TObject);　　procedure Label5

72、Click(Sender: TObject);　　procedure Label6Click(Sender: TObject);　　procedure Label7Click(Sender: TObject);　　private　　{

73、 Private declarations }　　public　　{ Public declarations }　　end;　　var

74、　　gly: Tgly;　　implementation　　uses Unit1, Unit6, Unit3, Unit4, Unit5;　　{$R *.dfm}　　procedure Tgly.N2Click(Sender: TObject);<

75、/p>　　begin　　Login.Hide;　　xgmm.show;　　end;　　procedure Tgly.N3Click(Sender: TObject);&

76、lt;/p>　　begin　　guanyu.show;　　end;　　procedure Tgly.N6Click(Sender: TObject);

77、　　begin　　gly.hide;　　Login.show ;　　end;　　procedure Tgly.N4Click(Sender: TObject);</p&g

78、t;　　begin　　xsjlgl.show;　　gly.Hide;　　end;　　procedure Tgly.N5Click(Sen

79、der: TObject);　　begin　　xsjlgl.show;　　gly.Hide;　　end;　　proc

80、edure Tgly.N7Click(Sender: TObject);　　begin　　xsjlgl.show;　　gly.Hide;　　end;</

81、p>　　procedure Tgly.N8Click(Sender: TObject);　　begin　　xsjlgl.show;　　gly.Hide;

82、;　　end;　　procedure Tgly.N9Click(Sender: TObject);　　begin　　tsjlgl.show;　　gly.Hide;</p&

83、gt;　　end;　　procedure Tgly.N10Click(Sender: TObject);　　begin　　tsjlgl.show;　　gly

84、.Hide;　　end;　　procedure Tgly.N11Click(Sender: TObject);　　begin　　tsjlgl.show;

85、　　gly.Hide;　　end;　　procedure Tgly.N12Click(Sender: TObject);　　begin　　t

86、sjlgl.show;　　gly.Hide;　　end;　　procedure Tgly.Label4Click(Sender: TObject);　　begin</b&g

87、t;　　gly.Hide;　　xsjlgl.show;　　end;　　procedure Tgly.Label5Click(Sender: TObject);<p&g

88、t;　　begin　　gly.Hide;　　tsjlgl.show;　　end;　　procedure Tgly.Label6Click(Sender: TO

89、bject);　　begin　　Login.Hide;　　xgmm.show;　　end;　　procedure Tgly.Label7Click(Sen

90、der: TObject);　　begin　　gly.hide;　　Login.show;　　end;<b&g

91、t;　　end.　　系統(tǒng)信息界面：　　unit Unit3;　　interface　　uses

92、　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　　Dialogs, StdCtrls, jpeg, ExtCtrls;　　type　　Tguanyu = class(TFo

93、rm)　　Button1: TButton;　　Image1: TImage;　　Label1: TLabel;　　Label2: TLabel;　　procedure Button1Click(Sender: TObject);

94、　　private　　{ Private declarations }　　public　　{ Public declarations }

95、　　end;　　var　　guanyu: Tguanyu;　　implementation　　uses Unit2;　　{$R *.dfm}<

96、p>　　procedure Tguanyu.Button1Click(Sender: TObject);　　begin　　guanyu.Hide;　　gly.show;

97、end;　　end.　　學(xué)生記錄管理界面　　unit Unit4;　　interface<

98、b>　　uses　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　　Dialogs, StdCtrls, ComCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB;&l

99、t;p>　　type　　Txsjlgl = class(TForm)　　Panel1: TPanel;　　PageControl1: TPageControl;　　TabSheet1: TTabSheet;

100、　　TabSheet2: TTabSheet;　　TabSheet3: TTabSheet;　　TabSheet4: TTabSheet;　　Label1: TLabel;　　GroupBox2: TGroupBox;<p

101、>　　Label3: TLabel;　　Label4: TLabel;　　Edit1: TEdit;　　Edit2: TEdit;　　Label5: TLabel;　　Label6: TLabel;&

102、lt;p>　　Edit3: TEdit;　　Edit4: TEdit;　　Button2: TButton;　　Button3: TButton;　　Button4: TButton;　　Button5: TButton;&

103、lt;/p>　　Button6: TButton;　　GroupBox1: TGroupBox;　　DBGrid1: TDBGrid;　　Label2: TLabel;　　Button1: TButton;<p&g

104、t;　　GroupBox3: TGroupBox;　　DBGrid2: TDBGrid;　　Button7: TButton;　　Label8: TLabel;　　Edit5: TEdit;　　Label7: TLabel;<

105、;/p>　　GroupBox4: TGroupBox;　　Label9: TLabel;　　Label10: TLabel;　　Edit6: TEdit;　　Button8: TButton;　　But

106、ton9: TButton;　　GroupBox5: TGroupBox;　　Label11: TLabel;　　DBGrid3: TDBGrid;　　Button10: TButton;　　GroupBox6: TGroupBo

107、x;　　Label12: TLabel;　　Label13: TLabel;　　Label14: TLabel;　　Label15: TLabel;　　Label16: TLabel;

108、Label17: TLabel;　　Label18: TLabel;　　Label19: TLabel;　　Edit7: TEdit;　　Edit8: TEdit;　　Edit9: TEdit;<p&

109、gt;　　Edit10: TEdit;　　Edit11: TEdit;　　Edit12: TEdit;　　Edit13: TEdit;　　Edit14: TEdit;　　Button11: TButton;

110、　　Button12: TButton;　　GroupBox7: TGroupBox;　　Label20: TLabel;　　Label21: TLabel;　　DBGrid4: TDBGrid;　　Button

111、13: TButton;　　Edit15: TEdit;　　Button14: TButton;　　ADOQuery1: TADOQuery;　　DataSource1: TDataSource;　　Edit16: TEdit;&

112、lt;/p>　　Edit17: TEdit;　　Edit18: TEdit;　　procedure Button1Click(Sender: TObject);　　procedure Button2Click(Sender: TObject);

113、　　procedure Button3Click(Sender: TObject);　　procedure Button4Click(Sender: TObject);　　procedure Button5Click(Sender: TObject);　　procedure Button6Click(Sender

114、: TObject);　　procedure Button9Click(Sender: TObject);　　procedure Button12Click(Sender: TObject);　　procedure Button14Click(Sender: TObject);<p&

115、gt;　　procedure Button11Click(Sender: TObject);　　procedure Button7Click(Sender: TObject);　　procedure Button8Click(Sender: TObject);　　procedure Button10Click(S

116、ender: TObject);　　procedure Button13Click(Sender: TObject);　　private　　{ Private declarations }　　public</b

117、>　　{ Public declarations }　　end;　　var　　xsjlgl: Txsjlgl;　　implementation<

118、;/p>　　uses Unit2;　　{$R *.dfm}　　procedure Txsjlgl.Button1Click(Sender: TObject);　　begin　　with ADOQuery1

119、DO　　begin　　close;　　SQL.Clear;　　SQL.Add('SELECT * from 學(xué)生記錄表');<b&g

120、t;　　open;　　end;　　end;　　procedure Txsjlgl.Button2Click(Sender: TObject);　　begin&

121、lt;/b>　　with ADOQuery1 do　　begin　　close;　　SQL.Clear;　　SQL.Add('select

122、*from 學(xué)生記錄表 where 學(xué)生記錄表.姓名=:a');　　parameters.parambyname('a').value:=trim(edit1.text);　　open;　　end;</p&g

123、t;　　end;　　procedure Txsjlgl.Button3Click(Sender: TObject);　　begin　　with ADOQuery1 do<

124、;b>　　begin　　close;　　SQL.Clear;　　SQL.Add('select *from 學(xué)生記錄表 where 學(xué)生記錄表.卡號=:b');　　parameters.par

125、ambyname('b').value:=trim(edit2.text);　　open;　　end;　　end;　　procedure Tx

126、sjlgl.Button4Click(Sender: TObject);　　begin　　with ADOQuery1 do　　begin　　close;&l

127、t;/p>　　SQL.Clear;　　SQL.Add('select *from 學(xué)生記錄表 where 學(xué)生記錄表.班級=:c');　　parameters.parambyname('c').value:=trim(edit3.text);<b&

128、gt;　　open;　　end;　　end;　　procedure Txsjlgl.Button5Click(Sender: TObject);　　begin

129、　　with ADOQuery1 do　　begin　　close;　　SQL.Clear;　　SQL.Add('select

130、 *from 學(xué)生記錄表 where 學(xué)生記錄表.院系=:d');　　parameters.parambyname('d').value:=trim(edit4.text);　　open;　　end;</p&

131、gt;　　end;　　procedure Txsjlgl.Button6Click(Sender: TObject);　　begin　　xsjlgl.Close ;<b

132、>　　gly.show;　　end;　　procedure Txsjlgl.Button9Click(Sender: TObject);　　begin　　xsjlgl.C

133、lose ;　　gly.show;　　end;　　procedure Txsjlgl.Button12Click(Sender: TObject);　　begin</b&g

134、t;　　xsjlgl.Close ;　　gly.show;　　end;　　procedure Txsjlgl.Button14Click(Sender: TObject);

135、　　begin　　xsjlgl.Close ;　　gly.show;　　end;　　procedure Txsjlgl.Button11Cl

眾賞文庫> 全部分類> 畢業(yè)設(shè)計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

數(shù)據(jù)庫技術(shù)與應(yīng)用課程設(shè)計---圖書信息管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

數(shù)據(jù)庫技術(shù)與應(yīng)用課程設(shè)計---圖書信息管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

免費下載