数据库程序设计安排

《数据库程序设计安排》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、《Delphi程序设计》数据库设计实验报告信管061班第五组（学生档案管理系统）小组成员：艾克拜江（074631105）组长则比布拉（074631106）肉苏力（064631126）努尔艾力（064631138）阿依努尔（064631106）米热尼沙（064631114）一，实验目的：用Delphi的开发数据库功能，熟悉Delphi的数据库开发环境和一些方法。熟练Ado引擎熟练使用数据库程序开发中的相关组件；对前面所学的知识做一总结与回顾。二，实验内容：三，实验步骤我们小组选的是《大学生档案管理系统》，我们首先想好了系统的基本框比如，有登陆窗口然后主界面，这里面有查询，添

2、加，修改，删除等基本功能我负责做系统的查询记录功能（逐步查询，条件查询），把其他功能按照同学们的能力给他们分配，我们遇到的第一个问题就是数据库表设计，因为我们班以前没学过Access所以得自学，我把这个任务给了则比布拉同学，他自己开始自学用Access设计了学生基本信息表。最终他设计了一个数据库表DB1里面包括<学生信息表>，《学生成绩表》，《用户表》。我们用delphi的，DataAccess,Datacontrol,ado等这些工具的控件来实现一个简单的《学生档案管理系统》，我在逐步查询功能当中用了delphi自己提供的DBNavigator控件实现了简单的下一条，上

3、一条等这些功能。我还在用一个窗体实现了一条记录和全部记录做报表功能。用了ADOTable，DataSource，DBGrid，DBNavigator，SaveDialog，memo，button这些控件。把一条记录做报表的代码如下：vari:integer;beginmemo1.Lines.Clear;fori:=0toadotable1.FieldCount-1dobeginmemo1.Lines.Add(adotable1.Fields[i].FieldName+':'+adotable1.Fields[i].AsString);end;end;把全部记录做报表的代码

4、如下：vari:Integer;beginmemo1.Lines.Clear;ADOTable1.First;whilenotADOTable1.Eofdobeginfori:=0toADOTable1.FieldCount-1dobeginmemo1.Lines.Add(ADOTable1.Fields[i].FieldName+':'+ADOTable1.Fields[i].AsString);end;ADOTable1.Next;end;end;保存报表的代码：（把SaveDialog1的DafaultExt和Filter属性设置为txt）beginwithSave

5、Dialog1dobeginOptions:=[ofOverwritePrompt];OptionsEx:=[ofExNoPlacesBar];ifExecutethenmemo1.Lines.SaveToFile(Filename);end;end;通过上面的这些代码可以把学生的基本信息单独或全部列出在mome1里面，还可以把mome1里面的内容以txt格式保存。我最用功的阶段是条件查询，用户可以按照自己的需求进行各种查询，比如按照学号，性别，专业，姓名等字段查询。用条件查询功能当然用Adoquery控件，因为Adoquery控件是通过SQL语句实现对数据库数据的提取及

6、操作，它可以直接运行数据定义语言DDL，它可以直接连接到数据库，也可以通过Adoconnection控件链接到数据库。查找的代码如下：varsqlstr:string;beginsqlstr:='select*from学生信息表where(1=1)';//设置要查询的字段ifedit2.Text<>''thensqlstr:=sqlstr+'and(姓名='''+edit2.text+''')';ifcombobox2.Text<>''thensqlstr:=sqlstr+'and(专业='''+combobox2.Text+''')';ifcombobox3.Text<

7、>''thensqlstr:=sqlstr+'and(性别='''+combobox3.Text+''')';ifcombobox1.Text<>''thensqlstr:=sqlstr+'and(政治面貌='''+combobox1.Text+''')';adoquery1.Close;adoquery1.sql.Clear;adoquery1.sql.Add(sqlstr);adoquery1.Open;edit1.Text:='';edit2.Text:='';combobox1.Text:='';combobox2.T