unit U_CPKCzhl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, DBClient, DB, ADODB, cxStyles,
  cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData,
  cxGridCustomTableView, cxGridTableView, cxGridBandedTableView,
  cxGridDBBandedTableView, cxControls, cxGridCustomView, cxClasses, cxGridLevel,
  cxGrid, cxGridDBTableView, 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, cxDropDownEdit;

type
  TfrmCPKCzhl = class(TForm)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBFind: TToolButton;
    TBClose: TToolButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label4: TLabel;
    Label9: TLabel;
    BegDate: TDateTimePicker;
    EndDate: TDateTimePicker;
    C_CodeName: TEdit;
    ConNoM: TEdit;
    Label2: TLabel;
    ADOQueryMain: TADOQuery;
    DS_Main: TDataSource;
    CDS_main: TClientDataSet;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    Tv1: TcxGridDBBandedTableView;
    v1Column1: TcxGridDBBandedColumn;
    v1Column2: TcxGridDBBandedColumn;
    v1Column3: TcxGridDBBandedColumn;
    v1Column4: TcxGridDBBandedColumn;
    v1Column5: TcxGridDBBandedColumn;
    v1Column6: TcxGridDBBandedColumn;
    v1Column7: TcxGridDBBandedColumn;
    v1Column8: TcxGridDBBandedColumn;
    v1Column9: TcxGridDBBandedColumn;
    v1Column10: TcxGridDBBandedColumn;
    v1Column11: TcxGridDBBandedColumn;
    v1Column12: TcxGridDBBandedColumn;
    v1Column14: TcxGridDBBandedColumn;
    v1Column15: TcxGridDBBandedColumn;
    v1Column16: TcxGridDBBandedColumn;
    v1Column17: TcxGridDBBandedColumn;
    v1Column18: TcxGridDBBandedColumn;
    P_color: TEdit;
    Label3: TLabel;
    TBexcel: TToolButton;
    GroupBox1: TGroupBox;
    TV2: TcxGridDBTableView;
    cxGrid2Level1: TcxGridLevel;
    cxGrid2: TcxGrid;
    V2Column1: TcxGridDBColumn;
    V2Column2: TcxGridDBColumn;
    V2Column3: TcxGridDBColumn;
    V2Column4: TcxGridDBColumn;
    V2Column5: TcxGridDBColumn;
    V2Column6: TcxGridDBColumn;
    ADO_Sub: TADOQuery;
    DS_sub: TDataSource;
    Tv1Column1: TcxGridDBBandedColumn;
    Label5: TLabel;
    YJPS: TEdit;
    Tv1Column2: TcxGridDBBandedColumn;
    ADOQuery1: TADOQuery;
    Tv1Column3: TcxGridDBBandedColumn;
    Tv1Column4: TcxGridDBBandedColumn;
    Tv1Column5: TcxGridDBBandedColumn;
    Tv1Column6: TcxGridDBBandedColumn;
    Tv1Column7: TcxGridDBBandedColumn;
    Tv1Column8: TcxGridDBBandedColumn;
    Tv1Column9: TcxGridDBBandedColumn;
    Tv1Column10: TcxGridDBBandedColumn;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure TBCloseClick(Sender: TObject);
    procedure TBFindClick(Sender: TObject);
    procedure C_CodeNameChange(Sender: TObject);
    procedure TBRafreshClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TBexcelClick(Sender: TObject);
    procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
    procedure YJPSKeyPress(Sender: TObject; var Key: Char);
    procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
    procedure Tv1Column1PropertiesEditValueChanged(Sender: TObject);
  private
    procedure InitGrid();
    procedure initSub();
    { Private declarations }
  public
    canshu1: string;
    { Public declarations }
  end;

var
  frmCPKCzhl: TfrmCPKCzhl;

implementation

uses
  U_DataLink, U_Fun10;
{$R *.dfm}

procedure TfrmCPKCzhl.Initsub();
begin
  ADO_Sub.Close;
  if CDS_Main.IsEmpty then
    exit;
  with ADO_Sub do
  begin
    close;                                    
    sql.Clear;
    sql.Add('select * from YF_money_CR ');
    sql.Add('where CRTime>=''' + FormatDateTime('yyyy-MM-dd', BegDate.DateTime) + ''' ');
    sql.Add('and CRTime<''' + FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''' ');
    sql.Add('and P_CodeName=' + quotedstr(trim(CDS_Main.fieldbyName('C_CodeName').AsString)));
    sql.Add('and P_Color=' + quotedstr(trim(CDS_Main.fieldbyName('P_Color').AsString)));
    sql.Add('and SYRName=''' + trim(canshu1) + '''');
    sql.Add('and CRType=''应收款登记'' ');
    sql.Add('order by CRTime desc ');
//    ShowMessage(sql.text);
    open;
  end;
end;

procedure TfrmCPKCzhl.InitGrid();
begin
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Close;
      Filtered := False;
      sql.Clear;
      sql.Add(' exec P_Get_PBCP_ZHL ');
      SQL.Add(' @begdate=''' + FormatDateTime('yyyy-MM-dd', BegDate.DateTime) + '''');
      SQL.Add(',@enddate=''' + FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1) + '''');
  //      ShowMessage(SQL.text);
      Open;
    end;
    SCreateCDS20(ADOQueryMain, CDS_Main);               
    SInitCDSData20(ADOQueryMain, CDS_Main);
  finally
    ADOQueryMain.EnableControls;                   
  end;
  TBfind.Click;
  Initsub();
end;

procedure TfrmCPKCzhl.FormDestroy(Sender: TObject);
begin
  frmCPKCzhl := nil;
end;

procedure TfrmCPKCzhl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := cafree;
end;

procedure TfrmCPKCzhl.FormCreate(Sender: TObject);
begin
  enddate.DateTime := now();
  begdate.DateTime := enddate.DateTime - 30;
  cxGrid1.Align := alclient;
  canshu1 := trim(DParameters1);
  YJPS.Text := '0';
end;

procedure TfrmCPKCzhl.TBCloseClick(Sender: TObject);
begin
  close;
end;

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

procedure TfrmCPKCzhl.C_CodeNameChange(Sender: TObject);
begin
  TBfind.Click;
end;

procedure TfrmCPKCzhl.TBRafreshClick(Sender: TObject);
begin
  initGrid();
end;

procedure TfrmCPKCzhl.FormShow(Sender: TObject);
begin
//  if trim(canshu1) = '桂华纺织' then
//  begin
//    tv1.Bands[2].Visible := false;
//    tv1.Bands[3].Visible := false;
//    tv1.Bands[4].Visible := false;
//  end;
//  if trim(canshu1) = '尚美特' then
//  begin
//    tv1.Bands[1].Visible := false;
//    tv1.Bands[3].Visible := false;
//    tv1.Bands[4].Visible := false;
//  end;
//  if trim(canshu1) = '金鼎丰门市部' then
//  begin
//    tv1.Bands[1].Visible := false;
//    tv1.Bands[2].Visible := false;
//    tv1.Bands[4].Visible := false;
//  end;
end;

procedure TfrmCPKCzhl.TBexcelClick(Sender: TObject);
begin
  if ADOQueryMain.IsEmpty then
    exit;
  TcxGridToExcel(self.Caption, cxGrid1);
end;

procedure TfrmCPKCzhl.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
  Initsub();
end;

procedure TfrmCPKCzhl.YJPSKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    InitGrid();
  end;

end;

procedure TfrmCPKCzhl.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
  if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('YJstatus').Index] = '1' then
    ACanvas.Brush.Color := clRed;
end;

procedure TfrmCPKCzhl.Tv1Column1PropertiesEditValueChanged(Sender: TObject);
begin
  with ADOQuery1 do
  begin
    Close;
    sql.Clear;
    sql.Add('UPdate KH_Zdy_Attachment ');
    sql.Add(' Set ISYJ=''' + Trim(CDS_Main.fieldbyname('ISYJ').AsString) + '''  ');
    SQL.Add(' where ZDYName=''' + Trim(CDS_Main.fieldbyname('P_CodeName').AsString) + ''' ');
    SQL.Add(' and  DEFstr3=''' + Trim(CDS_Main.fieldbyname('P_color').AsString) + ''' ');
//    ShowMessage(sql.text);
    ExecSQL;
  end;
end;

end.