unit U_YWYTopList;

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, MovePanel, Menus, cxCheckBox, RM_Dataset, RM_System, RM_Common,
  RM_Class, RM_GridReport, RM_e_Xls, cxPC, cxLookAndFeels, cxLookAndFeelPainters,
  dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
  dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
  dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
  dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
  dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
  dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
  dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
  dxSkinXmas2008Blue, dxSkinscxPCPainter, dxBarBuiltInMenu, cxNavigator;

type
  TfrmywyTopList = class(TForm)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBFind: TToolButton;
    TBClose: TToolButton;
    Panel1: TPanel;
    ADOQueryCmd: TADOQuery;
    ADOQueryMain: TADOQuery;
    ADOQueryTemp: TADOQuery;
    DataSource1: TDataSource;
    cxGridPopupMenu1: TcxGridPopupMenu;
    CDS_Main: TClientDataSet;
    Label1: TLabel;
    KHNAME: TEdit;
    Label2: TLabel;
    BegDate: TDateTimePicker;
    cxPageControl1: TcxPageControl;
    cxTabSheet1: TcxTabSheet;
    cxTabSheet2: TcxTabSheet;
    cxGrid1: TcxGrid;
    Tv1: TcxGridDBTableView;
    v1Column1: TcxGridDBColumn;
    v1Column7: TcxGridDBColumn;
    v2Column1: TcxGridDBColumn;
    v1Column8: TcxGridDBColumn;
    v2Column3: TcxGridDBColumn;
    v1Column5: TcxGridDBColumn;
    v1Column2: TcxGridDBColumn;
    v1Column4: TcxGridDBColumn;
    v1Column3: TcxGridDBColumn;
    v1Column6: TcxGridDBColumn;
    v2Column5: TcxGridDBColumn;
    cxGrid1Level1: TcxGridLevel;
    v1Column9: TcxGridDBColumn;
    v1Column10: TcxGridDBColumn;
    cxGrid2: TcxGrid;
    Tv2: TcxGridDBTableView;
    cxGridDBColumn1: TcxGridDBColumn;
    cxGridDBColumn2: TcxGridDBColumn;
    cxGridDBColumn3: TcxGridDBColumn;
    cxGridDBColumn4: TcxGridDBColumn;
    cxGridDBColumn5: TcxGridDBColumn;
    cxGrid2Level1: TcxGridLevel;
    v1Column11: TcxGridDBColumn;
    v2Column2: TcxGridDBColumn;
    MovePanel2: TMovePanel;
    cxGridPopupMenu2: TcxGridPopupMenu;
    Label3: TLabel;
    cxTabControl1: TcxTabControl;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TBRafreshClick(Sender: TObject);
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TBFindClick(Sender: TObject);
    procedure KHNAMEChange(Sender: TObject);
    procedure cxPageControl1Change(Sender: TObject);
    procedure cxTabControl1Change(Sender: TObject);
  private
    FLeft, FTop: Integer;
    procedure InitGrid();
    { Private declarations }
  public
    { Public declarations }
    FMainid, FSubId, FConNo, FColor, FCodeName: string;
  end;

var
  frmywyTopList: TfrmywyTopList;

implementation

uses
  U_DataLink, U_Fun;

{$R *.dfm}

procedure TfrmywyTopList.FormDestroy(Sender: TObject);
begin
  frmYWYTopList := nil;
end;

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

procedure TfrmywyTopList.InitGrid();
begin
  MovePanel2.Visible := True;
  MovePanel2.Refresh;
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Filtered := False;
      Close;
      sql.Clear;
      SQL.Add('exec P_View_ywyTop :FYear,:CXState,:BZType');
      Parameters.ParamByName('FYear').Value := Trim(FormatDateTime('yyyy', BegDate.Date));
      if cxPageControl1.ActivePageIndex = 0 then
      begin
        Parameters.ParamByName('CXState').Value := 'ÔÂ';
      end
      else
      begin
        Parameters.ParamByName('CXState').Value := '¼¾¶È';
      end;
      if cxTabControl1.TabIndex = 0 then
      begin
        Parameters.ParamByName('BZType').Value := 'USD';
      end
      else if cxTabControl1.TabIndex = 1 then
      begin
        Parameters.ParamByName('BZType').Value := 'RMB';
      end
      else if cxTabControl1.TabIndex = 2 then
      begin
        Parameters.ParamByName('BZType').Value := '€';
      end;
//      showmessage(sql.text);
      Open;
    end;

    SCreateCDS20(ADOQueryMain, CDS_Main);
    SInitCDSData20(ADOQueryMain, CDS_Main);
  finally
    ADOQueryMain.EnableControls;
  end;
  MovePanel2.Visible := False;

end;

procedure TfrmywyTopList.TBRafreshClick(Sender: TObject);
begin
  InitGrid();
end;

procedure TfrmywyTopList.TBCloseClick(Sender: TObject);
begin
  WriteCxGrid('Tv1', Tv1, '¿Í»§ÅÅÐÐ');
  WriteCxGrid('Tv2', Tv2, '¿Í»§ÅÅÐÐ');
  Close;
end;

procedure TfrmywyTopList.FormShow(Sender: TObject);
begin
  BegDate.Date := SGetServerDate(ADOQueryTemp);
  ReadCxGrid('Tv1', Tv1, '¿Í»§ÅÅÐÐ');
  ReadCxGrid('Tv2', Tv2, '¿Í»§ÅÅÐÐ');
end;

procedure TfrmywyTopList.TBFindClick(Sender: TObject);
begin
  if ADOQueryMain.Active then
  begin
    SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
    SCreateCDS20(ADOQueryMain, CDS_Main);
    SInitCDSData20(ADOQueryMain, CDS_Main);
  end;
end;

procedure TfrmywyTopList.KHNAMEChange(Sender: TObject);
begin
  TBFind.Click;
end;

procedure TfrmywyTopList.cxPageControl1Change(Sender: TObject);
begin
  InitGrid();
end;

procedure TfrmywyTopList.cxTabControl1Change(Sender: TObject);
begin
  InitGrid();
end;

end.