Delphi实训报告(总).docVIP

Delphi综合应用设计实训报告 实验名称:电话号码簿 实训目的和要求 掌握综合应用程序的设计方法，了解软件设计过程，了解大型应用系统的设计思想，初步具备大型应用程序设计能力。 实训条件 PC机 分组情况 组长：胡云 组员：周雯、陈静 、陈金花、罗冰雁 实训内容 1.按软件工程方法撰写开发文档。 计划进度安排 进行需求分析，画出系统流程图。 界面设计和数据库的输入。 完成各界面的设计，并编写代码完成相应的功能，进行单元测试。 把各个模块聚合成一个整体模块，进行系统测试。 系统维护。 （2）需求分析 系统流程图 DFD图（数据流图） （3）系统总体设计 模块划分：系统功能图（SC图） 数据库设计：实体关系图（ER图），数据录入 模块定义：模块名称，模块接口等。 （4）编码 程序流程图（NS图、ＰＡＤ图、结构化语言） （５）测试 　　　要求简易的测试用例设计 2.Delphi工具开发使用 VCL组件的使用，报表的设计。 3.程序开发打包 Wise工具，傻瓜工具等。 实训步骤： 数据库设计 主界面tel_main的设计如下图 编写代码实现菜单栏中的功能 （1）.查看tel_pub的代码： var child_pub:tf_pub; begin child_pub:=tf_pub.Create(application); end; （2）.登入tel_per的代码 var child_login:tf_login; begin child_login:=tf_login.Create(application); end; （3）.注册代码 var child_reg:tf_reg; begin child_reg:=tf_reg.Create(application); end; （4）.帮助代码 begin Application.CreateForm(Tf_about, f_about); end; 登入界面tel_login的设计 实现登入成功进入下一界面代码如下： procedure Tf_login.Button1Click(Sender: TObject); begin self.ADOQuery1.SQL.Clear; self.ADOQuery1.Close; self.ADOQuery1.SQL.Add(select perid from person where name=:a and pwd=:b); self.ADOQuery1.Parameters.ParamByName(a).Value:=self.uname.Text; self.ADOQuery1.Parameters.ParamByName(b).Value:=self.upwd.Text; self.ADOQuery1.Open; if self.ADOQuery1.RecordCount0 then begin loginname:=self.uname.Text; loginpwd:=self.upwd.text; Application.CreateForm(Tf_per, f_per); //child_per:=f_per.Create(application); self.Destroy; end else begin messagebox(self.Handle,登录失败！！用户名或密码错误！！,提示,mb_okcancel); end; end; 公共地址簿tel_pub的设计 （1）实现查询功能的代码如下： begin if self.xingming.Checked then begin self.ADOQuery2.SQL.Clear; self.ADOQuery2.Close; if ownlim then begin self.ADOQuery2.SQL.Add(select name,sex,tel,email,addr,limits from person where name=:pub_b); self.ADOQuery2.Parameters.ParamByName(pu