數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)刊訂閱管理系統(tǒng)-文庫(kù)吧
2025-04-02 22:04 本頁(yè)面
【正文】 Builder，新建一個(gè)工作區(qū)，取名為magazine；（2）新建一個(gè)Application,取名app,連接數(shù)據(jù)庫(kù),并將連接數(shù)據(jù)庫(kù)代碼復(fù)制到app中代碼；代碼：open(w_wele)// Profile magazine = MSS Microsoft SQL Server = magazine = 3968391D9B384C0 = sa = False = connect。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。39。 then MessageBox(系統(tǒng)提示,請(qǐng)輸入用戶名!) returnelseif getpassword= or getpassword=39。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。 if 0 then messagebox(系統(tǒng)提示,無(wú)此管理員!) = = () return end if if getpasswordgs_password then messagebox(警告,口令錯(cuò)誤!) = () return end if open(w_main) close(w_login)elseif =true then select Uname,Upassword into :gs_operator_id,:gs_password from consumer where Uname=:id。 if 0 then messagebox(系統(tǒng)提示,無(wú)此用戶!) = = () 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)選擇用戶類型!) 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。39。 then MessageBox(系統(tǒng)提示,對(duì)不起!請(qǐng)輸入用戶名！否則無(wú)法注冊(cè)!) () returnend ifselect Unameinto :nfrom consumerwhere Uname=:name。if =0 then MessageBox(系統(tǒng)提示,對(duì)不起,此用戶名已被注冊(cè)!請(qǐng)另選一個(gè)試試!) = returnend ifif password= or password=39。39。 then MessageBox(系統(tǒng)提示,對(duì)不起!請(qǐng)輸入登錄密碼！否則無(wú)法注冊(cè)!) () returnend ifif copypassword= or copypassword=39。39。 then MessageBox(系統(tǒng)提示,對(duì)不起!請(qǐng)?jiān)俅屋斎氲卿浢艽a！否則無(wú)法注冊(cè)!) () returnend ifif passwordcopypassword then MessageBox(系統(tǒng)提示,對(duì)不起!兩次輸入密碼必須一致！否則無(wú)法注冊(cè)!) () returnend ifif realname= or realname=39。39。 then MessageBox(系統(tǒng)提示,對(duì)不起!請(qǐng)輸入真實(shí)姓名！否則無(wú)法注冊(cè)!) () returnend ifif number= or number=39。39。 then MessageBox(系統(tǒng)提示,對(duì)不起!請(qǐng)輸入部門號(hào)！否則無(wú)法注冊(cè)!) () returnend ifselect Dnumberinto :number1from departmentwhere Dnumber=:number。if 0 then messagebox(警告,您輸入的部門號(hào)無(wú)效!無(wú)此部門!) = () returnend ifINSERT INTO consumer(Uname,Upassword,Urealname,Usex,Dnumber,Uphone,Uaddress) VALUES(:name,:password,:realname,:sex,:number,:phone,:address) 。MessageBox(系統(tǒng)提示,恭喜！注冊(cè)成功！)取消按鈕：close(w_enroll)（6）制作管理員主菜單mainmenu,制作管理員主界面w_main，將mainmenu放入w_main中；菜單：主界面：（7）制作管理員主菜單中錄入菜單：制作錄入數(shù)據(jù)窗口d_magazien, d_inputconsumer；制作管理員錄入報(bào)刊界面w_inputmagazine，錄入用戶
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1