分享到:
计算机软件 最近更新
讨论未来电商发展趋势论文提纲
浅谈自媒体对现代生活的影响
论文范文:网络发展对青少年心理发展的影响
论我国电子商务应用中的支付问题
电子商务模式研究
中小型企业客户关系管理系统的开发与应用
中石油浙江销售分公司信息管理系统设计
图书馆管理系统分析与设计
物流师职业资格认证报名管理系统
销售管理系统的开发与设计
酒店客房管理系统
财务管理系统的实现
餐饮管理系统设计与实现
社区卫生服务管理系统
汽车营销企业的客户关系管理系统
明道管理咨询有限公司客户关系管理系统设计与开发
企业订单管理系统开发
基于WEB的CRM信息系统的开发与研究
高校科研工作量统计系统的开发与设计
基于Struts的连锁店管理系统
财务管理系统的实现(4)
分页标题#e#
测试结果:系统各功能运行一切正常,并达到了设计要求。

 

 

第6章 结论
本次毕业设计,任务较重,时间紧,涉及的范围又比较多,也是我第一次做这种比较大的程序设课题。从课题的确定到逐步深入直至最终完成各项目目标任务,每一个过程都具有很大的挑战性。在设计过程中,也曾遇到各式各样的问题,如程序的调试过程,经常会出现运行不正常等情况。虽然困难很多,但在自己的不懈努力及通过查找资料、请教老师、询问同学和同事等办法,最终都能找到解决问题的办法。在克服困难、攻破一个个困难的过程中,学到了许多平时没有学到的知识,收获很大,从而使自己的知识在完成课题的过程中不断充实,水平也得到了一定的提高。应该说本次毕业设计,达到了毕业设计开题所预期的目标。同时,设计过程也培养了我独立工作的能力,树立了对自己工作能力的信心,相信会对我今后的学习工作生活在产生非常重要的影响。最重要的是通过本次课题锻炼了自己独自分析解决问题的能力和自我学习的能力。
当然,由于时间较紧,加上是初次涉及到比较大的程序的设计和开发,经验上相对缺乏,因此软件做得还不是很好,还需要以后加以进一步改进。
通过本毕业设计的学习以及思考制作,我基本掌握了操作数据库的各种方法。同时在设计过程中我遇到了很多问题,通过自己查阅资料,通过不断的调试最后都成功地解决了。在本毕业设计过程中我感觉最深的就是:要完成工作的过程中要学会自学,同时我还认识到在遇到问题的时候如何去分析问题,找出问题,然后去解决问题,我想虽然毕业设计已经成功做完了,但我收获最大的确是学会了以上两点。

 


致 谢
感谢我的全云海老师,这片论文的每个细节,都离不开你的细心指导。
感谢我的室友们,从遥远的家来到这个陌生的城市里,是你们和我共同维系着彼此之间兄弟般的感情,维系着寝室那份家的融洽。四年了,仿佛就在昨天。四年里,我们没有红过脸,没有吵过嘴,没有发生上大学前所担心的任何不开心的事情。只是今后大家就难得再聚在一起吃每年元旦那顿饭了吧,没关系,各奔前程,大家珍重。
感谢我的爸爸妈妈,焉得谖草,言树之背,养育之恩,无以回报,你们永远健康快乐是我最大的心愿。
在论文即将完成之际,我的心情无法平静,从开始进入课题到论文的顺利完成,有多少可敬的师长、同学、朋友给了我无言的帮助,在这里请接受我诚挚的谢意!


 

参考文献 
[1] 周亚玲, 苏治中. Delphi开发实用编程200例[M].北京:中国铁道出版社,2006:36-50
[2] 秦斌.Delphi 2005数据库系统开发与应用[M].北京:中国水利水电出版社,2006:26-56
[3] 网冠科技.Delphi 7.0基础培训百例[M].北京:机械工业出版社,2006:10-34
[4] 尹立民.Delphi 7应用编程150例[M].北京:电子工业出版社,2003:21-29
[5] 张增强,谷会东.Delphi 6.0实用开发指南[M].北京:电子工业出版社,2001:26-57
[6] 唐健等.Delphi 5实战与精通[M].北京:清华大学出版社,2000年:70-89。
[7] 王业龙等.Delphi软件工程案例精解[M].北京:电子工业出版社,2005:69-80
[8] 吕伟臣.Delphi 7.0范例入门与提高[M].北京:清华大学出版社,2003:1-206
[9] (英)Ian Summerville.软件工程[M].北京:机械工业出版社,2006:141-218
[10] 弗莱格 Shari Lawrence Pfleeger,Joanne M.Atlee.软件工程[M].北京:高等教育出版社,2006:241-384

 

附录 源代码
附录1 用户登陆界面源代码
当用户在输入“用户名”和相应的“密码”后触发的事件。
procedure TForm1.speedbutton1Click(Sender: TObject);
var
    Query : TADOQuery;         //使用之前需要加入uses adodb
begin
    //如果验证输入的口令正确,则进入主操作界面
    try
        //检查操作人员表中是否有匹配记录
        Query := TADOQuery.Create(nil);
        Query.Connection := dmPer.acPer ;
        Query.SQL.Add('select * from Operator where UserName=:UserName and userpwd=:userpwd');

        Query.Parameters.ParamByName('UserName').Value := cmbUsername.Text ;
        Query.Parameters.ParamByName('userpwd').Value := edtpassword.Text ;

        Query.Open;
        if Query.RecordCount = 0 then
        begin
            MessageDlg('请输入正确的用户名和密码',mtError,[mbok],0);
            Exit;
        end;

        //根据不同的操作员级别,允许进行不同的功能操作
        if query.FieldByName('class').AsInteger =0 then
        begin
           // 超级用户拥有全部权限
            form3.N3.Enabled:=true;
            {mainform.menuPDepartment.Enabled :=true;
            mainform.menuPBasicSetting.Enabled := true;
            mainform.menuPDB.Enabled :=true; }

        end;

        if  query.FieldByName('class').AsInteger =1 then
        begin
             //操作员用户拥有除"数据库管理"和"权限管理"外的全部权限
            form3.N3.Enabled:=false;
            {mainform.menuPDepartment.Enabled :=true;
            mainform.menuPBasicSetting.Enabled := true;
            mainform.menuPDB.Enabled :=false; }

        end;
        
        edtpassword.Text :='';     //密码信息要清空
        Query.Close;
        Query.Free;

       form3.Show;
       form1.close;
          except
        MessageDlg('连接数据库出错!',mtError,[mbok],0);
    end;
end;

附录2 用户管理模块界面源代码
//下面的函数功能是检查输入的用户名是否在数据库里有相同的记录
function TForm4.CheckExistUserName(UserName: string): boolean;
var 
  Query : TADOQuery;
begin
  try
    Query := TADOQuery.Create(nil);
    Query.Connection := dmPer.acPer ;
    Query.SQL.Add('select UserName from Operator where UserName =:UserName');
    Query.Parameters.ParamByName('UserName').Value := UserName;
    Query.Open;
    Result := Query.RecordCount >0;
    Query.Close;
    Query.Free;
  except
    Result := False;
  end;
end;

//下面的Deluser函数据功能是在操作者表中删除特定的用户
procedure TForm4.DelUser(UserName: string);
var
  Query : TADOQuery;
begin
  Query := TADOQuery.Create(nil);
  Query.Connection := dmPer.acPer ;
  Query.SQL.Add('delete from Operator where UserName =:UserName');
  Query.Parameters.ParamByName('UserName').value:= UserName;

随机推荐
中小企业物流管理与物流管理信息系统
基于WEB的CRM信息系统的开发与研究
Visual Basic中访问远程数据库的几种关键技术
城市DLG数据库元数据方案设计
食品安全信息监管系统研究
城市OLG数据库元数据管理关键问题分析
在线软件销售系统的设计与实现
纵横进出口产品管理系统
Asp+Sql网上书店系统论文开题报告
会议中心系统设计方案

设为首页 | 关于我们 | 广告联系 | 友情链接 | 版权申明

Copyright 2009-2014 All Right Reserved [粤ICP备05100058号-11]