获取当前数据源,初始化query对话框的过滤查询值(Report and Button)

（一）Report

--1）Form控件“Button”中的重载 clicked()  事件，传递Form中当前的值给Report

void clicked() { args _a = new args(); YAM_UnqualifiedManageIQCLine _iqcLine; YAM_UnqualifiedManageHead _IqcHead; str 100 _iqcId; set _set = new set (types::String); ; super(); if(YAM_UnqualifiedManageHead_ds.mark()) { _IqcHead = YAM_UnqualifiedManageHead_ds.getFirst(1); while(_IqcHead) { while select _iqcLine group by IQCId where _iqcLine.ItemId == _IqcHead.ItemId && _iqcLine.NumberDocuments == _IqcHead.NumberDocuments { _set.add(_iqcLine.IQCId); } _IqcHead = YAM_UnqualifiedManageHead_ds.getNext(); } } else while select _iqcLine group by IQCId where _iqcLine.ItemId == YAM_UnqualifiedManageHead.ItemId && _iqcLine.NumberDocuments == YAM_UnqualifiedManageHead.NumberDocuments { _set.add(_iqcLine.IQCId); } _a.parmObject(_set); new MenuFunction("YAM_Returnmatersingle",MenuItemType::Output).run(_a); }

--2）Report 弹出query对话框，重载 init()  和 fetch()方法初始化显示从Button传递过来的值

public void init() /*** 从Form中的控件"button"中传set到Report? */ { sysLastValue _sysLastValue; //放置所有对象运行操作记录Table fieldId _fieldId = fieldnum(ESGIQCLine,IqcId);//声明字段Id set _set = new set (types::String); setIterator it;//提取set容器结果集 str 100 longstr; /* 全局变量 In ClassDeclaration method querybuildDataSource qbds; querybuildRange qbr; queryRun _queryRun; */ ; /*** start ...remark by xyf 20090922 ++ 删除Report 操作记录,以便query对话框每次初始化时,均显示当前set传值,以符合User需求 */ ttsbegin; delete_from _sysLastValue where _sysLastValue.recordType == UtilElementType::Report && _sysLastValue.elementName == element.name() && _sysLastValue.userId == CurUserId(); ttscommit; /*** end ... remark by xyf 20090922 -- 删除Report 操作记录,以便query对话框每次初始化时,均显示当前set传值,以符合User需求 */ _set = element.args().parmObject(); //获取Form控件Button中传递的值set容器 it = new setIterator(_set);//放置set容器取值，去除冗余且自动升降排序 while(it.more()) { if(!longstr) longstr = it.value(); else longstr += ',' + it.value(); it.next(); } _queryRun = new QueryRun(this);//重载数据源的query qbds = _queryRun.query().dataSourceNo(1);//second method -- this.query().dataSourceNo(1); qbr = sysquery::findOrCreateRange( qbds,_fieldId);//在query对话框中自动新建查询过滤字段 qbr.value(longstr);//赋值初始化 /* the method write in fect()---- info( this.query().dataSourceNo(1).toString()); while(_queryRun.next()) { doing something......... } */ }

public boolean fetch()
{

    ESGIQCLine      _ESGIQCLine;
;

    while(_queryRun.next())
    {
        _ESGIQCLine  = _QueryRun.get(tablenum(ESGIQCLine));

        doing something.....................

    }
        return true;
}

---------------------------------------------------------------------------------------------------------

（二）Form -- Button

 

      获取query初始化对话框在Form中的Btton对象，由于元素对象没有该枚举类型，所以比较特殊，必须使用当前Form中的主表和次表（数据源）的TableNum来做元素对象值。

     button的clicked事件中可以如下，清除上次query运行操作成功的对象元素值，使之显示当前Form的相关值作为query的初始值！

name    name ;

 

    name = 'T:'+num2str(tablenum(CSM_PackingListTable),1,0,1,0)+','

                     + num2str(tablenum(CSM_PackingListLine),1,0,1,0);
    delete_from SysLastValue
                 where SysLastValue.userId == Curuserid()

                 && SysLastValue.elementName == name;