您现在的位置：毕业论文 >> 课程设计 >> 正文

Delphi+Access报刊订阅管理系统设计论文+源码+流程图第4页

更新时间：2011-5-10: 来源：毕业论文

Delphi+Access报刊订阅管理系统设计论文+源码
系统流程图如下：
录入功能流程图：
订阅功能流程图：查询功能流程图：
统计功能流程图：系统文护流程图：

3.3.2 出错处理设计
程序运行时难免会出现一些错误，但是出错信息必须给出相应的出错原因，例如订阅时间出错，程序应该给出提示，要求用户选择正确的时间。如果是硬件问题，则应该提示简单的出错提示，让程序重置。
3.3.3 运用面向对象的分析对系统建模

面向对象分析，就是抽取和整理用户需求并建立问题与精确模型的过程。
面向对象设计准则：1.模块化2.抽象3.信息隐藏4.弱耦合5.强内聚6.可重用
大多数系统的面向对象设计模型，在逻辑上都由4大部分组成，分别对应组成目标系统的问题域子系统、人机交互子系统、任务管理子系统和数据管理子系统4个子系统。
复杂问题的对象模型通常由下述5个层次组成：主题层、类与对象层、结构层、属性层、服务层。
描绘报刊订阅系统的用例图：
系统事件跟踪图：

4. 报刊订阅系统的编码和测试
4.1 系统编码
系统为每种报刊设计了代码,一方面可统一报刊的类别,另一方面为了方便数据输入,在系统运行过程中,凡是需要输入报刊信息时,只需要输入产品代码即可,系统可根据报刊代码及其特性对照表,自动将相应的报刊名称和刊号。

(1).登录实现: procedure Tlogin.Button1Click(Sender: TObject);
var
pass:string;
right:Boolean;
begin原文请找腾讯752018766辣,文'论'文,网http://www.751com.cn/
username:=edit1.Text;
pass:=edit2.Text;
right:=true;
//判断用户名是否为空
if username<>'' then
    begin
    adotable1.First;
    while not adotable1.Eof do
      begin
      if adotable1.FieldByName('用户名').AsString =username then
        begin
        right:=false;
        if adotable1.FieldByName('密码').AsString=pass then
          begin
            password:=pass;
            if adotable1.FieldByName('权限').AsString='系统管理员' then
            begin
            main.gly.Visible:=true;
            main.dy.Visible:=false;
            main.tj.Visible:=true;
            main.Label6.Caption:='管理员';
            main.Label1.Visible:=false;
            main.Show;
            login.Hide;
            end
          else
            begin
            main.gly.Visible:=false;
            main.dy.Visible:=true;
            main.tj.Visible:=true;