unit U_YSMXlist;

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, RM_e_Xls, cxGridBandedTableView,
  cxGridDBBandedTableView, BtnEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters,
  cxNavigator, dxBarBuiltInMenu, DateUtils, Menus, cxCurrencyEdit,
  dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;

type
  TfrmYSMXlist = class(TForm)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBClose: TToolButton;
    ADOQueryTemp: TADOQuery;
    ADOQueryCmd: TADOQuery;
    Panel1: TPanel;
    ToolButton2: TToolButton;
    Label1: TLabel;
    MPRTCodeName: TEdit;
    ADOQueryMain: TADOQuery;
    ToolButton1: TToolButton;
    Label3: TLabel;
    OrderNo: TEdit;
    cxGrid2: TcxGrid;
    cxGridLevel1: TcxGridLevel;
    Label6: TLabel;
    begdate: TDateTimePicker;
    Enddate: TDateTimePicker;
    cxGridPopupMenu2: TcxGridPopupMenu;
    DS_HZ: TDataSource;
    CDS_HZ: TClientDataSet;
    Label4: TLabel;
    OrdDefNote3: TComboBox;
    Label5: TLabel;
    ToolButton3: TToolButton;
    RMGridReport1: TRMGridReport;
    RMDBDataSet1: TRMDBDataSet;
    RMXLSExport1: TRMXLSExport;
    ADOQueryPrint: TADOQuery;
    Panetime: TPanel;
    TV1: TcxGridDBBandedTableView;
    V1Column1: TcxGridDBBandedColumn;
    V1Column2: TcxGridDBBandedColumn;
    V1Column4: TcxGridDBBandedColumn;
    V1Column7: TcxGridDBBandedColumn;
    V1Column8: TcxGridDBBandedColumn;
    V1Column9: TcxGridDBBandedColumn;
    V1Column12: TcxGridDBBandedColumn;
    V1Column15: TcxGridDBBandedColumn;
    V1Column3: TcxGridDBBandedColumn;
    factoryName: TBtnEditA;
    V1Column10: TcxGridDBBandedColumn;
    V1Column11: TcxGridDBBandedColumn;
    V1Column13: TcxGridDBBandedColumn;
    V1Column14: TcxGridDBBandedColumn;
    cxTabControl1: TcxTabControl;
    Label7: TLabel;
    YFGSType: TComboBox;
    V1Column18: TcxGridDBBandedColumn;
    cxStyleRepository1: TcxStyleRepository;
    cxStyle1: TcxStyle;
    V1Column19: TcxGridDBBandedColumn;
    Label8: TLabel;
    ishs: TComboBox;
    V1Column20: TcxGridDBBandedColumn;
    V1Column21: TcxGridDBBandedColumn;
    TV1Column1: TcxGridDBBandedColumn;
    TV1Column2: TcxGridDBBandedColumn;
    TV1Column3: TcxGridDBBandedColumn;
    TV1Column4: TcxGridDBBandedColumn;
    TV1Column5: TcxGridDBBandedColumn;
    Label9: TLabel;
    TV1Column6: TcxGridDBBandedColumn;
    TV1Column7: TcxGridDBBandedColumn;
    ywy: TComboBox;
    TV1Column8: TcxGridDBBandedColumn;
    TV1Column9: TcxGridDBBandedColumn;
    Panel2: TPanel;
    cxGrid1: TcxGrid;
    Tv2: TcxGridDBTableView;
    cxGridLevel2: TcxGridLevel;
    Tv2Column1: TcxGridDBColumn;
    Tv2Column2: TcxGridDBColumn;
    Tv2Column3: TcxGridDBColumn;
    Tv2Column4: TcxGridDBColumn;
    Tv2Column5: TcxGridDBColumn;
    Tv2Column6: TcxGridDBColumn;
    Tv2Column7: TcxGridDBColumn;
    Tv2Column8: TcxGridDBColumn;
    Tv2Column9: TcxGridDBColumn;
    Tv2Column10: TcxGridDBColumn;
    Tv2Column11: TcxGridDBColumn;
    Tv2Column12: TcxGridDBColumn;
    Tv2Column13: TcxGridDBColumn;
    CDS_YC: TClientDataSet;
    DC_YC: TDataSource;
    ADOQuery1: TADOQuery;
    Tv2Column14: TcxGridDBColumn;
    Tv2Column15: TcxGridDBColumn;
    Tv2Column16: TcxGridDBColumn;
    Tv2Column17: TcxGridDBColumn;
    Tv2Column18: TcxGridDBColumn;
    Tv2Column19: TcxGridDBColumn;
    Tv2Column20: TcxGridDBColumn;
    Tv2Column21: TcxGridDBColumn;
    Tv2Column22: TcxGridDBColumn;
    Tv2Column23: TcxGridDBColumn;
    Tv2Column24: TcxGridDBColumn;
    Tv2Column25: TcxGridDBColumn;
    Tv2Column26: TcxGridDBColumn;
    Panel3: TPanel;
    ColorBox1: TColorBox;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    Label11: TLabel;
    TV1Column10: TcxGridDBBandedColumn;
    cxStyle2: TcxStyle;
    Label12: TLabel;
    Label13: TLabel;
    CPKH: TEdit;
    TV1Column11: TcxGridDBBandedColumn;
    Tv2Column27: TcxGridDBColumn;
    season: TEdit;
    TV1Column12: TcxGridDBBandedColumn;
    Tv2Column28: TcxGridDBColumn;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    TV1Column13: TcxGridDBBandedColumn;
    Tv2Column29: TcxGridDBColumn;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TBRafreshClick(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure P_OrderNo_YSK(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure OrderNoChange(Sender: TObject);
    procedure MPRTCodeNameChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure factoryNameBtnClick(Sender: TObject);
    procedure V1Column9CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
    procedure TV1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
    procedure cxTabControl1Change(Sender: TObject);
    procedure YWYChange(Sender: TObject);
    procedure ywyDropDown(Sender: TObject);
    procedure Tv2Column21CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
    procedure Tv2Column23CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
    procedure V1Column8PropertiesEditValueChanged(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure ColorBox1Change(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure CPKHChange(Sender: TObject);
    procedure SEASONChange(Sender: TObject);
    procedure TV1Column9PropertiesChange(Sender: TObject);
    procedure TV1Column8PropertiesEditValueChanged(Sender: TObject);
    procedure TV1Column9PropertiesEditValueChanged(Sender: TObject);
    procedure TV1Column9PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
    procedure V1Column20PropertiesChange(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
  private
    { Private declarations }

    procedure InitGrid();
  public
    { Public declarations }
    RKFlag, FCYID: string;
    fType: string;
  end;

var
  frmYSMXlist: TfrmYSMXlist;

implementation

uses
  U_DataLink, U_Fun, U_ZDYHelp, U_ProductOrderNewList, U_ZdyAttachment;

{$R *.dfm}

procedure TfrmYSMXlist.InitGrid();
var
  ftype: string;
begin
  if trim(factoryName.Text) = '' then
  begin
    application.MessageBox('请输入客户，以便提高查询速度！', '提示信息', MB_ICONERROR);
    exit;
  end;
//  if trim(YFGSType.Text) = '' then
//  begin
//    application.MessageBox('请选择应收类别，以便提高查询速度！', '提示信息', MB_ICONERROR);
//    exit;
//  end;
  screen.Cursor := crsqlwait;
  Panetime.Visible := true;
  Panetime.Left := (Width - Panetime.Width) div 2;
  Panetime.top := (Height - Panetime.Height - 200) div 2;
  application.ProcessMessages;
  ftype := '';
  if CheckBox2.Checked = True then
  begin
    ftype := Trim(ftype + '大货销售');
  end;
  if CheckBox3.Checked = True then
  begin
    ftype := Trim(ftype + '样布销售样布款');
  end;
  if CheckBox4.Checked = True then
  begin
    ftype := Trim(ftype + '定金');
  end;
  if CheckBox5.Checked = True then
  begin
    ftype := Trim(ftype + '货款');
  end;
  if CheckBox7.Checked = True then
  begin
    ftype := Trim(ftype + '客户退货');
  end;
  if CheckBox8.Checked = True then
  begin
    ftype := Trim(ftype + '冲账');
  end;
  if CheckBox9.Checked = True then
  begin
    ftype := Trim(ftype + '税金');
  end;
  if CheckBox6.Checked = True then
  begin
    with ADOQueryTemp do
    begin
      Close;
      SQL.Clear;
      Filtered := False;
      sql.Add('	select ZDYNAME from KH_ZDY where Type=''KXType4''');
      Open;
    end;
    with ADOQueryTemp do
    begin
      First;
      while not Eof do
      begin
        ftype := ftype + ADOQueryTemp.FIELDBYNAME('ZDYNAME').AsString;
        Next;
      end;
    end;
  end;

  if ftype = '' then
  begin

  end;
//  ShowMessage(ftype);
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Close;
      SQL.Clear;
      Filtered := False;
      sql.Add(' exec  P_YSSK_List_mx_TT  ');
      if CheckBox1.Checked = true then
      begin
        sql.Add(' @begdate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', begdate.DateTime))));
        sql.Add(',@Enddate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1))));
      end
      else
      begin
        sql.Add(' @begdate=''1950-01-01''');
        sql.Add(',@Enddate=''2099-12-12''');
      end;

      sql.Add(',@factoryName=' + quotedstr(Trim(factoryName.Text)));
      case cxTabControl1.TabIndex of
        0:
          begin
            sql.Add(',@flag=''已审核'' ');
          end;
        1:
          begin
            sql.Add(',@flag=''全部'' ');
          end;
      end;
      sql.Add(',@YFGSType=' + quotedstr(Trim(YFGSType.Text)));
      sql.Add(',@ISHS=' + quotedstr(Trim(ISHS.Text)));
      sql.Add(',@YWY=' + quotedstr(Trim(YWY.Text)));
      if ftype <> '' then
      begin
        sql.Add(',@XSTYPE=' + quotedstr(Trim(ftype)));
      end;
//      ShowMessage(sql.Text);
      Open;
    end;
    SCreateCDS20(ADOQueryMain, CDS_HZ);
    SInitCDSData20(ADOQueryMain, CDS_HZ);
    with ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      Filtered := False;
      sql.Add(' exec  P_YSSK_List_mx_TT  ');
      if CheckBox1.Checked = true then
      begin
        sql.Add(' @begdate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', begdate.DateTime))));
        sql.Add(',@Enddate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1))));
      end
      else
      begin
        sql.Add(' @begdate=''1950-01-01''');
        sql.Add(',@Enddate=''2099-12-12''');
      end;
      sql.Add(',@factoryName=' + quotedstr(Trim(factoryName.Text)));
      case cxTabControl1.TabIndex of
        0:
          begin
            sql.Add(',@flag=''已审核'' ');
          end;
        1:
          begin
            sql.Add(',@flag=''全部'' ');
          end;
      end;
      sql.Add(',@YFGSType=' + quotedstr(Trim(YFGSType.Text)));
      sql.Add(',@ISHS=' + quotedstr(Trim(ISHS.Text)));
      sql.Add(',@YWY=' + quotedstr(Trim(YWY.Text)));
      if ftype <> '' then
      begin
        sql.Add(',@XSTYPE=' + quotedstr(Trim(ftype)));
      end;

      Open;
    end;
    SCreateCDS20(ADOQuery1, CDS_YC);
    SInitCDSData20(ADOQuery1, CDS_YC);
  finally
    ADOQueryMain.EnableControls;
    ToolButton2.Click;
    Panetime.Visible := false;
    screen.Cursor := crdefault;
  end;
end;

procedure TfrmYSMXlist.FormDestroy(Sender: TObject);
begin
  frmYSMXlist := nil;
end;

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

procedure TfrmYSMXlist.TBCloseClick(Sender: TObject);
begin
  WriteCxBandedGrid(self.Caption + '444', Tv1, '财务管理');
  Close;
end;

procedure TfrmYSMXlist.FormShow(Sender: TObject);
begin

  readCxBandedGrid(self.Caption + '444', Tv1, '财务管理');

end;

procedure TfrmYSMXlist.TBRafreshClick(Sender: TObject);
begin
  begdate.SetFocus;
  InitGrid();
end;

procedure TfrmYSMXlist.ToolButton2Click(Sender: TObject);
begin
  if ADOQueryMain.Active then
  begin
    SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
    SCreateCDS20(ADOQueryMain, CDS_HZ);
    SInitCDSData20(ADOQueryMain, CDS_HZ);
  end;
end;

procedure TfrmYSMXlist.P_OrderNo_YSK(Sender: TObject);
begin
  ToolButton2.Click;
end;

procedure TfrmYSMXlist.ToolButton1Click(Sender: TObject);
var
  fname: string;
begin
  if ADOQueryMain.IsEmpty then
    Exit;
  fname := StringReplace((self.Caption + '-' + trim(factoryName.Text)), '/', '-', [rfReplaceAll]);
//  ShowMessage(fname);
  SelExportData(Tv2, ADOQuery1, fname);
  //self.Caption + '-' +
//  SelExportDataBand(Tv1, ADOQueryMain, '123');
  //self.Caption + '-' + trim(factoryName.Text)
//  TcxGridToExcel(self.Caption + '-' + trim(factoryName.Text), cxgrid2);
end;

procedure TfrmYSMXlist.OrderNoChange(Sender: TObject);
begin
  if Length(Trim(OrderNo.Text)) < 3 then
    Exit;
  ToolButton2.Click;
end;

procedure TfrmYSMXlist.MPRTCodeNameChange(Sender: TObject);
begin
  ToolButton2.Click;
end;

procedure TfrmYSMXlist.FormCreate(Sender: TObject);
var
  fsj: string;
begin
  cxGrid2.Align := AlClient;
// begdate.DateTime:= FormatDateTime('yyyy-mm-dd',StartOfTheMonth(Now))
  begdate.DateTime := StartOfTheMonth(IncMonth(Now, -1)) + 1;
//  Enddate.DateTime := EndOfTheMonth(IncMonth(Now, -1));

  Enddate.DateTime := Now();
  fsj := 'select distinct(YFGSType) name from YF_Money_CR where CRType=''应收款登记'' ';
  SInitComBoxBySql(ADOQueryCmd, YFGSType, False, fsj);
end;

procedure TfrmYSMXlist.ToolButton3Click(Sender: TObject);
var
  filepath: string;
  mBegdate, mEnddate: string;
  fQC, fqm, fzdj: Double;
  fywzb: string;
begin

  if CDS_HZ.IsEmpty then
    exit;

  CDS_HZ.last;
  fqm := CDS_HZ.fieldbyname('moneyYE').Value;
  fywzb := CDS_HZ.fieldbyname('ywzb').AsString;
  CDS_HZ.First;
  fQC := CDS_HZ.fieldbyname('moneyYE').Value + CDS_HZ.fieldbyname('money').Value - CDS_HZ.fieldbyname('ymoney').Value;
  fzdj := CDS_HZ.fieldbyname('ZDJMONEY').Value;

//  ShowMessage(FloatToStr(fQC));
  try

    filepath := ExtractFilePath(Application.ExeName) + 'report\应收款对账单.rmf';
    ExportFtErpFile('应收款对账单.rmf', ADOQueryTemp);

    if not FileExists(Pchar(filepath)) then
    begin
      application.MessageBox(pchar('文件[' + filepath + ']不存在！'), '提示信息', MB_IConError);
      exit;
    end;

    RmVariables['begDate'] := FormatDateTime('yyyy-mm-dd', begDate.Date);
    RmVariables['enddate'] := FormatDateTime('yyyy-mm-dd', enddate.Date);
    RmVariables['ishs'] := Trim(ishs.Text);
    RMVariables['zdr'] := trim(DName);
    RMVariables['QCMONEY'] := trim(FloatToStr(fQC));
    RMVariables['QMMONEY'] := trim(FloatToStr(fqm));
    RMVariables['ZDJMONEY'] := trim(FloatToStr(fzdj));
    RMVariables['FYWZB'] := trim((fywzb));
//    RmVariables['begDate'] := FormatDateTime('yymmdd', begDate.Date) + '-' + FormatDateTime('yymmdd', enddate.Date);

    RMGridReport1.LoadFromFile(filepath);
   // RMGridReport1.PrintReport;
    RMGridReport1.ShowReport;

  finally

  end;

end;

procedure TfrmYSMXlist.factoryNameBtnClick(Sender: TObject);
begin
  try
    frmZdyAttachment := TfrmZdyAttachment.Create(Application);
    with frmZdyAttachment do
    begin
      if ShowModal = 1 then
      begin
        FactoryName.Text := Trim(CDS_HZ.fieldbyname('CoName').AsString);
        InitGrid();
      end;
    end;
  finally
    frmZdyAttachment.Free;
  end;
end;

procedure TfrmYSMXlist.V1Column9CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
begin
  if ARow1.Values[V1Column10.Index] = ARow2.Values[V1Column10.Index] then
    AAreEqual := True
  else
    AAreEqual := False;
end;

procedure TfrmYSMXlist.TV1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
//  if (AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('bjflag').Index]) <> '' then
//  begin
//    ACanvas.Brush.Color := StringToColor(AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('bjCOLOR').Index]);
//  end;
  if AViewInfo.GridRecord.Values[TV1Column10.Index] <> null then
  begin
    ACanvas.Brush.Color := StringToColor(AViewInfo.GridRecord.Values[TV1Column10.Index]);
  end;
//  if (AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('keyNO').Index]) <> '' then
//  begin
//    ACanvas.Brush.Color := $EEF5FF;
//  end
//  else
//  begin
//    ACanvas.Brush.Color := $FFF8F0;
//  end;
end;

procedure TfrmYSMXlist.cxTabControl1Change(Sender: TObject);
begin
  InitGrid();
end;

procedure TfrmYSMXlist.YWYChange(Sender: TObject);
begin
  InitGrid();
end;

procedure TfrmYSMXlist.ywyDropDown(Sender: TObject);
begin
  with ADOQueryTemp do
  begin
    Close;
    sql.Clear;
    sql.Add('select distinct ywy from yf_money_cr where factoryName= ' + QuotedStr(trim(factoryName.Text)));

    Open;
  end;
  ywy.Items.Clear;
  ywy.Items.Add(' ');
  while not ADOQueryTemp.eof do
  begin
    ywy.Items.Add(ADOQueryTemp.fieldbyname('ywy').AsString);
    ADOQueryTemp.next;
  end;
end;

procedure TfrmYSMXlist.Tv2Column21CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
begin
  if ARow1.Values[Tv2Column26.Index] = ARow2.Values[Tv2Column26.Index] then
    AAreEqual := True
  else
    AAreEqual := False;
end;

procedure TfrmYSMXlist.Tv2Column23CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
begin
  if ARow1.Values[Tv2Column26.Index] = ARow2.Values[Tv2Column26.Index] then
    AAreEqual := True
  else
    AAreEqual := False;
end;

procedure TfrmYSMXlist.V1Column8PropertiesEditValueChanged(Sender: TObject);
var
  mvalue, FFieldName: string;
begin

  mvalue := TcxTextEdit(Sender).EditingText;
  FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
  with CDS_HZ do
  begin
    Edit;
    FieldByName(FFieldName).Value := mvalue;
    Post;
  end;
  with ADOQueryCmd do
  begin
    Close;
    SQL.Clear;
    sql.Add('update YF_Money_CR_Sub set  ' + FFieldName + '=' + (Trim(mvalue)));
    sql.Add('where YFSID=' + quotedstr(Trim(CDS_HZ.fieldbyname('YFSID').AsString)));

    sql.Add('update YF_Money_CR_Sub set  ');
    sql.Add('MXMONEY=ISNULL(SHANGJIFEI,0)+ISNULL(XIAOGANGFEI,0)+ISNULL(PRICE,0)*QTY-ISNULL(YSK,0)-ISNULL(KKMONEY,0)');
    sql.Add('where YFSID=' + quotedstr(Trim(CDS_HZ.fieldbyname('YFSID').AsString)));

    sql.Add('update YF_Money_CR set  ');
    sql.Add('MONEY=(SELECT SUM(MXMONEY) FROM YF_Money_CR_Sub A WHERE A.YFID=YF_Money_CR.YFID GROUP BY YFID) ');
    sql.Add(',BBMONEY=HUILV*(SELECT SUM(MXMONEY) FROM YF_Money_CR_Sub A WHERE A.YFID=YF_Money_CR.YFID GROUP BY YFID) ');
    sql.Add('where YFID=' + quotedstr(Trim(CDS_HZ.fieldbyname('YFID').AsString)));
    ExecSQL;
  end;
  tv1.Controller.EditingController.ShowEdit();
  InitGrid();

end;

procedure TfrmYSMXlist.CheckBox1Click(Sender: TObject);
begin
  initgrid();
end;

procedure TfrmYSMXlist.ColorBox1Change(Sender: TObject);
begin
//  Label11.Caption := ColorToString(ColorBox1.Selected);
//  Label11.color := StringToColor(Label11.Caption);
//  ShowMessage(ColorBox1.Selected);
end;

procedure TfrmYSMXlist.N1Click(Sender: TObject);
var
  FYFSID: string;
begin
  if CDS_HZ.IsEmpty then
    exit;

  try
    ADOQueryCmd.Connection.BeginTrans;
    with CDS_HZ do
    begin
      FYFSID := trim(CDS_HZ.fieldbyname('YFSID').AsString);
      with ADOQueryCmd do
      begin
        close;
        sql.Clear;
        sql.Add('update YF_Money_CR_SUB SET bjflag=''1'',BJCOLOR= ' + quotedstr(Trim(ColorToString(ColorBox1.Selected))));
        sql.Add('where YFsID =' + quotedstr(trim(CDS_HZ.fieldbyname('YFSID').AsString)));
        execsql;
      end;

      EnableControls;
    end;
    ADOQueryCmd.Connection.CommitTrans;
    InitGrid();
//    CDS_HZ.locate(FYFSID, 'YFsID', []);
    CDS_HZ.locate('YFsID', FYFSID, []);
  except
    ADOQueryCmd.Connection.RollbackTrans;
    application.MessageBox('操作失败！', '提示信息', 0);
  end;

end;

procedure TfrmYSMXlist.N2Click(Sender: TObject);
var
  FYFSID: string;
begin
  if CDS_HZ.IsEmpty then
    exit;

  try
    ADOQueryCmd.Connection.BeginTrans;
    with CDS_HZ do
    begin
      FYFSID := trim(CDS_HZ.fieldbyname('YFSID').AsString);
      with ADOQueryCmd do
      begin
        close;
        sql.Clear;
        sql.Add('update YF_Money_CR_SUB SET bjflag=NULL,BJCOLOR=NULL');
        sql.Add('where YFsID =' + quotedstr(trim(CDS_HZ.fieldbyname('YFSID').AsString)));
        execsql;
      end;

      EnableControls;
    end;
    ADOQueryCmd.Connection.CommitTrans;
    InitGrid();
    CDS_HZ.locate('YFsID', FYFSID, []);
  except
    ADOQueryCmd.Connection.RollbackTrans;
    application.MessageBox('操作失败！', '提示信息', 0);
  end;
end;

procedure TfrmYSMXlist.CPKHChange(Sender: TObject);
begin
  ToolButton2.Click;
end;

procedure TfrmYSMXlist.SEASONChange(Sender: TObject);
begin
  ToolButton2.Click;
end;

procedure TfrmYSMXlist.TV1Column9PropertiesChange(Sender: TObject);
var
  mvalue, FFieldName: string;
begin

  mvalue := TcxTextEdit(Sender).EditingText;
  FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);

  with CDS_HZ do
  begin
    Edit;
    FieldByName(FFieldName).Value := mvalue;
    Post;
  end;

  with ADOQueryCmd do
  begin
    Close;
    SQL.Clear;
    sql.Add('update YF_Money_CR_SUB SET SEASON=' + QuotedStr(Trim(mvalue)));
    sql.Add('where YFsID =' + quotedstr(trim(CDS_HZ.fieldbyname('YFSID').AsString)));
    ExecSQL;
  end;

  tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmYSMXlist.TV1Column8PropertiesEditValueChanged(Sender: TObject);
var
  mvalue, FFieldName: string;
begin

  mvalue := TcxTextEdit(Sender).EditingText;
  FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);

  with CDS_HZ do
  begin
    Edit;
    FieldByName(FFieldName).Value := mvalue;
    Post;
  end;

  with ADOQueryCmd do
  begin
    Close;
    SQL.Clear;
    sql.Add('update YF_Money_CR_SUB SET CPKH=' + QuotedStr(Trim(mvalue)));
    sql.Add('where YFsID =' + quotedstr(trim(CDS_HZ.fieldbyname('YFSID').AsString)));
    ExecSQL;
  end;

  tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmYSMXlist.TV1Column9PropertiesEditValueChanged(Sender: TObject);
var
  mvalue, FFieldName: string;
begin

  mvalue := TcxTextEdit(Sender).EditingText;
  FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);

  with CDS_HZ do
  begin
    Edit;
    FieldByName(FFieldName).Value := mvalue;
    Post;
  end;

  with ADOQueryCmd do
  begin
    Close;
    SQL.Clear;
    sql.Add('update YF_Money_CR_SUB SET SEASON=' + QuotedStr(Trim(mvalue)));
    sql.Add('where YFsID =' + quotedstr(trim(CDS_HZ.fieldbyname('YFSID').AsString)));
    ExecSQL;
  end;

  tv1.Controller.EditingController.ShowEdit();
end;

procedure TfrmYSMXlist.TV1Column9PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
  try
    frmZDYHelp := TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag := 'SEASON';
      flagname := '季度';
      if ShowModal = 1 then
      begin
        with CDS_HZ do
        begin
          Edit;
          CDS_HZ.fieldbyname('season').AsString := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
          Post;
        end;
        with ADOQueryCmd do
        begin
          Close;
          SQL.Clear;
          sql.Add('update YF_Money_CR_SUB SET SEASON=' + QuotedStr(Trim(ClientDataSet1.fieldbyname('ZDYName').AsString)));
          sql.Add('where YFsID =' + quotedstr(trim(CDS_HZ.fieldbyname('YFSID').AsString)));
          ExecSQL;
        end;
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TfrmYSMXlist.V1Column20PropertiesChange(Sender: TObject);
var
  mvalue, FFieldName: string;
begin

  mvalue := TcxTextEdit(Sender).EditingText;
  FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
//  if (cxTabControl1.TabIndex <> 0) or (FFieldName <> 'LYREN') or (FFieldName <> 'CFPLACE') or (FFieldName <> 'Note') then
//    Exit;
  try
    ADOQueryCmd.Connection.BeginTrans;
    with CDS_HZ do
    begin
      Edit;
      FieldByName(FFieldName).Value := Trim(mvalue);
      Post;
    end;
    with ADOQueryCmd do
    begin
      Close;
      sql.Clear;
      sql.Add('UPdate YF_MONEY_CR ');
      sql.Add(' Set ' + FFieldName + '=''' + Trim(mvalue) + '''');
      sql.Add(' where YFID=' + QuotedStr(CDS_HZ.fieldbyname('YFID').AsString));
//      ShowMessage(sql.Text);
      ExecSQL;
    end;
    ADOQueryCmd.Connection.CommitTrans;
    tv1.Controller.EditingController.ShowEdit();
  except
    tv1.Controller.EditingController.ShowEdit();
    ADOQueryCmd.Connection.RollbackTrans;
    Application.MessageBox('保存失败！', '提示', 0);
  end
end;

procedure TfrmYSMXlist.CheckBox2Click(Sender: TObject);
begin
  InitGrid();
end;

procedure TfrmYSMXlist.CheckBox3Click(Sender: TObject);
begin
  InitGrid();
end;

procedure TfrmYSMXlist.CheckBox4Click(Sender: TObject);
begin
  InitGrid();
end;

end.