用户主界面：
（13）制作用户菜单中更改信息菜单：w_modify_consumer; 代码：
窗口代码：
//定义变量，用于存储用户各字段:
//姓名，真实姓名，密码，性别，部门号，联系电话，家庭住址 string name,realname,pass,sex,dept,phone,address
//查询登陆者的相关信息
select Uname,Upassword,Urealname,Usex,Dnumber,uphone,Uaddress into :name,:pass,:realname,:sex,:dept,:phone,:address from consumer
where Uname=:gs_operator_id;
//无信息
if sqlca.sqlcode<>0 then
messagebox(\return
end if
//在界面上显示信息 sle_1.text=trim(name) sle_2.text=trim(pass) sle_3.text=trim(realname) sle_4.text=trim(dept) sle_5.text=trim(phone) sle_6.text=trim(address) if trim(sex)=\男\ rb_1.checked=true elseif trim(sex)=\女\ rb_2.checked=true end if
确定按钮：
//定义变量，用于存储用户各字段:
//姓名，真实姓名，密码，性别，部门号，联系电话，家庭住址
string name,realname,pass,sex,dept,phone,address int b_select
b_select=messagebox(\系统提示\确认修改？\if b_select=1 then//获得用户修改信息
name=trim(sle_1.text) pass=trim(sle_2.text)
realname=trim(sle_3.text) dept=trim(sle_4.text) phone=trim(sle_5.text) address=trim(sle_6.text) //信息检查
if rb_1.checked=true then
sex=\男\
elseif rb_2.checked=true then sex=\女\end if
if pass=\
MessageBox(\系统提示\对不起!密码不能为空!\sle_2.setfocus()
return end if
if realname=\
MessageBox(\系统提示\对不起!真实姓名不能为空!\sle_3.setfocus() return
end if
if sex=\ MessageBox(\系统提示\对不起!性别不能为空!\ return end if
if dept=\ MessageBox(\系统提示\对不起!部门号不能为空!\ sle_2.setfocus() return end if
update consumer
set Upassword=:pass,Urealname=:realname,
Usex=:sex,Dnumber=:dept,Uphone=:phone,Uaddress=:address where Uname=:name;
if sqlca.sqlcode<>0 then messagebox(\系统提示\更改错误！\ return end if
messagebox(\系统提示\更改成功！\end if
取消按钮：close(parent) 界面：
（14）制作用户菜单中订阅菜单：制作数据窗口d_show_magazine,制作订阅报刊界面:w_subscribe,将d_show_magazine加入其中; 代码：
窗口代码：
sle_1.setfocus()
dw_1.settransobject(sqlca) dw_1.retrieve() 提交按钮代码：
//用户名，密码，报刊代号，订阅年限，订阅数量，money是临时变量 string name,password,magazinenum,num,ctime,number,money double year
int numb,kindnum
double halfprice,wholeprice,summoney//半年定价，全年定价，总资金 string num1,name1 //获得用户输入信息 name=trim(sle_1.text)
password=trim(sle_5.text) magazinenum=trim(sle_2.text) ctime=trim(sle_3.text) number=trim(sle_4.text)
//安全性检查
if name=\ messagebox(\系统提示\对不起!请您输入用户名!\ return end if
if password=\
if magazinenum=\
messagebox(\系统提示\对不起!请您输入报刊号!\return
messagebox(\系统提示\对不起!请您输入密码\return
end if
end if
if ctime=\ messagebox(\系统提示\对不起!请您输入订阅年限!\ return end if
if number=\ messagebox(\系统提示\对不起!请您输入数量!\ return end if
if ctime=\ messagebox(\系统提示\请输入有效数字!\ sle_3.text=\ return
elseif ctime=\
year=0.5
elseif ctime=\ year=1.0
elseif ctime=\
year=1.5
elseif ctime=\ year=2.0 elseif ctime=\ year=2.5
elseif ctime=\ year=3.0
elseif ctime=\