D7zzCixin/进度统计查询不用(Statistics.dll)/U_DCCL.pas

unit U_DCCL;

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,
  cxNavigator, 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;

type
  TfrmDCCL = 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;
    DCGName: TEdit;
    Label2: TLabel;
    cxGridPopupMenu2: TcxGridPopupMenu;
    RMDB_Main: TRMDBDataSet;
    RM1: TRMGridReport;
    RMXLSExport1: TRMXLSExport;
    ToolButton2: TToolButton;
    ADOPrint: TADOQuery;
    cxGrid1: TcxGrid;
    Tv1: TcxGridDBBandedTableView;
    v1Column1: TcxGridDBBandedColumn;
    v1Column2: TcxGridDBBandedColumn;
    v1Column4: TcxGridDBBandedColumn;
    v1Column5: TcxGridDBBandedColumn;
    v1Column6: TcxGridDBBandedColumn;
    v1Column8: TcxGridDBBandedColumn;
    v1Column9: TcxGridDBBandedColumn;
    v1Column10: TcxGridDBBandedColumn;
    v1Column12: TcxGridDBBandedColumn;
    v1Column13: TcxGridDBBandedColumn;
    v1Column14: TcxGridDBBandedColumn;
    v1Column16: TcxGridDBBandedColumn;
    v1Column17: TcxGridDBBandedColumn;
    v1Column18: TcxGridDBBandedColumn;
    v1Column20: TcxGridDBBandedColumn;
    v1Column21: TcxGridDBBandedColumn;
    v1Column22: TcxGridDBBandedColumn;
    v1Column25: TcxGridDBBandedColumn;
    v1Column26: TcxGridDBBandedColumn;
    v1Column28: TcxGridDBBandedColumn;
    v1Column29: TcxGridDBBandedColumn;
    v1Column54: TcxGridDBBandedColumn;
    v1Column55: TcxGridDBBandedColumn;
    v1Column56: TcxGridDBBandedColumn;
    v1Column57: TcxGridDBBandedColumn;
    v1Column58: TcxGridDBBandedColumn;
    v1Column59: TcxGridDBBandedColumn;
    v1Column60: TcxGridDBBandedColumn;
    v1Column61: TcxGridDBBandedColumn;
    v1Column62: TcxGridDBBandedColumn;
    v1Column63: TcxGridDBBandedColumn;
    v1Column64: TcxGridDBBandedColumn;
    v1Column65: TcxGridDBBandedColumn;
    cxGrid1Level1: TcxGridLevel;
    MovePanel2: TMovePanel;
    Begdate: TDateTimePicker;
    ToolButton1: TToolButton;
    v1Column3: TcxGridDBBandedColumn;
    v1Column7: TcxGridDBBandedColumn;
    v1Column11: TcxGridDBBandedColumn;
    v1Column15: TcxGridDBBandedColumn;
    v1Column19: TcxGridDBBandedColumn;
    v1Column23: TcxGridDBBandedColumn;
    v1Column24: TcxGridDBBandedColumn;
    Tv1Column1: TcxGridDBBandedColumn;
    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 DCGNameChange(Sender: TObject);
    procedure cxPageControl1Change(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
  private
    FLeft, FTop: Integer;
    procedure InitGrid();
    { Private declarations }
  public
    { Public declarations }
    FMainid, FSubId, FConNo, FColor, FCodeName: string;
  end;

var
  frmDCCL: TfrmDCCL;

implementation

uses
  U_DataLink, U_Fun;

{$R *.dfm}

procedure TfrmDCCL.FormDestroy(Sender: TObject);
begin
  frmDCCL := nil;
end;

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

procedure TfrmDCCL.InitGrid();
begin
  MovePanel2.Visible := True;
  MovePanel2.Refresh;
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Filtered := False;
      Close;
      sql.Clear;
      SQL.Add('exec P_View_DCCL_CS :Begdate');
      Parameters.ParamByName('Begdate').Value := Trim(FormatDateTime('yyyy-MM', Begdate.Date));
      Open;
    end;
    SCreateCDS20(ADOQueryMain, CDS_Main);
    SInitCDSData20(ADOQueryMain, CDS_Main);
  finally
    ADOQueryMain.EnableControls;
  end;
  MovePanel2.Visible := False;
end;

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

procedure TfrmDCCL.TBCloseClick(Sender: TObject);
begin
  WriteCxBandedGrid('Tv11', Tv1, '<27><><EFBFBD>ʹ<EFBFBD><CAB9><EFBFBD>');
  Close;
end;

procedure TfrmDCCL.FormShow(Sender: TObject);
begin
  BegDate.Date := SGetServerDate(ADOQueryTemp);
  ReadCxBandedGrid('Tv11', Tv1, '<27><><EFBFBD>ʹ<EFBFBD><CAB9><EFBFBD>');
end;

procedure TfrmDCCL.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 TfrmDCCL.DCGNameChange(Sender: TObject);
begin
  TBFind.Click;
end;

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

procedure TfrmDCCL.ToolButton2Click(Sender: TObject);
var
  filepath: string;
begin
  if CDS_Main.IsEmpty then
    exit;
  with AdoPrint do
  begin
    close;
    sql.Clear;
    SQL.Add('exec P_View_DAY_GZCL' + quotedstr(trim(FormatDateTime('yyyy-MM-dd', Begdate.DateTime))));
    open;
  end;

  try
    filepath := ExtractFilePath(Application.ExeName) + 'report\<5C><><EFBFBD><EFBFBD>ͳ<EFBFBD>Ʊ<EFBFBD>.rmf';
    if not FileExists(Pchar(filepath)) then
    begin
      application.MessageBox(pchar('<27>ļ<EFBFBD>[' + filepath + ']<5D><><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD>'), '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_IConError);
      exit;
    end;
    RM1.LoadFromFile(filepath);
    RM1.ShowReport;
  finally

  end;

end;

procedure TfrmDCCL.ToolButton1Click(Sender: TObject);
begin
  TcxGridToExcel('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', cxGrid1);
end;

end.