

版權說明:本文檔由用戶提供并上傳,收益歸屬內容提供方,若內容存在侵權,請進行舉報或認領
文檔簡介
1、<p><b> 1 概述</b></p><p> 圖書館作為社會文化服務部門,提供的社會的是文獻服務。作為社會的重要文化信息部門,也需要一套有效的圖書館管理信息系統(tǒng)來提高管理效率。</p><p> 目前,我國中小型圖書館辦館的要求及領先標志就是藏書全部開放,讀者共享開架借閱。為了充分發(fā)揮圖書館的功效,最大限度地為讀者服務,圖書館自動化管理以此為最
2、終目標。實現這一目標,必須有現代化的管理手段和管理體制。為此,各個圖書館都開始采用圖書館管理系統(tǒng),從而實現人工管理無法實現的一些功能并發(fā)揮圖書館的最大效益。隨著越來越多的圖書館采用了現代化的管理軟件進行管理,進一步提升了圖書館管理的現代化水平。自身發(fā)展的需要和競爭的需要決定了采用圖書館管理系統(tǒng)的必要性。 當前主流系統(tǒng)采用客戶機/服務器(Client/Server) + 瀏覽器/服務器(Browser/Server)模式,所有信息
3、均存放在數據庫服務器上,各客戶機通過網絡與數據庫服務器通訊,WEB 服務通過ADO 模型訪問數據庫服務器,數據與應用安全地隔離,可確保數據存放的安全性。</p><p><b> 2 需求分析</b></p><p> 這里要實現一個圖書信息管理系統(tǒng),根據圖書館管理信息系統(tǒng)要實現的功能在簡單的基礎上,在此系統(tǒng)中需要涉及對學生、圖書和操作人員的相關基本管理和操作,包
4、括系統(tǒng)管理、讀者管理、編目、統(tǒng)計、查詢等功能。圖書館管理人員是圖書館管理信息系統(tǒng)的管理者,他們具有對學生信息和圖書信息管理的權限。而學生應該可以利用圖書館管理信息系統(tǒng)來查詢圖書、并查詢個人借閱情況等。系統(tǒng)中實現了由管理員設置、修改各操作員的密碼,各操作員均需先登錄系統(tǒng)然后根據其權限再操作各其被允許使用的各種功能。</p><p> 圖書館管理信息系統(tǒng)的用例包括以下內容:</p><p>
5、 學生信息管理:學生的查詢、修改、增加和刪除;</p><p> 圖書信息管理:書籍信息的查詢、修改、增加和刪除;</p><p> 查詢功能:圖書查詢、讀者查詢、借閱查詢;</p><p> 設置功能:密碼設置;</p><p> 因此,此系統(tǒng)要能夠記錄并實現查詢、修改、增添和刪除圖書的信息、學生的信息和查詢圖書信息、個人借閱情況
6、。具體要求為:</p><p> 一本圖書一次只能借給一名同學</p><p> 一個學生最多只能借5本圖書</p><p> 系統(tǒng)的所有數據進行統(tǒng)一的管理,要保證其安全性</p><p> 設計不同用戶的操作權限和登陸方法:</p><p> 只有管理員可對圖書信息和學生信息進行相關操作以及修改管理員和學生
7、的密碼。</p><p> 學生只能查詢圖書信息和個人借閱信息。</p><p> 除了對這些數據進行正常的管理、維護之外,還需要產生一些報表,例如學生借閱信息表,內容包括學生卡號、姓名、所借圖書、借閱日期、歸還日期等。</p><p><b> 3 數據庫結構設計</b></p><p> 2.1 概念結構設計
8、</p><p> 圖書館管理信息系統(tǒng)的核心活動是圖書,學生與圖書之間是通過學生借閱圖書發(fā)生聯(lián)系的。因此,此系統(tǒng)所包含的實體有:</p><p> ?。?)圖書:用于描述一本圖書的基本信息,用圖書編號來標識此實體;</p><p> (2)學生:用于描述一個學生的基本信息,由卡號來標識;</p><p> ?。?)操作人員:用于描述一個操
9、作人員的基本信息,由用戶名來標識;</p><p> 其初步E-R圖如下:</p><p> 實體的屬性比較多,在畫E-R圖時,不便于把所有的實體屬性都畫在E-R圖上,另外用文字說明:</p><p> 經過初步分析,可知此系統(tǒng)中各實體所包含的基本屬性為:</p><p> 圖書:圖書編號、圖書類別、圖書名稱、圖書作者、出版社、出版日
10、期、備注;</p><p> 學生:卡號、姓名、年齡、性別、班級、院系、電話號碼、最大借書數目;</p><p> 操作人員:用戶名、用戶密碼、用戶類型。</p><p> 2.2 邏輯結構設計</p><p> 第一步:確定基本E-R圖后,就根據該圖進行邏輯結構設計即設計基本的關系模型。設計基本關系模式主要是從E-R圖出發(fā),將其直接
11、轉換為關系模式。根據轉換規(guī)則,這個E-R圖轉換的關系模式為:</p><p> 圖書(圖書編號、圖書類別、圖書名稱、圖書作者、出版社、出版日期、備注),主碼為圖書編號;</p><p> 學生(卡號、姓名、年齡、性別、班級、院系、電話號碼、最大借書數目),主碼是卡號。</p><p> 操作人員(用戶名、用戶密碼、用戶類型),主碼為用戶名。</p>
12、<p> 借閱信息(編號、圖書編號、圖書名稱、借閱時間、歸還時間),主碼為編號。</p><p> 第二步:在設計好了關系模式并確定好了每個關系模式的主碼后,再看一下這些關系模式之間的關聯(lián)關系,即確定關系模式的外碼,可通過E-R圖中的聯(lián)系實體發(fā)現:</p><p> 借閱關系中,卡號和圖書編號是外碼,分別引用學生關系中的卡號和圖書關系中的圖書編號;</p>
13、<p> 第三步:最后,確定表中各屬性的詳細信息,包括數據類型和長度等:</p><p><b> 操作人員表:</b></p><p> 用戶名:char(50),key</p><p> 用戶密碼:char(10),,not null</p><p> 用戶類型:int(4),not null&
14、lt;/p><p><b> 書籍信息表</b></p><p> 圖書編號:char(8),key</p><p> 圖書類別:char(20),not null</p><p> 圖書名稱:char(20),not null</p><p> 圖書作者:char(20),not null
15、</p><p> 出版社:char(20)</p><p> 出版日期:datetime(8)</p><p> 備注:char(30)</p><p><b> 學生記錄表</b></p><p> 卡號:char(10),key</p><p> 姓名:c
16、har(16),not null</p><p><b> 年齡:int(4)</b></p><p> 性別:char(10),not null</p><p> 班級:char(16),not null</p><p> 院系:char(16),not null</p><p> 電
17、話號碼:char(16)</p><p> 最大借書數目:int(4),not null</p><p><b> 借閱信息表</b></p><p> 編號:int(4),key</p><p> 圖書編號:char(8),not null</p><p> 圖書名稱:char(16)
18、,not null</p><p> 借閱人卡號:char(10),not null</p><p> 借閱時間:datetime(8),not null</p><p> 歸還時間:datetime(8)</p><p> 第四步:在SQL Server2000中建立上述表,并確定表和表之間的約束關系:主碼、外碼、規(guī)則、默認等;&l
19、t;/p><p> 第五步:報表的設計(視圖的設計)</p><p> 有了數據庫的基本表之后,應該看一下這些基本表能否滿足產生報表的需求。在數據庫應用系統(tǒng)中,用戶需要產生大量的報表,而報表的內容來自于數據庫中的基本表,因此,在設計好數據庫的基本表之后,要看一下這些基本表的內容是否全部包含了要產生的報表的內容。</p><p> 如:學生借閱圖書表,(卡號、姓名、
20、班級、院系、圖書編號、圖書名稱、借閱時間、歸還時間)</p><p> 姓名、班級、院系可由學生記錄表得到;卡號、圖書編號、圖書名稱、借閱時間、歸還時間可由書籍信息表得到。因此,可以滿足學生借閱圖書表的要求,可以通過定義視圖實現。</p><p> 4 數據庫行為功能設計</p><p> 4.1系統(tǒng)層級結構設計 </p><p>
21、根據圖書館信息系統(tǒng)要實現的功能,經過分析,可將圖書館信息系統(tǒng)分為模塊下6個模塊:用戶登錄模塊,圖書館管理系統(tǒng)中學生記錄管理模塊、圖書記錄管理模塊、修改密碼模塊,圖書館服務系統(tǒng)中的查詢圖書記錄模塊和查詢個人借閱情況模塊。通過這些基本實現登陸,管理員對于學生記錄和圖書記錄的查詢、修改、添加、刪除,學生對于圖書記錄和個人借閱情況的查詢等功能。本系統(tǒng)的主要模塊功能的樹結構圖如下:</p><p><b> 4
22、.2 界面設計</b></p><p> ?。ㄒ唬┯脩舻顷懡缑嬖O計</p><p> 任何數據庫應用系統(tǒng)都需要安全控制功能,圖書館信息管理系統(tǒng)用戶分為如下兩類:</p><p> ?。?)系統(tǒng)管理員:有系統(tǒng)的全部權限,包括學生記錄的查詢、修改、添加、刪除,圖書記錄的查詢、修改、添加、刪除,管理員和學生的密碼修改。</p><p>
23、; ?。?)學生:具有普通權限,包括查詢圖書記錄和查詢個人借閱情況。</p><p> 在實現時,通過在操作人員表中設置用戶類型屬性,用不同的數字區(qū)別具有不同權限的用戶。通過登陸界面選擇用戶類型,再根據數據庫中的數據,通過判斷進入不同界面,實現不同操作。其中圖書館管理員進入圖書館管理信系統(tǒng),學生進入圖書館服務系統(tǒng)。</p><p> 當用戶名和密碼錯誤時,系統(tǒng)會自動提示“賬號或密碼錯誤
24、”。</p><p> 如圖為登陸界面和登錄用戶名和密碼錯誤時的提示界面。 </p><p> (二)圖書館管理系統(tǒng)主界面設計</p><p> 圖書館管理系統(tǒng)主界面主要是為了使圖書館管理員實現學生記錄管理、圖書記錄管理和修改密碼設置等功能。單擊該界面的不同選項就會進入實現不同功能的窗體。如圖為圖書館管理系統(tǒng)的主界面。此界面還通過菜單實現個界面的鏈接。<
25、;/p><p> ?。ㄈW生記錄管理界面設計</p><p> 學生記錄管理界面主要是由圖書館管理員用來查詢、修改、插入、刪除學生信息的。在完成一個或者多個學生記錄的處理操作后,單價“返回”即可返回到圖書館管理系統(tǒng)主界面。</p><p> 如圖為學生記錄管理界面:</p><p> 1.學生記錄查詢界面:可實現按姓名、卡號、班級、院系方
26、式查詢。</p><p><b> 按姓名查詢:</b></p><p><b> 按卡號查詢:</b></p><p><b> 按班級查詢:</b></p><p><b> 按院系查詢:</b></p><p> 2
27、.學生記錄修改界面:</p><p> 可實現通過要修改的條件查詢顯示出來要修改的學生記錄,并在右側的修改板塊選擇要修改的內容,再輸入修改后的內容,點擊確定,實現學生記錄的相關修改。點擊“返回”按鈕,返回到圖書館管理界面。</p><p> 修改之后查詢,發(fā)現記錄已成功修改。</p><p> 3.學生記錄增添界面:</p><p>
28、 可實現向數據中新添加學生記錄的功能。如圖為添加成功后,可見學生記錄已經成功添加。</p><p> 4.學生記錄刪除界面:</p><p> 可實現先查詢要刪除的學生記錄,在點擊“刪除”,彈出“是否確定要刪除信息”的對話框,點擊“Yes”記錄刪除,點擊“No”取消刪除操作。點擊“返回”可返回到圖書館管理界面。</p><p> 如圖為刪除的記錄,可見選擇要刪
29、除的記錄已經成功刪除。</p><p> ?。ㄋ模﹫D書記錄管理界面設計</p><p> 圖書記錄管理界面主要是由圖書館管理員用來查詢、修改、插入、刪除圖書信息的。在完成一個或者多個圖書記錄的處理操作后,單價“返回”即可返回到圖書館管理系統(tǒng)主界面。本界面通過使用DBNavigator控件來直接實現圖書記錄的修改、添加和刪除等功能,操作十分方便。</p><p>&
30、lt;b> 修改功能:</b></p><p><b> 修改之前:</b></p><p> 修改時直接在表中修改,點擊對勾確定修改,點擊叉放棄修改。</p><p><b> 修改之后:</b></p><p><b> 刪除功能:</b><
31、;/p><p><b> 確認刪除后:</b></p><p><b> 增加功能:</b></p><p> 在空白行中添加要增添的圖書記錄。</p><p><b> 增添成功后:</b></p><p> ?。┬薷拿艽a界面設計</p&
32、gt;<p> 修改密碼設置界面主要由圖書館管理員用來修改管理員或學生的登錄密碼。點擊確定,可實現密碼修改,點擊取消,可取消密碼修改操作。在完成密碼修改后,會彈出對話框顯示“密碼成功修改”。點擊返回按鈕可返回到圖書館管理界面。</p><p> ?。ㄆ撸﹫D書館服務系統(tǒng)主界面設計</p><p> 圖書館服務系統(tǒng)主界面模塊主要實現學生查詢各種圖書記錄,查詢個人借閱情況的功能
33、。選擇該界面的不同標題就可以進入實現不同功能的窗體。點擊返回,可返回到用戶登陸界面。</p><p> 如圖為圖書館服務系統(tǒng)主界面。</p><p> ?。ò耍┎樵儓D書記錄界面設計</p><p> 查詢圖書界面實現了學生查詢想要借閱的圖書。</p><p> 一般查詢圖書主要經過一下方式:按書名查詢、按作者查詢、按出版日期查詢三種方式
34、。因此該界面提供此三種方式實現查詢操作。</p><p><b> 按書名查詢:</b></p><p><b> 按作者查詢:</b></p><p><b> 按出版日期查詢:</b></p><p> ?。ň牛┎樵儌€人借閱情況界面設計</p><
35、p> 查詢個人借閱情況實現了學生通過輸入自己的學號執(zhí)行查詢,顯示該生借閱圖書的情況。表中數據來自數據庫中建立的視圖——學生借閱圖書表。</p><p> ?。ò耍┫到y(tǒng)信息界面設計</p><p> 該界面主要是用于介紹本系統(tǒng),以及作者的信息。由圖書館管理系統(tǒng)主界面中菜單:系統(tǒng)—關于到達。點擊返回,可返回到圖書館管理系統(tǒng)主界面。</p><p> 5 數據
36、庫課程設計心得體會</p><p> 這次數據庫課程設計花費了自己很多時間,但是值得欣慰的是我也收獲了很多,尤其是在自己做的系統(tǒng)可以正常運行并實現所需功能時,自己的心情真的是非常激動。</p><p> 這次課程設計用到的Delphi是以前從未接觸過的軟件,其中的語言也是完全陌生的。在看到課程要求后就去圖書館借了很多參考資料回來啃。之后遇到問題,不斷請教會的同學,也在網上能夠不斷搜索答
37、案,逐一解決。從基本的數據類型到語句的結構再到各種控件的作用和及相關屬性的設置,自己一點點的學習、理解。最后在模仿系統(tǒng)設計的方法,按照分析需求、列出關系模型、流程,明確各個模塊的功能,在精確到各個模塊的設計和其中控件動作語言的編寫。整個過程漫長而艱辛,還總是說出一些程序不能運行、代碼有錯誤等等插曲,但是自己還是挺過來了,并成功地完成了在自己的圖書館信息管理系統(tǒng)。</p><p> 在整個過程中,我覺得自己在自學
38、這方面提高了很多。能夠靠自己的能力初步掌握一個軟件的基本應用。我也意識到學習的重要性,還有很多未知的只是等著我去學習,此謂之“學海無涯”也。此外,我也學會了和大家共同交流,不斷學習,善于向別人學習也是一種提高效率的好方法。我還發(fā)現網絡的好處,能夠很快解決很多棘手的問題,也進一步提高了自己檢索信息的能力。更重要的我對于數據庫的基本概念的功能應用都有了很深刻的了解,鼓勵著我在今后的學習中進一步加深對它的了解。</p><
39、p> 但是還是存在一些問題:</p><p> ?。?)對于數據庫的控件了解還是不夠,有待繼續(xù)學習</p><p> ?。?)自己解決問題的能力還不夠強,邏輯思維、建立組織架構的能力有待加強</p><p> (3)對于數據庫中的基本概念還是有些不夠熟悉,需要多操作實踐,在實踐中學習。</p><p><b> 附件:&
40、lt;/b></p><p> 現將程序代碼附如下:</p><p><b> 登陸界面:</b></p><p> unit Unit1;</p><p><b> interface</b></p><p><b> uses</b>
41、</p><p> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,</p><p> Dialogs, StdCtrls, Buttons, ExtCtrls, DB, DBTables, ADODB;</p><p><b> type</b
42、></p><p> TLogin = class(TForm)</p><p> Panel1: TPanel;</p><p> BitBtn1: TBitBtn;</p><p> BitBtn2: TBitBtn;</p><p> Label1: TLabel;</p><
43、p> Label2: TLabel;</p><p> Edit1: TEdit;</p><p> Edit2: TEdit;</p><p> ADOQuery1: TADOQuery;</p><p> RadioGroup1: TRadioGroup;</p><p> ADOConnecti
44、on1: TADOConnection;</p><p> procedure BitBtn1Click(Sender: TObject);</p><p> procedure BitBtn2Click(Sender: TObject);</p><p><b> private</b></p><p> {
45、Private declarations }</p><p><b> public</b></p><p> { Public declarations }</p><p><b> end;</b></p><p><b> var</b></p>&
46、lt;p> Login: TLogin;</p><p> implementation</p><p> uses Unit2, Unit7;</p><p> {$R *.dfm}</p><p> procedure TLogin.BitBtn2Click(Sender: TObject);</p><
47、;p><b> begin</b></p><p> Login.close;</p><p><b> end;</b></p><p> procedure TLogin.BitBtn1Click(Sender: TObject);</p><p> var username,p
48、assword:string;</p><p><b> begin</b></p><p> if RadioGroup1.ItemIndex =0 then</p><p><b> begin</b></p><p> username :=trim(edit1.text);<
49、/p><p> password :=trim(edit2.text);</p><p> if username='' then</p><p><b> begin</b></p><p> ShowMessage('請輸入用戶名!');</p><p>&
50、lt;b> end</b></p><p> else if password='' then</p><p><b> begin</b></p><p> ShowMessage('請輸入密碼');</p><p><b> end</b&g
51、t;</p><p><b> else</b></p><p><b> begin</b></p><p> adoquery1.Close;</p><p> adoquery1.SQL.Clear;</p><p> adoquery1.SQL.Add(
52、39;select * from 操作人員表 where 用戶名='''+edit1.text+''' and 用戶密碼 ='''+edit2.text+''' and 用戶類型=0');</p><p> adoquery1.Open;</p><p> if adoquery1.
53、RecordCount <1 then</p><p><b> begin</b></p><p> showmessage('帳號或密碼錯誤!');</p><p><b> end</b></p><p><b> else</b></
54、p><p><b> begin</b></p><p><b> gly.show;</b></p><p> Login.Hide;</p><p><b> end;</b></p><p><b> end;</b>&
55、lt;/p><p><b> end;</b></p><p> if RadioGroup1.ItemIndex =1 then</p><p><b> begin</b></p><p> username :=trim(edit1.text);</p><p>
56、; password :=trim(edit2.text);</p><p> if username='' then</p><p><b> begin</b></p><p> ShowMessage('請輸入用戶名!');</p><p><b> end<
57、;/b></p><p> else if password='' then</p><p><b> begin</b></p><p> ShowMessage('請輸入密碼');</p><p><b> end</b></p>&l
58、t;p><b> else</b></p><p><b> begin</b></p><p> adoquery1.Close;</p><p> adoquery1.SQL.Clear;</p><p> adoquery1.SQL.Add('select * from
59、 操作人員表 where 用戶名='''+edit1.text+''' and 用戶密碼 ='''+edit2.text+''' and 用戶類型=1');</p><p> adoquery1.Open;</p><p> if adoquery1.RecordCount <
60、1 then</p><p><b> begin</b></p><p> showmessage('帳號或密碼錯誤!');</p><p><b> end</b></p><p><b> else</b></p><p>
61、<b> begin</b></p><p><b> xs.show;</b></p><p> Login.Hide;</p><p><b> end;</b></p><p><b> end;</b></p><p&
62、gt;<b> end;</b></p><p><b> end;</b></p><p><b> end.</b></p><p> 圖書館管理系統(tǒng)主界面</p><p> unit Unit2;</p><p><b> i
63、nterface</b></p><p><b> uses</b></p><p> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,</p><p> Dialogs, StdCtrls, Menus, jpeg, ExtC
64、trls, ComCtrls;</p><p><b> type</b></p><p> Tgly = class(TForm)</p><p> MainMenu1: TMainMenu;</p><p> N1: TMenuItem;</p><p> N2: TMenuItem
65、;</p><p> N3: TMenuItem;</p><p> Image1: TImage;</p><p> StatusBar1: TStatusBar;</p><p> Label1: TLabel;</p><p> Label2: TLabel;</p><p>
66、 Label3: TLabel;</p><p> Label4: TLabel;</p><p> Label5: TLabel;</p><p> Label6: TLabel;</p><p> Label7: TLabel;</p><p> N6: TMenuItem;</p><
67、;p> S1: TMenuItem;</p><p> N4: TMenuItem;</p><p> N5: TMenuItem;</p><p> N7: TMenuItem;</p><p> N8: TMenuItem;</p><p> B1: TMenuItem;</p>&
68、lt;p> N9: TMenuItem;</p><p> N10: TMenuItem;</p><p> N11: TMenuItem;</p><p> N12: TMenuItem;</p><p> procedure N2Click(Sender: TObject);</p><p> p
69、rocedure N3Click(Sender: TObject);</p><p> procedure N6Click(Sender: TObject);</p><p> procedure N4Click(Sender: TObject);</p><p> procedure N5Click(Sender: TObject);</p>
70、<p> procedure N7Click(Sender: TObject);</p><p> procedure N8Click(Sender: TObject);</p><p> procedure N9Click(Sender: TObject);</p><p> procedure N10Click(Sender: TObject)
71、;</p><p> procedure N11Click(Sender: TObject);</p><p> procedure N12Click(Sender: TObject);</p><p> procedure Label4Click(Sender: TObject);</p><p> procedure Label5
72、Click(Sender: TObject);</p><p> procedure Label6Click(Sender: TObject);</p><p> procedure Label7Click(Sender: TObject);</p><p><b> private</b></p><p> {
73、 Private declarations }</p><p><b> public</b></p><p> { Public declarations }</p><p><b> end;</b></p><p><b> var</b></p>
74、<p> gly: Tgly;</p><p> implementation</p><p> uses Unit1, Unit6, Unit3, Unit4, Unit5;</p><p> {$R *.dfm}</p><p> procedure Tgly.N2Click(Sender: TObject);<
75、/p><p><b> begin</b></p><p> Login.Hide;</p><p> xgmm.show;</p><p><b> end;</b></p><p> procedure Tgly.N3Click(Sender: TObject);&
76、lt;/p><p><b> begin</b></p><p> guanyu.show;</p><p><b> end;</b></p><p> procedure Tgly.N6Click(Sender: TObject);</p><p><b>
77、 begin</b></p><p><b> gly.hide;</b></p><p> Login.show ;</p><p><b> end;</b></p><p> procedure Tgly.N4Click(Sender: TObject);</p&g
78、t;<p><b> begin</b></p><p> xsjlgl.show;</p><p><b> gly.Hide;</b></p><p><b> end;</b></p><p> procedure Tgly.N5Click(Sen
79、der: TObject);</p><p><b> begin</b></p><p> xsjlgl.show;</p><p><b> gly.Hide;</b></p><p><b> end;</b></p><p> proc
80、edure Tgly.N7Click(Sender: TObject);</p><p><b> begin</b></p><p> xsjlgl.show;</p><p><b> gly.Hide;</b></p><p><b> end;</b></
81、p><p> procedure Tgly.N8Click(Sender: TObject);</p><p><b> begin</b></p><p> xsjlgl.show;</p><p><b> gly.Hide;</b></p><p><b>
82、; end;</b></p><p> procedure Tgly.N9Click(Sender: TObject);</p><p><b> begin</b></p><p> tsjlgl.show;</p><p><b> gly.Hide;</b></p&
83、gt;<p><b> end;</b></p><p> procedure Tgly.N10Click(Sender: TObject);</p><p><b> begin</b></p><p> tsjlgl.show;</p><p><b> gly
84、.Hide;</b></p><p><b> end;</b></p><p> procedure Tgly.N11Click(Sender: TObject);</p><p><b> begin</b></p><p> tsjlgl.show;</p>
85、<p><b> gly.Hide;</b></p><p><b> end;</b></p><p> procedure Tgly.N12Click(Sender: TObject);</p><p><b> begin</b></p><p> t
86、sjlgl.show;</p><p><b> gly.Hide;</b></p><p><b> end;</b></p><p> procedure Tgly.Label4Click(Sender: TObject);</p><p><b> begin</b&g
87、t;</p><p><b> gly.Hide;</b></p><p> xsjlgl.show;</p><p><b> end;</b></p><p> procedure Tgly.Label5Click(Sender: TObject);</p><p&g
88、t;<b> begin</b></p><p><b> gly.Hide;</b></p><p> tsjlgl.show;</p><p><b> end;</b></p><p> procedure Tgly.Label6Click(Sender: TO
89、bject);</p><p><b> begin</b></p><p> Login.Hide;</p><p> xgmm.show;</p><p><b> end;</b></p><p> procedure Tgly.Label7Click(Sen
90、der: TObject);</p><p><b> begin</b></p><p><b> gly.hide;</b></p><p> Login.show;</p><p><b> end;</b></p><p><b&g
91、t; end.</b></p><p><b> 系統(tǒng)信息界面:</b></p><p> unit Unit3;</p><p><b> interface</b></p><p><b> uses</b></p><p>
92、 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,</p><p> Dialogs, StdCtrls, jpeg, ExtCtrls;</p><p><b> type</b></p><p> Tguanyu = class(TFo
93、rm)</p><p> Button1: TButton;</p><p> Image1: TImage;</p><p> Label1: TLabel;</p><p> Label2: TLabel;</p><p> procedure Button1Click(Sender: TObject);
94、</p><p><b> private</b></p><p> { Private declarations }</p><p><b> public</b></p><p> { Public declarations }</p><p><b>
95、 end;</b></p><p><b> var</b></p><p> guanyu: Tguanyu;</p><p> implementation</p><p> uses Unit2;</p><p> {$R *.dfm}</p><
96、p> procedure Tguanyu.Button1Click(Sender: TObject);</p><p><b> begin</b></p><p> guanyu.Hide;</p><p><b> gly.show;</b></p><p><b>
97、end;</b></p><p><b> end.</b></p><p><b> 學生記錄管理界面</b></p><p> unit Unit4;</p><p><b> interface</b></p><p><
98、b> uses</b></p><p> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,</p><p> Dialogs, StdCtrls, ComCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB;</p>&l
99、t;p><b> type</b></p><p> Txsjlgl = class(TForm)</p><p> Panel1: TPanel;</p><p> PageControl1: TPageControl;</p><p> TabSheet1: TTabSheet;</p>
100、<p> TabSheet2: TTabSheet;</p><p> TabSheet3: TTabSheet;</p><p> TabSheet4: TTabSheet;</p><p> Label1: TLabel;</p><p> GroupBox2: TGroupBox;</p><p
101、> Label3: TLabel;</p><p> Label4: TLabel;</p><p> Edit1: TEdit;</p><p> Edit2: TEdit;</p><p> Label5: TLabel;</p><p> Label6: TLabel;</p>&
102、lt;p> Edit3: TEdit;</p><p> Edit4: TEdit;</p><p> Button2: TButton;</p><p> Button3: TButton;</p><p> Button4: TButton;</p><p> Button5: TButton;&
103、lt;/p><p> Button6: TButton;</p><p> GroupBox1: TGroupBox;</p><p> DBGrid1: TDBGrid;</p><p> Label2: TLabel;</p><p> Button1: TButton;</p><p&g
104、t; GroupBox3: TGroupBox;</p><p> DBGrid2: TDBGrid;</p><p> Button7: TButton;</p><p> Label8: TLabel;</p><p> Edit5: TEdit;</p><p> Label7: TLabel;<
105、;/p><p> GroupBox4: TGroupBox;</p><p> Label9: TLabel;</p><p> Label10: TLabel;</p><p> Edit6: TEdit;</p><p> Button8: TButton;</p><p> But
106、ton9: TButton;</p><p> GroupBox5: TGroupBox;</p><p> Label11: TLabel;</p><p> DBGrid3: TDBGrid;</p><p> Button10: TButton;</p><p> GroupBox6: TGroupBo
107、x;</p><p> Label12: TLabel;</p><p> Label13: TLabel;</p><p> Label14: TLabel;</p><p> Label15: TLabel;</p><p> Label16: TLabel;</p><p>
108、Label17: TLabel;</p><p> Label18: TLabel;</p><p> Label19: TLabel;</p><p> Edit7: TEdit;</p><p> Edit8: TEdit;</p><p> Edit9: TEdit;</p><p&
109、gt; Edit10: TEdit;</p><p> Edit11: TEdit;</p><p> Edit12: TEdit;</p><p> Edit13: TEdit;</p><p> Edit14: TEdit;</p><p> Button11: TButton;</p>
110、<p> Button12: TButton;</p><p> GroupBox7: TGroupBox;</p><p> Label20: TLabel;</p><p> Label21: TLabel;</p><p> DBGrid4: TDBGrid;</p><p> Button
111、13: TButton;</p><p> Edit15: TEdit;</p><p> Button14: TButton;</p><p> ADOQuery1: TADOQuery;</p><p> DataSource1: TDataSource;</p><p> Edit16: TEdit;&
112、lt;/p><p> Edit17: TEdit;</p><p> Edit18: TEdit;</p><p> procedure Button1Click(Sender: TObject);</p><p> procedure Button2Click(Sender: TObject);</p><p>
113、 procedure Button3Click(Sender: TObject);</p><p> procedure Button4Click(Sender: TObject);</p><p> procedure Button5Click(Sender: TObject);</p><p> procedure Button6Click(Sender
114、: TObject);</p><p> procedure Button9Click(Sender: TObject);</p><p> procedure Button12Click(Sender: TObject);</p><p> procedure Button14Click(Sender: TObject);</p><p&
115、gt; procedure Button11Click(Sender: TObject);</p><p> procedure Button7Click(Sender: TObject);</p><p> procedure Button8Click(Sender: TObject);</p><p> procedure Button10Click(S
116、ender: TObject);</p><p> procedure Button13Click(Sender: TObject);</p><p><b> private</b></p><p> { Private declarations }</p><p><b> public</b
117、></p><p> { Public declarations }</p><p><b> end;</b></p><p><b> var</b></p><p> xsjlgl: Txsjlgl;</p><p> implementation<
118、;/p><p> uses Unit2;</p><p> {$R *.dfm}</p><p> procedure Txsjlgl.Button1Click(Sender: TObject);</p><p><b> begin</b></p><p> with ADOQuery1
119、DO</p><p><b> begin</b></p><p><b> close;</b></p><p> SQL.Clear;</p><p> SQL.Add('SELECT * from 學生記錄表');</p><p><b&g
120、t; open;</b></p><p><b> end;</b></p><p><b> end;</b></p><p> procedure Txsjlgl.Button2Click(Sender: TObject);</p><p><b> begin&
121、lt;/b></p><p> with ADOQuery1 do</p><p><b> begin</b></p><p><b> close;</b></p><p> SQL.Clear;</p><p> SQL.Add('select
122、*from 學生記錄表 where 學生記錄表.姓名=:a');</p><p> parameters.parambyname('a').value:=trim(edit1.text);</p><p><b> open;</b></p><p><b> end;</b></p&g
123、t;<p><b> end;</b></p><p> procedure Txsjlgl.Button3Click(Sender: TObject);</p><p><b> begin</b></p><p> with ADOQuery1 do</p><p><
124、;b> begin</b></p><p><b> close;</b></p><p> SQL.Clear;</p><p> SQL.Add('select *from 學生記錄表 where 學生記錄表.卡號=:b');</p><p> parameters.par
125、ambyname('b').value:=trim(edit2.text);</p><p><b> open;</b></p><p><b> end;</b></p><p><b> end;</b></p><p> procedure Tx
126、sjlgl.Button4Click(Sender: TObject);</p><p><b> begin</b></p><p> with ADOQuery1 do</p><p><b> begin</b></p><p><b> close;</b>&l
127、t;/p><p> SQL.Clear;</p><p> SQL.Add('select *from 學生記錄表 where 學生記錄表.班級=:c');</p><p> parameters.parambyname('c').value:=trim(edit3.text);</p><p><b&
128、gt; open;</b></p><p><b> end;</b></p><p><b> end;</b></p><p> procedure Txsjlgl.Button5Click(Sender: TObject);</p><p><b> begin
129、</b></p><p> with ADOQuery1 do</p><p><b> begin</b></p><p><b> close;</b></p><p> SQL.Clear;</p><p> SQL.Add('select
130、 *from 學生記錄表 where 學生記錄表.院系=:d');</p><p> parameters.parambyname('d').value:=trim(edit4.text);</p><p><b> open;</b></p><p><b> end;</b></p&
131、gt;<p><b> end;</b></p><p> procedure Txsjlgl.Button6Click(Sender: TObject);</p><p><b> begin</b></p><p> xsjlgl.Close ;</p><p><b
132、> gly.show;</b></p><p><b> end;</b></p><p> procedure Txsjlgl.Button9Click(Sender: TObject);</p><p><b> begin</b></p><p> xsjlgl.C
133、lose ;</p><p><b> gly.show;</b></p><p><b> end;</b></p><p> procedure Txsjlgl.Button12Click(Sender: TObject);</p><p><b> begin</b&g
134、t;</p><p> xsjlgl.Close ;</p><p><b> gly.show;</b></p><p><b> end;</b></p><p> procedure Txsjlgl.Button14Click(Sender: TObject);</p>
135、<p><b> begin</b></p><p> xsjlgl.Close ;</p><p><b> gly.show;</b></p><p><b> end;</b></p><p> procedure Txsjlgl.Button11Cl
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網頁內容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
- 4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
- 5. 眾賞文庫僅提供信息存儲空間,僅對用戶上傳內容的表現方式做保護處理,對用戶上傳分享的文檔內容本身不做任何修改或編輯,并不能對任何下載內容負責。
- 6. 下載文件中如有侵權或不適當內容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 數據庫課程設計---圖書信息管理系統(tǒng)
- 圖書信息管理系統(tǒng)數據庫課程設計報告
- sql課程設計---圖書信息管理系統(tǒng)數據庫設計
- 數據庫課程設計高校圖書信息系統(tǒng)數據庫的設計與應用
- 課程設計--圖書信息管理系統(tǒng)
- 圖書信息管理系統(tǒng)課程設計
- 圖書信息管理系統(tǒng) 課程設計
- 課程設計---圖書信息管理系統(tǒng)
- 課程設計---圖書信息管理系統(tǒng)
- 課程設計--- 圖書信息管理系統(tǒng)設計
- 課程設計---圖書信息管理系統(tǒng)設計
- 圖書信息管理系統(tǒng)課程設計報告
- 數據庫課程設計---宿舍信息管理系統(tǒng)
- 數據庫課程設計--教室信息管理系統(tǒng).
- 數據庫課程設計--學生信息管理系統(tǒng)
- sql課程設計(圖書信息管理系統(tǒng))
- 圖書信息管理系統(tǒng)課程設計報告
- 圖書信息管理系統(tǒng)課程設計報告
- 圖書信息管理系統(tǒng)java課程設計
- 數據庫課程設計---學生信息管理系統(tǒng)
評論
0/150
提交評論