【正文】 添加成功 39。state39。).Value:=Trim()。 end。 end。) or (Trim()=39。更新成功 39。Phone39。).Value:=Trim()。 。,mtInformation,[mbOk],0)。).Value:=user_kind。 (39。]+39。managerId39。 end。 and = and Return_Date is null and getdate()deadline39。 Open。 。 //如果是讀者，則可直接在次界面點擊更改密碼按鈕 end。：您好 39。 :=false。 except showMessage(39。 :=false。 :=false。 if pos=0 then //reader begin :=true。 if pos=1 then begin ShowMessage(39。 ExecProc。pos39。 if =true then //讀者登錄 pos:=0 else pos:=1。 then //判斷用戶帳號輸入是否為空 begin :=true。 界面 6： Log_in（登陸界面） 窗體描述： 窗體名稱： Form_ Log_in 單元文件名 : Log_in 主要代碼： procedure (Sender: TObject)。 。string39。 end。 procedure (Sender: TObject)。).Value := 。 begin :=true。)。請 10 分鐘后到前臺取書 39。 ExecProc。ReaderId39。39。 :=39。can_borrow39。 31 (39。 lend_able:integer。 。 strcopy(p,pchar(s1))。 end。39。 GetMem(p,255)。 open。39。).AsString。39。select * from bookclass where len(sclassId)=2 and left(sclassid,1)=39。sclassid39。select * from BookClass where len(sclassId)=139。)。 begin :=false。 end。 26 procedure (Sender: TObject)。 //版本公告界面 end。 17) 圖書上架： ALTER PROCEDURE [dbo].[Proc_Shelve] Isbn varchar(15),sBookName varchar (50),spress varchar(30),Author varchar(30), classId varchar(20),sMemo varchar(50),state int =1 ,stockId varchar(30),fprice float AS BEGIN declare i int declare num int 22 declare bookId varchar(50) declare Index varchar(50) set i=0 set Index=classId+39。%39。%39。 or 21 sAuthor like 39。)39。%39。%39。and (sBookName like 39。%39。 11) 充值： ALTER PROCEDURE [dbo].[Proc_paydebt] sReaderId varchar(30),money float AS BEGIN declare tmp float select tmp=balance from Reader where sReaderId=sReaderId if tmp is null update Reader set balance=money where sReaderId=sReaderId 19 else update Reader set balance=balance+money where sReaderId=sReaderId END if error0 or rowcount = 0 rollback transaction。日期 39。88888839。 存取方式：聯(lián)機處理，以檢索為主，順序檢索。 說明：圖書入庫時，根據(jù)圖書情況建立圖書記錄；讀者還書時要核實圖書基本信息是否與圖書記錄相符，要檢查圖書是否完好。 綜上，本系統(tǒng)主要著力于解決 三 個問題，一是服務功能， 包括查 詢，借閱等等；二是管理功能，包括管理員對數(shù)目和讀者的管理；三是讀書的采購功能，包括訂單和入庫等。 4. 開發(fā)環(huán)境 ： Delphi 菜單、 Delphi 快捷工具欄、 Delphi 組件面板、對象樹狀查看器、對象查看器、有豐富的第三方控件。它的前身，即是 DOS 時代盛行一時的 “BorlandTurbo Pascal” ，最早的版本由美國 Borland（寶蘭）公司于 1995 年開發(fā)。 9 3 一、 概述 1. 項目背景 ： 隨著知識經(jīng)濟時代的迅速發(fā)展，由于以前廣泛使用的 管理 書籍的方法都將慢慢淘汰。 4 三 、系統(tǒng)設計 1 南 京 理 工 大 學 課程設計說明書 作者： 趙軍旺 學號： 0906840442 黃岳 0906840419 學院 (系 ): 計算機科學與技術學院 專 業(yè)： 計算機科學與技術 題 目： Delphi 軟件課程設計 —— 圖書館管理系統(tǒng) 2021年 9月 2 目錄 一、概述 8 七、附錄 而如今積累的書籍越來越多，若是不對其進行有效地管理，對信息的查詢就如大海撈針不得其所。主創(chuàng)者為 Anders Hejlsberg。 4 二、 需求分析 1. 問題的提出 ： 隨著科學技術的不斷提高 ,計算機科學日漸成熟 , 作為計算機應用的一部分 ,使用計算機對圖書信息進 行管理 ,具有手工管理所無法比擬的優(yōu)點。 如何使用 delphi 有效地實現(xiàn)，將是一個值得思考的問題。 b) 數(shù)據(jù)流名稱：用戶身份 位置： P3{,} 定義：用戶身份 =[非法用戶 |管理員 |讀者 ] 數(shù)據(jù)流量：平均流量為每月傳輸 2021次，高峰期流量每天傳輸 100次。 數(shù)據(jù)結(jié)構：用戶 +密碼 +級別 說明：級別是“管理員”或“讀者”。,readerlevel int =2,Name varchar(20)=null, sex varchar(10)=null,Email varchar(30)=null,Phone varchar(20)=null,Birthday date=null, 14 lend_able int =1,able int output AS BEGIN if exists (select *from Reader where sReaderId=readerid) set able=0 else begin insert into Reader values(readerid,spassword,readerlevel,Name,sex,Email,Phone,Birthday,lend_able,null) set able=1 end END if error0 or rowcount = 0 rollback transaction。+cast(GETDATE()as varchar(10)) insert into Stock values (StockId,orderId,Isbn,price,RealNum,GETDATE(),Author,stockstaffId,1) END if error0 or rowcount = 0 rollback transaction。 12) 超期： ALTER PROCEDURE [dbo].[Proc_readerborrow] sReaderId varchar(30) AS BEGIN select *from Borrowed,Book where sReaderId=sReaderId and = and Return_Date is null END if error0 or rowcount = 0 rollback transaction。39。39。+tepstr+39。39。 set pre = las end end set tepstr = substring(string,pre,len(string)+1pre) set sql = sql + 39。39。+tepstr+39。39。.39。 procedure (Sender: TObject)。 begin 。 end。 。 。)。).AsString。39。 。 getmem(p,255)。39。 end。 StrCopy(p,pchar(s1))。+(39。 for s:=0 to do begin classnode:=(matenode,(39。 :=p。 end。 begin if then begin ShowMessage(39。userId39。).Value 。select istate from book where sbookId= 39。39。).Value:=Trim()。 end。) else showMessage(39。 end else showMessage(39。 。 。 begin := trim(string())。 procedure (Sender: TObject)。).Value := trim()。 [0].Width:=100。 begin :=false。 exit。 try with ADOStoredProc1 do begin (39。).Value:=pos。 end。用戶名或密碼錯誤，請重新填寫 39。 ShowMessage(39。 :=false。 :=false。登錄失?。?39。 :=false。 :=false。 procedure (Sender: TObject)。 。 end。 open。 :=ADOquery2[39。).Value:=Trim()。!39。new_pas39。 (39。 。 40 end。 (39。).Value:=Trim( )。)。39。 i:=strtointdef(Trim(),1) 。 with ADOStoredProc1 do begin 42 close。 (39。).Value:=state。)。 if state=1 then begin showMessage(39。 (39。press39。 exit。 exit。39。 ShowMessage(39。 (39。Name39。 :=false。修改成功 ,請重新登錄！ 39。user_kind39。).Value:=Trim()。Name39。 (39。 open