【正文】
then (0) end ifend ifif =b_4 then messagebox(系統(tǒng)提示,保存成功!) end ifif =b_5 then close(parent) end if數(shù)據(jù)窗口:界面:(12)制作管理員主菜單中更改登錄菜單:代碼:int b_select b_select=messagebox(系統(tǒng)提示,確認(rèn),exclamation!,yesno!)if b_select=1 then open(w_login) close(w_main) end if(13)制作用戶(hù)主菜單m_consumer_menu;制作用戶(hù)主界面w_consumermain,將m_consumer_menu放入其中;用戶(hù)主菜單:用戶(hù)主界面:(14)制作用戶(hù)菜單中更改信息菜單:w_modify_consumer。制作管理員按用戶(hù)統(tǒng)計(jì)界面w_stat_consumer,按部門(mén)統(tǒng)計(jì)界面w_stat_department,按報(bào)刊統(tǒng)計(jì)界面w_stat_magazine。+number+39。 then messagebox(系統(tǒng)提示,請(qǐng)輸入報(bào)刊號(hào)!) returnend ifselect Mnumber,Mname into :copynumber,:name from magazinewhere Mnumber=:number。窗口代碼:(sqlca) ()檢索按鈕:string number,copynumber,namelong ll_rownumber=trim()if number= or number=39。 messagebox(系統(tǒng)提示,信息保存成功!) return end ifend ifif =b_4 then close(parent)end if數(shù)據(jù)窗口:界面:(9)制作管理員主菜單中查詢(xún)菜單:分別制作制作查詢(xún)數(shù)據(jù)窗口d_consumer_ruery, d_dept_query, d_magazine_query,分別制作管理員按用戶(hù)查詢(xún)界面w_consumer_ruery,按部門(mén)查詢(xún)界面w_dept_query,按報(bào)刊查詢(xún)界面w _magazine_query;將d_consumer_ruery, d_dept_query, d_magazine_query分別放入w_consumer_query,w_dept_query, w _magazine_query中。 messagebox(操作非法!,無(wú)法保存!)。if 0 then messagebox(警告,您輸入的部門(mén)號(hào)無(wú)效!無(wú)此部門(mén)!) = () returnend ifINSERT 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)提示,對(duì)不起!請(qǐng)輸入用戶(hù)名!否則無(wú)法注冊(cè)!) () returnend ifselect Unameinto :nfrom consumerwhere Uname=:name。 if 0 then messagebox(系統(tǒng)提示,無(wú)此用戶(hù)!) = = () return elseif getpasswordgs_password then messagebox(警告,口令錯(cuò)誤!) = () return end if gs_operator_id=id open(w_consumermain) close(w_login)elseif =false and =false then messagebox(系統(tǒng)提示,請(qǐng)選擇用戶(hù)類(lèi)型!) returnend if(5)制作注冊(cè)界面w_enroll;代碼:注冊(cè)按鈕:string name,realname,password,copypassword,sex,number,phone,address,number1string nname=trim()password=trim()copypassword=trim()realname=trim()if =true then sex=男elseif =true then sex=女end ifnumber=trim()phone=trim()address=trim()if name= or name=39。 then MessageBox(系統(tǒng)提示,請(qǐng)輸入密碼!) returnend ifif =true then select Aname,Apassword into :gs_operator_id,:gs_password from administrator where Aname=:id。 then MessageBox(系統(tǒng)提示,請(qǐng)輸入用戶(hù)名!) returnelseif getpassword= or getpassword=39。if 0 then messagebox(錯(cuò)誤,數(shù)據(jù)庫(kù)連接錯(cuò)誤,請(qǐng)檢查后重試!,stopsign!) returnend if close(w_wele) open(w_login)(3)制作等待界面w_wele;(4)制作登錄界面w_login;確定按鈕代碼:string id,password,getpasswordid=trim()getpassword=trim()if id= or id=39。本系統(tǒng)的結(jié)構(gòu)功能圖: ER圖本系統(tǒng)采用ER圖(實(shí)體關(guān)系圖)的方法進(jìn)行數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)。用戶(hù)可以更改自己的注冊(cè)信息,但用戶(hù)名不能更改。l (5)統(tǒng)計(jì)功能:管理員可以按用戶(hù)、部門(mén)、報(bào)刊統(tǒng)計(jì)報(bào)刊的銷(xiāo)售情況,并對(duì)一些重要的訂閱信息進(jìn)行統(tǒng)計(jì);普通用戶(hù)可以統(tǒng)計(jì)出自己的訂閱情況。l (4)查詢(xún)功能:用戶(hù)可以查詢(xún)并顯示自己所訂閱的信息;管理員可以按人員、報(bào)刊、部門(mén)分類(lèi)查詢(xún)。l (2)錄入新信息功能:對(duì)于管理員,包括新