zoukankan      html  css  js  c++  java
  • 工作日志 针对SQL Server做的些改动

    with ADoquery3 do
    begin
    close;
    sql.Clear;
    { sql.Add('select a.GoodsName,a.BillCode,a.Price,a.RNumber,a.RMoney,a.Pccode,b.AddDate,b.CustName from (SELECT * FROM T_DepotGoodsInDetail WHERE GoodsName='+QuotedStr(ADOquery2.Fields[0].AsString)+') AS a JOIN (SELECT * FROM T_DepotGoodsIn WHERE AddDate>='+Formatdatetime('yyyy-mm-dd',dtpDateBegin.DateTime)+' and AddDate<='+Formatdatetime('yyyy-mm-dd',dtpDateEnd.DateTime)+' AND Custname ='+QuotedStr(cbbWorkPlace.Text)+') AS b ON a.BillCode = b.Billcode'
    );
    }
    sql.Add(
    'select a.GoodsName,''采购收货'',a.BillCode,a.Price,a.RNumber,a.RMoney,a.Pccode,b.AddDate,b.CustName from (SELECT * FROM T_DepotGoodsInDetail WHERE GoodsName='+QuotedStr(ADOquery2.Fields[0].AsString)+') AS a JOIN (SELECT * FROM T_DepotGoodsIn WHERE AddDate>='+QuotedStr(Formatdatetime('yyyy-mm-dd',dtpDateBegin.DateTime))+' and AddDate<='+QuotedStr(Formatdatetime('yyyy-mm-dd',dtpDateEnd.DateTime))+' AND Custname ='+QuotedStr(cbbWorkPlace.Text)+') AS b ON a.BillCode = b.Billcode '+
    'UNION '+
    'select c.GoodsName,''销售出货'',c.BillCode,c.Price,c.RNumber,c.RMoney,c.Pccode,d.AddDate,d.CustName from (SELECT * FROM T_DepotGoodsOutDetail WHERE GoodsName='+QuotedStr(ADOquery2.Fields[0].AsString)+') AS c JOIN (SELECT * FROM T_DepotGoodsOut WHERE AddDate>='+QuotedStr(Formatdatetime('yyyy-mm-dd',dtpDateBegin.DateTime))+' and AddDate<='+QuotedStr(Formatdatetime('yyyy-mm-dd',dtpDateEnd.DateTime))+' AND Custname ='+QuotedStr(cbbWorkPlace.Text)+') AS d ON c.BillCode = d.Billcode '+
    'UNION');
    sql.Add(
    'select g.GoodsName,''领用出库'',g.BillCode,g.Price,g.RNumber,g.RMoney,g.Pccode,h.AddDate,h.CustName from (SELECT * FROM T_DepotDyeOutDetail WHERE GoodsName='+QuotedStr(ADOquery2.Fields[0].AsString)+') AS g JOIN (SELECT * FROM T_DepotDyeOut WHERE AddDate>='+QuotedStr(Formatdatetime('yyyy-mm-dd',dtpDateBegin.DateTime))+' and AddDate<='+QuotedStr(Formatdatetime('yyyy-mm-dd',dtpDateEnd.DateTime))+' AND Custname ='+QuotedStr(cbbWorkPlace.Text)+') AS h ON g.BillCode = h.Billcode '+
    'UNION');
    sql.Add(
    'select e.GoodsName,''产品入库'',e.BillCode,e.Price,e.RNumber,e.RMoney,e.Pccode,f.AddDate,f.CustName from (SELECT * FROM T_DepotDyeInDetail WHERE GoodsName='+QuotedStr(ADOquery2.Fields[0].AsString)+') AS e JOIN (SELECT * FROM T_DepotDyeIn WHERE AddDate>='+QuotedStr(Formatdatetime('yyyy-mm-dd',dtpDateBegin.DateTime))+' and AddDate<='+QuotedStr(Formatdatetime('yyyy-mm-dd',dtpDateEnd.DateTime))+' AND Custname ='+QuotedStr(cbbWorkPlace.Text)+') AS f ON e.BillCode = f.Billcode '+
    'ORDER BY AddDate');
    // sql.Add('select GoodsName,Type,BillCode,Price,RNumber,RMoney,Pccode from T_DepotDetail where Pccode in (select top 100 percent PcCode from T_Depot where AddDate>=:b and AddDate<=:c and Custname ='+QuotedStr(cbbWorkPlace.Text)+') order by Pccode');
    //parameters.ParamByName('a').Value:=ADOquery2.Fields[0].AsString;
    //parameters.ParamByName('b').Value:=Formatdatetime('yyyy-mm-dd',dtpDateBegin.DateTime);
    //parameters.ParamByName('c').Value:=Formatdatetime('yyyy-mm-dd',dtpDateEnd.DateTime);
    //parameters.ParamByName('d').Value:=cbbWorkPlace.Text;
    open;
    //ShowMessage(ADOquery2.Fields[0].AsString);

    end;

  • 相关阅读:
    【SSH网上商城项目实战15】线程、定时器同步首页数据(类似于CSDN博客定期更新排名)
    【SSH网上商城项目实战14】商城首页UI的设计
    Spring工具类:WebApplicationContextUtils
    多线程技术: 两个线程交替打印奇数和偶数
    常见的几种异常类型Exception
    【SSH网上商城项目实战13】Struts2实现文件上传功能
    【SSH网上商城项目实战12】添加和更新商品功能的实现
    【SSH网上商城项目实战11】查询和删除商品功能的实现
    【SSH网上商城项目实战10】商品类基本模块的搭建
    如何防止通过IP地址访问Tomcat管理页面
  • 原文地址:https://www.cnblogs.com/ljjphysics/p/2105022.html
Copyright © 2011-2022 走看看