圖書館圖書信息管理系統(tǒng)程序設計文檔-免費閱讀

　　

【正文】 進入系統(tǒng)的設計階段，嚴格遵循以上的思路進行。 六、本系統(tǒng)各個功能的 運行 見“運行錄像 .exe”。 begin close。 :=39。)。code39。 end。 except messagedlg(39。).value:=datetostr(now())。 (39。 exit。 end。 ()。).AsDateTime)。code39。).asstring。 :=fieldbyname(39。 while not eof do begin //with tempadoquery1 do with do begin 。readerid39。 mmcode:string。 :=false。).Value := 。 close。 messagedlg(39。 (39。 end。 end else begin 。 if strtoint( )60 then begin :=true。).AsDateTime 。select * from lend where code=:code39。 end。memo039。author39。39。 procedure (Sender: TObject)。 for i:=0 to recordcount1 do begin (fieldbyname(39。在窗體中添加三個 button 組件，兩個 ADOquery 組件，一個 datasource 組件， 9 個 DBedit組件，一個 DBmemo 組件， 12 個 statictext 組件， 32 程序主要代碼如下： procedure (Sender: TObject)。 :=[i].Caption 。 :=0。 end。 execsql。readername39。39。,mterror,[mbok],0)。+ +39。).Value :=inttostr(ex) 。 (39。 close。 open。 end。39。 end。 end。 if checked=IDyes then begin with do //從讀者數(shù)據(jù)表中刪除讀者數(shù)據(jù) begin 。 execsql。此讀者還有圖書沒有歸還，是否刪除？ 39。 (39。 end。 end。) else (39。name39。select * from reader order by readerID39。 Shift: TShiftState)。 except messagedlg(39。memo039。Author39。 end。 open。 ⅱ .瀏覽圖書設計：在窗體中添加一個 datasource 組件，一個 bobox 組件，七個 statictext 組件，五個 DBedit 組件，一個 DBmemo 組件，兩個 button 組件。39。39。,outdate=39。39。39。 。 execSQL。 try (39。 try (39。 try 25 (39。name39。 (39。 已 經 存 在39。)。,mtError,[mbok],0)。 :=39。 :=39。 ⑻．圖書管理 窗體 設計： 窗體的名字為： bookform，對應的單元文件為： 。條記錄 39。039。 (fieldbyname(39。code39。).AsString =39。 while not eof do begin with do //將查詢結果加入到列表 listview3 中 begin caption:=fieldbyname(39。 if then //按借書證查詢 begin (39。 var content:string。 //顯示查詢失敗 end。共 39。)。 if fieldbyname(39。 end。).Value :=content。+content+39。 end。+inttostr(recordcount)+39。 (fieldbyname(39。press39。).AsString 。select code,name,author,press,outdate,cost,memo0 from book where author like :author 39。 if then begin //按出版社查詢 (39。 end。%39。 end。 procedure (Sender: TObject。39。 //輸入最大長度為 4； end。在窗體中 添加一個tPageControl 組件 ， 在 t PageControl 組件對象中建立三個頁面 ，還有一個 button組件，并輸入以下代碼： procedure (Sender: TObject)。密碼更改成功 !39。 (sqlstr)。39。 end else begin sqlstr:=39。 if vymm then begin ShowMessage(39。)39。 vyhm:=。 end。).Value:=vyhm。039。)。)39。 vyhm:=。 begin if trim()=39。 ⑸． 添加用戶 窗體 設計 ： 窗體的名字為： tjyh_form，對應的單元文件為 。 (sqlstr)。39。 end。 var vmsg,vyhm,sqlstr:string。 open。 14 var sqlstr:string。 end。 :=true。用戶權限：管理者 39。 :=true。 :=true。 。mm139。 。 ⑶ ． 登錄 窗體 設計： 窗體的名字為： dlform,對應的單元文件為： 。Provider=。User ID=admin。 //顯示圖書館背景 end。 //退出系統(tǒng) end。 procedure (Sender: TObject)。 begin 。 //顯示圖書管理系統(tǒng) 10 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 [4].Text:=datetostr(now)。 :=false。 mypath:string。本系統(tǒng)使用 Access 數(shù)據(jù)庫存儲圖書管理的基本信息。 二： 需求分析 ： ? 主要功能 本圖書管理系統(tǒng)主要是實現(xiàn)對圖書信息的查詢和管理，其功能為： ① 操作系統(tǒng)：分為四個部分： ⅰ .登錄：根據(jù)不同的用戶的權限 不同，可進行不同的操作 ； ⅱ .用戶管理：增加和刪除系統(tǒng)用戶，并制定用戶的權限； ⅲ .修改密碼：可修改當前用戶自己的密碼； ⅳ .退出系統(tǒng)：退出程序，關閉窗口。 implementation uses book, reader, lend, infoquery,dl, xgmm, xgyh, about, gz。 :=false。 //顯示現(xiàn)在時間 end。 begin 。 procedure (Sender: TObject)。 end。 begin 。 procedure (Sender: TObject)。 //顯示讀者管理 end。 begin 。 procedure (Sender: TObject)。 procedure (Sender: TObject)。Data Source=39。Data Source=.\data\。在窗體中添加兩個 label組件，兩個 edit 組件，兩個 speedbutton 組件。 (39。).Value := 。 end else begin vqx:=fieldbyname(39。 if vqx=39。 :=false。 :=true。 :=true。 end。 begin := 。 end。 begin vyhm:=(39。 vmsg:= 39。39。 ExecSQL。在窗體中添加三個label 組件，兩個 edit 組件，一個 bobox 組件，兩個 button 組件，程序的界面如下： 15 程序的主要代碼如下： procedure (Sender: TObject)。39。 sqlstr:=39。 with do begin close。 exit。 sqlstr:=39。 (39。 (Sender)。 sqlstr:=39。 with do begin close。原密碼不正確 !39。update usera set mm=39。39。 ExecSQL。)。 begin close。 procedure (Sender: TObject)。 :=0。 var Key: Word。 procedure (Sender: TObject)。 。 if then //按書名查詢 begin (39。select code,name,author,press,outdate,cost,memo0 from book where press like :press 39。)。 (fieldbyname(39。).AsString )。memo039。條記錄 39。 ⅱ .讀者基本信息查詢 頁面： 在窗體中添加一個 GroupBox 組件， 一 個 button 組件，兩個 radiobutton 組件 ,一個 checkbox 組件，一個 edit 組件，一個 listview組件，一個 statictext 組件，一 個 label 組件。%39。 end。 open。sex39。 (fieldbyname(39。+inttostr(recordcount)+39。 end。 begin try 。select ,name,sex,idcardno,outdate,code from end,reader where like :readerid and = order by 39。readerid39。139。).AsString )。idcardno39。)。 // 顯示查詢到的記錄 close。信息查詢窗體 包 新書入庫和圖書管理兩個功能。39。39。 。 (39。,mtError,[mbok],0)。insert into book(code,name,author,press,outdate,cost,memo0)39。).Value := 。outdate39。cost39。MMEMO39。 end。 except messagedlg(39。+vname+39。39。39。+vcost+39。39。程序界面如下： 26 程序主要代碼如下： procedure (Sender: TObject)。 first。 end。 //DBauthor 連接數(shù)據(jù)表中 author 字段 27 :=39。 //DBmemo 連接數(shù)據(jù)表中 memo 字段 active:=true。數(shù)據(jù)操作出錯 39。 begin if key=13 then //敲回車鍵 bobox1change(sender)。)。).asstring)