数据库程序设计安排.doc

Delphi程序设计数据库设计实验报告信管061班 第五组（学生档案管理系统）小组成员：艾克拜江（074631105） 组长则比布拉（074631106）肉苏力 （064631126）努尔艾力（064631138）阿依努尔（064631106）米热尼沙（064631114）一，实验目的：用Delphi的开发数据库功能，熟悉Delphi的数据库开发环境和一些方法。熟练Ado引擎熟练使用数据库程序开发中的相关组件；对前面所学的知识做一总结与回顾。二，实验内容：三，实验步骤我们小组选的是大学生档案管理系统，我们首先想好了系统的基本框比如，有登陆窗口然后主界面，这里面有查询，添加，修改，删除等基本功能我负责做系统的查询记录功能（逐步查询，条件查询），把其他功能按照同学们的能力给他们分配，我们遇到的第一个问题就是数据库表设计，因为我们班以前没学过Access 所以得自学，我把这个任务给了则比布拉同学，他自己开始自学用Access 设计了学生基本信息表。最终他设计了一个数据库表DB1 里面包括，学生成绩表，用户表。我们用delphi的，Data Access,Datacontrol,ado等这些工具的控件来实现一个简单的学生档案管理系统，我在逐步查询功能当中用了delphi自己提供的DBNavigator控件实现了简单的下一条，上一条等这些功能。我还在用一个窗体实现了一条记录和全部记录做报表功能。用了ADOTable，DataSource，DBGrid，DBNavigator，SaveDialog，memo，button这些控件。把一条记录做报表的代码如下：var i:integer;beginmemo1.Lines.Clear; for i:=0 to adotable1.FieldCount-1 do begin memo1.Lines.Add(adotable1.Fieldsi.FieldName+:+adotable1.Fieldsi.AsString); end;end;把全部记录做报表的代码如下：vari:Integer;beginmemo1.Lines.Clear;ADOTable1.First;while not ADOTable1.Eof dobegin for i:=0 to ADOTable1.FieldCount-1 do begin memo1.Lines.Add(ADOTable1.Fieldsi.FieldName+:+ADOTable1.Fieldsi.AsString); end; ADOTable1.Next;end;end;保存报表的代码：（把SaveDialog1的DafaultExt和Filter属性设置为txt）beginwith SaveDialog1 do begin Options := ofOverwritePrompt; OptionsEx := ofExNoPlacesBar; if Execute then memo1.Lines.SaveToFile(Filename);end;end;通过上面的这些代码可以把学生的基本信息单独或全部列出在mome1里面，还可以把mome1里面的内容以txt格式保存。我最用功的阶段是条件查询，用户可以按照自己的需求进行各种查询，比如按照学号，性别，专业，姓名等字段查询。用条件查询功能当然用Adoquery控件，因为Adoquery控件是通过SQL语句实现对数据库数据的提取及操作，它可以直接运行数据定义语言DDL，它可以直接连接到数据库，也可以通过Adoconnection控件链接到数据库。查找的代码如下：varsqlstr:string;beginsqlstr:=select*from 学生信息表 where(1=1); /设置要查询的字段if edit2.Text thensqlstr:=sqlstr+and(姓名=+edit2.text+);if combobox2.Text thensqlstr:=sqlstr+and(专业=+combobox2.Text+);if combobox3.Text thensqlstr:=sqlstr+and(性别=+combobox3.Text+);if combobox1.Text thensqlstr:=sqlstr+and(政治面貌=+combobox1.Text+);adoquery1.Close;adoquery1.sql.Clear;adoquery1.sql.Add(sqlstr);adoquery1.Open;edit1.Text:=;edit2.Text:=;combobox1.Text:=;combobox2.Text:=;combobox3.Text:=;panel1.caption:=总共找到+inttostr(adoquery1.recordcount)+条记录;end;end.最近我们的考试太紧，所以时间的关系我没能实现课程信息表，和学生成绩表的查询功能。还有我们当初想实现数据库的统计功能可是最终没能实现。开发环境：Borland Delphi 7运行环境:windows xp系统评价：小组成员的任务安排和如下：艾克拜江：实现查询功能（逐步查询，