流行模式

//专家抽号
begin
OpenQuery('ADOQuery','select * from 待选专家信息 where not 是否回避 order by random() limit 1');
FormInput_DPanelInputDesignTLabel8.Caption:=ADOQuery.fieldbyname('姓名').Value;
DetailTableTADODataSet2.Append;
DetailTableTADODataSet2.fieldbyname('姓名').Value:=ADOQuery.fieldbyname('姓名').Value;
DetailTableTADODataSet2.fieldbyname('学科专业组').Value:=ADOQuery.fieldbyname('学科专业组').Value;
DetailTableTADODataSet2.fieldbyname('职称').Value:=ADOQuery.fieldbyname('职称').Value;
DetailTableTADODataSet2.fieldbyname('单位').Value:=ADOQuery.fieldbyname('单位').Value;
DetailTableTADODataSet2.fieldbyname('抽取方').Value:=Tabledoc.fieldbyname('抽取方').Value;
DetailTableTADODataSet2.post;
ExeSqlCmd('delete from 待选专家信息 where 姓名=''' +DetailTableTADODataSet2.fieldbyname('姓名').asstring+'''');
ShowMessage('已经抽取专家:'+DetailTableTADODataSet2.fieldbyname('姓名').asstring);
TableRefresh('DetailTableTADODataSet1');
end.
SELECT * FROM 专家信息 WHERE 学科专业组 = '呼吸内科'
select * from 待选专家信息 where 是否回避 = 0

//关键点：通过脚本执行SQL，刷新数据，使用信息提示框

var
sSq:string;
begin
ExeSqlCmd('delete from 待选专家信息');
sSq:='insert into 待选专家信息(编号,姓名,学科专业组,职称,单位,是否回避)';
sSq:=sSq+' select 编号,姓名,学科专业组,职称,单位,0 as是否回避 from 专家信息';
sSq:=sSq+' where 学科专业组='''+Tabledoc.fieldbyname('学科专业组').asstring+'''';
ShowMessage(sSq);
ExeSqlCmd(sSq);
ExeSqlCmd('delete from 回避专家信息');
ExeSqlCmd('delete from 抽取专家信息 where 项目编号='''+Tabledoc.fieldbyname('项目编号').asstring+'''');
TableRefresh('DetailTableTADODataSet0');
TableRefresh('DetailTableTADODataSet1');
TableRefresh('DetailTableTADODataSet2');
end.
//关键点：执行SQL查询，修改录入窗口界面内容，记录增加