第八DELPHI数据库应用系统开发基础(简)精要.ppt

* hh * 8.4.5 TADOStoredProc 组件概述 TADOStoredProc组件可以执行在数据库管理系统如SQL Server 2000定义好的存储过程. * hh * 1)TADOStoredProc组件的主要属性 (1)Connection 指定连接数据库的ADOConnection的名字 (2)Connectionstring 可直接利用字符串连接 (2)ProcedureName 指定要运行的存储过程. * hh * 2)TADOStoredProc组件的主要方法 ADOStoredProc1.ExecProc; ExecProc: 运行ADOStoredProc连接的存储过程 * hh * 　　编写应用程序利用TADOStoredProc组件和在SQL Server 2000定义的存储过程向数据库图书管理数据库中的学生表中插入新的记录。 【例8-13】 　　(1) 创建应用程序　　 【实现步骤】 (2) 定制窗口　　 * hh * * hh * 双击 * hh * 组件名 属 性 属 性 值 说 明 ADOConnection1 ConnectionString 使用ConnectionString设置对话框设置该属性，连接到数据库dbdemos.mdb。 ADOTable1 Connection ADOConnection1 指定使用的数据连接组件。 TableName 学生 指定打开的数据表名 Active False 关闭数据集 DataSource1 DataSet ADOStoredProc1 指定使用的数据集为ADOStoredProc1。 DataSource2 DataSet ADOTable1 指定使用的数据集为ADOTable1。 DBGrid1 DataSource DataSource2 为表格指定数据源。 ADOStoredProc1 Connection ADOConnection1 指定使用的数据连接组件。 ProcedureName insert_学生_1 指定与数据库中的相连的存储过程 Active True 运行存储过程 parameters 存储过程中的参数 Label1 Caption ADOStoredProc1 Label2 Caption 学号： Label3 Text 姓名： 为空 Label4 Text 性别: 为空 各组件属性设置 * hh * 组件名 属 性 属 性 值 说 明 Label5 Caption 年龄： Label6 Caption 所在院系： Label8 Text 专业： 为空 Label8 Text 入学年份: 为空 edit1 Caption edsno edit2 Caption edsname edit3 Caption edsex edit4 Caption edage edit5 Caption edapart edit6 Caption edtime DateTimePicker1 Date 当前日期 button1 caption 确认 为空 各组件属性设置 * hh * (3) 编写代码 procedure TForm1.FormCreate(Sender: TObject); begin ADOConnection1.GetTableNames(ListBox1.Items,false); end; * hh * procedure TForm1.ListBox1DblClick(Sender: TObject); begin with ADOTable1 do Begin if active then close; TableName:=ListBox1.Items.strings[ListBox1.ItemIndex]; active:=true; end; end; * hh * 　 　(4) 运行程序 图8-2 程序运行界面 * hh * 8.4.2 TADOCommand组件概述 TADOCommand组件主要用于运行一些数据定义语言（DDL）的SQL命令，或者运行一个没有返回结果集的存储过程； 对于有返回结果集的SQL语句，则最好使用TADODataSet、TADOQuery或TADOStoredProc组件； 尽管 TADOCommand 组件的Execute 方法可以返回一个结果集，但却是通过另一个ADO数据集组件来使用该记录集。 * hh * CommandText属性 指定要执行的SQL命令，CommandText编辑器专门用来为ADO组件编写SQL命令。 CommandType属性