东西。沈老师认真负责的工作态度,严谨的治学精神和深厚的理论水平都使我收益匪浅。无论在理论上还是在实践中,沈老师都给与我很大的帮助,使我学到以前在书本上所学不到的知识,这对于我以后的工作和学习都有一种巨大的帮助。感谢沈老师耐心的教导,同时也要感谢给予过帮助的同学和老师。
学校在这方面也给我们提供了很大的支持和帮助,学校以及学院领导也比较重视,定期关心设计进展,为设计提供较大的方便,同时为每个设计小组配有专门的指导老师,帮助我们能顺利完成整个设计。对于学校和老师为我的毕业设计所提供的极大帮助和关心,在此我表示衷心的感谢!
参考文献
[1] 郭宝利编著,PowerBuilder8.0完全解析北京:电子工业出版社2002.1
[2] 樊金生等编著,PowerBuilder8.0实用教程北京:科学出版社2003.1
[3] 何旭洪,余建英编著,PowerBuilder数据库系统开发实例导航北京:人民邮电出版社2003.6
[4] 业宁编著,数据库实战南京:南京林业大学2001.9
[5] 朱爱民,柯建勋编著,PowerBuilder9.0与系统开发北京:清华大学出版社2003
[6]徐松林,路斌,王冬春等编著,PowerBuilder数据库应用开发教程北京:清华大学出版社2003
[7] 杨昭主编,PowerBuilder9.0实用参考手册北京:中国水利水电出版社2003.06
[8]王谦,刘元涛,医院住院管理信息系统的研究开发微型电脑应用2002年01期
[9]欧冰玉,利用PowerBuilder开发医院住院收费管理系统实例广西科学院学报2000年
S1期
[10]BobHendry,ProgrammingwiththePFC:PowerBuilder8.0PlasticCombMay2002
附录
程序1:用户登录界面代码
ifddlb_1.text=""then
messagebox("提示","请输入您的用户名")
else
SELECT"userinfo"."userpassword",
"userinfo"."username"
INTO:user_password,:user_name
FROM"userinfo"whereusername=:ddlb_1.text;
ifuser_password=sle_1.textthen
opensheet(w_selectfunction,w_main,4,original!)
close(parent)
elseifsle_1.text=""then
messagebox("提示","请输入您的密码")
else
messagebox("提示","您输入的密码有误")
endif
endif
单词浏览代码:
ifc=words_sum-1then
messagebox("提示","你已经背诵了"+string(words_sum)+"个单词!")
open(w_selectfunction)
close(parent)
else
inta
ifrank=1then
DECLAREc1CURSORFOR
SELECT"voc"."id"
FROM"voc"wherecet4group=:group_begin+:i;
openc1;
m=n
dowhilen<>0
fetchc1
into:a;
n=n-1
loop
fetchc1
into:a;
closec1;
dw_1.scrolltorow(a)
n=m
n=n+1
ifn=3then
n=0
i=i+1
endif
c=c+1
elseifrank=2then
DECLAREc2CURSORFOR
SELECT"voc"."id"
FROM"voc"wherecet6group=:group_begin+:i;
openc2;
m=n
dowhilen<>0
fetchc2
into:a;
n=n-1
loop
fetchc2
into:a;
closec2;
dw_1.scrolltorow(a)
n=m
n=n+1
ifn=3then
n=0
i=i+1
endif
c=c+1
elseifrank=3then
DECLAREc3CURSORFOR
SELECT"voc"."id"
FROM"voc"wheretofelgroup=:group_begin+:i;
openc3;
m=n
dowhilen<>0
fetchc3
into:a;
n=n-1
loop
fetchc3
into:a;
closec3;
dw_1.scrolltorow(a)
n=m
n=n+1
ifn=3then
n=0
i=i+1
endif
c=c+1
elseifrank=4then
DECLAREc4CURSORFOR
SELECT"voc"."id"
FROM"voc"wheregregroup=:group_begin+:i;
openc4;
m=n
dowhilen<>0
fetchc4
into:a;
n=n-1
loop
fetchc4
into:a;
closec4;
dw_1.scrolltorow(a)
n=m
n=n+1
ifn=3then
n=0
i=i+1
endif
c=c+1
endif
endif
程序2:注册界面代码:
ifsle_1.text=""then
messagebox("提示","请输入用户名!")
else
selectusername
into:user_name
fromuserinfo
whereusername=:sle_1.text;
ifuser_name=sle_1.textthen
messagebox("提示","该用户已经存在!")
else
ifsle_2.text<>sle_3.textthen
messagebox("提示","两次密码输入不一致")
sle_2.text=""
sle_3.text=""
else
user_name=sle_1.text
user_password=sle_2.text
INSERTINTO"userinfo"
("userpassword",
"username")
VALUES(:user_password,
:user_name);
messagebox("提示","您已经成功注册了")
close(parent)
open(w_login)
endif
endif
endif
程序3:词库范围设定代码:
ifddlb_1.text=""then
messagebox("提示","请完整输入词库范围")
else
ifddlb_1.text="cet4"then
rank=1
elseifddlb_1.text="cet6"then
rank=2
elseifddlb_1.text="TOFEL"then
rank=3
elseifddlb_1.text="GRE"then
rank=4
endif
group_begin=integer(sle_1.text)
group_end=integer(sle_2.text)
ifgroup_begin
""andsle_2.text<>""andsle_3.text<>""andsle_4.text<>""andsle_5.text<>""then
messagebox("提示","恭喜您猜对了。答案为:"+ll)
opensheet(w_selectfunction,w_main,4,original!)
close(parent)
endif
endif
ifc_num=6then
ifsle_1.text<>""andsle_2.text<>""andsle_3.text<>""andsle_4.text<>""andsle_5.text<>""andsle_6.text<>""then
messagebox("提示","恭喜您猜对了,答案就是:"+ll)
opensheet(w_selectfunction,w_main,4,original!)
close(parent)
endif
endif
ifc_num=7then
ifsle_1.text<>""andsle_2.text<>""andsle_3.text<>""andsle_4.text<>""andsle_5.text<>""andsle_6.text<>""andsle_7.text<>""then
messagebox("提示","你答对了,正确答案为:"+ll)
opensheet(w_selectfunction,w_main,4,original!)
close(parent)
endif
endif
endif
??
??
??
??
电子词典设计与开发
18
上一篇:PB理工学院考试成绩分析PB+SQL(论文和程序)
下一篇:时间那么幽默,原来我们都为彼此活过