D10myZesheng/G03贸易布匹检验/U_TradeClothWaitPack.pas

unit U_TradeClothWaitPack;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
  cxEdit, DB, cxDBData, StdCtrls, ADODB, DBClient, ComCtrls, ExtCtrls,
  cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
  cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu,
  cxGridPopupMenu, cxCheckBox, cxLookAndFeels, cxLookAndFeelPainters,
    cxNavigator, dxDateRanges,
  dxBarBuiltInMenu, Vcl.ToolWin;

type
  TfrmTradeClothWaitPack = class(TForm)
    Panel1: TPanel;
    Label2: TLabel;
    OrderNo: TEdit;
    Label3: TLabel;
    C_Color: TEdit;
    CDS_OrderSel: TClientDataSet;
    DataSource1: TDataSource;
    ADOQueryTemp: TADOQuery;
    ADOQueryCmd: TADOQuery;
    ADOQueryMain: TADOQuery;
    cxGridPopupMenu1: TcxGridPopupMenu;
    Label8: TLabel;
    CustName: TEdit;
    cxGrid1: TcxGrid;
    Tv2: TcxGridDBTableView;
    v2Column3: TcxGridDBColumn;
    v2Column2: TcxGridDBColumn;
    cxGridDBColumn2: TcxGridDBColumn;
    v1Column10: TcxGridDBColumn;
    v1Column14: TcxGridDBColumn;
    cxGridDBColumn3: TcxGridDBColumn;
    v1PRTMF: TcxGridDBColumn;
    v1PRTKZ: TcxGridDBColumn;
    cxGrid1Level1: TcxGridLevel;
    v2Column8: TcxGridDBColumn;
    ToolBar3: TToolBar;
    ToolButton5: TToolButton;
    ToolButton1: TToolButton;
    ToolButton8: TToolButton;
    ToolButton7: TToolButton;
    Tv2Column1: TcxGridDBColumn;
    Tv2Column2: TcxGridDBColumn;
    Tv2Column3: TcxGridDBColumn;
    Tv2Column4: TcxGridDBColumn;
    Tv2Column5: TcxGridDBColumn;
    Tv2Column6: TcxGridDBColumn;
    Tv2Column7: TcxGridDBColumn;
    BegDate: TDateTimePicker;
    EndDate: TDateTimePicker;
    Tv2Column8: TcxGridDBColumn;
    Tv2Column9: TcxGridDBColumn;
    Tv2Column10: TcxGridDBColumn;
    Label1: TLabel;
    C_EColor: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    ConNo: TEdit;
    Label7: TLabel;
    BuyConNo: TEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure OrderNoChange(Sender: TObject);
    procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
  private
    { Private declarations }

    procedure InitGrid();
  public
    { Public declarations }
  end;

var
  frmTradeClothWaitPack: TfrmTradeClothWaitPack;

implementation

uses
  U_DataLink, U_RTFun;

{$R *.dfm}

procedure TfrmTradeClothWaitPack.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TfrmTradeClothWaitPack.FormDestroy(Sender: TObject);
begin
  frmTradeClothWaitPack := nil;
end;

procedure TfrmTradeClothWaitPack.FormShow(Sender: TObject);
begin
  ReadCxGrid('<27><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1>1', Tv2, '<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
  BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 20;
  EndDate.DateTime := SGetServerDate(ADOQueryTemp);
  InitGrid();
end;

procedure TfrmTradeClothWaitPack.InitGrid();
begin
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Filtered := False;
      Close;
      sql.Clear;
      sql.Add('select A.*,B.*');
      sql.Add(',ZPPS=(select Count(KC.CIID) from Trade_Cloth_Inspect KC  where isnull(PacketId,'''')='''' and KC.SubID=B.SubID    ) ');
      sql.Add(',ZPKGQty=(select sum(GrossWeight) from Trade_Cloth_Inspect KC where isnull(PacketId,'''')='''' and KC.SubID=B.SubID   ) ');
      sql.Add(',ZPQty=(select sum(Meter) from Trade_Cloth_Inspect KC where isnull(PacketId,'''')='''' and KC.SubID=B.SubID   ) ');
      sql.Add(' from Trade_Plan_Main A inner join Trade_Plan_Sub B on A.MainId=B.MainID ');
      sql.add(' where A.OrdDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
      sql.add(' and  A.OrdDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
//      sql.Add(' where exists(select KC.SubID from Trade_Cloth_Stock KC  where KC.StkCycles=0 AND KC.SubID=B.SubID and KC.StkExists=0)');
//      ShowMessage(sql.Text);

      Open;
    end;
    SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
    SCreateCDS(ADOQueryMain, CDS_OrderSel);
    SInitCDSData(ADOQueryMain, CDS_OrderSel);
  finally
    ADOQueryMain.EnableControls;
  end;
end;

procedure TfrmTradeClothWaitPack.OrderNoChange(Sender: TObject);
begin
  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
  SCreateCDS(ADOQueryMain, CDS_OrderSel);
  SInitCDSData(ADOQueryMain, CDS_OrderSel);
end;

procedure TfrmTradeClothWaitPack.ToolButton1Click(Sender: TObject);
var
  KHName: string;
begin
//  if CDS_OrderSel.Locate('SSel', True, []) = False then
//  begin
//    Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>', '<27><>ʾ', 0);
//    Exit;
//  end;
//  CDS_OrderSel.DisableControls;
//  KHName := '';
//  with CDS_OrderSel do
//  begin
//    First;
//    while not Eof do
//    begin
//      if FieldByName('SSel').AsBoolean = True then
//      begin
//        if Trim(KHName) = '' then
//        begin
//          KHName := Trim(fieldbyname('CustNo').AsString);
//        end
//        else
//        begin
//          if Trim(fieldbyname('CustNo').AsString) <> KHName then
//          begin
//            Application.MessageBox('<27><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>ͬ<EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD>', '<27><>ʾ', 0);
//            Exit;
//          end;
//        end;
//      end;
//      Next;
//    end;
//  end;
//  CDS_OrderSel.EnableControls;
  ModalResult := 1;
end;

procedure TfrmTradeClothWaitPack.ToolButton5Click(Sender: TObject);
begin
  InitGrid();
end;

procedure TfrmTradeClothWaitPack.ToolButton7Click(Sender: TObject);
begin

  Close;
end;

procedure TfrmTradeClothWaitPack.ToolButton8Click(Sender: TObject);
begin
  WriteCxGrid('<27><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1>1', Tv2, '<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
end;

procedure TfrmTradeClothWaitPack.Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
  ModalResult := 1;
end;

end.