delphi课程设计.doc

课程设计任务书 题目： Delphi程序设计 学 号 姓 名 专 业 计算机科学与技术 课 程 Delphi应用程序设计 指导教师 职称 讲师 完成时间：2010年11月-2010年 12月课程设计任务书及成绩评定课程设计的任务和具体要求1.内容小型信息管理系统的设计与实现图书管理系统2.基本要求课程设计应能反应出学生综合利用所学知识完成一定的设计任务的能力，反映出学生理论联系实践的动手能力。具体要求如下：明确所要开发系统的设计任务；做好需求分析，合理选择设计方案；合理设计数据库中各个表的结构及其关系；能够设计出美观大方的程序界面；养成良好的代码书写习惯；在编写程序过程中应注意相关文档的编写；综合应用Delphi各种组件实现程序功能；认真撰写课程设计总结报告。指导教师签字： 日期： 指导教师评语成绩： 指导教师签字： 日期： 课程设计所需软件、硬件等1、 微型计算机2、 Windows操作系统3、 Delphi5.0以上版本的开发环境4、 微软SQL Server 2005软件课程设计进度计划起至日期工作内容备注2010.112010.112010.122010.12问题调查分析收集资料数据库设计程序设计参考文献、资料索引序号文献、资料名称编著者出版单位1 Delphi应用程序设计 李目海，电子科技大学出版社，20052Delphi程序设计实用教程叶核亚，电子工业出版社，20053 Delphi 2005程序设计教程刘瑞新编著，机械工业出版社，20044Delphi数据库程序设计教程刘瑞新 张志纲 张兵义 编著，机械工业出版社，20045 Delphi使用教程 郑阿奇主编， 电子工业出版社，20036Delphi 7 程序设计技巧与实例 吴天准 编著， 中国铁道出版社 200311引言：随着我国市场经济的迅速发展和人们生活水平的不断提高，图书馆藏书的树木逐渐增大，这也挑战了图书管理方面的技术，以前的人工管理方式已经不再适应现在的环境，取而代之的是先进的图书管理系统，通过使用Delphi创建的图书管理系统可以让管理人员方便而快捷的进行管理、查询、借阅、录入等工作。设计实验正文实验内容：一、数据库表管理员密码：属性名存储代码类型长度备注管理员编号Mnchar5密码Mmchar15图书数据：属性名存储代码类型长度备注图书编号Bnochar5图书名称Bnchar20图书作者Wnchar10类别编号Knochar5图书所属类别出版社编号Pnochar5图书类别数据：属性名存储代码类型长度备注类别编号KnoChar5类别名Knachar20出版社数据：属性名存储代码类型长度备注出版社编号Pnochar5出版社名Pnachar20读者数据：属性名存储代码类型长度备注读者编号Rnochar5读者姓名Rnachar10读者年龄RageInt 2性别Rschar4联系方式Rrchar15注册时间RtDate8.读者借阅数据：属性名存储代码类型长度备注读者编号Rnochar5图书编号Bnochar5二、流程图：读者进入系统工作的流程图为：读者登陆查询图书信息个人信息修改查询个人信息图书管理员工作的流程图为：管理员登陆查询还书借书读者注销读者注册图书出库图书入库二、 主要功能窗口1.程序封面窗口：2.登录窗口：3.图书管理员窗口：4.读者窗口：5.管理员查询窗口：三、分段代码及功能：1.不同用户密码登录：procedure TForm2.Button1Click(Sender: TObject);beginif guanli=1thenbeginadotable1.Open;adotable1.First;if ADOtable1.Locate(Wno;Mm,varArrayof(edit1.Text,edit2.Text),)thenform2.ModalResult:=4elseshowmessage(Soory,用户名或密码错误)endelseif duzhe=1thenbeginif ADOtable2.Locate(读者编号;密码,varArrayof(edit1.Text,edit2.Text),)thenform2.ModalResult:=5elseshowmessage(Sorry,用户名或密码错误)end;end;2.查询功能实现：procedure TForm4.Button1Click(Sender: TObject);beginif bianhao=1 thenbeginADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(select * from dbo.B);ADOQuery1.SQL.Add(where 图书编号 like :v);ADOQuery1.Parameters.ParamByName(v).Value:=edit1.Text;ADOQuery1.Open;end;if shuming=1 thenbeginADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(select * from dbo.B);ADOQuery1.SQL.Add(where 图书名称 like :v);ADOQuery1.Parameters.ParamByName(v).Value:=edit1.Text;ADOQuery1.Open;end;if leibie=1 thenbeginADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(select * from dbo.B,dbo.K);ADOQuery1.SQL.Add(where 类别名 like :v);ADOQuery1.Parameters.ParamByName(v).Value:=edit1.Text;ADOQuery1.Open;end;if zuozhe=1 thenbeginADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(select * from dbo.B);ADOQuery1.SQL.Add(where 图书作者 like :v);ADOQuery1.Parameters.ParamByName(v).Value:=edit1.Text;ADOQuery1.Open;end;if publics=1 thenbeginADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(select * from dbo.B,dbo.P);ADOQuery1.SQL.Add(where 出版社名 like :v);ADOQuery1.Parameters.ParamByName(v).Value:=edit1.Text;ADOQuery1.Open;end;if suoyou=1 thenbeginADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(select 图书编号,图书名称,图书作者,库存量,出版社名,类别名 from dbo.B,dbo.P,dbo.K);ADOQuery1.SQL.Add(where B.类别编号=K.类别编号 and B.出版社编号=P.出版社编号);ADOQuery1.Open;end;end;3.图书入库：procedure TForm5.Button1Click(Sender: TObject);beginADOTable1.TableName:=dbo.B;ADOTable1.Active;ADOTable1.Open;if ADOTable1.Locate(图书编号,String(edit1.Text),)thenshowmessage(书库已存在此编号图书，请查证)elsebeginADOTable1.Insert;ADOTable1.FieldByName(图书编号).Value:=edit1.Text;ADOTable1.FieldByName(图书名称).Value:=edit2.Text;ADOTable1.FieldByName(图书作者).Value:=edit3.Text;ADOTable1.FieldByName(库存量).Value:=edit4.Text;ADOTable1.FieldByName(类别编号).Value:=edit5.Text;ADOTable1.FieldByName(出版社编号).Value:=edit6.Text;ADOTable1.Post;end;end;4.借阅功能实现：procedure TForm8.Button1Click(Sender: TObject);beginADOTable1.TableName:=dbo.RB;ADOTable1.Active;ADOTable1.Open;ADOTable1.Insert;ADOTable1.FieldByName(读者编号).Value:=edit1.Text;ADOTable1.FieldByName(图书编号).Value:=edit2.Text;ADOTable1.Post;end;：5.图书归还实现：procedure TForm9.Button1Click(Sender: TObject);beginADOTable1.TableName:=dbo.RB;ADOTable1.Active;ADOTable1.Open;if ADOtable1.Locate(读者编号;图书编号,varArrayof(edit1.Text,edit2.Text),)thenADOTable1.Delete;end;6.系统退出：procedure TForm3.N18Click(Sender: TObject);varvalue:word;beginvalue:=application.messageBox(确认退出？,提示信息,mb_IconQuestion+mb_OkCancel+mb_DefButton1);case value ofmrOk:application.Terminate;mrCancel: ;end;end;四、 实验结果集分析1.登录2.查询功能实现3.系统退出五、设计总结：一学期的Delphi专业选修结束了，用了整整一周的时间完成了课程设计，通过使用可视化开发工具Delphi开发图书管理系统，学生实际动手能力以及自学其它系统开发工具的能力有所