unit U_YF_Money_LLHZ;

interface

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

type
  TfrmYF_Money_LLHZ = class(TfrmBaseList)
    ToolBar1: TToolBar;
    TINIT: TToolButton;
    TGLV: TToolButton;
    TCLOSE: TToolButton;
    cxGrid1: TcxGrid;
    TV1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    DataSource1: TDataSource;
    AdoQueryTmp: TADOQuery;
    ADOQueryCmd: TADOQuery;
    cxGridPopupMenu1: TcxGridPopupMenu;
    CDS_Main: TClientDataSet;
    V1YEMoney: TcxGridDBColumn;
    V1Column9: TcxGridDBColumn;
    TV1Column1: TcxGridDBColumn;
    TV1Column2: TcxGridDBColumn;
    Panel1: TPanel;
    Label4: TLabel;
    Label2: TLabel;
    GSTaiTou: TEdit;
    BKName: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TCLOSEClick(Sender: TObject);
    procedure TINITClick(Sender: TObject);
    procedure TGLVClick(Sender: TObject);
    procedure GSTaiTouChange(Sender: TObject);
    procedure cxTabControl1Change(Sender: TObject);
  private
    procedure initGrid();

    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmYF_Money_LLHZ: TfrmYF_Money_LLHZ;

implementation

uses
  U_DataLink, U_RTFun;

{$R *.dfm}

procedure TfrmYF_Money_LLHZ.InitGrid();
begin
  with AdoQueryTmp do
  begin
    close;
    sql.Clear;
    sql.Add('exec P_CWLS_HZ');
    open;
  end;
  SCreateCDS(ADOQueryTmp, CDS_Main);
  SInitCDSData(ADOQueryTmp, CDS_Main);
  CDS_Main.Last;
end;

procedure TfrmYF_Money_LLHZ.FormCreate(Sender: TObject);
begin
  inherited;
  cxgrid1.Align := alclient;
end;

procedure TfrmYF_Money_LLHZ.FormShow(Sender: TObject);
begin
  inherited;
  ReadCxGrid(self.Caption + tv1.Name, Tv1);
//  enddate.datetime := SGetServerDateTime(ADOQueryTmp);
//  begdate.datetime := strtodate(formatdateTime('yyyy-MM', enddate.DateTime) + '-01');

  initGrid();
end;

procedure TfrmYF_Money_LLHZ.FormDestroy(Sender: TObject);
begin
  inherited;
  frmYF_Money_LLHZ := nil;
end;

procedure TfrmYF_Money_LLHZ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  writeCxGrid(self.Caption + tv1.Name, Tv1);
  Action := cafree;
end;

procedure TfrmYF_Money_LLHZ.TCLOSEClick(Sender: TObject);
begin
  close;
end;

procedure TfrmYF_Money_LLHZ.TINITClick(Sender: TObject);
begin
  InitGrid();
end;

procedure TfrmYF_Money_LLHZ.TGLVClick(Sender: TObject);
begin
  SDofilter(AdoQueryTmp, SGetFilters(Panel1, 1, 0));
  SCreateCDS(AdoQueryTmp, CDS_Main);
  SInitCDSData(AdoQueryTmp, CDS_Main);
end;

procedure TfrmYF_Money_LLHZ.GSTaiTouChange(Sender: TObject);
begin
  SDofilter(AdoQueryTmp, SGetFilters(Panel1, 1, 0));
  SCreateCDS(AdoQueryTmp, CDS_Main);
  SInitCDSData(AdoQueryTmp, CDS_Main);
end;

procedure TfrmYF_Money_LLHZ.cxTabControl1Change(Sender: TObject);
begin
  initGrid();
end;

end.