《Delphi程序
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
》数据库设计实验
报告
软件系统测试报告下载sgs报告如何下载关于路面塌陷情况报告535n,sgs报告怎么下载竣工报告下载
信管061班 第五组（学生档案管理系统）
小组成员：
艾克拜江（074631105） 组长
则比布拉（074631106）
肉苏力 （064631126）
努尔艾力（064631138）
阿依努尔（064631106）
米热尼沙（064631114）
一，实验目的：
用Delphi的开发数据库功能，熟悉Delphi的数据库开发环境和一些方法。熟练Ado引擎熟练使用数据库程序开发中的相关组件；对前面所学的知识做一总结与回顾。
二，实验内容：
三，实验步骤
我们小组选的是《大学生档案管理系统》，我们首先想好了系统的基本框比如，有登陆窗口
然后主界面，这里面有查询，添加，修改，删除等基本功能
我负责做系统的查询
记录
混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载
功能（逐步查询，条件查询），把其他功能按照同学们的能力给他们分配，我们遇到的第一个问
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
就是数据库
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
设计，因为我们班以前没学过Access 所以得自学，我把这个任务给了则比布拉同学，他自己开始自学用Access 设计了学生基本信息表。
最终他设计了一个数据库表DB1 里面包括<学生信息表>，《学生成绩表》，《用户表》。
我们用delphi的，Data Access,Datacontrol,ado等这些工具的控件来实现一个简单的《学生档案管理系统》，我在逐步查询功能当中用了delphi自己提供的DBNavigator控件实现了简单的下一条，上一条等这些功能。我还在用一个窗体实现了一条记录和全部记录做报表功能。用了ADOTable，DataSource，DBGrid，DBNavigator，SaveDialog，memo，button这些控件。
把一条记录做报表的代码如下：
var
i:integer;
begin
memo1.Lines.Clear;
for i:=0 to adotable1.FieldCount-1 do
begin memo1.Lines.Add(adotable1.Fields[i].FieldName+':'+adotable1.Fields[i].AsString);
end;
end;
把全部记录做报表的代码如下：
var
i:Integer;
begin
memo1.Lines.Clear;
ADOTable1.First;
while not ADOTable1.Eof do
begin
for i:=0 to ADOTable1.FieldCount-1 do
begin
memo1.Lines.Add(ADOTable1.Fields[i].FieldName+':'+ADOTable1.Fields[i].AsString);
end;
ADOTable1.Next;
end;
end;
保存报表的代码：（把SaveDialog1的DafaultExt和Filter属性设置为txt）
begin
with SaveDialog1 do
begin
Options := [ofOverwritePrompt];
OptionsEx := [ofExNoPlacesBar];
if Execute then
memo1.Lines.SaveToFile(Filename);
end;
end;
通过上面的这些代码可以把学生的基本信息单独或全部列出在mome1里面，还可以把mome1里面的内容以txt格式保存。
我最用功的阶段是条件查询，用户可以按照自己的需求进行各种查询，比如按照学号，性别，专业，姓名等字段查询。用条件查询功能当然用Adoquery控件，因为Adoquery控件是通过SQL语句实现对数据库数据的提取及操作，它可以直接运行数据定义语言DDL，它可以直接连接到数据库，也可以通过Adoconnection控件链接到数据库。
查找的代码如下：
var
sqlstr:string;
begin
sqlstr:='select*from 学生信息表 where(1=1)'; //设置要查询的字段
if edit2.Text<>'' then
sqlstr:=sqlstr+'and(姓名='''+edit2.text+''')';
if combobox2.Text<>'' then
sqlstr:=sqlstr+'and(专业='''+combobox2.Text+''')';
if combobox3.Text<>'' then
sqlstr:=sqlstr+'and(性别='''+combobox3.Text+''')';
if combobox1.Text<>'' then
sqlstr:=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
系统评价：
小组成员的任务安排和如下：
艾克拜江：实现查询功能（逐步查询，报表，高级查询）
肉苏力： 设计登录窗口，主界面（没能实现密码修改功能）
努尔艾力：实现添加学生基本信息，成绩添加功能；
则比布拉：设计数据库表，调试程序；
阿依努尔：实现对学生基本信息表删除功能；
米热尼沙：实现对学生基本信息表修改功能；
浙公网安备 33021202002483