D7snShanfengT/山峰贸易管理/U_JGSXKNewList_CLGLCXMgg.pas

unit U_JGSXKNewList_CLGLCXMgg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
  cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
  cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView,
  cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
  cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common,
  RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus,
  cxCalendar, cxButtonEdit, cxTextEdit, cxPC;

type
  TfrmJGSXKNewList_CLGLCXMgg = class(TForm)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBClose: TToolButton;
    Panel1: TPanel;
    ADOQueryCmd: TADOQuery;
    ADOQueryMain: TADOQuery;
    ADOQueryTemp: TADOQuery;
    DataSource1: TDataSource;
    cxGridPopupMenu1: TcxGridPopupMenu;
    Label1: TLabel;
    Label2: TLabel;
    BegDate: TDateTimePicker;
    EndDate: TDateTimePicker;
    CDS_Main: TClientDataSet;
    RM1: TRMGridReport;
    RMDBMain: TRMDBDataSet;
    RMXLSExport1: TRMXLSExport;
    RMDBHZ: TRMDBDataSet;
    CDS_HZ: TClientDataSet;
    CDS_PRT: TClientDataSet;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    Label4: TLabel;
    OrderNo: TEdit;
    cxGrid2: TcxGrid;
    Tv1: TcxGridDBTableView;
    v1CRTime: TcxGridDBColumn;
    cxGrid2Level1: TcxGridLevel;
    v1CPFLQty: TcxGridDBColumn;
    cxGrid1: TcxGrid;
    Tv2: TcxGridDBTableView;
    cxGridDBColumn1: TcxGridDBColumn;
    cxGridDBColumn2: TcxGridDBColumn;
    cxGridDBColumn3: TcxGridDBColumn;
    cxGridDBColumn4: TcxGridDBColumn;
    cxGridDBColumn5: TcxGridDBColumn;
    cxGridDBColumn6: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    cxGridPopupMenu2: TcxGridPopupMenu;
    DataSource2: TDataSource;
    ClientDataSet1: TClientDataSet;
    CheckBox1: TCheckBox;
    v2Column1: TcxGridDBColumn;
    v2Column2: TcxGridDBColumn;
    v2Column3: TcxGridDBColumn;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TBRafreshClick(Sender: TObject);
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Tv1CellClick(Sender: TcxCustomGridTableView;
      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
      AShift: TShiftState; var AHandled: Boolean);
  private
    canshu1,canshu2,canshu3:string;
    procedure InitGrid();
    procedure InitGridMX();
    { Private declarations }
  public
    FGCName:String;
    { Public declarations }
  end;

var
  frmJGSXKNewList_CLGLCXMgg: TfrmJGSXKNewList_CLGLCXMgg;

implementation
uses
  U_DataLink,U_RTFun,U_Fun;

{$R *.dfm}


procedure TfrmJGSXKNewList_CLGLCXMgg.FormDestroy(Sender: TObject);
begin
  frmJGSXKNewList_CLGLCXMgg:=nil;
end;

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

procedure TfrmJGSXKNewList_CLGLCXMgg.InitGrid();
var i:Integer;
begin
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Filtered:=False;
      Close;
      sql.Clear;
      sql.Add(' select ');
      sql.Add(' A.CRTime,CPFLQty=sum(CPFLQty)');
      sql.Add(' from CK_CP_CR A');
      sql.Add(' inner join JYOrderCon_Main B on A.ConNo=B.ConNo');
      sql.Add(' where isnull(A.GCName,'''')='''+Trim(FGCName)+'''');
      sql.Add(' and isnull(A.CRType,'''')=''<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD>'' ');
      sql.add(' and A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
      sql.Add(' and A.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+'''');
      sql.Add(' Group by CRTime');
      Open;
    end;
    SCreateCDS20(ADOQueryMain,ClientDataSet1);
    SInitCDSData20(ADOQueryMain,ClientDataSet1);

    InitGridMX();
    {with ADOQueryMain do
    begin
      Filtered:=False;
      Close;
      sql.Clear;
      sql.Add(' select ');
      sql.Add(' A.OrderNo,A.CustomerNoName,A.BNo,A.TeXing,A.GCName,A.SGFangshi,A.CRType,A.CRTime');
      sql.Add(',SGBuWei=(select Top 1 B.SGBuWei from JYOrder_Main B where B.OrderNo=A.OrderNO)');
      sql.Add(',CPFLQty');
      sql.Add(' from CK_CP_CR A');
      sql.Add(' inner join JYOrderCon_Main B on A.ConNo=B.ConNo');
      sql.Add(' where isnull(A.GCName,'''')='''+Trim(FGCName)+'''');
      sql.Add(' and isnull(A.CRType,'''')=''<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD>'' ');
      sql.add(' and A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
      sql.Add(' and A.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+'''');
      sql.Add(' order by CRTime');
      Open;
    end;
    SCreateCDS20(ADOQueryMain,CDS_Main);
    SInitCDSData20(ADOQueryMain,CDS_Main);  }
  finally;
    ADOQueryMain.EnableControls;
  end;
end;

procedure TfrmJGSXKNewList_CLGLCXMgg.TBRafreshClick(Sender: TObject);
begin
  BegDate.SetFocus;
  Tv2.DataController.Filter.Clear;
  InitGrid();
  Tv2.FilterBox.Visible := fvNever;
end;

procedure TfrmJGSXKNewList_CLGLCXMgg.TBCloseClick(Sender: TObject);
begin
  WriteCxGrid('<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>mggmx1',Tv1,'<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
  WriteCxGrid('<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>mggmx2',Tv2,'<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
  Close;
end;

procedure TfrmJGSXKNewList_CLGLCXMgg.FormShow(Sender: TObject);
begin
  ReadCxGrid('<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>mggmx1',Tv1,'<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
  ReadCxGrid('<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>mggmx2',Tv2,'<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
  InitGrid();
end;

procedure TfrmJGSXKNewList_CLGLCXMgg.InitGridMX();
begin
  Tv2.DataController.Filter.Clear;
  if CheckBox1.Checked then
  begin
    if ClientDataSet1.IsEmpty=False then
    begin
      with ADOQueryMain do
      begin
        Filtered:=False;
        Close;
        sql.Clear;
        sql.Add(' select ');
        sql.Add(' A.OrderNo,A.CustomerNoName,A.BNo,A.TeXing,A.GCName,A.SGFangshi,A.CRType,A.CRTime,A.CLName,A.CLQty,A.CheCi');
        sql.Add(',SGBuWei=(select Top 1 B.SGBuWei from JYOrder_Main B where B.OrderNo=A.OrderNO)');
        sql.Add(',CPFLQty');
        sql.Add(' from CK_CP_CR A');
        sql.Add(' inner join JYOrderCon_Main B on A.ConNo=B.ConNo');
        sql.Add(' where isnull(A.GCName,'''')='''+Trim(FGCName)+'''');
        sql.Add(' and isnull(A.CRType,'''')=''<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD>'' ');
        sql.add(' and A.CRTime='''+Trim(ClientDataSet1.fieldbyname('CRTime').AsString)+'''');
        Open;
      end;
      SCreateCDS20(ADOQueryMain,CDS_Main);
      SInitCDSData20(ADOQueryMain,CDS_Main);
    end;
  end else
  begin
    with ADOQueryMain do
    begin
      Filtered:=False;
      Close;
      sql.Clear;
      sql.Add(' select ');
      sql.Add(' A.OrderNo,A.CustomerNoName,A.BNo,A.TeXing,A.GCName,A.SGFangshi,A.CRType,A.CRTime,A.CLName,A.CLQty,A.CheCi');
      sql.Add(',SGBuWei=(select Top 1 B.SGBuWei from JYOrder_Main B where B.OrderNo=A.OrderNO)');
      sql.Add(',CPFLQty');
      sql.Add(' from CK_CP_CR A');
      sql.Add(' inner join JYOrderCon_Main B on A.ConNo=B.ConNo');
      sql.Add(' where isnull(A.GCName,'''')='''+Trim(FGCName)+'''');
      sql.Add(' and isnull(A.CRType,'''')=''<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD>'' ');
      sql.add(' and A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
      sql.Add(' and A.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+'''');
      sql.Add(' order by CRTime');
      Open;
    end;
    SCreateCDS20(ADOQueryMain,CDS_Main);
    SInitCDSData20(ADOQueryMain,CDS_Main);
  end;
  Tv2.FilterBox.Visible := fvNever;
end;
procedure TfrmJGSXKNewList_CLGLCXMgg.CheckBox1Click(Sender: TObject);
begin
  InitGridMX();
end;

procedure TfrmJGSXKNewList_CLGLCXMgg.Tv1CellClick(
  Sender: TcxCustomGridTableView;
  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
  AShift: TShiftState; var AHandled: Boolean);
begin
  if ClientDataSet1.IsEmpty then Exit;
  
  InitGridMX();
end;

end.