【正文】 =b_4 then messagebox(系統(tǒng)提示 ,保存成功 !) end if if =b_5 then close(parent) end if 數(shù)據(jù)窗口： 界面： 數(shù)據(jù)庫原理及應(yīng)用課程設(shè)計報告 23 （ 12）制作管理員主菜單中更改登錄菜單： 代碼 ： int b_select b_select=messagebox(系統(tǒng)提示 ,確認 ,exclamation!,yesno!) if b_select=1 then open(w_login) close(w_main) end if （ 13）制作用戶主菜單 m_consumer_menu； 制作用戶主界面 w_consumermain,將m_consumer_menu放入其中； 用戶主菜單： 數(shù)據(jù)庫原理及應(yīng)用課程設(shè)計報告 24 用戶主界面： （ 14）制作用戶菜單中更改信息菜單： w_modify_consumer。制作管理員按用戶統(tǒng)計界面 w_stat_consumer,按部門統(tǒng)計界面w_stat_department，按 報刊統(tǒng) 計界面 w_stat_magazine。+number+39。 then messagebox(系統(tǒng)提示 ,請輸入報刊號 !) return end if select Mnumber,Mname into :copynumber,:name from magazine where Mnumber=:number。 窗口代碼： (sqlca) () 檢索按鈕： string number,copynumber,name long ll_row number=trim() if number= or number=39。 messagebox(系統(tǒng)提示 ,信息保存成功 !) return end if end if if =b_4 then close(parent) end if 數(shù)據(jù)窗口： 數(shù)據(jù)庫原理及應(yīng)用課程設(shè)計報告 17 界面： （ 9）制作 管理員 主菜單中查詢菜單：分別制作制作查詢數(shù)據(jù)窗口 d_consumer_ruery, d_dept_query, d_magazine_query, 分 別 制 作 管 理 員 按 用 戶 查 詢 界 面w_consumer_ruery ， 按 部 門 查 詢 界 面 w_dept_query ， 按 報 刊 查 詢 界 面 w _magazine_query； 將 d_consumer_ruery, d_dept_query, d_magazine_query分別 放入w_consumer_query， w_dept_query， w _magazine_query中 。 messagebox(操作非法！ ,無法保存！ )。 if 0 then messagebox(警告 ,您輸入的部門號無效 !無此部門 !) = () return 數(shù)據(jù)庫原理及應(yīng)用課程設(shè)計報告 14 end if INSERT INTO consumer (Uname,Upassword,Urealname,Usex,Dnumber,Uphone,Uaddress) VALUES(:name,:password,:realname,:sex,:number,:phone,:address) 。39。39。39。39。 then MessageBox(系統(tǒng)提示 ,對不起 !請輸入用戶名！否則無法注冊 !) () return end if select Uname into :n from consumer where Uname=:name。 if 0 then messagebox(系統(tǒng)提示 ,無此用戶 !) = = () return 數(shù)據(jù)庫原理及應(yīng)用課程設(shè)計報告 11 elseif getpasswordgs_password then messagebox(警告 ,口令錯誤 !) = () return end if gs_operator_id=id open(w_consumermain) close(w_login) elseif =false and =false then messagebox(系統(tǒng)提示 ,請選擇用戶類型 !) return end if （ 5）制作注冊界面 w_enroll； 代碼： 注冊按鈕： string name,realname,password,copypassword,sex,number,phone,address,number1 string n 數(shù)據(jù)庫原理及應(yīng)用課程設(shè)計報告 12 name=trim() password=trim() copypassword=trim() realname=trim() if =true then sex=男 elseif =true then sex=女 end if number=trim() phone=trim() address=trim() if name= or name=39。 then MessageBox(系統(tǒng)提示 ,請輸入密碼 !) return end if if =true then select Aname,Apassword into :gs_operator_id,:gs_password from administrator where Aname=:id。 then MessageBox(系統(tǒng)提示 ,請輸入用戶名 !) return elseif getpassword= or getpassword=39。 if 0 then messagebox(錯誤 ,數(shù)據(jù)庫連接錯誤，請檢查后重試！ ,stopsign!) return end if close(w_wele) open(w_login) （ 3）制作等待界面 w_wele； （ 4）制作登錄界面 w_login； 數(shù)據(jù)庫原理及應(yīng)用課程設(shè)計報告 10 確定按鈕代碼： string id,password,getpassword id=trim() getpassword=trim() if id= or id=39。 本系統(tǒng)的結(jié)構(gòu)功能圖： 數(shù)據(jù)庫原理及應(yīng)用課程設(shè)計報告 4 系統(tǒng)數(shù)據(jù)模型設(shè)計 ER 圖 本系統(tǒng)采用 ER 圖（實體 關(guān)系圖）的方法進行數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計。用戶可以更改自己的注冊信息，但用戶名不能更改。 ? （ 5）統(tǒng)計功能：管理員可以按用戶、部門、報刊統(tǒng)計報刊的銷售情況，并對一些重要的訂閱信息進行統(tǒng)計；普通用戶可以統(tǒng)計出自己的訂閱情況。 ? （ 4）查詢功能：用戶可以查詢并顯示自己所訂閱的信息