1、在功能的项目管理器上加载“业务模型\协同系统\个人事务\公共单元”
2、获取“业务模型\系统空间\系统参数组\日期时间参数组”这个参数组的 服务器本月第一天 和 服务器下月第一天 ,然后去拼这个SQL。
参考代码
var
lParam1,lParam2: Business.Model.TBizParam;
lStr1,lStr2: string;
begin
lParam1 := JUSTEPCOMMONUNIT.TJUSTEPCOMMONUNIT.GetParam(Self.Context,
'Biz:\SYSTEM\DATATIMEPARAMS.PARAMGROUP', 'ServerFirstDayOfThisMonth');
lStr1 := Variants.VarToStr(lParam1.Value); //本月第一天
lParam2 := JUSTEPCOMMONUNIT.TJUSTEPCOMMONUNIT.GetParam(Self.Context,
'Biz:\SYSTEM\DATATIMEPARAMS.PARAMGROUP', 'ServerFirstDayOfNextMonth');
lStr2 := Variants.VarToStr(lParam2.Value);//下月第一天
DataSetBroker1.DataSet.Close;
TSQLDataSet(DataSetBroker1.DataSet).SQL.Text := 'SELECT * FROM ZSJB WHERE (sj >= CONVERT(DATETIME,'''+lStr1+''')) AND (sj <= CONVERT(DATETIME,'''+lStr2+'''))';
DataSetBroker1.DataSet.Open;
别忘记把时间加进去
当然还可以通过获取本年本月等函数,然后通过http://bbs.justep.com/forum.php?mod=viewthread&tid=593 这个增加月等来处理,
像这样的问题,先要获取时间的起始点和终止点,然后再考虑去拼SQL。把问题一一拆开就好做了。 |