Delphi执行sql server普通查询

普通查询
1．用SQL属性查询指定的数据
用TADOQuery组件查询数据可以直接通过SQL语句进行查询，在使用SQL语句进行查询时，当查询字段的类型为字符或字符串时用单引号括起来；如果字段的类型为整型、单精度、双精度、货币时，则不需要用单引号括起来。
下面用SQL属性对数据表中的数据进行查询。查询“姓名”为“林风”的学生信息，如图1所示。
操作步骤如下：
（1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TEdit、TComboBox、TDataSource、TButton和TDBGrid等组件。
（2）主要程序代码如下：
with ADOQuery1 do
begin
close;
SQL.Clear;
if a[Inp]=1 then    //数组a用来判断当前字段用哪种SQL语句查询
SQL.Add('Select * from MR_Student where '+ComboBox1.Text+ComboBox2.Text+''''+Edit1.Text+'''')    //当字段类型为Varchar、char、nvarchar、text等用该SQL语句
else
SQL.Add('Select * from MR_Student where '+ComboBox1.Text+ComboBox2.Text+Edit1.Text);    //当字段类型为Int、float、double、money等用该SQL语句
open;
end;

图1  用SQL属性查询指定的数据
2．用Filter属性查询指定的数据
用TTable组件对数据进行查询时主要用Filter方法来获取数据的查询条件，如果该方法为空时，将查询表中的所有记录。
本示例是用Filter属性对数据表中的数据进行查询。
操作步骤如下：
（1）配置ODBC。
（2）运行Delphi，在窗体中添加TTable、TEdit、TComboBox、TDataSource、TButton和TDBGrid等组件。
（3）主要程序代码如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
//在Filter属性中输入查询的条件
Table1.Filter := ComboBox1.Text+COmboBox2.Text+''''+Edit1.Text+'''';
Table1.Filtered := True;    //当Filtered属性为True时，Filter属性才有效
DataSource1.DataSet := Table1;
end;