原创力文档- 1、本文档共33页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
PAGE7
系统开发平台：Delphi7
数据库管理系统软件：SQLServer2000
运行平台：WindowsXP
分辨率：最佳效果1024×768
硬盘要求：
CPU：300MHz以上的处理器
内存：64MB，推荐128M以上
硬盘：100M以上磁盘空间
二、设计思路分析
完成此课题的思路和基本步骤
第一步：理解该系统的功能需求，进行逻辑设计，指定具体的实现计划。
第二步：数据库设计，具体包括表的划分和建立，表中的属性值的定义等。
第三步：测试连接，主要是测试开发环境delphi7与数据库sql2000的连接特性。
第四步：系统的模块划分，确定各个模块所要实现的功能。
第五步：确定测试用例和测试方法，方便程序以后的测试。
第六步：主要功能模块的设计和实现，并且辅助以测试实现。
第七步：测试所完成的应用程序，排查和纠正错误。
三、概要设计
3.1数据库逻辑设计如下:
3.1.1本数据库的设计中，具体涉及到了三张表的创建于修改。
Passenger—用户信息表
Flight—航班信息表
P_ticket—票务信息表
3.1.2数据库的完整性约束规则的说明(主键、外键等)如下图所示：
其中选定了级联更新和删除相关的字段和记录可以在我修改flight表和passenger表的主键信息时间接的达到修改票务信息表的目的。
四、详细设计
(1).系统的登陆界面如下图所示：
说明：本窗体需要和数据库里的passenger表相关联，通过ADOconnection1和ADOquery1及datasource1三个控件配合，登陆按钮被点击是触发函数如下：
withadoquery1do//对用户输入的邮箱地址和密码在passenger表中查询
begin
close;
sql.clear;
sql.text:=(select*frompassengerwhere邮箱地址=:aand密码=:b);
parameters.parambyname(a).value:=trim(edit1.text);
parameters.parambyname(b).value:=trim(edit2.text);
open;
ifrecordCount=1then//如果存在符合输入的记录则跳转到查询主页
begin
form1.Visible:=false;
form3.show;
user_id:=edit1.Text;
manager:=90231@;//系统中自己设定的管理员账号
ifuser_id=managerthen//如果用户用的是管理员的账号
begin
form3.bitbtn2.Visible:=false;//管理员不能修改用户信息
form3.BitBtn8.Visible:=true;//管理员对信息管理的按钮可见
form3.label3.caption:=管理员
end
else
begin
form3.BitBtn2.Visible:=true;//允许普通用户修改用户信息
form3.BitBtn8.Visible:=false;//不具有信息管理的权限
form3.Label3.Caption:=普通用户;
end;
end
else
showmessage(用户名或密码输入错误！);//密码验证错误，输出提示
end;
(2).新用户的注册界面如下图所示：
说明：在输入用户邮箱的时候，光标进入到edit控件之内我写了一个触发函数：checkbox1.Checked:=false;
checkbox1.Caption:=帮你验证邮箱;//显示界面友好
而当光标移开edit控件后也有一个触发函数：
if(pos(@,edit1.text)=0)or(length(edit1.Text)5)then//没有‘@’字符或者
begin
showmessage(邮箱地址格式不正确，请重新输入！);//字符长度小于5为非法
edit1.Text:=;
end
else
begin
checkbox1.Checked:=false;//初始化checkbox标签属性
withadoquery1do//在用户表中对此
文档评论（0）