year=3.5
elseif ctime=\ year=4.0
elseif ctime=\ year=4.5 elseif ctime=\ year=5.0
else messagebox(\系统提示\订阅年限输入不正确!请按照示例方式输入：1或1.0，并不要超过5.0!\end if
if number=\ messagebox(\系统提示\请输入有效数字!\
sle_4.text=\return
elseif number=\ numb=1
elseif number=\ numb=2
elseif number=\ numb=3
elseif number=\ numb=4
elseif number=\ numb=5 else
messagebox(\系统提示\输入不正确!请按照示例方式输入：1,并不要超过5!\ return end if
select Uname,Upassword
into :gs_operator_id,:gs_password from consumer where Uname=:name;
if sqlca.sqlcode<>0 then
messagebox(\系统提示\无此用户!\sle_1.text=\sle_5.text=\sle_1.setfocus()
return end if
if password<>trim(gs_password) then
messagebox(\警告\口令错误!\sle_5.text=\sle_5.setfocus() return
end if
select Mnumber into :num from magazine
where Mnumber=:magazinenum;
if sqlca.sqlcode<>0 then messagebox(\系统提示\无此报刊!\
sle_2.text=\return
end if
select Mhalfprice,Mwhole into :halfprice,:wholeprice from magazine
where Mnumber=:magazinenum;
if sqlca.sqlcode<>0 then
messagebox(\系统提示\该报刊未输入价格!\return
end if
if year=0.5 or year=1.5 or year=2.5 or year=3.5 or year=4.5 then
summoney=(-0.5+year)*wholeprice+halfprice summoney=summoney*numb
elseif year=1 or year=2 or year=3 or year=4 or year=5 then summoney=year*wholeprice summoney=summoney*numb end if
select Uname,Mnumber into :name1,:num1 from subscribe
where Uname=:name and Mnumber=:magazinenum;
if sqlca.sqlcode=0 then
MessageBox(\系统提示\对不起,您已经订阅过此报！\ sle_1.text=\
sle_2.text=\sle_3.text=\sle_4.text=\sle_5.text=\return
end if
//将订阅信息插入到数据库表中 INSERT INTO subscribe
(Uname,Mnumber,Syear,Snumber,Ssum)
VALUES(:name,:magazinenum,:ctime,:number,:summoney) ;
select Ssum into :money from subscribe
where Uname=:name and Mnumber=:magazinenum ;
MessageBox(\系统提示\恭喜！订阅成功！所需金额为\
//更新用户订阅报刊种类 select count(Uname) into :kindnum from subscribe
where Uname=:name ;
update consumer
set subscribenum=:kindnum where Uname=:name ;
清空按钮代码：sle_1.text=\sle_5.text=\数据窗口图：
订阅图：
（15）制作用户菜单中查询菜单：制作用户查询界面：同管理员按用户查询界面； 代码：
窗口代码：dw_1.settransobject(sqlca) sle_1.setfocus() 检索按钮代码同管理员界面检索按钮基本相同，仅将不同点列出： dw_1.setfilter(\dw_1.filter()
ll_row=dw_1.retrieve()
if ll_row=0 then messagebox(\系统提示\无记录!\ return end if
退出按钮代码：close(w_consumer_query) 订阅查询界面：
（16）制作用户菜单中统计菜单：制作用户统计界面：w_consumer_stat，将数据窗口d_consumer_stat放入 w_consumer_stat中； 代码：窗口代码：
int ll_row
dw_1.settransobject(sqlca)
dw_1.setfilter(\dw_1.filter()
ll_row=dw_1.retrieve()
if ll_row=0 then messagebox(\系统提示\无记录!\end if