AB 中预警显示窗体中双击打开对应单据窗体

var
tempStr1:string;
tempForm:TForm;
begin
// abshow(format('name=%s,Caption=%s,SQL=%s,RecNo=%d',[aName,aCaption,ABGetDatasetSQL(aDataset),aDataset.RecNo]));
tempStr1:='ShoesErp_Sales_SalesOrderG.bpl';
ABOpenFunc(tempStr1,True,false,True,True);
tempForm := ABRegisterFile.GetFormByFileName(tempStr1);
if (Assigned(tempForm)) then
begin
//通过窗体对象和数据集名称定位窗体中数据集符合条件的记录
if ABLocateFormDataset(tempForm,'ABQuery1',true,'No',aDataset.FieldByName('No').AsString,[]) then
begin

end;
end;