《7.ADO数据库连接.ppt》由会员分享，可在线阅读，更多相关《7.ADO数据库连接.ppt（63页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、ADO数据库连接数据库连接ADOADO数据库连接数据库连接DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI常用连接数据库方式常用连接数据库方式常用连接数据库方式常用连接数据库方式:DBE:DBE、ADOADO两种方式两种方式两种方式两种方式BDEBDE：由波蓝公司开发，针对：由波蓝公司开发，针对：由波蓝公司开发，针对：由波蓝公司开发，针对DELPHIDELPHI开发的连接数据库引擎。开发的连接数据库引擎。开发的连接数据库引擎。开发的连接数据库引擎。ADOADO：由微软由微软由微软由微软公司开发的通用连接数据库引擎（公司开发
2、的通用连接数据库引擎（公司开发的通用连接数据库引擎（公司开发的通用连接数据库引擎（DELPHI7.0DELPHI7.0中很常中很常中很常中很常用，现已推出用，现已推出用，现已推出用，现已推出ADO.NETADO.NET数据库引擎）。数据库引擎）。数据库引擎）。数据库引擎）。DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式。方式。方式。方式。ADOConnectionADOConnection数据库连接数据库连接数据库连接数据库连接ADOCommandADOComman
3、dADODataSetADODataSetADOTableADOTableADOQueryADOQueryADOStoredProcADOStoredProcRDSConnectionRDSConnectionDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ADOConnectionADOConnection：数据库连接：数据库连接：数据库连接：数据库连接ADOCommandADOCommand：无返回数据集的：无返回数据集的：无返回数据集的：无返回数据集
4、的sqlsql命令。命令。命令。命令。ADODataSetADODataSet：集合和表、查询、存储过程集合。：集合和表、查询、存储过程集合。：集合和表、查询、存储过程集合。：集合和表、查询、存储过程集合。ADOTableADOTable：通过表查询：通过表查询：通过表查询：通过表查询ADOQueryADOQuery：通过：通过：通过：通过sqlsql命令查询或执行。命令查询或执行。命令查询或执行。命令查询或执行。ADOStoredProcADOStoredProc：存储过程。：存储过程。：存储过程。：存储过程。注：注：注：注：ADODataSetADODataSet集合了集合了集合了集合了A
5、DOTableADOTable、ADOQueryADOQuery、ADOStoredProcADOStoredProc所有功能。所有功能。所有功能。所有功能。DBEDBE数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接的连接的连接的连接DBEDBE数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接的连接的连接的连接ADOTABLEADOTABLEDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接
6、数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接（使用的连接（使用的连接（使用的连接（使用ADOTableADOTable）adoconnectionadoconnectionADOTableADOTableStringGridStringGridDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接（使用的连接（使用的连接（使用
7、的连接（使用ADOTableADOTable）双击双击双击双击DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接（使用的连接（使用的连接（使用的连接（使用ADOTableADOTable）procedureTForm1.Button1Click(Sender:TObject);procedureTForm1.Button1Click(Sender:TObject);varvari:integer;i:integer;beginb
8、egini:=0;i:=0;whilenot(form1.ADOTable1.Eof)dowhilenot(form1.ADOTable1.Eof)dobeginbeginStringGrid1.Rowsi.Add(ADOTable1.FieldByName(xingming).AsString);StringGrid1.Rowsi.Add(ADOTable1.FieldByName(xingming).AsString);StringGrid1.Rowsi.Add(ADOTable1.FieldByName(xuehao).AsString);StringGrid1.Rowsi.Add(AD
9、OTable1.FieldByName(xuehao).AsString);StringGrid1.Rowsi.Add(ADOTable1.FieldByName(rxzf).AsString);StringGrid1.Rowsi.Add(ADOTable1.FieldByName(rxzf).AsString);StringGrid1.Rowsi.Add(ADOTable1.FieldByName(dy).AsString);StringGrid1.Rowsi.Add(ADOTable1.FieldByName(dy).AsString);ADOTable1.Next;ADOTable1.N
10、ext;i:=i+1;i:=i+1;end;end;end;end;DBEDBE数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接的连接的连接的连接ADODATASETADODATASETDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接（使用的连接（使用的连接（使用的连接（使用ADOADODATASETDATASET）adoconnec
11、tionadoconnectionADOADODatasetDatasetStringGridStringGridDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接（使用的连接（使用的连接（使用的连接（使用ADOADODATASETDATASET）连接状态连接状态连接状态连接状态命令字符命令字符命令字符命令字符命令类型命令类型命令类型命令类型数据库连接数据库连接数据库连接数据库连接DBEDBE数据库连接数据库连接DELPHIDE
12、LPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接（使用的连接（使用的连接（使用的连接（使用ADOADODATASETDATASET）procedureTForm1.Button1Click(Sender:TObject);procedureTForm1.Button1Click(Sender:TObject);varvari:integer;i:integer;beginbegini:=0;i:=0;whilenot(form1.ADODataSet1.Eof)dowhil
13、enot(form1.ADODataSet1.Eof)dobeginbeginStringGrid1.Rowsi.Add(ADODataSet1.FieldByName(xingming).AsString);StringGrid1.Rowsi.Add(ADODataSet1.FieldByName(xingming).AsString);StringGrid1.Rowsi.Add(ADODataSet1.FieldByName(xuehao).AsString);StringGrid1.Rowsi.Add(ADODataSet1.FieldByName(xuehao).AsString);S
14、tringGrid1.Rowsi.Add(ADODataSet1.FieldByName(rxzf).AsString);StringGrid1.Rowsi.Add(ADODataSet1.FieldByName(rxzf).AsString);StringGrid1.Rowsi.Add(ADODataSet1.FieldByName(dy).AsString);StringGrid1.Rowsi.Add(ADODataSet1.FieldByName(dy).AsString);ADODataSet1.Next;ADODataSet1.Next;i:=i+1;i:=i+1;end;end;e
15、nd;end;DBEDBE数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接的连接的连接的连接ADOQUERYADOQUERYDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接（使用的连接（使用的连接（使用的连接（使用ADOADOQUERYQUERY）ADOConnectionADOConnectionADOADOQueryQueryDB
16、GridDBGridDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接（使用的连接（使用的连接（使用的连接（使用ADOADOQUERYQUERY）procedureTForm1.Button1Click(Sender:TObject);procedureTForm1.Button1Click(Sender:TObject);beginbeginADOQuery1.Close;ADOQuery1.Close;ADOQuery1.C
17、onnection:=ADOConnection1;ADOQuery1.Connection:=ADOConnection1;ADOQuery1.Parameters.Clear;ADOQuery1.Parameters.Clear;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(select*fromxueshengwhererxzf:fs);ADOQuery1.SQL.Add(select*fromxueshengwhererxzf:fs);ADOQuery1.Parameters.ParamByName(fs).Valu
18、e:=edit1.Text;ADOQuery1.Parameters.ParamByName(fs).Value:=edit1.Text;ADOQuery1.Active:=true;ADOQuery1.Active:=true;end;end;带参数带参数带参数带参数DBEDBE数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接的连接的连接的连接ADODatasetADODatasetDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPH
19、I连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接（使用的连接（使用的连接（使用的连接（使用ADOADODATASETDATASET）ADOConnectionADOConnectionADOADODataSetDataSetDBGridDBGridDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接（使用的连接（使用的连接（使用的连接（使用ADOADODATASETDATASET
20、）procedureTForm1.Button1Click(Sender:TObject);procedureTForm1.Button1Click(Sender:TObject);beginbeginADODataSet1.Close;ADODataSet1.Close;ADODataSet1.Connection:=ADOConnection1;ADODataSet1.Connection:=ADOConnection1;ADODataSet1.CommandType:=cmdText;ADODataSet1.CommandType:=cmdText;ADODataSet1.Command
21、Text:=select*fromxueshengwhereADODataSet1.CommandText:=select*fromxueshengwhererxzf:fsrxzf:fs;ADODataSet1.Parameters.ParamByName(fs).Value:=edit1.Text;ADODataSet1.Parameters.ParamByName(fs).Value:=edit1.Text;ADODataSet1.Active:=true;ADODataSet1.Active:=true;end;end;DBEDBE数据库连接数据库连接DELPHIDELPHI连接数据库连
22、接数据库连接数据库连接数据库ADOADO方式方式方式方式 数据集的排序和筛选数据集的排序和筛选数据集的排序和筛选数据集的排序和筛选排排排排序序序序DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式 数据集的排序数据集的排序数据集的排序数据集的排序ADOConnectionADOConnectionADOADODataSetDataSetDBGridDBGridDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DE
23、LPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式 数据集的排序数据集的排序数据集的排序数据集的排序procedureTForm1.Button1Click(Sender:TObject);procedureTForm1.Button1Click(Sender:TObject);Vari:integer;Vari:integer;beginbeginADODataSet1.Close;ADODataSet1.Close;ADODataSet1.Connection:=ADOConnection1;ADODataSet1.Connection:=ADOCon
24、nection1;ADODataSet1.CommandType:=cmdText;ADODataSet1.CommandType:=cmdText;ADODataSet1.CommandText:=select*fromxueshengwhererxzf:fs;ADODataSet1.CommandText:=select*fromxueshengwhererxzf:fs;ADODataSet1.Parameters.ParamByName(fs).Value:=edit1.Text;ADODataSet1.Parameters.ParamByName(fs).Value:=edit1.Te
25、xt;ADODataSet1.Active:=true;ADODataSet1.Active:=true;form1.ADODataSet1.First;form1.ADODataSet1.First;fori:=0toform1.ADODataSet1.Fields.Count-1dofori:=0toform1.ADODataSet1.Fields.Count-1dobeginbeginform1.ComboBox1.Items.Add(ADODataSet1.Fieldsi.FieldName);form1.ComboBox1.Items.Add(ADODataSet1.Fieldsi.
26、FieldName);end;end;end;end;procedureTForm1.Button2Click(Sender:TObject);procedureTForm1.Button2Click(Sender:TObject);beginbeginADODataSet1.IndexFieldNames:=ComboBox1.Text;ADODataSet1.IndexFieldNames:=ComboBox1.Text;end;end;DBEDBE数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式 数据集的排序和筛选数据集的排
27、序和筛选数据集的排序和筛选数据集的排序和筛选筛筛筛筛选选选选DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式 筛选筛选筛选筛选ADOConnectionADOConnectionADOADODataSetDataSetDBGridDBGridDBEDBE数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式 筛选筛选筛选筛选procedureTForm1.Button1Click(Sender:TO
28、bject);procedureTForm1.Button1Click(Sender:TObject);beginbeginADODataSet1.Close;ADODataSet1.Close;ADODataSet1.Filtered:=false;ADODataSet1.Filtered:=false;ADODataSet1.Connection:=ADOConnection1;ADODataSet1.Connection:=ADOConnection1;ADODataSet1.CommandType:=cmdText;ADODataSet1.CommandType:=cmdText;AD
29、ODataSet1.CommandText:=select*fromxuesheng;ADODataSet1.CommandText:=select*fromxuesheng;ADODataSet1.Active:=true;ADODataSet1.Active:=true;ADODataSet1.First;ADODataSet1.First;end;end;procedureTForm1.Button2Click(Sender:TObject);procedureTForm1.Button2Click(Sender:TObject);beginbeginADODataSet1.Filter
30、ed:=true;ADODataSet1.Filtered:=true;ADODataSet1.Filter:=rxzf=+Edit1.Text;ADODataSet1.Filter:=rxzf=+Edit1.Text;end;end;procedureTForm1.Button3Click(Sender:TObject);procedureTForm1.Button3Click(Sender:TObject);beginbeginform1.ADODataSet1.Filtered:=false;form1.ADODataSet1.Filtered:=false;end;end;DBEDBE
31、数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式 数据集的插入、删除和更新数据集的插入、删除和更新数据集的插入、删除和更新数据集的插入、删除和更新插插插插入入入入DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式 记录的插入记录的插入记录的插入记录的插入方法一：使用方法一：使用方法一：使用方法一：使用 ADOCommandADOCommand插入记录。插入记录。插入记录。插入记录。ADOConn
32、ectionADOConnectionADOADODataSetDataSetADOCommandADOCommandDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式 记录的插入记录的插入记录的插入记录的插入方法一：使用方法一：使用方法一：使用方法一：使用 ADOCommandADOCommand插入记录。插入记录。插入记录。插入记录。procedureTForm1.Button2Click(Sender:TObject);procedureTForm1.
33、Button2Click(Sender:TObject);varvarsql_insert:string;sql_insert:string;BeginBeginsql_insert:=insertintoxuesheng(xingming,xuehao,rxzf,dy)sql_insert:=insertintoxuesheng(xingming,xuehao,rxzf,dy)values(+edit1.Text+,+edit2.Text+,+edit3.Text+,+booltostr(form1.Cvalues(+edit1.Text+,+edit2.Text+,+edit3.Text+
34、,+booltostr(form1.CheckBox1.Checked)+);heckBox1.Checked)+);ADOCommand1.Connection:=form1.ADOConnection1;ADOCommand1.Connection:=form1.ADOConnection1;ADOCommand1.CommandType:=cmdText;ADOCommand1.CommandType:=cmdText;ADOCommand1.CommandText:=sql_insert;ADOCommand1.CommandText:=sql_insert;ADOCommand1.E
35、xecute;ADOCommand1.Execute;end;end;DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式 记录的插入记录的插入记录的插入记录的插入方法一：使用方法一：使用方法一：使用方法一：使用 ADOCommandADOCommand插入记录。插入记录。插入记录。插入记录。procedureTForm1.Button1Click(Sender:TObject);procedureTForm1.Button1Click(Sender:TObj
36、ect);varvarsql_insert:string;sql_insert:string;BeginBeginsql_insert:=deletefromxueshengwhereid=sql_insert:=deletefromxueshengwhereid=+form1.ADODataSet1.FieldByName(id).AsString;+form1.ADODataSet1.FieldByName(id).AsString;ADOCommand1.Connection:=ADOConnection1;ADOCommand1.Connection:=ADOConnection1;A
37、DOCommand1.CommandType:=cmdText;ADOCommand1.CommandType:=cmdText;ADOCommand1.CommandText:=sql_insert;ADOCommand1.CommandText:=sql_insert;ADOCommand1.Execute;ADOCommand1.Execute;end;end;DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式 记录的插入记录的插入记录的插入记录的插入
38、方法二：使用方法二：使用方法二：使用方法二：使用 数据集实现插入记录。数据集实现插入记录。数据集实现插入记录。数据集实现插入记录。(可实现多表查询结果或视图的插入可实现多表查询结果或视图的插入可实现多表查询结果或视图的插入可实现多表查询结果或视图的插入)DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式 记录的插入记录的插入记录的插入记录的插入方法二：使用方法二：使用方法二：使用方法二：使用 数据集实现插入记录。数据集实现插入记录。数据集实现插入记录。数据集
39、实现插入记录。procedureTForm1.Button2Click(Sender:TObject);procedureTForm1.Button2Click(Sender:TObject);beginbeginADODataSet1.ADODataSet1.InsertRecord(nil,edit1.text,edit2.text,edit3.text,checkbox1.checked);InsertRecord(nil,edit1.text,edit2.text,edit3.text,checkbox1.checked);end;end;procedureTForm1.Button1
40、Click(Sender:TObject);procedureTForm1.Button1Click(Sender:TObject);beginbeginADODataSet1.Delete;ADODataSet1.Delete;end;end;DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接SQLSERVERSQLSERVERDBEDBE数据库连接数据库连接DELPHIDELPHI查询查询查询查询SQLSERVERSQLSERVER表表表表DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接SQLSQ
41、LDELPHIDELPHI数据库连接数据库连接数据库连接数据库连接例例例例:DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接SQLSQLDELPHIDELPHI数据库连接数据库连接数据库连接数据库连接例例例例:DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接SQLSQLDELPHIDELPHI数据库连接数据库连接数据库连接数据库连接例例例例:procedureTForm1.Button1Click(Sender:TObject);procedureTForm1.Button1Click(Sender
42、:TObject);varvarsql_cx:string;sql_cx:string;BeginBeginsql_cx:=select*fromxuesheng,qkbwheresql_cx:=select*fromxuesheng,qkbwherexuesheng.xuehao=qkb.xuehaoandxuesheng.rxzf=xuesheng.xuehao=qkb.xuehaoandxuesheng.rxzf=:fs:fs;ADODataSet1.Close;ADODataSet1.Close;ADODataSet1.Connection:=ADOConnection1;ADODat
43、aSet1.Connection:=ADOConnection1;ADODataSet1.CommandType:=cmdText;ADODataSet1.CommandType:=cmdText;ADODataSet1.CommandText:=sql_cx;ADODataSet1.CommandText:=sql_cx;ADODataSet1.Parameters.ParamByName(fs).Value:=edit1.Text;ADODataSet1.Parameters.ParamByName(fs).Value:=edit1.Text;ADODataSet1.Active:=tru
44、e;ADODataSet1.Active:=true;end;end;DBEDBE数据库连接数据库连接DELPHIDELPHI执行执行执行执行SQLSERVERSQLSERVER存储过程存储过程存储过程存储过程无无无无参参参参数数数数DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接SQLSQLDELPHIDELPHI执行执行执行执行SQLSERVERSQLSERVER存储过程存储过程存储过程存储过程无参数无参数无参数无参数ADODataSetADODataSetDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接
45、数据库连接SQLSQLDELPHIDELPHI执行执行执行执行SQLSERVERSQLSERVER存储过程存储过程存储过程存储过程无参数无参数无参数无参数procedureTForm1.Button1Click(Sender:TObject);procedureTForm1.Button1Click(Sender:TObject);varvarsql_cx:string;sql_cx:string;beginbeginsql_cx:=xs1;/sql_cx:=xs1;/存储过程名存储过程名存储过程名存储过程名ADODataSet1.Close;ADODataSet1.Close;ADOData
46、Set1.Connection:=ADOConnection1;ADODataSet1.Connection:=ADOConnection1;ADODataSet1.CommandType:=cmdStoredProc;/ADODataSet1.CommandType:=cmdStoredProc;/存储过程存储过程存储过程存储过程ADODataSet1.CommandText:=sql_cx;ADODataSet1.CommandText:=sql_cx;ADODataSet1.Active:=true;ADODataSet1.Active:=true;end;end;DBEDBE数据库连接
47、数据库连接DELPHIDELPHI执行执行执行执行SQLSERVERSQLSERVER存储过程存储过程存储过程存储过程输输输输入入入入参参参参数数数数DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接SQLSQLDELPHIDELPHI执行执行执行执行SQLSERVERSQLSERVER存储过程存储过程存储过程存储过程输入参数输入参数输入参数输入参数ADODataSetADODataSetDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接SQLSQLDELPHIDELPHI执行执行执行执行SQLSERV
48、ERSQLSERVER存储过程存储过程存储过程存储过程输入参数输入参数输入参数输入参数procedureTForm1.Button1Click(Sender:TObject);procedureTForm1.Button1Click(Sender:TObject);varvarsql_cx:string;sql_cx:string;beginbeginsql_cx:=xs1;/sql_cx:=xs1;/存储过程名存储过程名存储过程名存储过程名ADODataSet1.Close;ADODataSet1.Close;ADODataSet1.Connection:=ADOConnection1;AD
49、ODataSet1.Connection:=ADOConnection1;ADODataSet1.CommandType:=cmdStoredProc;/ADODataSet1.CommandType:=cmdStoredProc;/存储过程存储过程存储过程存储过程ADODataSet1.CommandText:=sql_cx;ADODataSet1.CommandText:=sql_cx;ADODataSet1.Parameters.Clear;ADODataSet1.Parameters.Clear;ADODataSet1.Parameters.AddParameter.Name:=fs;
50、/ADODataSet1.Parameters.AddParameter.Name:=fs;/添加参数添加参数添加参数添加参数ADODataSet1.Parameters.ParamByName(fs).Value:=edit1.Text;/ADODataSet1.Parameters.ParamByName(fs).Value:=edit1.Text;/参数参数参数参数ADODataSet1.Active:=true;ADODataSet1.Active:=true;end;end;DBEDBE数据库连接数据库连接DELPHIDELPHI执行执行执行执行SQLSERVERSQLSERVER存