unit U_FYDJ;

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

type
  TfrmFYDJ = class(TForm)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBDel: TToolButton;
    TBClose: TToolButton;
    ADOQueryTemp: TADOQuery;
    ADOQueryCmd: TADOQuery;
    Panel1: TPanel;
    TBfind: TToolButton;
    Label1: TLabel;
    FeeName: TEdit;
    ADOQueryMain: TADOQuery;
    TBexcel: TToolButton;
    RM1: TRMGridReport;
    RMDB_Main: TRMDBDataSet;
    cxGrid2: TcxGrid;
    Tv2: TcxGridDBTableView;
    v2Column4: TcxGridDBColumn;
    v2Column5: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    Label2: TLabel;
    Label6: TLabel;
    begdate: TDateTimePicker;
    Enddate: TDateTimePicker;
    cxGridPopupMenu2: TcxGridPopupMenu;
    DS_HZ: TDataSource;
    CDS_HZ: TClientDataSet;
    TBAdd: TToolButton;
    v2Column9: TcxGridDBColumn;
    v2Column6: TcxGridDBColumn;
    v2Column1: TcxGridDBColumn;
    TBEdit: TToolButton;
    TBZdy: TToolButton;
    v2Column2: TcxGridDBColumn;
    v2Column3: TcxGridDBColumn;
    note: TEdit;
    Label4: TLabel;
    BZType: TComboBox;
    Label5: TLabel;
    FeeType: TEdit;
    Label7: TLabel;
    bankNo: TEdit;
    Label3: TLabel;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TBCloseClick(Sender: TObject);
    procedure TBDelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TBRafreshClick(Sender: TObject);
    procedure TBfindClick(Sender: TObject);
    procedure TBexcelClick(Sender: TObject);
    procedure TBZdyClick(Sender: TObject);
    procedure TBAddClick(Sender: TObject);
    procedure FeeTypeChange(Sender: TObject);
    procedure TBEditClick(Sender: TObject);
  private
    { Private declarations }
    procedure InitGrid();
    procedure SetComboBox();
  public
    fSYRName:string;
    fflag:integer;
    { Public declarations }

  end;

var
  frmFYDJ: TfrmFYDJ;

implementation
uses
  U_DataLink,U_Fun,U_ZDYHelp,U_FYDJInput,U_ZdyAttachGYS,U_ZdyAttachment;

{$R *.dfm}
procedure TfrmFYDJ.InitGrid();
begin
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Filtered:=False;
      Close;
      SQL.Clear;
      sql.Add(' select A.* from YF_Money_Fee A ');
      sql.Add(' where A.CRTime>='''+FormatDateTime('yyyy-MM-dd',begdate.DateTime)+''' ');
      sql.Add(' and A.CRTime<'''+FormatDateTime('yyyy-MM-dd',Enddate.DateTime+1)+''' ');
      sql.Add(' and SYRName='''+trim(fSyrname)+''' ');
      sql.Add(' and Feeflag='''+inttostr(fflag)+''' ');
      sql.Add(' and money<>0 ');
      Open;
    end;
    SCreateCDS20(ADOQueryMain,CDS_HZ);
    SInitCDSData20(ADOQueryMain,CDS_HZ);
  finally
    ADOQueryMain.EnableControls;
    TBfind.Click;
  end;
end;

procedure TfrmFYDJ.FormDestroy(Sender: TObject);
begin
  frmFYDJ:=nil;
end;

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

procedure TfrmFYDJ.TBCloseClick(Sender: TObject);
begin
  WriteCxGrid(Self.Caption + Tv2.Name,Tv2,'财务管理');
  Close;
end;

procedure TfrmFYDJ.TBDelClick(Sender: TObject);
begin
  if CDS_HZ.IsEmpty then Exit;

  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
  try
    ADOQueryCmd.Connection.BeginTrans;
    with ADOQueryCmd do
    begin
      close;
      sql.Clear;
      sql.Add(' delete YF_Money_LL where exists(select FeeID from YF_Money_Fee X where X.FeeID=YF_Money_LL.fromMainID and FeeNo='''+Trim(CDS_HZ.fieldbyname('FeeNo').AsString)+''') ');
      sql.Add(' delete YF_Money_Fee where FeeNo='''+Trim(CDS_HZ.fieldbyname('FeeNo').AsString)+''' ');
      execsql;
    end;
    ADOQueryCmd.Connection.CommitTrans;
    InitGrid();
  except
    ADOQueryCmd.Connection.RollbackTrans;
    application.MessageBox('操作失败！','提示信息',0);
  end;
end;

procedure TfrmFYDJ.FormShow(Sender: TObject);
begin
  ReadCxGrid(Self.Caption + Tv2.Name,Tv2,'财务管理');
  Enddate.DateTime:=SGetServerDate(ADOQueryTemp);
  begdate.DateTime:=Enddate.DateTime;
  SetComboBox();
  InitGrid();
end;

procedure TfrmFYDJ.TBRafreshClick(Sender: TObject);
begin
  InitGrid();
end;

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

procedure TfrmFYDJ.TBexcelClick(Sender: TObject);
begin
  if ADOQueryMain.IsEmpty then Exit;
  SelExportData(Tv2,ADOQueryMain,'费用登记列表');
end;

procedure TfrmFYDJ.SetComboBox();
begin
 { FeeType.Items.Clear;
  FeeType.Items.Add('');
  with ADOQueryTemp do
  begin
    Close;
    SQL.Clear;
    SQL.Add(' select distinct Note from KH_ZDY ');
    SQL.Add(' where Type=''FeeType'' and ISNULL(Note,'''')<>'''' ');
    Open;
    while not Eof do
    begin
      FeeType.Items.Add(Trim(FieldByName('Note').AsString));
      Next;
    end;
  end;
  FeeType.ItemIndex:=0; }
end;

procedure TfrmFYDJ.TBZdyClick(Sender: TObject);
begin
  frmZDYHelp:=TfrmZDYHelp.Create(Application);
  with frmZDYHelp do
  begin
    flag:='FeeType';
    flagname:='费用类型';
    fnote:=True;
    fZdyFlag:=True;
    V1Note.Caption:='类型';
    Show;
  end;
end;

procedure TfrmFYDJ.TBAddClick(Sender: TObject);
begin
  try
    frmFYDJInput:=TfrmFYDJInput.Create(Application);
    with frmFYDJInput do
    begin
      fkeyNo:='';
      fflag:=self.fflag;
      fSyrname:=self.fSYRName;
      if ShowModal=1 then
      begin
        Self.InitGrid();
      end;
    end;
  finally
    frmFYDJInput.Free;
  end;
end;

procedure TfrmFYDJ.FeeTypeChange(Sender: TObject);
begin
  TBfind.Click;
end;

procedure TfrmFYDJ.TBEditClick(Sender: TObject);
begin
  try
    frmFYDJInput:=TfrmFYDJInput.Create(Application);
    with frmFYDJInput do
    begin
      fkeyNo:=Trim(Self.CDS_HZ.FieldByName('FeeNo').AsString);
      FeeType.Enabled:=False;
      fflag:=self.fflag;
      fSyrname:=self.fSYRName;
      if ShowModal=1 then
      begin
        Self.InitGrid();
      end;
    end;
  finally
    frmFYDJInput.Free;
  end;
end;

end.