这些内容如果都在一个表中,那么这么写:
Query.SQL.Add( 'Select * From MyTable Where ' );
Query.SQL.add( '学院=''' + Edit1.Text + ''' And' );
Query.SQL.add( '年份=''' + Edit2.Text + ''' And' );
Query.SQL.add( '学期=''' + Edit3.Text + '''' );
Query.SQL.Add( 'Select * From MyTable Where ' );
Query.SQL.add( '学院=''' + Edit1.Text + ''' And' );
Query.SQL.add( '年份=''' + Edit2.Text + ''' And' );
Query.SQL.add( '学期=''' + Edit3.Text + '''' );
begin
Close;
SQL.Clear;
SQL.Add('select * from table where 学院 = :p1 and 年份 = :p2 and 学期 = :p3');
Parameters.ParamByName('p1').Value := dbedit1.text;
Parameters.ParamByName('p2').Value := StrToDateTime(dbedit1.text); //可能并不用转换
Parameters.ParamByName('p3').Value := dbedit1.text;
Open;
end;