报刊订阅管理系统步骤+代码(PowerBuilder实现)

报刊订阅管理系统

结合PowerBuilder进行数据库应用开发的特点，设计过程可按如下步骤进行： （1）打开PowerBuilder，新建一个工作区，取名为magazine； （2）新建一个Application,取名app,连接数据库,并将连接数据库代码复制到app中代码； 代码：

open(w_welcome）//打开欢迎窗口 //连接数据源

SQLCA.DBMS = \

SQLCA.AutoCommit = False

SQLCA.DBParm = \connect using sqlca;

if sqlca.sqlcode<>0 then messagebox(\错误\数据库连接错误，请检查后重试！\ return end if

close(w_welcome)//关闭欢迎窗口

open(w_login）//打开登录窗口（3）制作欢迎界面w_welcome；

（4）制作登录界面w_login；

确定按钮代码：

string id,password,getpassword id=trim(sle_1.text)

getpassword=trim(sle_2.text)

//用户名不能为空

if id=\ MessageBox(\系统提示\请输入用户名!\ return end if

//密码不能为空

if getpassword=\ MessageBox(\系统提示\请输入密码!\

return end if //管理员登陆

if rb_1.checked=true then select Aname,Apassword

into :gs_operator_id,:gs_password from administrator where Aname=:id;

if sqlca.sqlcode<>0 then

messagebox(\系统提示\无此管理员!\sle_2.text=\

sle_1.text=\ sle_1.setfocus() return end if

if getpassword<>trim(gs_password) then messagebox(\警告\口令错误!\

sle_2.text=\sle_2.setfocus() return

end if

//进入管理员管理界面 open(w_main) close(w_login)

//用户登录

elseif rb_2.checked=true then

select Uname,Upassword

into :gs_operator_id,:gs_password from consumer

where Uname=:id;

if sqlca.sqlcode<>0 then

messagebox(\系统提示\无此用户!\sle_2.text=\sle_1.text=\

sle_1.setfocus()

return end if

if getpassword<>trim(gs_password) then messagebox(\警告\口令错误!\

sle_2.text=\sle_2.setfocus()

return end if

gs_operator_id=id //进入用户管理界面 open(w_consumermain) close(w_login)

elseif rb_1.checked=false and rb_2.checked=false then messagebox(\系统提示\请选择用户类型!\ return end if

（5）制作注册界面w_enroll；

代码：

注册按钮：

//姓名，真实姓名，密码，重复密码，性别，部门号，联系电话，家庭住址，

string name,realname,password,copypassword,sex,number,phone,address,number1 string n//临时变量 //获得用户输入的信息 name=trim(sle_1.text)

password=trim(sle_2.text) copypassword=trim(sle_8.text) realname=trim(sle_4.text) if rb_1.checked=true then

sex=\男\

elseif rb_2.checked=true then sex=\女\end if

number=trim(sle_5.text) phone=trim(sle_6.text) address=trim(sle_7.text) //对信息进行检查

if name=\

MessageBox(\系统提示\对不起!请输入用户名！否则无法注册!\sle_1.setfocus()

return end if

select Uname into :n

from consumer

where Uname=:name;

if sqlca.sqlcode=0 then

MessageBox(\系统提示\对不起,此用户名已被注册!请另选一个试试!\

sle_1.text=\return

end if

if password=\ MessageBox(\系统提示\对不起!请输入登录密码！否则无法注册!\

sle_2.setfocus() return end if

if copypassword=\

MessageBox(\系统提示\对不起!请再次输入登录密码！否则无法注册!\sle_8.setfocus() return

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库报刊订阅管理系统步骤+代码(PowerBuilder实现)在线全文阅读。