7.ADO数据库连接.ppt
ADO数据库连接数据库连接ADOADO数据库连接数据库连接DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI常用连接数据库方式常用连接数据库方式常用连接数据库方式常用连接数据库方式:DBE:DBE、ADOADO两种方式两种方式两种方式两种方式BDEBDE：由波蓝公司开发，针对：由波蓝公司开发，针对：由波蓝公司开发，针对：由波蓝公司开发，针对DELPHIDELPHI开发的连接数据库引擎。开发的连接数据库引擎。开发的连接数据库引擎。开发的连接数据库引擎。ADOADO：由微软由微软由微软由微软公司开发的通用连接数据库引擎（公司开发的通用连接数据库引擎（公司开发的通用连接数据库引擎（公司开发的通用连接数据库引擎（DELPHI7.0DELPHI7.0中很常中很常中很常中很常用，现已推出用，现已推出用，现已推出用，现已推出ADO.NETADO.NET数据库引擎）。数据库引擎）。数据库引擎）。数据库引擎）。DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式。方式。方式。方式。ADOConnectionADOConnection数据库连接数据库连接数据库连接数据库连接ADOCommandADOCommandADODataSetADODataSetADOTableADOTableADOQueryADOQueryADOStoredProcADOStoredProcRDSConnectionRDSConnectionDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ADOConnectionADOConnection：数据库连接：数据库连接：数据库连接：数据库连接ADOCommandADOCommand：无返回数据集的：无返回数据集的：无返回数据集的：无返回数据集的sqlsql命令。命令。命令。命令。ADODataSetADODataSet：集合和表、查询、存储过程集合。：集合和表、查询、存储过程集合。：集合和表、查询、存储过程集合。：集合和表、查询、存储过程集合。ADOTableADOTable：通过表查询：通过表查询：通过表查询：通过表查询ADOQueryADOQuery：通过：通过：通过：通过sqlsql命令查询或执行。命令查询或执行。命令查询或执行。命令查询或执行。ADOStoredProcADOStoredProc：存储过程。：存储过程。：存储过程。：存储过程。注：注：注：注：ADODataSetADODataSet集合了集合了集合了集合了ADOTableADOTable、ADOQueryADOQuery、ADOStoredProcADOStoredProc所有功能。所有功能。所有功能。所有功能。DBEDBE数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接的连接的连接的连接DBEDBE数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接的连接的连接的连接ADOTABLEADOTABLEDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接（使用的连接（使用的连接（使用的连接（使用ADOTableADOTable）adoconnectionadoconnectionADOTableADOTableStringGridStringGridDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接（使用的连接（使用的连接（使用的连接（使用ADOTableADOTable）双击双击双击双击DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接（使用的连接（使用的连接（使用的连接（使用ADOTableADOTable）procedureTForm1.Button1Click(Sender:TObject);procedureTForm1.Button1Click(Sender:TObject);varvari:integer;i:integer;beginbegini:=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(ADOTable1.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.Next;i:=i+1;i:=i+1;end;end;end;end;DBEDBE数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接的连接的连接的连接ADODATASETADODATASETDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接（使用的连接（使用的连接（使用的连接（使用ADOADODATASETDATASET）adoconnectionadoconnectionADOADODatasetDatasetStringGridStringGridDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接（使用的连接（使用的连接（使用的连接（使用ADOADODATASETDATASET）连接状态连接状态连接状态连接状态命令字符命令字符命令字符命令字符命令类型命令类型命令类型命令类型数据库连接数据库连接数据库连接数据库连接DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接（使用的连接（使用的连接（使用的连接（使用ADOADODATASETDATASET）procedureTForm1.Button1Click(Sender:TObject);procedureTForm1.Button1Click(Sender:TObject);varvari:integer;i:integer;beginbegini:=0;i:=0;whilenot(form1.ADODataSet1.Eof)dowhilenot(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);StringGrid1.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;end;end;DBEDBE数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接的连接的连接的连接ADOQUERYADOQUERYDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接（使用的连接（使用的连接（使用的连接（使用ADOADOQUERYQUERY）ADOConnectionADOConnectionADOADOQueryQueryDBGridDBGridDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接（使用的连接（使用的连接（使用的连接（使用ADOADOQUERYQUERY）procedureTForm1.Button1Click(Sender:TObject);procedureTForm1.Button1Click(Sender:TObject);beginbeginADOQuery1.Close;ADOQuery1.Close;ADOQuery1.Connection:=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).Value:=edit1.Text;ADOQuery1.Parameters.ParamByName(fs).Value:=edit1.Text;ADOQuery1.Active:=true;ADOQuery1.Active:=true;end;end;带参数带参数带参数带参数DBEDBE数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接的连接的连接的连接ADODatasetADODatasetDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接（使用的连接（使用的连接（使用的连接（使用ADOADODATASETDATASET）ADOConnectionADOConnectionADOADODataSetDataSetDBGridDBGridDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式ACCESSACCESS的连接（使用的连接（使用的连接（使用的连接（使用ADOADODATASETDATASET）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.CommandText:=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连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式 数据集的排序和筛选数据集的排序和筛选数据集的排序和筛选数据集的排序和筛选排排排排序序序序DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式 数据集的排序数据集的排序数据集的排序数据集的排序ADOConnectionADOConnectionADOADODataSetDataSetDBGridDBGridDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式 数据集的排序数据集的排序数据集的排序数据集的排序procedureTForm1.Button1Click(Sender:TObject);procedureTForm1.Button1Click(Sender:TObject);Vari:integer;Vari:integer;beginbeginADODataSet1.Close;ADODataSet1.Close;ADODataSet1.Connection:=ADOConnection1;ADODataSet1.Connection:=ADOConnection1;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.Text;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.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方式方式方式方式 数据集的排序和筛选数据集的排序和筛选数据集的排序和筛选数据集的排序和筛选筛筛筛筛选选选选DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式 筛选筛选筛选筛选ADOConnectionADOConnectionADOADODataSetDataSetDBGridDBGridDBEDBE数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式 筛选筛选筛选筛选procedureTForm1.Button1Click(Sender:TObject);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;ADODataSet1.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.Filtered:=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数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式 数据集的插入、删除和更新数据集的插入、删除和更新数据集的插入、删除和更新数据集的插入、删除和更新插插插插入入入入DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式 记录的插入记录的插入记录的插入记录的插入方法一：使用方法一：使用方法一：使用方法一：使用 ADOCommandADOCommand插入记录。插入记录。插入记录。插入记录。ADOConnectionADOConnectionADOADODataSetDataSetADOCommandADOCommandDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式 记录的插入记录的插入记录的插入记录的插入方法一：使用方法一：使用方法一：使用方法一：使用 ADOCommandADOCommand插入记录。插入记录。插入记录。插入记录。procedureTForm1.Button2Click(Sender:TObject);procedureTForm1.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+,+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.Execute;ADOCommand1.Execute;end;end;DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式 记录的插入记录的插入记录的插入记录的插入方法一：使用方法一：使用方法一：使用方法一：使用 ADOCommandADOCommand插入记录。插入记录。插入记录。插入记录。procedureTForm1.Button1Click(Sender:TObject);procedureTForm1.Button1Click(Sender:TObject);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;ADOCommand1.CommandType:=cmdText;ADOCommand1.CommandType:=cmdText;ADOCommand1.CommandText:=sql_insert;ADOCommand1.CommandText:=sql_insert;ADOCommand1.Execute;ADOCommand1.Execute;end;end;DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式 记录的插入记录的插入记录的插入记录的插入方法二：使用方法二：使用方法二：使用方法二：使用 数据集实现插入记录。数据集实现插入记录。数据集实现插入记录。数据集实现插入记录。(可实现多表查询结果或视图的插入可实现多表查询结果或视图的插入可实现多表查询结果或视图的插入可实现多表查询结果或视图的插入)DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接DELPHIDELPHI连接数据库连接数据库连接数据库连接数据库ADOADO方式方式方式方式 记录的插入记录的插入记录的插入记录的插入方法二：使用方法二：使用方法二：使用方法二：使用 数据集实现插入记录。数据集实现插入记录。数据集实现插入记录。数据集实现插入记录。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.Button1Click(Sender:TObject);procedureTForm1.Button1Click(Sender:TObject);beginbeginADODataSet1.Delete;ADODataSet1.Delete;end;end;DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接SQLSERVERSQLSERVERDBEDBE数据库连接数据库连接DELPHIDELPHI查询查询查询查询SQLSERVERSQLSERVER表表表表DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接SQLSQLDELPHIDELPHI数据库连接数据库连接数据库连接数据库连接例例例例:DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接SQLSQLDELPHIDELPHI数据库连接数据库连接数据库连接数据库连接例例例例:DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接SQLSQLDELPHIDELPHI数据库连接数据库连接数据库连接数据库连接例例例例:procedureTForm1.Button1Click(Sender:TObject);procedureTForm1.Button1Click(Sender: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;ADODataSet1.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:=true;ADODataSet1.Active:=true;end;end;DBEDBE数据库连接数据库连接DELPHIDELPHI执行执行执行执行SQLSERVERSQLSERVER存储过程存储过程存储过程存储过程无无无无参参参参数数数数DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接SQLSQLDELPHIDELPHI执行执行执行执行SQLSERVERSQLSERVER存储过程存储过程存储过程存储过程无参数无参数无参数无参数ADODataSetADODataSetDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接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;ADODataSet1.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数据库连接数据库连接DELPHIDELPHI执行执行执行执行SQLSERVERSQLSERVER存储过程存储过程存储过程存储过程输输输输入入入入参参参参数数数数DBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接SQLSQLDELPHIDELPHI执行执行执行执行SQLSERVERSQLSERVER存储过程存储过程存储过程存储过程输入参数输入参数输入参数输入参数ADODataSetADODataSetDBEDBE数据库连接数据库连接DELPHIDELPHI数据库连接数据库连接数据库连接数据库连接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;ADODataSet1.Connection:=ADOConnection1;ADODataSet1.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;/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存
