數(shù)據(jù)庫(kù)課程設(shè)計(jì)---圖書管理系統(tǒng)

1、目錄第1章緒論21. 1系統(tǒng)開發(fā)背景介紹21.2開發(fā)工具的選擇213系統(tǒng)主要內(nèi)容簡(jiǎn)介2第2章需求分析32. 1 總體需求32.2管理員的需求分析32.3借閱/還書的需求分析32.4借閱者的需求分析32. 5 圖書信息的需求分析32.6實(shí)際功能4第3章 概念結(jié)構(gòu)設(shè)計(jì)53. 1 e-r圖簡(jiǎn)介53. 2本系統(tǒng)的總體e-r圖6第4章數(shù)據(jù)庫(kù)設(shè)計(jì)74. 1數(shù)據(jù)庫(kù)表74. 1. 1圖書表74. 1.2日期限定表74. 1.3年級(jí)表84. 1.4學(xué)院表84. 1.5管理員表84. 1.6借閱者表94. 1. 7書種表9第5章 數(shù)據(jù)庫(kù)的實(shí)現(xiàn)與程序101012 錯(cuò)誤！未定義書簽。31325. 1登錄界面設(shè)計(jì)一-5

2、. 2管理員信息設(shè)計(jì)一5. 3借閱/還書管理設(shè)計(jì) 課程設(shè)計(jì)總結(jié)學(xué)習(xí)休會(huì)致謝3334參考文獻(xiàn)第1章緒論11系統(tǒng)開發(fā)背景介紹現(xiàn)在隨著人們生活質(zhì)量的提高，人們對(duì)圖書的需求越來(lái)越來(lái)豐富，并且需要 圖書的數(shù)量也fi趨增加。隨著人們對(duì)圖書需求的增加，圖書管理者對(duì)圖書的管理 就口趨的困難，傳統(tǒng)的純手工記錄圖書記錄已經(jīng)發(fā)揮不了它原有的功能，反之， 還會(huì)影響圖書管理的功能，使用效率極低。在這樣的人們對(duì)圖書需求日趨增加的 情況下，電了記錄管理圖書就被廣泛應(yīng)用起來(lái)。所以圖書管理系統(tǒng)就應(yīng)用而生。1.2系統(tǒng)開發(fā)工具系統(tǒng)運(yùn)行平臺(tái)：w i ndows7o系統(tǒng)前臺(tái)開發(fā)平臺(tái)即:visualbasic6. 0。系統(tǒng)后臺(tái)開發(fā)平臺(tái)即

3、數(shù)據(jù)庫(kù)管理系統(tǒng)軟件：sqlserver2000o13系統(tǒng)主要內(nèi)容簡(jiǎn)介本系統(tǒng)主要是針對(duì)圖卩管理屮岀現(xiàn)的一些問(wèn)題提供一些解決方法，并且應(yīng)運(yùn) 計(jì)算機(jī)信息管理系統(tǒng)結(jié)合。其開發(fā)主耍包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng) 用程序的開發(fā)兩個(gè)方面。前臺(tái)我們采用功能強(qiáng)大的可視化開發(fā)軟件vb開發(fā)設(shè)計(jì) 主界面，利用sqlserver做為后臺(tái)數(shù)據(jù)庫(kù)。主耍分成登錄信息管理、管理員信息 管理、借閱/還書信息管理、借閱者信息管理、圖書信息管理等功能模塊。第2章需求分析2.1總體需求這一章將介紹本系統(tǒng)的各個(gè)部分的需求。2. 2管理員的需求分析管理者基本信息，包括管理者編號(hào)，管理者姓名，登陸密碼，電話號(hào)碼。其中本系統(tǒng)中還包含管理

4、者信息的修改，增加，刪除等功能。并且這個(gè)系統(tǒng)管理 員經(jīng)過(guò)登陸窗口才可進(jìn)入。管理員在整個(gè)系統(tǒng)中起到統(tǒng)籌全局的功能，管理員可 以對(duì)系統(tǒng)中各個(gè)部分起到控制的作用，可以增加、修改、刪除借閱者信息，增加、 修改圖帖信息，并且可以查詢借閱與還帖情況，在本系統(tǒng)屮貫穿整個(gè)系統(tǒng)。2. 3借閱/還書的需求分析借閱基木信息包扌舌借閱者信息，借閱者已借閱書籍，借書日期，借書編號(hào)等 信息。述書基本信息包括借閱者編號(hào)，借閱者述書的編號(hào)，并且附帶有查詢功能, 查看借閱者借閱的圖書是否過(guò)期。2. 4借閱者的需求分析借閱者基本信息包括借閱者借閱卡號(hào)，借閱者姓名，借閱者學(xué)號(hào)，所在院校, 電話號(hào)碼等基本信息。其中本系統(tǒng)中還包含借閱

5、者的增添與刪除，可以實(shí)現(xiàn)新生 入學(xué)借閱的增加，畢業(yè)生的借閱信息的刪除功能。2. 5圖書信息的需求分析圖書基本信息包括圖書編號(hào)，圖書姓名，圖書作者，圖書isbn,圖書種類, 圖書數(shù)量等基木信息。木系統(tǒng)中增加了圖書庫(kù)存管理功能，可以查看圖書所在庫(kù)存的狀態(tài)，看是否 可以借閱。并且增加了圖書增加功能，圖書修改功能，圖卩查詢功能，可以查詢 圖書在庫(kù)各種信息，與借閱者的聯(lián)系也一口了然。2. 6實(shí)際功能圖21.圖書管理系統(tǒng)結(jié)構(gòu)圖第3章概念結(jié)構(gòu)設(shè)計(jì)3.1 e-r簡(jiǎn)介實(shí)體聯(lián)系ffl(entity-relationdiagram)用來(lái)建立數(shù)據(jù)模型,在數(shù)據(jù)庫(kù)系統(tǒng)概論中 屬丁概念設(shè)計(jì)階段，形成-個(gè)獨(dú)立于機(jī)器，獨(dú)立于d

6、bms的er圖模型。通常將 它簡(jiǎn)稱為er圖，和應(yīng)地可把用er圖描繪的數(shù)據(jù)模型稱為er模型。er圖提供了 表示實(shí)體(即數(shù)據(jù)對(duì)象)、屬性和聯(lián)系的方法，用來(lái)描述現(xiàn)實(shí)世界的概念模型。構(gòu)成er圖的基本要素是實(shí)體、屬性和聯(lián)系，其表示方法為：實(shí)體型：用矩形表示，矩形框內(nèi)寫明實(shí)體名；屬性：用橢圓形或圓角矩形表示，并用無(wú)向邊將其與相應(yīng)的實(shí)體連接 起來(lái)；多值屬性由雙線連接；主屬性名稱下加下劃線；聯(lián)系：用菱形表示，菱形框內(nèi)寫明聯(lián)系名，并用無(wú)向邊分別與有關(guān)實(shí)休連 接起來(lái)，同時(shí)在無(wú)向邊旁標(biāo)上聯(lián)系的類型在er圖中要明確表明1對(duì)多關(guān)系，1對(duì)1關(guān)系和多對(duì)多關(guān)系。1對(duì)1關(guān)系在兩個(gè)實(shí)體連線方向?qū)?;1對(duì)多關(guān)系在1的一方寫1，多的

7、一方寫n；多對(duì)多關(guān)系則是在兩個(gè)實(shí)休連線方向各寫n,m0實(shí)體與展性z間并沒(méi)有形式上可以截然劃分的界限，但可以給出兩條 準(zhǔn)則：(1) 作為“屬性”不能再具有描述的性質(zhì)；(2) “屬性”不能與其他實(shí)體具有聯(lián)系。3.2本系統(tǒng)的e-r圖、圖3-1.圖書管理系統(tǒng)總e-r圖第4章數(shù)據(jù)庫(kù)設(shè)計(jì)4. 1數(shù)據(jù)庫(kù)表圖書管理數(shù)據(jù)庫(kù)含7個(gè)表，它們分別為：圖書表(book) ; 口期限定表 (dataresrict )；夠疲 (grade)；院 表(institute)；管理員表(lidrarian)； 借閱者表(borrower)；書種表(title)。我們來(lái)看一下表的結(jié)構(gòu)：4.1.1書表圖書表包括圖書編號(hào)、書名、狀態(tài)、

8、借閱卡號(hào)、被借閱時(shí)間屈性，齊個(gè)屬性的類型、長(zhǎng)度、約束條件如表示表44圖書表4. 1.2日期限定表h期限定表包括書種、天數(shù)屈性，各個(gè)屈性的類型、長(zhǎng)度、約束條件如表示表42.日期限定表逾 設(shè)計(jì)表'dates re strict"伍骨曇"lib"中."(i?！癷r 上列名數(shù)據(jù)類型長(zhǎng)度允詐空typechar10 es_restriet irit 44.1.3年級(jí)表年級(jí)表包括年級(jí)編號(hào)、名稱屈性，各個(gè)屈性的類型、長(zhǎng)度、約束條件如表示表42.年級(jí)表協(xié)設(shè)計(jì)表"grade* 位置昱“l(fā)ib”中、上列名敎據(jù)類型長(zhǎng)度允詐空?gradeldchar10grad

9、echar10/4.1.4學(xué)院表學(xué)院表包括學(xué)院編號(hào)、名稱屈性，各個(gè)屈性的類型、長(zhǎng)度、約束條件如表示a 4-4.學(xué)院表冷 設(shè)計(jì)表-institute* ,位置昱"lib”中、7localf上列名敎擄類型長(zhǎng)度允詐空?irtitut eldchar10institutechar10/4.1.5管理員表管理員包括編號(hào)、id、密碼、工作吋間、電話屬性，各個(gè)屬性的類型、長(zhǎng)度、 約束條件如表示表45.管理員表険設(shè)計(jì)表"librarian* 位置星"lib"中、上列名 數(shù)據(jù)類型長(zhǎng)度 允詐空seqirit4idchar10passwordchar10orjobtimech

10、ar10telephonechar204.1.6借閱者表借閱者包括借閱卡編號(hào)、學(xué)院編號(hào)、年級(jí)編號(hào)、姓名、學(xué)號(hào)、電話、已借書數(shù)目等屬性，各個(gè)屬性的類型、長(zhǎng)度、約束條件如表示表46.借閱者表冷設(shè)計(jì)表"borrower< ©gg "lib"中、"(ioe上列名數(shù)據(jù)類型長(zhǎng)度允許空?borrowerldchar10insti tuteldchar10vgradeldchar10vnamechar10vstudentntunchar10vtelenumberchar20vborrowbooknumirit4v4.1.7書種表書種表包括書名、作者、1s

11、bsn、種類、數(shù)目等屬性，各個(gè)屬性的類型、長(zhǎng)度、約束條件如表示a 4-7.書種表険設(shè)計(jì)表ftle",位置是"lib”中、7localr上第5章數(shù)據(jù)庫(kù)的實(shí)現(xiàn)與程序5.1登陸界面設(shè)計(jì)輸入“用戶名”，“密碼”，點(diǎn)擊“確認(rèn)”進(jìn)入主題框;圖5-1登陸該登陸界而代碼如下所示： 源代碼：public ok as booleanprivate sub cmdcancel_click()ok = falseme. hideend subprivate sub cmdlogin_click()'檢驗(yàn)數(shù)據(jù)的有效性tf trim(txtusername. text 二 “)then msg

12、box 請(qǐng)輸入用戶名！" txtusername setfocusexit subelself trim(txtpassword 二 “)then msgbox 請(qǐng)輸入密碼！ txtpassword setfocusexit subelsedim mydboper as new dboperationdim rst as adodb. recordsetdim sql as string'建立連接mydboper. db connect'定義查詢語(yǔ)商sql = "select * from librarian where id= + txtuscrnamc

13、+ and password二'"+ txtpassword +"set rst = mydboper. querysql(sql)if (not rst. eof) thenok 二 trueme. hidefrmmain show 0elsemsgbox 用戶名和密碼錯(cuò)誤，請(qǐng)重新輸入.end tfrst.close'關(guān)閉連接mydboper. db disconnectend tfend subprivate sub formload()end subprivate sub labell_click()end sub5. 2管理員管理設(shè)計(jì)管理員窗口的設(shè)計(jì)

14、主要包扌舌“修改”、“添加”、“刪除”，“刷新”等功能。添加管理員是依照窗口的信息依次填寫，點(diǎn)擊“提交”即可;d回圖52進(jìn)入管理員信息欄囹書堂丟統(tǒng) i苣珪員冒12|黃黃pm15389聯(lián)系電話:7891011123456烏囹書営理系統(tǒng)【苣理員信息'i宀回jqi至統(tǒng)管理信書卡業(yè)務(wù) 借齊業(yè)務(wù) 庫(kù)存管理 幫助管理員列表l- i rh j ihj *affl/pm):提交返回i圖5-3.添加管理者該管理者添加的代碼如下：源代碼：private sub cmdexit_click()me. hideend subprivate sub cmdsubmit_click()'檢驗(yàn)數(shù)據(jù)的冇效性i

15、f trim(txtld) = thenmsgbox 請(qǐng)輸入登錄idexit subend ifif trim(txtpwd) = thenmsgbox 請(qǐng)輸入登錄密碼exit subend ifdim mydboper as new dboperationdim rst as adodb. recordsetdim sql as string'建立連接mydboper. db connect'定義查詢語(yǔ)句sql 二"select * from librarian where seq二' + trim(txtseq) + set rst 二 mydboper.

16、 querysql(sql)if rst eof = true thenwith rst.addnew!seq 二 me. txtseq!id 二 me.txttd(password = me. txtpwdlonjobtime = me.txttime!telephone = me. txtphone.updateend withmsgbox "信息添加成功"elsemsgbox 該編號(hào)已經(jīng)存在，請(qǐng)重新輸入.end ifrst. close'關(guān)閉連接 mydboper. db disconnectend subprivate sub form_load ()end

17、 subprivate sub framel_dragdrop(source as control, x as single, y as single)end subprivate sub label1_c1ick()end subprivate sub txtldchange()end subprivate sub txtpwd change ()end sub刪除圖書管理員是在管理員列表中點(diǎn)擊要?jiǎng)h除的那一行，點(diǎn)擊“刪除”即可;1管理員列表編輯區(qū)3lionhxyadmin56zh昱鋼躺彌?admin89am是co10聯(lián)系電話12678pm刪除長(zhǎng)毛苣乘統(tǒng)苣珪罠信息專統(tǒng)管理借書卡業(yè)務(wù)借/還書業(yè)務(wù)

18、庫(kù)存管理幫助d8ssw0d adminid admin編號(hào)：f小施 黃黃圖54刪除管理者修改管理員首先在管理員列表小點(diǎn)擊要修改的管理員信息，在編輯區(qū)填寫要修改的信息，點(diǎn)擊“修改”即可;$烏晝毛苣淫票統(tǒng)-苣理員信息編號(hào)am2id碼間8jtm關(guān)閉891011121231212367856qwy123lionhxy123qaz 小蠱 黃黃y 予統(tǒng)管理 借書卡業(yè)務(wù) 備還書業(yè)務(wù) 庫(kù)存管理幫助管理員列表編輯區(qū)nini刷新iadminadminpasswordorjoblnini聯(lián)系電話:libmanageme.信息修改成加圖5-5修改管理者w1.圖5-6刷新管理員列表©

19、;'*' t a善p該管理者的修改、刪除代碼如下所示：源代碼：private sub cmdadd_click()frmaddmanager show 1 end subprivate sub cmddelete_click()dim tmpseq as stringif adodcl. recordset. bof 二 true thenmsgbox 請(qǐng)選擇記錄exit subend ifp 二 adodcl. recordset. absoluteposi tion tmpscq = trim(adodcl .recordsetfields(0)'確認(rèn)刪除if ms

20、gbox(，z是否刪除當(dāng)前彳??？“，vbyesno, 確認(rèn))=vbyes thendim mydboper as new dboperationdim rst as adodb. recordsetdim sql as string'建立連接mydboper. db connect'定義查詢語(yǔ)商sql = z，select * from librarian where seq二'"+ trim(txtscq) + set rst = mydboper.querysql(sql)if (not rst.eof) thenwith rst.delete adaff

21、ectcurrent updateend withelsemsgbox 發(fā)生錯(cuò)誤,請(qǐng)重新操作.”end tfrcfrcsh_datalistif p - 1 > 0 thenadodcl.recordset. move 0adodcl. recordset. move p - 1end tfend ifend subprivate sub cmdedit_click()'檢驗(yàn)數(shù)據(jù)的有效性if trim(txtld) = thenmsgbox 請(qǐng)輸入登錄ictexit subend tfif trim(txtpwd) = thenmsgbox 請(qǐng)輸入登錄密碼exit subend

22、tfdim mydboper as new dboperationdim rst as adodb. recordsetdim sql as string'建立連接mydboper. db connect'定義查詢語(yǔ)句sql 二"select * from librarian where seq二' + trim(txtseq) + set rst 二 mydboper. querysql(sql)if (not rst. eof) thenrst!id = me.txtldrstpassword = me. txtpwdrst!onjobtime 二 me.

23、 txttimerst!tel ephone 二 me. txtphonerst. updatemsgbox "信息修改成功."elsemsgbox 發(fā)生錯(cuò)誤,請(qǐng)重新輸入.”end tfrst close'關(guān)閉連接mydboper. db disconnectrefresh datali stend subprivate sub cmdexit_click() me. hideend subprivate sub cmdrefresh_click() refreshdatalistend subprivate sub datagridl_click()if adod

24、cl. recordset. bof = true thenmsgbox 請(qǐng)選擇記錄exit subend if'保存光標(biāo)位置p = adodcl. recordset. absoluteposition'讀取當(dāng)前記錄的各列數(shù)據(jù)me.txtseq 二 trim(adodcl. recordset. fields(0)me. txtld = trim(adodcl. recordset. fields (1)me. txtpwd = trim(adodcl. recordset. fields (2)me. txttime 二 trim(adodcl. recordset. fi

25、elds(3)me. txtphone = trim(adodcl. recordset. fields(4)refresh_datalist'恢復(fù)光葆位置adodcl. recordset. move 0adodcl.recordset. move p 一 1end subprivate sub refreshdatalist()'刷新管理員列表adodcl. recordsource 二"select * from librarian order by seqadodcl. refreshend subprivate sub formload()end subpr

26、ivate sub framei dragdrop (source as control, x as single, y as single)end subprivate sub label4_click()end sub5.3借閱/還書管理設(shè)計(jì)借閱圖帖時(shí)首先要輸入“借書卡號(hào)”，點(diǎn)擊“確定”，就會(huì)出來(lái)借閱者的一些 的基本信息，再在“借書登記欄”小輸入書刊編號(hào)查詢，如果在庫(kù)是，點(diǎn)擊“提交”即可;力匡毛営理童統(tǒng)借韋登汜q0s5 名統(tǒng)管理借書卡業(yè)務(wù)信/還書業(yè)箔陣存営理幫助查洵134關(guān)訶i借書卡號(hào)：|011確定！姓名：小沛學(xué)號(hào)：10067年級(jí)：犬一學(xué)院：電子學(xué)院電話號(hào)碼：123已借書刊信息借閱者信息書

27、刊編三1名稱昔書日期134|毛概2/13/2012書刊編是i名稱丨狀態(tài)isbsni歩型134【在庫(kù)毛澤東2345圖書i借書登記書刊編號(hào):圖5-7借閱借閱其代碼如下;源代碼：private sub cmdexit_click()me. hideend subprivate sub cmdenter click()'檢驗(yàn)數(shù)據(jù)的有效性if trim(txtborrld) = "" thenmsgbox "請(qǐng)輸入借書卡號(hào)exit subend ifdim mydboper as new dboperationdim rst as adodb. recordsetd

28、im sql as string'建立連接mydboper. db connect'定義查詢語(yǔ)句sql二"selectb. studentnum, b. name, i. institute, g. grade, b. telenumber, b. borrowbooknum+ "from borrower b,institutc i,grade g "+ "where b.instituteid=i. instituteld andb.gradetd=g. gradetd " _+ "and borrowerld=，

29、" + txtborrld +"set rst 二 mydboper.querysql(sql)if (not rst.eof) thenwith rst1 blstunum. caption = . fields (0)lblname.caption 二fields(l)lblinstitute. caption =fields(2)lblgrade. caption =fields(3)lblphone. ceiption = fields (4)end withrefresh datalistlelsemsgbox 用戶不存在，請(qǐng)重新操作.end tfrst.clos

30、e'關(guān)閉連接mydbopcr. db disconnectend subprivate sub cmdquery click ()'檢驗(yàn)數(shù)據(jù)的有效性if trim(txtbookld) = thenmsgbox 請(qǐng)輸入書刊編號(hào)exit subend ifdim mydboper as new dboperationdim rst as adodb. recordsetdim sql as string'建立連接mydbopcr. db connect'定義查詢語(yǔ)句sql = "select b. booktd as 書刊編號(hào),b. name as 名稱

31、,b. loan as 狀 態(tài), _+ author as 作者,t i sbsn as isbsn, t .type as 類 型,b. borrowdate as 借書日期"+ "from book b , title t where b. name=t. name and b. bookid二'+ trim(txtbookld) + '八"set rst 二 mydbopcrqucrysql(sql)if (not rst.eof) thenrefresh_datalist2 (sql)elsemsgbox "該w刊不存在,請(qǐng)重新操

32、作."end ifrst.close'關(guān)閉連接mydboper. db_disconnectend subprivate sub refresh_datalistl()dim sql as stringsql 二 zzselect bo. bookid as 書 刊 編號(hào)，bo. name as 名 稱，bo. borrowdate as 借書日期"_+ "from borrower b,book bo "+，zwhere b. borrowerid=bo. borrowerld and b. borrowerid=，z，_+ trim(txtb

33、orrtd) +adodcl. recordsource 二 sqladodcl. refreshset datagridl. datasource = adodcldeitagridl. rebindend subprivate sub refresh_datalist2(sql as string)adodc2 recordsource = sqladodc2. refreshset datagrid2. datasource = adodc2datagrid2. rebindend subprivate sub cmdsubmit_click()'檢驗(yàn)數(shù)據(jù)的有效性if trim(

34、txtborrld) = thenmsgbox 請(qǐng)輸入借書卡號(hào)exit subend tfif trim(txtbookld) = "” thenmsgbox 請(qǐng)輸入書刊編號(hào)exit subend ifdim nowdate as new bookdatedim mydboper as new dboperationdim rst as adodb. rccordsctdim sql as stringdim updatel_sql as stringdim update2_sql as string'建立連接mydboper. db connect'定義查詢語(yǔ)句sq

35、l = "select loan from book where bookid二' + trim(txtbooktd)+ ，set rst 二 mydboper.querysql(sql)if trim(rst. fields (0)="在庫(kù) then'更新數(shù)據(jù)庫(kù)表updatel_sql = "update book set loan 二'借出borrower id二' _+ trim(txtborrld) + ，z，, borrowdate二'+ nowdate. gctdate + where bookid二'+

36、 trim(txtbookld) +mydboper. executesql (updatel_sql)setupdate2_sql="updateborrowerborrowbooknum=borrowbooknum+1 where borrower i d=，z/+ trim(txtborrld) +mydboper. executesql (update2_sql)refresh_datali s11msgbox 操作成功."elsemsgbox 該書刊已經(jīng)借出，請(qǐng)重新操作.end tfrst. close'關(guān)閉連接mydboper. db disconnec

37、tend subprivate sub datagridlclick()end subprivate sub datagrid2_click()end subprivate sub label5 click()end sub還書時(shí)輸入書刊編號(hào)查詢，確認(rèn)無(wú)誤后點(diǎn)擊“還書提交”即可;圖5-8.還書還書的代碼如下;源代碼：private sub cmdexit_click()me. hideend subprivatc sub cmdquery click()'檢驗(yàn)數(shù)據(jù)的有效性tf trim(txtbooktd) = thenmsgbox 請(qǐng)輸入書刊編號(hào)exit subend ifdim m

38、ydboper as new dboperationdim rst as adodb. recordsetdim sql as string'建立連接mydboper. db connect,'定義查詢語(yǔ)句sql = "select * from book where bookid=， + trim(txtbookld)set rst 二 mydboper.querysql(sql)if (not rst.eof) thenrefresh datalist'顯示書刊類別以及借用期限dim type_rst as adodb. recordsetdim type

39、_sql as stringtype sql = "select t type,d dates restriet " _+ "from title t,datesrestrict d,book b "cind+ z，where d. type=t. type and t. ncime=b ncimeb.booktd= _+ trim(txtbookld) +set type rst 二 mydboper.querysql(type sql)with type rstlblbooktype =fields(0)lbldaterestrict = .fiel

40、ds(1)end withelsemsgbox 該書刊不存在，請(qǐng)重新操作end ifrst. close'關(guān)閉連接mydbopcr. db disconnectend subprivate sub refresh_datalist()dim sql as string'定義查詢語(yǔ)句sql = "select b. borrowcrid as 借閱者編號(hào),b. borrowdatc as 借書 日期,b. bookid as書刊編號(hào),b. name as名稱，"_+ z/b. loan as 狀態(tài)，t. author as 作者，t. isbsn as isb

41、sn, t. type as 類型"_+ "from book b , title t where b. name=t. name and b. bookid二'+ trim(txtbookld) +adodcl. recordsource = sqladodcl. refreshset datagridl. datasource = adodcldatagridl. rebindend subprivate sub cmdsubmit_click()'檢驗(yàn)數(shù)據(jù)的有效性if trim(txtbookld) = "” thenmsgbox 請(qǐng)輸入書刊

42、編號(hào)exi t subend ifdim nowdatc as new bookdatcdim mydboper as new dboperationdim rst as adodb. recordsetdim sql as stringdim updatel sql as stringdim update2_sql as string'建立連接mydboper. db connect'定義查詢語(yǔ)句sql = z，select loan, borrower id from book where bookld=：trim(txtbookld) +set rst = mydboper. querysql(sql)if trim(