procedure TProjectForm.btnYesClick(Sender: TObject);
begin
  if StrToInt(cbStage.Items.Text) in [010,020,030,110] then
    qryStage.Close;
    qryStage.SQL.Clear;
    qryStage.SQL.Add('select * from DStageDetail where Stage='''+cbStage.Text+'''');
    qryStage.SQL.Add(' and outputdate >= '+formatdatetime('yyyymmdd',dtpSta.Date) );
    qryStage.SQL.Add(' and outputdate <= '+formatdatetime('yyyymmdd',dtpOver.Date) );
    qryStage.Open;
  else
    qryStage.Close;
    qryStage.SQL.Clear;
    qryStage.SQL.Add('select * from DFQCDetail where Stage='''+cbStage.Text+'''');
    qryStage.SQL.Add(' and outputdate >= '+formatdatetime('yyyymmdd',dtpSta.Date) );
    qryStage.SQL.Add(' and outputdate <= '+formatdatetime('yyyymmdd',dtpOver.Date) );
    qryStage.Open;
end

     begin
     
     end;

-------我是分割线--------

在网上有看一点资料.对于这个begin的概念似乎有点模糊.再就是对于if-else说跟的条件结构也有点模糊.求好心人指点指点.(注:现工作需要)

求好心人指点哈..如遇ASP问题,我也可以帮助解答的!!

begin
end

相当于.net 的{}

。net 中 用
if ()
{
}
else
{
}

delphi格式就为
if () then
begin
end
else
begin
end;
 

非常感謝.. 其實我知道這個語法.就是想確認下.畢竟在網上看到的不太相信