




已閱讀5頁(yè),還剩40頁(yè)未讀, 繼續(xù)免費(fèi)閱讀
版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: 本文配套程序下載地址 : 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ()-大學(xué)生畢業(yè)設(shè)計(jì)站 ,免費(fèi)畢業(yè)設(shè)計(jì)論文 ,無(wú)憂無(wú)慮畢設(shè)網(wǎng) 大學(xué)生畢業(yè)設(shè)計(jì) ,出售各類畢業(yè)設(shè)計(jì)源碼 ,論文 ,程序源碼 ,網(wǎng)站源碼 ,免費(fèi)視頻教程 ,我們將竭誠(chéng)為您服務(wù)! 畢業(yè)設(shè)計(jì) 院系 _ 專業(yè) _ 班級(jí) _ 姓名 _ 日期 年 月 日 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: 中文摘要 書(shū)店輔助進(jìn)書(shū)管理系統(tǒng) 為書(shū)店輔助進(jìn)書(shū)管理者提供圖書(shū)管理 ,學(xué) 生管理以及借閱管理,查詢報(bào)表的一系列日常功能提供方便快捷的實(shí)現(xiàn)平臺(tái) .其開(kāi)發(fā)內(nèi)容主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。利用DELPHI 6.0 軟件及其提供的各種面向?qū)ο蟮拈_(kāi)發(fā)工具,建立完整性強(qiáng)、安全性好的數(shù)據(jù)庫(kù),開(kāi)發(fā)出功能完備,易使用的應(yīng)用程序。經(jīng)過(guò)調(diào)試、編譯與實(shí)現(xiàn),該程序 界面友好、程序設(shè)計(jì)風(fēng)格樸素,使用起來(lái)美觀大方、方便易用。尤其是系統(tǒng)的“借閱管理”的功能極大的減輕工作人員的工作量,并以快速、準(zhǔn)確等優(yōu)點(diǎn)取代人工操作, 提高了書(shū)店輔助進(jìn)書(shū)管理工作效率。 關(guān)鍵詞 : DELPHI 6.0 信息管理系統(tǒng) 數(shù)據(jù)庫(kù) 模塊 書(shū)店輔助進(jìn)書(shū)管理系統(tǒng) 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: Library management system to provide books for the library manager management and the management of student loan management, a series of enquiries statements provide convenient and efficient day-to-day functions of the platform. Its development mainly to the establishment and maintenance of databases including background and the development of two front-end applications. Delphi 6.0 and the use of object-oriented software development tools, the establishment of strong integrity, good safety database developed functions, easy to use applications. After debugging, Translation and the realization that the process friendly interface, simple programming style, using up aesthetic generous, convenient user-friendly. In particular system during management function greatly reduce the workload of staff, and to the rapid, accurate, and other advantages replace manually operated, improved library management efficiency. Keyword : Delphi 6.0 Information Management System database module library management system 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: 引 言 1 1 Delphi 語(yǔ)言概述 2 1.1 Delphi 簡(jiǎn)介 2 1.2 數(shù)據(jù)庫(kù)系統(tǒng)簡(jiǎn)介 2 1.3 本應(yīng)用軟件的基本介紹 3 2 本應(yīng)用程序的構(gòu)成和開(kāi)發(fā)步驟 4 2.1 可行性研究 4 2.1.1 經(jīng)濟(jì)可行性 4 2.1.2 時(shí)間可行性 4 2.1.3 技術(shù)可行性 4 2.1.4 社會(huì)可行性 5 2.2 數(shù)據(jù)庫(kù)的建立 和連接 5 2.3 系統(tǒng)的總體設(shè)計(jì) 5 2.4 系統(tǒng)的詳細(xì)設(shè)計(jì) 7 3 本程序的技術(shù)實(shí)現(xiàn)及具體功能 17 3.1 登錄的界面與程序設(shè)計(jì)實(shí)現(xiàn) 19 3.2 學(xué)生管理界面與代碼設(shè)計(jì)實(shí)現(xiàn) 24 3.3 圖書(shū)管理界面與代碼設(shè)計(jì)實(shí)現(xiàn) 29 3.4 借閱管理界面與代碼設(shè)計(jì) 36 3.5 報(bào)表查詢界面設(shè)計(jì)與代碼設(shè)計(jì) 41 結(jié) 論 42 致 謝 43 參 考 文 獻(xiàn) 45 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: 引 言 隨著經(jīng)濟(jì)的發(fā)展,社會(huì)的進(jìn)步,計(jì)算機(jī)越來(lái)越深入到我們?nèi)粘5墓ぷ鲗W(xué)習(xí)及生活中,成為我們?nèi)粘?生活中不可缺少的輔助工具。 隨著科學(xué)技術(shù)的不斷提高 ,計(jì)算機(jī)科學(xué)日漸成熟 ,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí) ,它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。 它已經(jīng)深入到日常工作和生活的方方面面,比如文字處理、信息管理、輔助設(shè)計(jì)、圖形圖像處理、教育培訓(xùn)以及游戲娛樂(lè)等。各行各業(yè)的人們無(wú)須經(jīng)過(guò)特別的訓(xùn)練就能夠使用電腦完成許許多多復(fù)雜的工作。然而,雖然現(xiàn)在世界上已經(jīng)充滿了多如牛毛的各種軟件,但它們依然不能滿足用戶的各種特殊需要,人們還不得不開(kāi)發(fā)適合自己特殊需求的軟件。以前開(kāi)發(fā)Windows應(yīng)用軟件是專業(yè)人員的工作, 需要掌握許多專業(yè)知識(shí)和經(jīng)過(guò)特殊的培訓(xùn)才能勝任。現(xiàn)在不同了,即使你沒(méi)有接受過(guò)嚴(yán)格的程序設(shè)計(jì)訓(xùn)練,使用 Delphi編程語(yǔ)言 也一樣能夠開(kāi)發(fā)出功能強(qiáng)大、適合自己特殊需求的應(yīng)用程序了。 Delphi編程語(yǔ)言 繼承了其他語(yǔ)言易學(xué)易用的特點(diǎn),特別適合于初學(xué)者學(xué)習(xí) Windows 系統(tǒng)編程。 書(shū)店輔助進(jìn)書(shū)管理系統(tǒng)用計(jì)算機(jī)管理書(shū)店輔助進(jìn)書(shū)工作的日常圖書(shū)管理 ,學(xué)生管理 ,以及圖書(shū)查閱 ,報(bào)表打印等功能的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新 ,在計(jì)算機(jī)還未普及之前書(shū)店輔助進(jìn)書(shū)管理都是由工作人員人工操作記錄 ,的方式來(lái)操作的 .現(xiàn)在一般的書(shū)店輔助進(jìn)書(shū)管 理都采用計(jì)算機(jī)智能化管理 ,采用計(jì)算機(jī)作為工具的實(shí)用的計(jì)算機(jī)網(wǎng)絡(luò)化管理程序來(lái)幫助前臺(tái)管理員進(jìn)行更有效的書(shū)店輔助進(jìn)書(shū)管理工作。書(shū)店輔助進(jìn)書(shū)管理系統(tǒng) 是典型的信息管理系統(tǒng) (MIS),其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備 ,易使用等特點(diǎn)。 經(jīng)過(guò)分析 ,我們使用 Delphi編程語(yǔ)言 開(kāi)發(fā)工具 ,利用其提供的各種面向?qū)ο蟮拈_(kāi)發(fā)工具 ,尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象 ,首無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: 先在短時(shí)間內(nèi) 建立系統(tǒng)應(yīng)用原型 ,然后 ,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代 ,不斷修正和改進(jìn) ,直到形成用戶滿意的可行系統(tǒng)。 因?yàn)楸救四芰τ邢?,加上時(shí)間緊迫,所以設(shè)計(jì)出來(lái)的本系統(tǒng)可能功能比較簡(jiǎn)單,另外本系統(tǒng)是單機(jī)版,不能實(shí)現(xiàn)網(wǎng)絡(luò)互聯(lián)操作 ,這些都有待于我在以后的工作學(xué)習(xí)中進(jìn)一步改進(jìn)。 1.1 Delphi 簡(jiǎn)介 1.1 Delphi 簡(jiǎn)介 Delphi 是 Inprise 公司出品的一個(gè)優(yōu)秀的可視化程序開(kāi)發(fā)工具軟件,它短小精悍,但功能卻可以與龐大的 visual c+媲美。它易學(xué)易用,如同 VB,因而被稱為“第四代編程語(yǔ)言”。 從 1995年推出 Delphi1.0至今已經(jīng)經(jīng)歷了 7個(gè)版本, Delphi7.0運(yùn)行在 win9x或 winme, win2000, winxp, windowsNT等操作系統(tǒng)下,是一個(gè) 32位的應(yīng)用程序開(kāi)發(fā)工具。這里把“ VB”比作是傻瓜相機(jī), Delphi 是帶有自動(dòng)功能的專業(yè)相機(jī)。前些年,軟件界流行一句話叫“真正的程序員用 VC,聰明的程序員用 Delphi”。也有的把 Delphi稱作 VB殺手。 1.2 數(shù)據(jù)庫(kù)系統(tǒng)簡(jiǎn)介 數(shù)據(jù)庫(kù)系統(tǒng)是一個(gè)實(shí)際可運(yùn)行的存儲(chǔ)、維護(hù)和應(yīng)用系統(tǒng)提供數(shù)據(jù)的軟件系統(tǒng),是存儲(chǔ)介質(zhì)、處理對(duì)象和管理系統(tǒng)的集合體。它通常由軟件 、數(shù)據(jù)庫(kù)和數(shù)據(jù)管理員組成。其軟件主要包括操作系統(tǒng)、各種宿主語(yǔ)言,實(shí)用程序以及數(shù)據(jù)庫(kù)管理系統(tǒng)。數(shù)據(jù)庫(kù)是依照某種數(shù)據(jù)模型組織起來(lái)并存放二級(jí)存儲(chǔ)器中的數(shù)據(jù)集合。這些數(shù)據(jù)為多個(gè)應(yīng)用服務(wù),獨(dú)立于具體的應(yīng)用程序。數(shù)據(jù)庫(kù)由數(shù)據(jù)庫(kù)管理系統(tǒng)統(tǒng)一管理,數(shù)據(jù)的插入、修改和檢索均要通過(guò)數(shù)據(jù)庫(kù)管理系統(tǒng)進(jìn)行。數(shù)據(jù)庫(kù)管理系統(tǒng)是一種系統(tǒng)軟件,它的主要功能是維護(hù)數(shù)據(jù)庫(kù)并有效地訪問(wèn)數(shù)據(jù)庫(kù)中任意部分?jǐn)?shù)據(jù)。對(duì)數(shù)據(jù)庫(kù)的維護(hù)包括保持?jǐn)?shù)據(jù)的完整性、一致性和安全性。數(shù)據(jù)管理員負(fù)責(zé)創(chuàng)建、監(jiān)控和維護(hù)整個(gè)數(shù)據(jù)庫(kù),使數(shù)據(jù)能被任何有權(quán)使用的人有效使用。數(shù)據(jù)庫(kù)管理員 一般是由業(yè)務(wù)水平較高、資歷較深的人員擔(dān)任。 數(shù)據(jù)庫(kù)系統(tǒng)的個(gè)體含義是指一個(gè)具體的數(shù)據(jù)庫(kù)管理系統(tǒng)軟件和用它建立起來(lái)的數(shù)據(jù)庫(kù);它的學(xué)科含義是指研究、開(kāi)發(fā)、建立、維護(hù)和應(yīng)用數(shù)據(jù)庫(kù)系統(tǒng)所涉及的理論、方法、技術(shù)所構(gòu)成的學(xué)科。在這一含義下,數(shù)據(jù)庫(kù)系統(tǒng)是軟件研究領(lǐng)域的一個(gè)重要分支,常稱為數(shù)據(jù)庫(kù)領(lǐng)域。 數(shù)據(jù)庫(kù)研究跨越于計(jì)算機(jī)應(yīng)用、系統(tǒng)軟件和理論三個(gè)領(lǐng)域,其中應(yīng)用促進(jìn)新系統(tǒng)的研制開(kāi)發(fā),新系統(tǒng)帶來(lái)新的理論研究,而理論研究又對(duì)前兩個(gè)領(lǐng)域起著指無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: 導(dǎo)作用。數(shù)據(jù)庫(kù)系統(tǒng)的出現(xiàn)是計(jì)算機(jī)應(yīng)用的一個(gè)里程碑,它使得計(jì)算機(jī)應(yīng)用從以科學(xué)計(jì)算為主 轉(zhuǎn)向以數(shù)據(jù)處理為主,并從而使計(jì)算機(jī)得以在各行各業(yè)乃至家庭普遍使用。在它之前的文件系統(tǒng)雖然也能處理持久數(shù)據(jù),但是文件系統(tǒng)不提供對(duì)任意部分?jǐn)?shù)據(jù)的快速訪問(wèn),而這對(duì)數(shù)據(jù)量不斷增大的應(yīng)用來(lái)說(shuō)是至關(guān)重要的。為了實(shí)現(xiàn)對(duì)任意部分?jǐn)?shù)據(jù)的快速訪問(wèn),就要研究許多優(yōu)化技術(shù)。這些優(yōu)化技術(shù)往往很復(fù)雜,是普通用戶難以實(shí)現(xiàn)的,所以就由系統(tǒng)軟件(數(shù)據(jù)庫(kù)管理系統(tǒng))來(lái)完成,而提供給用戶的是簡(jiǎn)單易用的數(shù)據(jù)庫(kù)語(yǔ)言。由于對(duì)數(shù)據(jù)庫(kù)的操作都由數(shù)據(jù)庫(kù)管理系統(tǒng)完成,所以數(shù)據(jù)庫(kù)就可以獨(dú)立于具體的應(yīng)用程序而存在,從而數(shù)據(jù)庫(kù)又可以為多個(gè)用戶所共享。因此,數(shù)據(jù)的獨(dú)立 性和共享性是數(shù)據(jù)庫(kù)系統(tǒng)的重要特征。數(shù)據(jù)共享節(jié)省了大量人力物力,為數(shù)據(jù)庫(kù)系統(tǒng)的廣泛應(yīng)用奠定了基礎(chǔ)。數(shù)據(jù)庫(kù)系統(tǒng)的出現(xiàn)使得普通用戶能夠方便地將日常數(shù)據(jù)存入計(jì)算機(jī)并在需要的時(shí)候快速訪問(wèn)它們,從而使的計(jì)算機(jī)走出科研機(jī)構(gòu)進(jìn)入各行各業(yè)、進(jìn)入家庭。 1.3 本應(yīng)用軟件的基本介紹 本應(yīng)用軟件先是打開(kāi)一個(gè)啟動(dòng)窗口,就可以進(jìn)入應(yīng)用程序的主窗口了。主界面是一個(gè)圖型界面窗口,整個(gè)平臺(tái)顯示采用人性化方式,可以非常方便的數(shù)據(jù)庫(kù)、學(xué)生管理、圖書(shū)查閱 ,報(bào)表生成等基本信息,管理日常經(jīng)營(yíng)的基本情況,通過(guò)各種條件查詢出相應(yīng)圖書(shū)的基本信息,以及 打印出查詢出的基本信息,總之一切書(shū)店輔助進(jìn)書(shū)的基本信息都會(huì)顯示在系統(tǒng)平臺(tái)上,大大提高了管理人員的工作效率。 2 本應(yīng)用程序的構(gòu)成和開(kāi)發(fā)步驟 下面從軟件工程的角度介紹本程序的基本開(kāi)發(fā)步驟。 Delphi 應(yīng)用程序一般包含以下三個(gè)基本部分: 應(yīng)用程序運(yùn)行的接口:負(fù)責(zé)系統(tǒng)整體環(huán)境的設(shè)置,運(yùn)行狀態(tài)的監(jiān)視,應(yīng)用程序的啟動(dòng)等。 應(yīng)用程序的主體:主要完成用戶的業(yè)務(wù)邏輯功能,如圖書(shū)查詢 ,學(xué)生管理 ,報(bào)表生成等信息 . 應(yīng)用程序的輔助部分:協(xié)助程序主體完成的一些工作。 下面從軟件工程的角度描述本程序的開(kāi)發(fā)生命周 期,開(kāi)發(fā)過(guò)程和組織過(guò)程。 2.1 可行性研究 任何一個(gè)系統(tǒng)或一項(xiàng)工程,在建立之前,必須首選進(jìn)行可行性分析,可行性分析包括兩層含義,一是可能性,二是必要性??赡苄灾搁_(kāi)發(fā)信息系統(tǒng)的條件是否具備,必要性是指客觀上是否真正需要,通過(guò)可行性研究,可避免盲目投資,減少政治性要的損失。下面從四方面來(lái)討論: 2.1.1 經(jīng)濟(jì)可行性 主要是只指算一個(gè)新的系統(tǒng)開(kāi)發(fā)所需要的投資費(fèi)用和運(yùn)算費(fèi)用,并與估計(jì)的無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: 新系統(tǒng)收益進(jìn)行比較,看是否有利。本系統(tǒng)所需的軟硬件成本比較低,投資小,具有一定的通過(guò)性,因此 ,在經(jīng)濟(jì)上是可行的。 2.1.2 時(shí)間可行性 主要包括系統(tǒng)在目前環(huán)境下能否正常運(yùn)行,運(yùn)行后所引起的各方面,以及這些變化對(duì)社會(huì)或人的因素所產(chǎn)生的影響。本系統(tǒng)對(duì)人事的管理比較全面,可長(zhǎng)期使用。 2.1.3 技術(shù)可行性 利用現(xiàn)有的設(shè)備,軟件及技術(shù)人員,新系統(tǒng)的目標(biāo)能否達(dá)到,這也是可行性研究中需要考慮的一個(gè)問(wèn)題。關(guān)系型數(shù)據(jù) 庫(kù)的高速發(fā)展使管理信息系統(tǒng)具備了良好的開(kāi)發(fā)環(huán)境。本系統(tǒng)使用的 Delphi 普及性好,操作簡(jiǎn)單,用戶可以很快掌握使用方法,因此,在技術(shù)上是完全可行的。 2.1.4 社會(huì)可行性 人類社會(huì)文明的發(fā)展已進(jìn)入信息化的高速發(fā)展時(shí)期,傳 統(tǒng)的手工方式支持下的管理模式,已經(jīng)不能滿足各方面的需要。開(kāi)發(fā)本系統(tǒng)的目標(biāo)不僅是提高工作效率,減輕勞動(dòng)強(qiáng)度,而且減少出錯(cuò)率,具有很好的社會(huì)意義。 2.2 數(shù)據(jù)庫(kù)的建立和連接 這個(gè)程序采用的數(shù)據(jù)庫(kù)是 Microsoft Access2000, Delphi 作為數(shù)據(jù)庫(kù)的前臺(tái)開(kāi)發(fā)工具,必須與后臺(tái)數(shù)據(jù)庫(kù)進(jìn)行連接,這樣才能控制和進(jìn)行操作數(shù)據(jù)庫(kù),數(shù)據(jù)庫(kù)的連接方式有兩種, ODBC和 ADO。 ODBC 是數(shù)據(jù)庫(kù)的通用接口,其缺點(diǎn)是效率低;專用接口調(diào)用直接速度快,但是通用性差,如果用 ODBC 連接數(shù)據(jù)庫(kù)一般要兩個(gè)步驟: 1.要?jiǎng)?chuàng)建數(shù)據(jù) 源; 2.創(chuàng)建描述文件。數(shù)據(jù)庫(kù)的建立則時(shí)在 access2000 中建立的,在這里你可以設(shè)置數(shù)據(jù)庫(kù)的密碼,對(duì)數(shù)據(jù)庫(kù)進(jìn)行保護(hù)。在創(chuàng)建數(shù)據(jù)源時(shí)可以通過(guò) BDE administrator進(jìn)行創(chuàng)建,也可以通過(guò)系統(tǒng)控制面板中的 ODBC 數(shù)據(jù)源進(jìn)行建立。而描述文件則可以在 Delphi的主程序中用 Database Profile 中進(jìn)行建立,之后進(jìn)行數(shù)據(jù)庫(kù)的連接。接下來(lái)的工作是建表。同樣建表的過(guò)程也不是唯一的,但是最終實(shí)現(xiàn)的結(jié)果是唯一的。你可以通過(guò) Access 進(jìn)行建表,也可以通過(guò)在 Visual Basic 主程序中建表,也可以通 過(guò) powerdesigner進(jìn)行可視化的建立,不過(guò)用這種方法,在導(dǎo)入的時(shí)候要把數(shù)據(jù)庫(kù)要先斷開(kāi),否則數(shù)據(jù)庫(kù)的數(shù)據(jù)容易丟失。建表的過(guò)程注意規(guī)范化命名規(guī)則,如表的字段名等等。同時(shí)也要注意表的字段長(zhǎng)度和可否為空。因?yàn)橐院笠O(shè)計(jì)到主鍵,外鍵的問(wèn)題。如果字段名不同,同一字段長(zhǎng)度不同則主鍵和外鍵將會(huì)連接不上??梢?jiàn)建表時(shí)應(yīng)做好全局的打算。我在程序開(kāi)發(fā)的初期,同樣犯了這個(gè)錯(cuò)誤,導(dǎo)致數(shù)據(jù)庫(kù)出錯(cuò),有時(shí)還要向表中新加入字段。導(dǎo)致數(shù)據(jù)窗口不好用的連鎖反映。 2.3 系統(tǒng)的總體設(shè)計(jì) 這個(gè)管理系統(tǒng)從 4 月 1 日開(kāi)始著手設(shè)計(jì)開(kāi)發(fā) ,經(jīng)過(guò) 一段時(shí)間的分析,并根據(jù)對(duì)影音店光盤管理的具體要求及需要本軟件實(shí)現(xiàn)的功能,將本軟件分為 4個(gè)大的無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: 模塊,分別是:第一部分:圖書(shū)管理 ; 第二部分:學(xué)生管理 ; 第三部分:借閱管理; 第四部分:報(bào)表查詢。 程序流程圖如下: 2.4 系統(tǒng)的詳細(xì)設(shè)計(jì) 進(jìn)入 Access后要做的第一件事就是建立一個(gè)數(shù)據(jù)庫(kù)。 Access提供了 6種用構(gòu)造數(shù)據(jù)庫(kù)系統(tǒng)的對(duì)象,根據(jù)本課題的需要,在這里選擇一個(gè)空的數(shù)據(jù)庫(kù),命名建立了一個(gè)數(shù)據(jù)庫(kù)名稱為“ tushuguan”,書(shū)店輔助進(jìn)書(shū)管理系統(tǒng)。并 在此數(shù)據(jù)庫(kù)下創(chuàng)建了四個(gè)表,用于存放原始數(shù)據(jù)。它只是存放數(shù)據(jù),對(duì)其中數(shù)據(jù)的修改要通過(guò)對(duì)應(yīng)的窗體來(lái)完成。創(chuàng)建各表的具體結(jié)構(gòu)如下: 1.books信息表 2.bore信息表 程序登陸 主界面 圖書(shū) 管 理 學(xué)生管理 借閱管理 查閱管理 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: 3.用戶權(quán)限信息表 : 4.學(xué)生信息表 3 本程序的技術(shù)實(shí)現(xiàn)及具體功能 3.1 登錄的界面與程序設(shè)計(jì)實(shí)現(xiàn) 代碼設(shè)計(jì) : var pass:boolean; procedure TForm1.N1Click(Sender: TObject); begin if pass=true then tushuguanli.show 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: else showmessage(請(qǐng)先輸入用戶名和密碼! ); end; procedure TForm1.N2Click(Sender: TObject); begin if pass=true then xueshengguanli.show else showmessage(請(qǐng)先輸入用戶名和密碼! ); end; procedure TForm1.N3Click(Sender: TObject); begin if pass=true then jieyueguanli.show else showmessage(請(qǐng)先輸入用戶名和密碼! ); end; procedure TForm1.N4Click(Sender: TObject); begin if pass=true then chacunbaobiao.show else showmessage(請(qǐng)先輸入用戶名和密碼! ); end; procedure TForm1.N5Click(Sender: TObject); begin about.show; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin with form1.Panel2 do begin adotable1.Active:=true; if edit1.text= then showmessage(請(qǐng)輸入 ID)else if edit2.Text= then showmessage(請(qǐng)輸入密碼 ) else /方法一 密碼 +用戶名 =1000 val(edit1.Text,i,code1); val(edit2.Text,j,code2); if (code10) or (code20) then showmessage(用戶名和密碼的格式錯(cuò)誤 ) else if strtoint(edit1.Text)+strtoint(edit2.Text)=10000 then begin 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: form1.show; showmessage(歡迎使用 !); pass:=true; form1.Panel2.Visible:=false; end else begin showmessage(密碼錯(cuò)誤 !推出系統(tǒng) ); form1.Close; end; /方法 2 密碼表 begin if not adotable1.Locate(name,edit1.Text,) then begin showmessage(沒(méi)有這個(gè)用戶,登陸失敗 ); pass:=false; end else if adotable1.FieldValuespassword=edit2.Text then begin showmessage(登陸成功 ); panel2.Visible:=false; pass:=true; end else begin showmessage(密碼錯(cuò)誤,退出系統(tǒng)! ); application.Terminate; end; end; end; end; procedure TForm1.BitBtn2Click(Sender: TObject); begin form1.Close; end; procedure TForm1.N6Click(Sender: TObject); begin if messagedlg( 確 定 要 退 出 系 統(tǒng) ?,mtinformation,mbno,mbyes,0)=mrYes then Application.Terminate; end; 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: 3.2 學(xué)生管理界面與代碼設(shè)計(jì)實(shí)現(xiàn) 代碼設(shè)計(jì) : unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, Mask, DBCtrls, Grids, DBGrids, ExtCtrls, DB, ADODB, Buttons; type Txueshengguanli = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; DataSource1: TDataSource; ADOTable1: TADOTable; Panel1: TPanel; Panel2: TPanel; 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: DBGrid1: TDBGrid; Panel3: TPanel; Panel5: TPanel; DBGrid3: TDBGrid; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Panel4: TPanel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; DBEdit8: TDBEdit; DBEdit9: TDBEdit; DBEdit10: TDBEdit; DBEdit11: TDBEdit; DBEdit12: TDBEdit; DBEdit13: TDBEdit; DBEdit14: TDBEdit; Panel6: TPanel; Label15: TLabel; Label16: TLabel; Label17: TLabel; Label18: TLabel; Label19: TLabel; Label20: TLabel; Label21: TLabel; DBEdit15: TDBEdit; DBEdit16: TDBEdit; DBEdit17: TDBEdit; DBEdit18: TDBEdit; DBEdit19: TDBEdit; DBEdit20: TDBEdit; DBEdit21: TDBEdit; BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: BitBtn4: TBitBtn; ADOTable1studentid: TWideStringField; ADOTable1studentname: TWideStringField; ADOTable1studentnum: TWideStringField; ADOTable1studentcollage: TWideStringField; ADOTable1studentclass: TWideStringField; ADOTable1studentage: TWideStringField; ADOTable1studentsex: TWideStringField; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit7: TEdit; BitBtn5: TBitBtn; BitBtn6: TBitBtn; DBGrid2: TDBGrid; Panel8: TPanel; RadioButton1: TRadioButton; Edit13: TEdit; Button1: TButton; RadioButton2: TRadioButton; Edit14: TEdit; Panel7: TPanel; RadioButton3: TRadioButton; Edit8: TEdit; Button2: TButton; RadioButton4: TRadioButton; Edit9: TEdit; BitBtn8: TBitBtn; BitBtn7: TBitBtn; BitBtn9: TBitBtn; procedure BitBtn1Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure TabSheet1Show(Sender: TObject); procedure TabSheet3Show(Sender: TObject); procedure DBGrid1CellClick(Column: TColumn); procedure BitBtn5Click(Sender: TObject); procedure BitBtn6Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure BitBtn9Click(Sender: TObject); procedure BitBtn7Click(Sender: TObject); 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: procedure BitBtn8Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject); private Private declarations public Public declarations end; var xueshengguanli: Txueshengguanli; implementation $R *.dfm procedure Txueshengguanli.BitBtn1Click(Sender: TObject); begin if dbedit15.Text= then showmessage(請(qǐng)輸入 ID) else if dbedit16.Text= then showmessage(請(qǐng)輸入姓名 ) else if dbedit17.Text =then showmessage(請(qǐng)輸入 學(xué)號(hào) ) else if dbedit18.Text = then showmessage(請(qǐng)輸入院系 ) else if dbedit19.Text = then showmessage(請(qǐng)輸入班級(jí)) else if dbedit20.Text = then showmessage(請(qǐng)輸入年齡 ) else begin if messagedlg( 確 實(shí) 要 增 加 該 學(xué) 生 ? ,mtInformation,mbOK, mbCancel,0)=mrok then begin adotable1.Edit; adotable1.Append; adotable1.FieldByName(studentid).AsString:=dbedit15.Text; adotable1.FieldByName(studentname).AsString:=dbedit16.Text; adotable1.FieldByName(studentnum).AsString:=dbedit17.Text; adotable1.FieldByName(studentcollage).AsString:=dbedit18.Text; adotable1.FieldByName(studentclass).AsString:=dbedit19.Text; 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: adotable1.FieldByName(studentage).AsString:=dbedit20.Text; adotable1.FieldByName(studentsex).AsString:=dbedit21.Text; adotable1.post; showmessage(添加成功 ); adotable1.Append; end else begin showmessage(添加失敗 ); adotable1.Append; end; end; end; procedure Txueshengguanli.BitBtn3Click(Sender: TObject); begin adotable1.Edit; if messagedlg( 確 實(shí) 要 刪 除 該 學(xué) 生 ?,mtWarning,mbOK,mbCancel,0)=mrok then begin adotable1.Delete; showmessage(刪除成功 ); end else begin showmessage(刪除失敗 ); end; end; procedure Txueshengguanli.TabSheet1Show(Sender: TObject); begin adotable1.Append; end; procedure Txueshengguanli.TabSheet3Show(Sender: TObject); begin edit1.Text:=adotable1.Fields0.AsString; edit2.Text:=adotable1.Fields1.AsString; edit3.Text:=adotable1.Fields2.AsString; edit4.Text:=adotable1.Fields3.AsString; edit5.Text:=adotable1.Fields4.AsString; edit6.Text:=adotable1.Fields5.AsString; edit7.Text:=adotable1.Fields6.AsString; 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: adotable1.Edit; end; procedure Txueshengguanli.DBGrid1CellClick(Column: TColumn); begin edit1.Text:=adotable1.Fields0.AsString; edit2.Text:=adotable1.Fields1.AsString; edit3.Text:=adotable1.Fields2.AsString; edit4.Text:=adotable1.Fields3.AsString; edit5.Text:=adotable1.Fields4.AsString; edit6.Text:=adotable1.Fields5.AsString; edit7.Text:=adotable1.Fields6.AsString; end; procedure Txueshengguanli.BitBtn5Click(Sender: TObject); begin if edit1.Text= then showmessage(請(qǐng)輸入 ID) else if edit2.Text= then showmessage(請(qǐng)輸入姓名 ) else if edit3.Text =then showmessage(請(qǐng)輸入學(xué)號(hào) ) else if edit4.Text = then showmessage(請(qǐng)輸入院系 ) else if edit5.Text = then showmessage(請(qǐng)輸入班級(jí) ) else if edit6.Text = then showmessage(請(qǐng)輸入年齡 ) else begin adotable1.edit; adotable1.Fields0.AsString:=edit1.Text; adotable1.Fields1.AsString:=edit2.Text; adotable1.Fields2.AsString:=edit3.Text; adotable1.Fields3.AsString:=edit4.Text; adotable1.Fields4.AsString:=edit5.Text; adotable1.Fields5.AsString:=edit6.Text; adotable1.Fields6.AsString:=edit7.Text; adotable1.Post; showmessage(修改成功 ); end; end; procedure Txueshengguanli.BitBtn6Click(Sender: TObject); begin adotable1.Refresh; end; procedure Txueshengguanli.Button2Click(Sender: TObject); 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: begin adotable1.Active:=true; if RadioButton3.Checked then if not adotable1.Locate(studentid,edit8.Text,) then begin showmessage(沒(méi)有該同學(xué),請(qǐng)重新輸入 ); edit8.Text:=; end else begin adotable1.Locate(studentid,edit8.Text,); edit8.Text:=; end; if RadioButton4.Checked then if not adotable1.Locate(studentname,edit9.Text,) then begin showmessage(沒(méi)有該同學(xué),請(qǐng)重新輸入 ); edit9.Text:=; end else begin adotable1.Locate(studentname,edit9.Text,); edit9.Text:=; end; end; procedure Txueshengguanli.Button1Click(Sender: TObject); begin adotable1.Active:=true; if RadioButton1.Checked then if not adotable1.Locate(studentid,edit13.Text,) then begin showmessage(沒(méi)有該同學(xué),請(qǐng)重新輸入 ); edit13.Text:=; end 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: else begin adotable1.Locate(studentid,edit13.Text,); edit13.Text:=; edit1.Text:=adotable1.Fields0.AsString; edit2.Text:=adotable1.Fields1.AsString; edit3.Text:=adotable1.Fields2.AsString; edit4.Text:=adotable1.Fields3.AsString; edit5.Text:=adotable1.Fields4.AsString; edit5.Text:=adotable1.Fields5.AsString; edit6.Text:=adotable1.Fields6.AsString; edit7.Text:=adotable1.Fields7.AsString; end; if RadioButton2.Checked then if not adotable1.Locate(studentname,edit14.Text,) then begin showmessage(沒(méi)有該同學(xué),請(qǐng)重新輸入 ); edit14.Text:=; end else begin adotable1.Locate(studentname,edit14.Text,); edit14.Text:=; edit1.Text:=adotable1.Fields0.AsString; edit2.Text:=adotable1.Fields1.AsString; edit3.Text:=adotable1.Fields2.AsString; edit4.Text:=adotable1.Fields3.AsString; edit5.Text:=adotable1.Fields4.AsString; edit5.Text:=adotable1.Fields5.AsString; edit6.Text:=adotable1.Fields6.AsString; edit7.Text:=adotable1.Fields7.AsString; end; adotable1.Active:=true; adotable1.Refresh; 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: showmessage(jksdh sdhfsdhfsdfsdjkfsdlfshjkf); if RadioButton1.Checked then if not adotable1.Locate(studentid,edit13.Text,) then begin showmessage(沒(méi)有該同學(xué),請(qǐng)重新輸入 ); edit13.Text:=; end else begin adotable1.Locate(studentid,edit13.Text,); edit1.Text:=adotable1.Fields0.AsString; edit2.Text:=adotable1.Fields1.AsString; edit3.Text:=adotable1.Fields2.AsString; edit4.Text:=adotable1.Fields3.AsString; edit5.Text:=adotable1.Fields4.AsString; edit5.Text:=adotable1.Fields5.AsString; edit6.Text:=adotable1.Fields6.AsString; edit7.Text:=adotable1.Fields7.AsString; edit13.Text:=; end; adotable1.Refresh; if RadioButton2.Checked then if not adotable1.Locate(studentname,edit14.Text,) then begin showmessage(沒(méi)有該同學(xué),請(qǐng)重新輸入 ); edit14.Text:=; end else begin adotable1.Locate(studentname,edit14.Text,); edit1.Text:=adotable1.Fields0.AsString; edit2.Text:=adotable1.Fields1.AsString; edit3.Text:=adotable1.Fields2.AsString; edit4.Text:=adotable1.Fields3.AsString; edit5.Text:=adotable1.Fields4.AsString; edit5.Text:=adotable1.Fields5.AsString; edit6.Text:=adotable1.Fields6.AsString; edit7.Text:=adotable1.Fields7.AsString; edit14.Text:=; end; 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: /圖書(shū)信息修改選擇 if RadioButton4.Checked then if not adotable1.Locate(bookname,edit16.Text,) then begin showmessage(沒(méi)有這本書(shū),請(qǐng)重新輸入 ); edit16.Text:=; end else begin adotable1.Locate(bookname,edit16.Text,); edit9.Text:=adotable1.Fields0.AsString; edit10.Text:=adotable1.Fields1.AsString; edit11.Text:=adotable1.Fields2.AsString; edit12.Text:=adotable1.Fields3.AsString; edit16.Text:=; end; end; procedure Txueshengguanli.BitBtn9Click(Sender: TObject); begin close; end; procedure Txueshengguanli.BitBtn7Click(Sender: TObject); begin close; end; procedure Txueshengguanli.BitBtn8Click(Sender: TObject); begin close; end; procedure Txueshengguanli.BitBtn2Click(Sender: TObject); begin adotable1.Append; end; procedure Txueshengguanli.BitBtn4Click(Sender: TObject); 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: begin adotable1.Refresh; end; end. 3.3 圖書(shū)管理界面與代碼設(shè)計(jì)實(shí)現(xiàn) 代碼設(shè)計(jì) : unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm2 = class(TForm) private Private declarations public 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: Public declarations end; var Form2: TForm2; implementation $R *.dfm end. 3.4 借閱管理界面與代碼設(shè)計(jì) 代碼設(shè)計(jì) : unit Unit5; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, Buttons, Grids, DBGrids, DB, ADODB, ExtCtrls; 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: type Tjieyueguanli = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; Panel1: TPanel; DataSource1: TDataSource; ADOTable1: TADOTable; DBGrid1: TDBGrid; Panel3: TPanel; Label5: TLabel; Label6: TLabel; Label7: TLabel; BitBtn3: TBitBtn; BitBtn4: TBitBtn; Panel4: TPanel; DBGrid2: TDBGrid; ADOTable2: TADOTable; DataSource2: TDataSource; Panel2: TPanel; Label1: TLabel; Label2: TLabel; Label3: TLabel; BitBtn1: TBitBtn; BitBtn2: TBitBtn; edit1: TEdit; edit2: TEdit; edit3: TEdit; edit4: TEdit; edit5: TEdit; edit6: TEdit; ADOTable3: TADOTable; ADOTable4: TADOTable; BitBtn8: TBitBtn; BitBtn5: TBitBtn; ADOTable1ids: TAutoIncField; ADOTable1bookid: TWideStringField; ADOTable1studentid: TWideStringField; ADOTable1onceout: TBooleanField; ADOTable1outdata: TDateTimeField; ADOTable2ids: TAutoIncField; ADOTable2bookid: TWideStringField; ADOTable2studentid: TWideStringField; 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: ADOTable2alreadyback: TBooleanField; ADOTable2backdata: TDateTimeField; procedure BitBtn1Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure TabSheet1Show(Sender: TObject); procedure TabSheet2Show(Sender: TObject); procedure BitBtn4Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn5Click(Sender: TObject); procedure BitBtn8Click(Sender: TObject); private Private declarations public Public declarations end; var jieyueguanli: Tjieyueguanli; implementation $R *.dfm procedure Tjieyueguanli.BitBtn1Click(Sender: TObject); begin adotable1.Active:=true; adotable2.Active:=true; adotable3.Active:=true; adotable4.Active:=true; if edit1.Text= then showmessage(請(qǐng)輸入圖書(shū) ID) else if edit2.Text= then showmessage(請(qǐng)輸入學(xué)生 ID) else begin if not adotable3.Locate(bookid,edit1.Text,) then showmessage(沒(méi)有這本書(shū) ) else if not adotable3.FieldValuesin then showmessage(這本書(shū)已經(jīng)被借出了 ) else if not adotable4.Locate(studentid,edit2.Text,) then showmessage(非法用戶,不能從這里借書(shū) ) else /adotable1.FieldByName(bookid).Value:=edit1.Text; /if not adotable1.findkey(:bookid) then 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: / showmessage(沒(méi)有這本書(shū) ) / else if messagedlg( 確 實(shí) 要 借 閱 這 本 書(shū) ? ,mtInformation,mbOK, mbCancel,0)=mrok then begin adotable3.Edit; adotable1.Edit; adotable1.Append; adotable1.FieldByName(bookid).AsString:=edit1.Text; adotable1.FieldByName(STUDENTID).AsString:=edit2.Text; adotable1.FieldByName(outDATA).AsString:=edit3.Text; adotable1.FieldByName(onceout).Value:=true; adotable1.post; adotable3.FieldValuesin:=false; showmessage(借閱成功 ); adotable1.Append; adotable3.Post; adotable1.Refresh; edit1.Text:=; edit2.Text:=; end else begin showmessage(借閱失敗 ); adotable1.Append; end; end; adotable1.Refresh; end; procedure Tjieyueguanli.BitBtn3Click(Sender: TObject); begin adotable1.Active:=true; adotable2.Active:=true; adotable3.Active:=true; adotable4.Active:=true; if edit4.Text= then showmessage(請(qǐng)輸入圖書(shū) ID) else if edit5.Text= then showmessage(請(qǐng)輸入學(xué)生 ID) else if not adotable3.Locate(bookid,edit4.Text,) then 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: showmessage(沒(méi)有這本書(shū) ) else if adotable3.FieldValuesin then showmessage(這本書(shū)已經(jīng)被歸還 ) else if not adotable4.Locate(studentid,edit5.Text,) then showmessage(非法用戶,不能從這里借書(shū) ) else if not adotable2.Locate(bokkid;studentid,vararrayof(edit4.Text,edit5.Text),) then showmessage(這本書(shū)不是你借的,你不能歸還!) else begin /還書(shū) adotable1.Edit; adotable3.Edit; adotable2.Append; adotable2.FieldByName(bookid).AsString:=edit4.Text; adotable2.FieldByName(studentid).AsString:=edit5.Text; adotable2.FieldByName(backdata).AsString:=edit6.Text; adotable2.FieldByName(alreadyback).value:=true; adotable3.FieldValuesin:=true; adotable3.Post; adotable2.Post; adotable1.Refresh; edit4.Text:=; edit5.Text:=; end; adotable1.Refresh; end; procedure Tjieyueguanli.TabSheet1Show(Sender: TObject); var yy,mm,dd:word; y,m,d:integer; begin decodedate(Date,yy,mm,dd); y:=yy; m:=mm; d:=dd; edit3.Text:=inttostr(y)+-+inttostr(m)+-+inttostr(d); adotable1.Refresh; 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: end; procedure Tjieyueguanli.TabSheet2Show(Sender: TObject); var yy,mm,dd:word; y,m,d:integer; begin decodedate(Date,yy,mm,dd); y:=yy; m:=mm; d:=dd; edit6.Text:=inttostr(y)+-+inttostr(m)+-+inttostr(d); adotable2.Refresh; end; procedure Tjieyueguanli.BitBtn4Click(Sender: TObject); begin edit4.Text:=; edit5.Text:=; end; procedure Tjieyueguanli.BitBtn2Click(Sender: TObject); begin edit1.Text:=; edit2.Text:=; end; procedure Tjieyueguanli.BitBtn5Click(Sender: TObject); begin close; end; procedure Tjieyueguanli.BitBtn8Click(Sender: TObject); begin close; end; end. 3.5 報(bào)表查詢界面設(shè)計(jì)與代碼設(shè)計(jì) 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: 代碼設(shè)計(jì) : unit Unit6; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, DB, ADODB, Mask, DBCtrls; type Tchacunbaobiao = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; Panel1: TPanel; Panel2: TPanel; Panel3: TPanel; Panel4: TPanel; Panel5: TPanel; DataSource1: TDataSource; DataSource2: TDataSource; 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: ADOQuery2: TADOQuery; DBGrid1: TDBGrid; DBGrid2: TDBGrid; Panel8: TPanel; RadioButton1: TRadioButton; Edit13: TEdit; RadioButton2: TRadioButton; Edit14: TEdit; Panel6: TPanel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; ADOQuery1: TADOQuery; RadioButton3: TRadioButton; Edit1: TEdit; ADOQuery1bookid: TWideStringField; ADOQuery1bookname: TWideStringField; ADOQuery1author: TWideStringField; ADOQuery1in: TBooleanField; BitBtn1: TBitBtn; Panel7: TPanel; RadioButton4: TRadioButton; RadioButton5: TRadioButton; RadioButton6: TRadioButton; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Label1: TLabel; DataSource3: TDataSource; DBGrid3: TDBGrid; ADOQuery3: TADOQuery; Panel9: TPanel; RadioButton7: TRadioButton; RadioButton8: TRadioButton; RadioButton9: TRadioButton; Edit6: TEdit; Edit7: TEdit; Edit8: TEdit; Label2: TLabel; BitBtn4: TBitBtn; BitBtn5: TBitBtn; BitBtn6: TBitBtn; 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: BitBtn2: TBitBtn; Edit15: TEdit; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBEdit4: TDBEdit; ADOQuery3ids: TAutoIncField; ADOQuery3bookid: TWideStringField; ADOQuery3studentid: TWideStringField; ADOQuery3onceout: TBooleanField; ADOQuery3outdata: TDateTimeField; ADOQuery3alreadyback: TBooleanField; ADOQuery3backdata: TDateTimeField; ADOQuery2ids: TAutoIncField; ADOQuery2bookid: TWideStringField; ADOQuery2studentid: TWideStringField; ADOQuery2onceout: TBooleanField; ADOQuery2outdata: TDateTimeField; ADOQuery2alreadyback: TBooleanField; ADOQuery2backdata: TDateTimeField; ADOQuery4: TADOQuery; DataSource4: TDataSource; DBGrid4: TDBGrid; ADOQuery4ids: TAutoIncField; ADOQuery4bookid: TWideStringField; ADOQuery4studentid: TWideStringField; ADOQuery4onceout: TBooleanField; ADOQuery4outdata: TDateTimeField; ADOQuery4alreadyback: TBooleanField; ADOQuery4backdata: TDateTimeField; Panel10: TPanel; RadioButton10: TRadioButton; RadioButton11: TRadioButton; RadioButton12: TRadioButton; RadioButton13: TRadioButton; Edit16: TEdit; Edit17: TEdit; Edit18: TEdit; Edit19: TEdit; BitBtn3: TBitBtn; BitBtn7: TBitBtn; BitBtn8: TBitBtn; BitBtn9: TBitBtn; BitBtn10: TBitBtn; 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: procedure Button1Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject); procedure BitBtn5Click(Sender: TObject); procedure BitBtn6Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn8Click(Sender: TObject); procedure BitBtn9Click(Sender: TObject); procedure BitBtn10Click(Sender: TObject); private Private declarations public Public declarations end; var chacunbaobiao: Tchacunbaobiao; implementation $R *.dfm procedure Tchacunbaobiao.Button1Click(Sender: TObject); begin adoquery1.Open; if RadioButton1.Checked then if not adoquery1.Locate(bookid,edit13.Text,) then begin showmessage(沒(méi)有這本書(shū),請(qǐng)重新輸入 ); edit13.Text:=; end else begin end; if RadioButton2.Checked then if not adoquery1.Locate(bookname,edit14.Text,) then begin showmessage(沒(méi)有這本書(shū),請(qǐng)重新輸入 ); edit14.Text:=; 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: end else begin adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Text:=select * from books where bookname=+edit14.Text+; adoquery1.Open; edit14.Text:=; end; if RadioButton3.Checked then if not adoquery1.Locate(author,edit1.Text,) then begin showmessage(沒(méi)有這本書(shū),請(qǐng)重新輸入 ); edit1.Text:=; end else begin adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add(select * from books where author=+edit1.Text+); adoquery1.Open; edit1.Text:=; end; end; procedure Tchacunbaobiao.BitBtn1Click(Sender: TObject); begin adoquery1.Edit; if radiobutton1.Checked then begin / adoquery1.Active:=true; adoquery1.Edit; adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Text:=select * from books where bookid=+edit13.Text+; adoquery1.Open; 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: if adoquery1.RecordCount=0 then begin showmessage(沒(méi)有符合條件的紀(jì)錄 ); / edit13.Text:=; / end else begin / showmessage(紀(jì)錄已經(jīng)查找到了 ); edit13.Text:=; end; / end; / if radiobutton2.Checked then begin adoquery1.Active:=true; adoquery1.Edit; adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Text:=select * from books where bookname=+edit14.Text+; adoquery1.Open; if adoquery1.RecordCount=0 then begin showmessage(沒(méi)有符合條件的紀(jì)錄 ); edit14.Text:=; end else begin showmessage(紀(jì)錄已經(jīng)查找到了 ); edit14.Text:=; end; end; if radiobutton3.Checked then begin adoquery1.Active:=true; adoquery1.Edit; adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Text:=select * from books where author=+edit1.Text+; adoquery1.Open; if adoquery1.RecordCount=0 then begin showmessage(沒(méi)有符合條件的紀(jì)錄 ); 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: edit1.Text:=; end else begin showmessage(紀(jì)錄已經(jīng)查找到了 ); edit1.Text:=; end; end; end; procedure Tchacunbaobiao.BitBtn2Click(Sender: TObject); begin adoquery2.Active:=true; if radiobutton4.Checked then begin adoquery2.Active:=true; adoquery2.Edit; if not adoquery2.Locate(bookid,edit2.Text,) then begin showmessage(沒(méi)有符合條件的紀(jì)錄 ); edit2.Text:=; end else begin showmessage(紀(jì)錄已經(jīng)查找到了 ); adoquery2.Close; adoquery2.SQL.Clear; adoquery2.SQL.Text:=select * from bore where bookid=:bookid and onceout=true; adoquery2.Parameters.ParamByName(bookid).Value:=edit2.Text; adoquery2.Open; edit2.Text:=; 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: end; end; if radiobutton5.Checked then begin adoquery2.Active:=true; adoquery2.Edit; if not adoquery2.Locate(studentid,edit3.Text,) then begin showmessage(沒(méi)有符合條件的紀(jì)錄 ); edit3.Text:=; end else begin showmessage(紀(jì)錄已經(jīng)查找到了 ); adoquery2.Close; adoquery2.SQL.Clear; adoquery2.SQL.Text:=select * from bore where studentid=:studentid and onceout=true; adoquery2.Parameters.ParamByName(studentid).Value:=edit3.Text; adoquery2.Open; edit3.Text:=; end; end; if radiobutton6.Checked then begin adoquery2.Active:=true; adoquery2.Edit; adoquery2.Close; adoquery2.SQL.Clear; adoquery2.SQL.Text:=select * from bore where outdata between #+edit4.Text+# and #+edit5.Text+# and onceout=true; /adoquery2.Parameters.ParamByName(data1).Value:=#+edit4.Text+#; /adoquery2.Parameters.ParamByName(data2).Value:=#+edit5.Text+#; adoquery2.Open; if adoquery2.RecordCount=0 then 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: begin showmessage(沒(méi)有符合條件的紀(jì)錄 ); edit4.Text:=; edit5.Text:=; end else begin showmessage(紀(jì)錄已經(jīng)查找到了 ); edit4.Text:=; edit5.Text:=; end; end; end; procedure Tchacunbaobiao.BitBtn4Click(Sender: TObject); begin edit2.Text:=; edit3.Text:=; edit4.Text:=; edit5.Text:=; end; procedure Tchacunbaobiao.BitBtn5Click(Sender: TObject); begin adoquery3.Active:=true; if radiobutton7.Checked then begin adoquery3.Active:=true; adoquery3.Edit; adoquery3.Close; adoquery3.SQL.Clear; adoquery3.SQL.Text:=select * from bore where bookid=:bookid and alreadyback=true; adoquery3.Parameters.ParamByName(bookid).Value:=edit6.Text; adoquery3.Open; if adoquery3.RecordCount=0 then begin showmessage(沒(méi)有符合條件的紀(jì)錄 ); edit6.Text:=; end else 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: begin showmessage(紀(jì)錄已經(jīng)查找到了 ); edit6.Text:=; end; end; if radiobutton8.Checked then begin adoquery3.Active:=true; adoquery3.Edit; adoquery3.Close; adoquery3.SQL.Clear; adoquery3.SQL.Text:=select * from bore where studentid=:studentid and alreadyback=true; adoquery3.Parameters.ParamByName(studentid).Value:=edit7.Text; adoquery3.Open; if adoquery3.RecordCount=0 then begin showmessage(沒(méi)有符合條件的紀(jì)錄 ); edit7.Text:=; end else begin showmessage(紀(jì)錄已經(jīng)查找到了 ); edit7.Text:=; end; end; if radiobutton9.Checked then begin adoquery3.Active:=true; adoquery3.Edit; adoquery3.Close; adoquery3.SQL.Clear; adoquery3.SQL.Text:=select * from bore where backdata between #+edit8.Text+# and #+edit15.Text+# and alreadyback=true; adoquery3.Open; if adoquery3.RecordCount=0 then begin showmessage(沒(méi)有符合條件的紀(jì)錄 ); edit8.Text:=; edit15.Text:=; end else begin 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載: showmessage(紀(jì)錄已經(jīng)查找到了 ); edit8.Text:=; edit15.Text:=;
溫馨提示
- 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 社區(qū)沿街商業(yè)改造方案
- 小區(qū)物業(yè)投標(biāo)技術(shù)方案
- 常用分流閥采購(gòu)方案
- 裝修全案設(shè)計(jì)開(kāi)業(yè)方案
- 小區(qū)底下倉(cāng)庫(kù)改造方案
- 勞務(wù)人員情培訓(xùn)方案
- 養(yǎng)老服務(wù)分隊(duì)建設(shè)方案
- 應(yīng)急演練方案常規(guī)采樣
- 廠區(qū)開(kāi)門施工方案
- 救火現(xiàn)場(chǎng)處置方案
- 中國(guó)貨運(yùn)代理行業(yè)市場(chǎng)調(diào)研分析及投資戰(zhàn)略咨詢報(bào)告
- 2025中國(guó)石化春季招聘統(tǒng)一初選考試筆試參考題庫(kù)附帶答案詳解
- 2025年鉗工(技師)職業(yè)技能鑒定試題庫(kù)
- 3D打印介紹課件
- 團(tuán)建桌游游戲活動(dòng)方案
- 2024年馬鞍山含山縣招聘高中教師筆試真題
- 高中數(shù)學(xué)第九、十章統(tǒng)計(jì)與概率章節(jié)測(cè)試卷-2024-2025學(xué)年高一下學(xué)期數(shù)學(xué)人教A版(2019)必修第二冊(cè)
- 教育培訓(xùn)宣傳課件
- 大學(xué)招生宣傳工作規(guī)范制度?
- 輿情監(jiān)控處置管理制度
- 【真題】五年級(jí)下學(xué)期數(shù)學(xué)期末試卷(含解析)四川省成都市高新技術(shù)產(chǎn)業(yè)開(kāi)發(fā)區(qū)2023-2024學(xué)年
評(píng)論
0/150
提交評(píng)論