【正文】
(1)讀者基本信息功能讀者基本信息分類查找讀者信息修改讀者信息信息查看讀者類型信息調(diào)取dzxx表分類查找向dzxx表寫入數(shù)據(jù)調(diào)取dzLx表 (2)借還書功能借還圖書窗口向jsjl表寫入記錄修改dzxx表借書數(shù)修改tsxx表此書數(shù)目 (1)讀者基本信息表(dzxx)字段名字段類型字段長度是否為空說明BHChar8F編號(關(guān)鍵字)XMChar8F姓名BJChar50T班級XBChar50F系別LXHChar3F類型YXXChar1F有效性YJSSIntF已借書數(shù)(2)圖書信息表(TSXX)字段名字段類型字段長度是否為空說明BHChar8F編號(關(guān)鍵字)SMChar50F書名ZZChar50F作者CBSChar50F出版社DJMoneyF定價SLIntF數(shù)量(3)借還書記錄(JHJL)字段名字段類型字段長度是否為空說明IDBigintF記錄序號(關(guān)鍵字)DZBHChar8F讀者編號TSBHChar8F圖書編號JSRQSmallDatatimeF借書日期HSRQSmallDatatimeT還書日期CQTSIntT超期天數(shù)CFJEMoneyT處罰金額圖31主界面與幾個服務(wù)界面“確認(rèn)”按鈕的clicked事件代碼(實現(xiàn)借、還書功能,可向讀者信息加入借書數(shù)量,向借書記錄加入借、還書記錄,并在還書時提示處罰金額)int i,j,f,t,s,ddouble qlong odatetime shijian,jieshurilong mchar lxhshijian= datetime(today())bh=tsbh=if bh=39。 or tsbh=39。 then messagebox(提示信息,輸入錯誤,請重新輸入) returnend ifselect yjss,lxhinto :i,:lxhfrom DZxXwhere BH=:bh。d=s+(1)if a=1 and id then update DZXX set yjss=yjss+1 where BH=:bh。 insert into jhjl(id,DZBH,TSBH,JSRQ) values(:m+1,:,:,:shijian)。無效39。 messagebox(提示信息,借書成功) select max(id) into :m from jhjl。elseif a=1 and i=s then messagebox(提示信息,已借最大書數(shù)目,不可繼續(xù)借書??!) update DZXX set yxx=39。 where BH=:bh。 select zdjsq,cqcf into :t,:q from DZlX where lxh=:lxh。提示信息39。請交罰款:39。元39。提示信息39。請交罰款:39。元39。提示信息39。請交罰款:39。元39。有效39。 messagebox(提示信息,還書成功) update jhjl set HSRQ=:shijian, CQTS