D7gmYongjin/BI(BIView.dll)/U_BIHZList.pas

unit U_BIHZList;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
  cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
  cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
  cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
  RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
  cxTextEdit, cxDropDownEdit, cxPC, RM_e_Xls, Menus, ComObj,
  cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxGridBandedTableView,
  cxGridDBBandedTableView;

type
  FdDy = record
    inc: integer; //<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>׽<EFBFBD><D7BD>־<EFBFBD><D6BE><EFBFBD>
    FDdys: string[32]; //<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>׽<EFBFBD><D7BD><EFBFBD>
    FdDysName: string[32]; //<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>׽<EFBFBD><D7BD><EFBFBD>
  end;

  TfrmBIHZList = class(TForm)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBClose: TToolButton;
    ADOQueryTemp: TADOQuery;
    ADOQueryCmd: TADOQuery;
    Panel1: TPanel;
    ADOQueryMain: TADOQuery;
    ToolButton1: TToolButton;
    Label2: TLabel;
    begdate10: TDateTimePicker;
    cxGridPopupMenu2: TcxGridPopupMenu;
    DS_FP: TDataSource;
    CDS_FP: TClientDataSet;
    cxStyleRepository1: TcxStyleRepository;
    cxStyle1: TcxStyle;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    Tv1: TcxGridDBBandedTableView;
    Tv1Column1: TcxGridDBBandedColumn;
    Tv1Column2: TcxGridDBBandedColumn;
    Tv1Column3: TcxGridDBBandedColumn;
    Tv1Column4: TcxGridDBBandedColumn;
    Tv1Column5: TcxGridDBBandedColumn;
    Tv1Column6: TcxGridDBBandedColumn;
    Tv1Column7: TcxGridDBBandedColumn;
    Panel10: TPanel;
    Tv1Column8: TcxGridDBBandedColumn;
    Tv1Column9: TcxGridDBBandedColumn;
    Tv1Column10: TcxGridDBBandedColumn;
    Tv1Column11: TcxGridDBBandedColumn;
    Tv1Column12: TcxGridDBBandedColumn;
    Tv1Column13: TcxGridDBBandedColumn;
    Tv1Column14: TcxGridDBBandedColumn;
    Tv1Column15: TcxGridDBBandedColumn;
    Tv1Column16: TcxGridDBBandedColumn;
    Tv1Column17: TcxGridDBBandedColumn;
    Tv1Column18: TcxGridDBBandedColumn;
    cxGrid2: TcxGrid;
    Tv2: TcxGridDBBandedTableView;
    cxGridDBBandedColumn1: TcxGridDBBandedColumn;
    cxGridDBBandedColumn2: TcxGridDBBandedColumn;
    cxGridDBBandedColumn3: TcxGridDBBandedColumn;
    cxGridDBBandedColumn4: TcxGridDBBandedColumn;
    cxGridDBBandedColumn5: TcxGridDBBandedColumn;
    cxGridDBBandedColumn6: TcxGridDBBandedColumn;
    cxGridDBBandedColumn7: TcxGridDBBandedColumn;
    cxGridDBBandedColumn8: TcxGridDBBandedColumn;
    cxGridDBBandedColumn9: TcxGridDBBandedColumn;
    cxGridDBBandedColumn10: TcxGridDBBandedColumn;
    cxGridDBBandedColumn11: TcxGridDBBandedColumn;
    cxGridDBBandedColumn12: TcxGridDBBandedColumn;
    cxGridDBBandedColumn13: TcxGridDBBandedColumn;
    cxGridDBBandedColumn14: TcxGridDBBandedColumn;
    cxGridDBBandedColumn15: TcxGridDBBandedColumn;
    cxGridDBBandedColumn16: TcxGridDBBandedColumn;
    cxGridDBBandedColumn17: TcxGridDBBandedColumn;
    cxGridDBBandedColumn18: TcxGridDBBandedColumn;
    cxGridLevel1: TcxGridLevel;
    DataSource2: TDataSource;
    ClientDataSet2: TClientDataSet;
    cxStyleRepository2: TcxStyleRepository;
    cxStyle2: TcxStyle;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TBRafreshClick(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure cxTabControl1Change(Sender: TObject);
    procedure Tv1DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure begdate10Change(Sender: TObject);
    procedure Tv1CellClick(Sender: TcxCustomGridTableView;
      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
      AShift: TShiftState; var AHandled: Boolean);
  private
    { Private declarations }
    procedure InitGrid();
  public

    { Public declarations }
  end;

var
  frmBIHZList: TfrmBIHZList;

implementation

uses
  U_DataLink, U_Fun;

{$R *.dfm}



procedure TfrmBIHZList.InitGrid();
var
  QYear:string;
begin
  try
    with ADOQueryMain do
    begin
      Close;
      SQL.Clear;
      sql.Add(' exec P_BI_HZ :begdate');
      Parameters.ParamByName('begdate').Value:=Trim(formatdatetime('yyyy', begdate10.datetime));
      Open;
    end;
    SCreateCDS20(ADOQueryMain, CDS_FP);
    SInitCDSData20(ADOQueryMain, CDS_FP);
    QYear:=IntToStr(StrToInt(Trim(formatdatetime('yyyy', begdate10.datetime)))-1);
    Tv2.Bands[0].Caption:=QYear+'<27><>';
    with ADOQueryMain do
    begin
      Close;
      SQL.Clear;
      sql.Add(' exec P_BI_HZ :begdate');
      Parameters.ParamByName('begdate').Value:=QYear;
      Open;
    end;
    SCreateCDS20(ADOQueryMain, ClientDataSet2);
    SInitCDSData20(ADOQueryMain, ClientDataSet2);
  finally

  end;
end;

procedure TfrmBIHZList.FormDestroy(Sender: TObject);
begin
  frmBIHZList := nil;
end;

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

procedure TfrmBIHZList.TBCloseClick(Sender: TObject);
begin
  //WriteCxBandedGrid('BIHZMonth', Tv1, 'BI');
  Close;
end;

procedure TfrmBIHZList.FormShow(Sender: TObject);
begin
  //ReadCxBandedGrid('BIHZMonth', Tv1, 'BI');
end;

procedure TfrmBIHZList.TBRafreshClick(Sender: TObject);
begin
  begdate10.SetFocus;
  Panel10.Visible:=True;
  Panel10.Refresh;
  InitGrid();
  Panel10.Visible:=False;
end;

procedure TfrmBIHZList.ToolButton1Click(Sender: TObject);
begin
  if ADOQueryMain.IsEmpty then
    Exit;
  TcxGridToExcel(self.Caption, cxgrid1);
end;

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

procedure TfrmBIHZList.Tv1DblClick(Sender: TObject);
begin
  {if CDS_FP.IsEmpty then Exit;
  if CDS_FP.fieldbyname('InvoiceNo').AsInteger=-1 then
  begin
    frmXJBXInPut := TfrmXJBXInPut.Create(self);
    with frmXJBXInPut do
    begin
      InvoiceNo.Enabled := False;
      FInvoiceNo := trim(CDS_FP.fieldbyname('InvoiceNo').asstring);
      ToolBar2.Visible:=False;
      frmXJBXInPut.TSave.Visible:=False;
      if showmodal = 1 then
      begin
        
      end;
      free;
    end;
  end; }
end;

procedure TfrmBIHZList.FormCreate(Sender: TObject);
var
  FYear:string;
  FMonth:string;
  FDate:TDate;
begin
  FDate:=SGetServerDate10(ADOQueryTemp);
  FYear:=FormatDateTime('yyyy',FDate);
  FMonth:=FormatDateTime('MM',FDate);
  if StrToInt(FMonth)<2 then
  begin
    BegDate10.Date:=StrToDate(IntToStr(strtoint(FYear)-1)+'-02-01');
  end else
  begin
    BegDate10.Date:=StrToDate(FYear+'-02-01');
  end;
  Tv1.Bands[0].Caption:=Trim(FormatDateTime('yyyy',begdate10.Date))+'<27><>';
end;

procedure TfrmBIHZList.begdate10Change(Sender: TObject);
begin
  Tv1.Bands[0].Caption:=Trim(FormatDateTime('yyyy',begdate10.Date))+'<27><>';
end;

procedure TfrmBIHZList.Tv1CellClick(Sender: TcxCustomGridTableView;
  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
  AShift: TShiftState; var AHandled: Boolean);
begin
  ClientDataSet2.Locate('FMonth',CDS_FP.fieldbyname('FMonth').Value,[]);
  Tv2.Styles.Inactive:=cxStyle1;
  Tv2.Styles.IncSearch:=cxStyle1;
  Tv2.Styles.Selection:=cxStyle1;
end;

end.