【文章內(nèi)容簡介】
前運(yùn)行的圖書管理系統(tǒng),恢復(fù)到 vfp系統(tǒng)繼續(xù)進(jìn)行操作。 ER 圖 Booksinfo ER圖 Booksinfo 書名 作者 出版社 定價(jià) 冊數(shù) 圖書種類 書號 編號 Dairy ER圖 Lend infoER 圖 Passwordinfo ER 圖 Lendinfo ER 圖 Dairy 作者 圖書種類 編號 借閱日期 預(yù)約日期 借閱天數(shù) 歸還日期 借閱情況 冊數(shù) 是否延期 讀者編號 書號 備注 密碼 備注 用戶名 Lendinfo Passwordinfo 姓名 性別 年齡 詳細(xì)地址 聯(lián)系電話 冊數(shù) 注冊日期 密碼 讀者編號 是否允許借 Lendinfo 設(shè)計(jì)過程或程序代碼 主程序: set talk off set safe off set sysmenu off close all *系統(tǒng)環(huán)境設(shè)計(jì) release windows 常用 ,項(xiàng)目管理器 ,表單控件 ,布局 ,命令 modify window screen title 迷你圖書管理系統(tǒng) zoom window screen max *屏幕和標(biāo)題設(shè)置 set defa to left(sys(16),rat(\,sys(16)))*設(shè)置路徑 set path to data。form。pic。class*系統(tǒng)環(huán)境設(shè)計(jì) open database library*打開數(shù)據(jù)庫 =.f. =.\ public cyonghu,cmima,jiage,checked checked=1 cyonghu= cmima= do form start *執(zhí)行表單,開始進(jìn)入系統(tǒng) read events =.t. = do form 入口 read events do read events quit 封面 代碼 SET BELL ON SET BELL TO 39。39。,2 CHR(7) 計(jì)時(shí)器: if thisform. label5. left thisform. width thisform. label5. left = thisform. label5. left + 1 else thisform. label5. left = 110 endif 入口 其中讀者入口的 click event 代碼為: do form dzdl 管理員入口的 click events 代碼為 : do form logo 讀者登陸界面: 登陸按鈕的 click代碼為: sele readerinfo if n3 if allt()== wait window at ,65 用戶名為空,請輸入 else if allt()== wait window at 20,65 密碼為空,請輸入 else locate for allt(讀者編號 )==allt() if found() if allt(密 碼 )==allt() clear event else = wait window at 20,65 密碼錯誤,請重新輸入 n=n+1 endif else = = wait window at ,65 沒有此用戶 ,請重新輸入 n=n+1 endif endif endif else n=1 =.f. =.f. =.f. =登錄已錯誤三次,系統(tǒng)即將自動退出??! ” endif 該表單的初始化 init代碼: public n n=1 checked=0 管理員登陸界面: 確認(rèn)按鈕的 click代碼: sele passwordinfo if n3 if allt()== wait window at ,65 用戶名為空,請輸入 else if allt()== wait window at 20,65 密碼為空,請輸入 else locate for allt(用戶名 )=allt() if found() if allt(密碼 )==allt()