文档介绍：模块开发卷宗(GB8567——88)
1标题
软件系统名称和标识符航空管理系统
模块名称和标识符(如果本卷宗包含多于一个的模块,则用这组模块的功能标识代替模块名)
程序编制员签名
卷宗的修改文本序号
修改完成日期
卷宗序号(说明本卷宗在整个卷宗中的序号)
编排日期(说明整个卷宗最近的一次编排日期)
2模块开发情况表
3功能说明
扼要说明本模块(或本组模块)的功能,主要是输入、要求的处理、输出。可以从系统设计说明书中摘录。同时列出在软件需求说明书中对这些功能的说明的章、条、款。
此航空管理系统的功能模块可以设计成如下图所示
航空管理系统
登
陆
界
面
订
票
子
系
统
航班时刻信息查询子系统
航班综合信息查询子系统
系
统
主
界
面
4设计说明
说明本模块(或本组模块)的设计考虑,包括:
在系统设计说明书中有关对本模块(或本组模块)设计考虑的叙述,包括本模块在软件系统中所处的层次,它同其他模块的接口;
在程序设计说明书中有关对本模块(或本组模块)的设计考虑,包括本模块的算法、处理流程、牵涉到的数据文卷设计限制、驱动方式和出错信息等;
在编制目前已通过全部测试的源代码时实际使用的设计考虑。
5原代码清单
要给出所产生的本模块(或本组模块)的第一份无语法错的源代码清单以及已通过全部测试的当前有效的源代码清单。
本系统功能实现主要在密码登陆和信息查询这两个模块,其中密码登陆模块中有管理员登陆和一般用户登陆,其中管理员可以进行乘客订票信息的录入,而一般用户只能进行查询,其代码如下:
procedure (Sender: TObject);
var
str:string;
begin
if (<>'') and (<>'') then
str:= 'select * from 管理员表 where 用户名='''++''' and 密码='''++'''';
;
;
(str);
//用SQL语句实现查询登陆
;
if then //如果输入用户名密码在数据库中没有
begin
LogTimes := LogTimes+1;
if messagebox(handle,'您填写的用户或密码有错误!是否重新输入?','出错提示',mb_iconinformation+mb_okcancel)=IDcancel then {关闭窗口};
if LogTimes>=3 then
begin
messagebox(handle,'对不起,登录次数超过3次,程序自动关闭!','非法登录',MB_ICONWARNING+mb_ok);
;//关闭窗口
end;
end
else
begin
:=true; //登陆后防止再