if combobox1.text = '按姓名查询' then begin ADODataSet1.CommandText := 'select * from salarydb where 姓名=''' + Edit1.Text + ''''; end else begin if combobox1.text = '按部门查询' then begin ADODataSet1.CommandText := 'select * from salarydb where 部门名称=''' + Edit1.Text + ''''; end else begin if combobox1.text = '按人员类别查询' then ADODataSet1.CommandText := 'select * from salarydb where 人员类别=''' + Edit1.Text + ''''; end; end;
begin
ADODataSet1.CommandText := 'select * from salarydb where 姓名=''' + Edit1.Text + '''';
end
else
begin
if combobox1.text = '按部门查询' then
begin
ADODataSet1.CommandText := 'select * from salarydb where 部门名称=''' + Edit1.Text + '''';
end
else
begin
if combobox1.text = '按人员类别查询' then
ADODataSet1.CommandText := 'select * from salarydb where 人员类别=''' + Edit1.Text + '''';
end;
end;
没查询语句。