delphi課程設(shè)計(jì)樣例圖書管理部分程序

年4月19日delphi課程設(shè)計(jì)樣例圖書管理部分程序文檔僅供參考Delphi課程設(shè)計(jì)示例――--圖書借閱管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)圖書借閱管理系統(tǒng)提供如下功能：（1）圖書管理（圖書信息入庫(kù)、出庫(kù)、修改）（2）讀者管理（讀者信息入庫(kù)、出庫(kù)、修改）（3）圖書查詢（按書名、作者、類別等進(jìn)行條件查詢）（4）借書服務(wù)（5）還書服務(wù)一、數(shù)據(jù)庫(kù)設(shè)計(jì)：圖書表、讀者表、借閱表的結(jié)構(gòu)如下圖書表結(jié)構(gòu)屬性名含義數(shù)據(jù)類型長(zhǎng)度允許空主碼或索引約束條件書號(hào)書號(hào)char10No主碼類別圖書類別varChar10No索引出版社出版社名稱varChar20Yes索引作者作者姓名varChar30Yes索引書名書名varChar30No索引定價(jià)定價(jià)SmallmoneyYes借出否是否被借出char2No索引默認(rèn)值為’否’讀者表結(jié)構(gòu)屬性名含義數(shù)據(jù)類型長(zhǎng)度允許空主碼或索引約束條件編號(hào)讀者編號(hào)Char8No主碼姓名讀者姓名VarChar8No索引單位讀者單位VarChar20No索引性別讀者性別Char2Yes‘男’或‘女’電話讀者電話VarChar12Yes借閱表結(jié)構(gòu)屬性名含義數(shù)據(jù)類型長(zhǎng)度允許空主碼或索引約束條件書號(hào)借閱書號(hào)Char10No主屬性外碼（圖書.書號(hào)）讀者編號(hào)借閱者編號(hào)Char8No主屬性外碼（讀者.編號(hào)）借閱日期借閱日期datetime8No索引二、數(shù)據(jù)庫(kù)實(shí)現(xiàn)（ACCESS環(huán)境）1．建立數(shù)據(jù)庫(kù)：文件–新建–空數(shù)據(jù)庫(kù)-指定數(shù)據(jù)庫(kù)名稱‘圖書讀者’并指定路徑2．定義三個(gè)基本表（圖書表、讀者表、借閱表）3.向表中輸入部分模擬數(shù)據(jù)。三、建立Delphi與數(shù)據(jù)庫(kù)的連接：設(shè)置ODBC數(shù)據(jù)源和BDE數(shù)據(jù)源（1）控制面板／管理工具／數(shù)據(jù)源(ODBC)（2）ODBC數(shù)據(jù)源管理器：‘用戶DSN’選項(xiàng)卡／‘添加’按紐（3）創(chuàng)立新數(shù)據(jù)源：DriverdoMicrosoftAccess(*.mdb)（4）ODBCMicrosoftAccess安裝：數(shù)據(jù)源名稱（book-access）；選擇（圖書讀者.mdb）；確定。（5）打開BDE管理器，確認(rèn)‘book-access’也是BDE數(shù)據(jù)源。四．使用Delphi編程實(shí)現(xiàn)圖書館管理系統(tǒng)的部分功能1.圖書信息維護(hù)模塊的實(shí)現(xiàn)：實(shí)現(xiàn)圖書記錄的增加、刪除和修改功能創(chuàng)立窗體添加控件并設(shè)置屬性：（1）基本表控件Table1(BDE部件):databasename屬性(book-access);tablename屬性(圖書表);active屬性(true)（2）數(shù)據(jù)源控件DataSource1(DataAccess部件):dataset屬性(Table1)（3）表格控件DBGrid1(DataControls部件):datasource屬性(DataSource1)（4）導(dǎo)航控件DBNavigator1(DataControls部件):datasource屬性(DataSource1)2．圖書查詢模塊的實(shí)現(xiàn)：實(shí)現(xiàn)按書名查詢圖書的功能創(chuàng)立窗體添加控件并設(shè)置屬性：（1）基本表控件Table1(BDE部件):databasename屬性(book-access);tablename屬性(圖書表);active屬性(true)。（2）數(shù)據(jù)源控件DataSource1(DataAccess部件):dataset屬性(Table1)（3）表格控件DBGrid1(DataControls部件):datasource屬性(DataSource1)查詢按紐的OnClick事件代碼（使用GotoKey方法查找數(shù)據(jù)）：procedureTForm1.Button1Click(Sender:TObject);beginifEdit1.text=''thenshowmessage('請(qǐng)輸入書名！')elsewithTable1dobeginIndexFieldNames:='書名';SetKey;FieldByName('書名').AsString:=Edit1.Text;ifGoToKeythenelseshowmessage('查詢不成功！');end;end;end.3．圖書借閱模塊的實(shí)現(xiàn)(使用SQL語(yǔ)言實(shí)現(xiàn)查詢數(shù)據(jù)和添加數(shù)據(jù)功能)：創(chuàng)立窗體添加控件并設(shè)置屬性：(1)SQL數(shù)據(jù)集控件Query1(BDE部件):databasename屬性(book-access);SQL屬性(select*from圖書表);active屬性(true)(2)SQL數(shù)據(jù)集控件Query2(BDE部件):databasename屬性(book-access);SQL屬性(select*from讀者表);active屬性(true)(3)SQL數(shù)據(jù)集控件Query3(BDE部件):databasename屬性(book-access);(5)數(shù)據(jù)源控件DataSource1(DataAccess部件):dataset屬性(query1)(6)數(shù)據(jù)源控件DataSource2(DataAccess部件):dataset屬性(query2)(8)數(shù)據(jù)編輯框控件DBEdit1(DataControls部件):datasource屬性(DataSource1);Datafield屬性(書名)(9)數(shù)據(jù)編輯框控件DBEdit2(DataControls部件):datasource屬性(DataSource1);Datafield屬性(借出否)(10)數(shù)據(jù)編輯框控件DBEdit3(DataControls部件):datasource屬性(DataSource2);Datafield屬性(編號(hào))(11)數(shù)據(jù)編輯框控件DBEdit4(DataControls部件):datasource屬性(DataSource2);Datafield屬性(姓名)審核按紐的OnClick事件代碼：核實(shí)圖書信息和讀者信息procedureTForm1.Button1Click(Sender:TObject);beginif(edit1.text='')or(edit2.text='')thenshowmessage('請(qǐng)輸入書號(hào)和讀者編號(hào)!')elsebeginquery1.SQL.Clear;query1.SQL.Add('select*from圖書表where書號(hào)=:a');query1.ParamByName('a').AsString:=trim(edit1.text);query1.Open;query2.SQL.clear;query2.SQL.Add('select*from讀者表where編號(hào)=:b');query2.ParamByName('b').AsString:=trim(edit2.text);query2.Open;end;end;借書按紐的OnClick事件代碼：在借書表中增加借閱記錄；修改圖書表中被借書的‘借出否’字段值procedureTForm1.Button2Click(Sender:TObject);varinstr:string;beginifdbedit2.Text='是'thenshowmessage('該書已經(jīng)被借出!')elsebegin//將借閱信息寫入借閱表instr:='insertinto借閱表values('+trim(edit1.text)+','+trim(edit2.text)+','+datetostr(date())+')';query3.SQL.Clear;query3.SQL.Add(instr);query3.Execsql;//將借閱信息寫入借閱表query3.SQL.Clear;//在圖書表中標(biāo)記借出的圖書query3.SQL.Add('update圖書表set