D10xhGemei/T03贸易布匹检验/U_ProductListHelp.pas

unit U_ProductListHelp;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters,   cxStyles, cxCustomData,
  cxFilter, cxData, cxDataStorage, cxEdit, cxNavigator, dxDateRanges,
  dxScrollbarAnnotations, Data.DB, cxDBData, cxCalendar, cxGridLevel,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
  cxGridCustomView, cxGrid, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls,
  Vcl.ToolWin, Data.Win.ADODB, U_BaseHelp, U_BaseList, System.ImageList,
  Vcl.ImgList, Datasnap.DBClient, dxBarBuiltInMenu, cxGridCustomPopupMenu,
  cxGridPopupMenu, dxLayoutContainer, dxLayoutControl, cxContainer, dxCore,
  cxDateUtils, dxLayoutcxEditAdapters, cxMaskEdit, cxDropDownEdit, cxTextEdit;

type
  TfrmProductListHelp = class(TfrmBaseHelp)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBFind: TToolButton;
    TBClose: TToolButton;
    cxGrid2: TcxGrid;
    TV2: TcxGridDBTableView;
    V2filltime: TcxGridDBColumn;
    V2Subid: TcxGridDBColumn;
    V2Column10: TcxGridDBColumn;
    V2CustomerNoName: TcxGridDBColumn;
    V2KHOrderNo: TcxGridDBColumn;
    V2Column14: TcxGridDBColumn;
    V2C_Name: TcxGridDBColumn;
    V2C_Spec: TcxGridDBColumn;
    V2C_Color: TcxGridDBColumn;
    V2C_ColorNo: TcxGridDBColumn;
    V2C_Pattern: TcxGridDBColumn;
    V2OrdSNote: TcxGridDBColumn;
    V2packNote: TcxGridDBColumn;
    V2OrdQty: TcxGridDBColumn;
    V2OrderUnit: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    DataSource1: TDataSource;
    ADOQueryMain: TADOQuery;
    Order_Main: TClientDataSet;
    TV2OrdPiece: TcxGridDBColumn;
    cxGridPopupMenu1: TcxGridPopupMenu;
    TselOk: TToolButton;
    ToolButton1: TToolButton;
    dxLayoutControl_query: TdxLayoutControl;
    custName: TcxTextEdit;
    conNo: TcxTextEdit;
    BuyConNo: TcxTextEdit;
    OrderNo: TcxTextEdit;
    C_Color: TcxTextEdit;
    C_Name: TcxTextEdit;
    enddate: TcxDateEdit;
    begdate: TcxDateEdit;
    dxLayoutControl_queryGroup_Root: TdxLayoutGroup;
    dxLayoutItem1: TdxLayoutItem;
    dxLayoutItem2: TdxLayoutItem;
    dxLayoutItem_color: TdxLayoutItem;
    dxLayoutItem_pm: TdxLayoutItem;
    dxLayoutItem_beg: TdxLayoutItem;
    dxLayoutItem_end: TdxLayoutItem;
    dxLayoutItem_hth: TdxLayoutItem;
    dxLayoutItem_khdh: TdxLayoutItem;
    dxLayoutItem_Pattern: TdxLayoutItem;
    C_Pattern: TcxTextEdit;
    TV2Column1: TcxGridDBColumn;
    procedure TBCloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TBRafreshClick(Sender: TObject);
    procedure TselOkClick(Sender: TObject);
    procedure TV2DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure TBFindClick(Sender: TObject);
  private
   procedure InitForm();
   procedure InitGrid();
  public
    fType:string;
  end;

var
  frmProductListHelp: TfrmProductListHelp;

implementation
uses
  U_DataLink,U_globalVar,U_RTFun,U_FormLayOutDesign;
{$R *.dfm}

procedure TfrmProductListHelp.FormCreate(Sender: TObject);
begin
  inherited;
  cxGrid2.Align:=alClient;
  BegDate.Date:=SGetServerDateTime(ADOQueryBaseTemp)-3;
  endDate.Date:=SGetServerDateTime(ADOQueryBaseTemp)
end;

procedure TfrmProductListHelp.FormShow(Sender: TObject);
begin
  inherited;
  InitForm();

end;

procedure TfrmProductListHelp.InitForm();
begin
  InitGrid();
  ReadCxGrid(self.Caption+tv2.Name,Tv2,gDllFileCaption);


end;

procedure TfrmProductListHelp.TBFindClick(Sender: TObject);
begin
  if ADOQueryMain.Active=False then Exit;
    SDofilter(ADOQueryMain, SLGetFilters(dxLayoutControl_query, 1, 2));
    SCreateCDS(ADOQueryMain, Order_Main);
    SInitCDSData(ADOQueryMain, Order_Main);
end;
procedure TfrmProductListHelp.TBRafreshClick(Sender: TObject);
begin
  OrderNo.SetFocus;
  InitGrid();
end;

procedure TfrmProductListHelp.ToolButton1Click(Sender: TObject);
begin
  WriteCxGrid(trim(Self.Caption)+tv2.Name , Tv2, gDllFileCaption);
  if gIsCanDesign then
  begin
    saveLayOut(application,dxLayoutControl_query, ADOQueryBaseCmd,
     PWideChar( fDllFileName + '|' + Self.Name + '|' + dxLayoutControl_query.Name
      + '.ini'));
  end;

end;

procedure TfrmProductListHelp.TselOkClick(Sender: TObject);
begin
  inherited;
  if Order_Main.IsEmpty then exit;
  
  ModalResult:=1;
end;

procedure TfrmProductListHelp.TV2DblClick(Sender: TObject);
begin
  inherited;
  TselOk.Click;
end;

procedure TfrmProductListHelp.TBCloseClick(Sender: TObject);
begin
   close;
end;
procedure TfrmProductListHelp.InitGrid();
var
  mBegDate:string;
  mendDate:string;
begin
   if BegDate.Text<>'' then
     mBegDate := FormatDateTime('yyyy-MM-dd', BegDate.Date);
   if enddate.Text<>'' then
     mendDate := FormatDateTime('yyyy-MM-dd', enddate.Date + 1);
  try
    Order_Main.DisableControls;
    with ADOQueryMain do
    begin
      Close;
      sql.Clear;
      sql.Add('select A.*    ');
    //  sql.Add(',SumPiece=(select Sum(X.Piece) from BS_Cloth_IO X where X.IOFlag=''<27><><EFBFBD><EFBFBD>'' and X.fromSubID=A.SubID and isnull(X.STKNAME,'''')=' + Quotedstr(Trim(FSTKNAME)) + ')');
      //sql.Add(',SumQty=(select Sum(X.Qty) from BS_Cloth_IO X where X.IOFlag=''<27><><EFBFBD><EFBFBD>'' and X.fromSubID=A.SubID and isnull(X.STKNAME,'''')=' + Quotedstr(Trim(FSTKNAME)) + ')');
      sql.Add('from V_Trade_Plan_Fty A ');
      sql.add('where Status=''9'' ');
      if mBegDate<>'' then
        sql.Add('and filltime>='+QuotedStr(mBegDate));
      if mendDate<>'' then
        sql.Add('and filltime<'+QuotedStr(mendDate));
      Open;
    end;
    SDofilter(ADOQueryMain, SLGetFilters(dxLayoutControl_query, 1, 2));
    SCreateCDS(ADOQueryMain, Order_Main);
    SInitCDSData(ADOQueryMain, Order_Main);
  finally
    Order_Main.EnableControls;
  end;
end;

end.