unit U_BCHZ_Year;

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

type
  TfrmBCHZ_Year = class(TForm)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBFind: TToolButton;
    TBExport: TToolButton;
    TBClose: TToolButton;
    Panel1: TPanel;
    ADOQueryCmd: TADOQuery;
    ADOQueryMain: TADOQuery;
    ADOQueryTemp: TADOQuery;
    DataSource1: TDataSource;
    cxGridPopupMenu1: TcxGridPopupMenu;
    Label1: TLabel;
    BegDate: TDateTimePicker;
    CDS_Main: TClientDataSet;
    RM1: TRMGridReport;
    RMDBMain: TRMDBDataSet;
    RMXLSExport1: TRMXLSExport;
    RMDBHZ: TRMDBDataSet;
    CDS_HZ: TClientDataSet;
    CDS_PRT: TClientDataSet;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    Label12: TLabel;
    Label3: TLabel;
    SJName: TEdit;
    Label5: TLabel;
    CLSpec: TEdit;
    cxGrid2: TcxGrid;
    Tv1: TcxGridDBTableView;
    v1SJName: TcxGridDBColumn;
    v1CLSpec: TcxGridDBColumn;
    v1CRTime: TcxGridDBColumn;
    v1CPFLQty: TcxGridDBColumn;
    v1CZMoney: TcxGridDBColumn;
    cxGrid2Level1: TcxGridLevel;
    CLName: TEdit;
    v1MQQty: TcxGridDBColumn;
    v1PJMFee: TcxGridDBColumn;
    v1PJMFLQty: TcxGridDBColumn;
    v1PJMYLQty: TcxGridDBColumn;
    v1PJMFQty: TcxGridDBColumn;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    Panel2: TPanel;
    ToolButton4: TToolButton;
    Tv1Column1: TcxGridDBColumn;
    Tv1Column2: TcxGridDBColumn;
    Tv1Column3: TcxGridDBColumn;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure TBRafreshClick(Sender: TObject);
    procedure ConNoMChange(Sender: TObject);
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TBExportClick(Sender: TObject);
    procedure TBFindClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure SPIDChange(Sender: TObject);
    procedure SPSpecChange(Sender: TObject);
    procedure GCNameChange(Sender: TObject);
    procedure cxTabControl1Change(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
    procedure ToolButton4Click(Sender: TObject);
  private
    canshu1, canshu2, canshu3: string;
    procedure InitGrid();
    procedure setstatus();
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBCHZ_Year: TfrmBCHZ_Year;

implementation

uses
  U_DataLink, U_RTFun, U_SXCKInPut, U_JGSXCKInPut, U_CLShuiPiao_Sub,
  U_BCHZ_Year_MX, U_BCHZ_Month;

{$R *.dfm}
procedure TfrmBCHZ_Year.setstatus();
begin

end;

procedure TfrmBCHZ_Year.FormDestroy(Sender: TObject);
begin
  frmBCHZ_Year := nil;
end;

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

procedure TfrmBCHZ_Year.FormCreate(Sender: TObject);
begin
  //cxGrid1.Align:=alClient;
  BegDate.DateTime := SGetServerDate(ADOQueryCmd);
  canshu1 := Trim(DParameters1);
  canshu2 := Trim(DParameters2);
  canshu3 := Trim(DParameters3);
end;

procedure TfrmBCHZ_Year.InitGrid();
begin
  Panel2.Visible := True;
  Panel2.Refresh;
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Filtered := False;
      Close;
      sql.Clear;
      sql.Add('exec P_BC_HZ @year=''' + Trim(FormatDateTime('yyyy', BegDate.Date)) + '''');
//      ShowMessage(sql.text);
      Open;
    end;
    SCreateCDS20(ADOQueryMain, CDS_Main);
    SInitCDSData20(ADOQueryMain, CDS_Main);
  finally
    ADOQueryMain.EnableControls;
  end;
  Panel2.Visible := false;
end;

procedure TfrmBCHZ_Year.TBRafreshClick(Sender: TObject);
begin
  BegDate.SetFocus;
  InitGrid();
end;

procedure TfrmBCHZ_Year.ConNoMChange(Sender: TObject);
begin
  if ADOQueryMain.Active then
  begin
    SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
  end;
end;

procedure TfrmBCHZ_Year.TBCloseClick(Sender: TObject);
begin
  WriteCxGrid('数据列表FM', Tv1, '数据11');
  Close;
end;

procedure TfrmBCHZ_Year.FormShow(Sender: TObject);
begin
  ReadCxGrid('数据列表FM', Tv1, '数据11');
  //setstatus();
  //InitGrid();
end;

procedure TfrmBCHZ_Year.TBExportClick(Sender: TObject);
begin
  if ADOQueryMain.IsEmpty then
    exit;
  TcxGridToExcel('泵车各类数据年份汇总', cxGrid2);
end;

procedure TfrmBCHZ_Year.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 TfrmBCHZ_Year.N1Click(Sender: TObject);
begin
  SelOKNo(CDS_Main, True);
end;

procedure TfrmBCHZ_Year.N2Click(Sender: TObject);
begin
  SelOKNo(CDS_Main, False);
end;

procedure TfrmBCHZ_Year.SPIDChange(Sender: TObject);
begin

  TBFind.Click;
end;

procedure TfrmBCHZ_Year.SPSpecChange(Sender: TObject);
begin
  TBFind.Click;
end;

procedure TfrmBCHZ_Year.GCNameChange(Sender: TObject);
begin
  TBFind.Click;
end;

procedure TfrmBCHZ_Year.cxTabControl1Change(Sender: TObject);
begin
  //setstatus();
  InitGrid();
end;

procedure TfrmBCHZ_Year.ToolButton1Click(Sender: TObject);
begin
  frmBCHZ_Year_MX := TfrmBCHZ_Year_MX.Create(self);
  with frmBCHZ_Year_MX do
  begin
    frmBCHZ_Year_MX.Caption := '泵车维修月份明细查询';
    v1PJMYLQty.Caption := '月平均维修费';
    BegDate.Date := self.BegDate.Date;
    if ShowModal = 1 then
    begin

    end;
    free;
  end;
end;

procedure TfrmBCHZ_Year.ToolButton2Click(Sender: TObject);
begin
  frmBCHZ_Year_MX := TfrmBCHZ_Year_MX.Create(self);
  with frmBCHZ_Year_MX do
  begin
    frmBCHZ_Year_MX.Caption := '泵车方量月份明细查询';
    v1PJMYLQty.Caption := '月平均方量';
    BegDate.Date := self.BegDate.Date;
    if ShowModal = 1 then
    begin

    end;
    free;
  end;
end;

procedure TfrmBCHZ_Year.ToolButton3Click(Sender: TObject);
begin
  frmBCHZ_Year_MX := TfrmBCHZ_Year_MX.Create(self);
  with frmBCHZ_Year_MX do
  begin
    frmBCHZ_Year_MX.Caption := '泵车油量月份明细查询';
    v1PJMYLQty.Caption := '月平均油量';
    BegDate.Date := self.BegDate.Date;
    if ShowModal = 1 then
    begin

    end;
    free;
  end;
end;

procedure TfrmBCHZ_Year.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
  if Self.Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName = 'CPFLQty' then
  begin
    ToolButton2.Click;
  end;
  if Self.Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName = 'QXMoney' then
  begin
    ToolButton1.Click;
  end;
  if Self.Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName = 'CZMoney' then
  begin
    Toolbutton3.Click;
  end;
end;

procedure TfrmBCHZ_Year.ToolButton4Click(Sender: TObject);
begin
  frmBCHZ_Month := TfrmBCHZ_Month.create(self);
  with frmBCHZ_Month do
  begin
    BegDate.Date := Self.BegDate.Date;
    if ShowModal = 1 then
    begin

    end;
    free;
  end;
end;

end.