D10myYicheng/财务管理(Financial.dll)/U_CWGYSDZYueList.pas

unit U_CWGYSDZYueList;

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, cxLookAndFeels, cxLookAndFeelPainters,
  cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
  dxBarBuiltInMenu, U_BaseList, DateUtils;

type
  TfrmCWGYSDZYueList = class(TfrmBaseList)
    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;
    Label2: TLabel;
    begdate: TDateTimePicker;
    cxGridPopupMenu2: TcxGridPopupMenu;
    DS_HZ: TDataSource;
    CDS_HZ: TClientDataSet;
    Label4: TLabel;
    OrdDefNote3: TComboBox;
    RMGridReport1: TRMGridReport;
    RMDBDataSet1: TRMDBDataSet;
    RMXLSExport1: TRMXLSExport;
    ADOQueryPrint: TADOQuery;
    Panetime: TPanel;
    TV1: TcxGridDBBandedTableView;
    V1Column1: TcxGridDBBandedColumn;
    cxStyleRepository1: TcxStyleRepository;
    cxStyle1: TcxStyle;
    TV1Column1: TcxGridDBBandedColumn;
    TV1Column2: TcxGridDBBandedColumn;
    TV1Column3: TcxGridDBBandedColumn;
    TV1Column4: TcxGridDBBandedColumn;
    TV1Column5: TcxGridDBBandedColumn;
    TV1Column6: TcxGridDBBandedColumn;
    TV1Column7: TcxGridDBBandedColumn;
    TV1Column8: TcxGridDBBandedColumn;
    TV1Column9: TcxGridDBBandedColumn;
    TV1Column10: TcxGridDBBandedColumn;
    TV1Column11: TcxGridDBBandedColumn;
    TV1Column12: TcxGridDBBandedColumn;
    TV1Column13: TcxGridDBBandedColumn;
    TV1Column14: TcxGridDBBandedColumn;
    TV1Column15: TcxGridDBBandedColumn;
    TV1Column16: TcxGridDBBandedColumn;
    TV1Column17: TcxGridDBBandedColumn;
    TV1Column18: TcxGridDBBandedColumn;
    TV1Column19: TcxGridDBBandedColumn;
    TV1Column20: TcxGridDBBandedColumn;
    TV1Column21: TcxGridDBBandedColumn;
    TV1Column22: TcxGridDBBandedColumn;
    TV1Column23: TcxGridDBBandedColumn;
    TV1Column24: TcxGridDBBandedColumn;
    TV1Column25: TcxGridDBBandedColumn;
    TV1Column26: TcxGridDBBandedColumn;
    TV1Column27: TcxGridDBBandedColumn;
    TV1Column28: TcxGridDBBandedColumn;
    TV1Column29: TcxGridDBBandedColumn;
    TV1Column30: TcxGridDBBandedColumn;
    TV1Column31: TcxGridDBBandedColumn;
    TV1Column32: TcxGridDBBandedColumn;
    TV1Column33: TcxGridDBBandedColumn;
    TV1Column34: TcxGridDBBandedColumn;
    TV1Column35: TcxGridDBBandedColumn;
    TV1Column36: TcxGridDBBandedColumn;
    TV1Column37: TcxGridDBBandedColumn;
    Label5: TLabel;
    factoryName: TEdit;
    TV1Column38: TcxGridDBBandedColumn;
    TV1Column39: TcxGridDBBandedColumn;
    TV1Column40: TcxGridDBBandedColumn;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    TV1Column41: TcxGridDBBandedColumn;
    Label6: TLabel;
    FactoryNo: TEdit;
    Label7: TLabel;
    FactType: TEdit;
    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 factoryNameChange(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
  private
    { Private declarations }

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

var
  frmCWGYSDZYueList: TfrmCWGYSDZYueList;

implementation

uses
  U_DataLink, U_RTFun, U_ZDYHelp, U_GYSSel, U_CWGYSKPDZList, U_CWGYSDZMXList;

{$R *.dfm}

procedure TfrmCWGYSDZYueList.InitGrid();
begin

  screen.Cursor := crsqlwait;
  Panetime.Visible := true;
  Panetime.Left := (Width - Panetime.Width) div 2;
  Panetime.top := (Height - Panetime.Height - 200) div 2;
  application.ProcessMessages;
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Close;
      SQL.Clear;
      sql.Add(' exec  P_CW_YFFKHZYear  ');
      sql.Add(' @begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', begdate.DateTime))));
      Open;
    end;
    SCreateCDS(ADOQueryMain, CDS_HZ);
    SInitCDSData(ADOQueryMain, CDS_HZ);
  finally
    ADOQueryMain.EnableControls;
    ToolButton2.Click;
    Panetime.Visible := false;
    screen.Cursor := crdefault;
  end;
end;

procedure TfrmCWGYSDZYueList.FormDestroy(Sender: TObject);
begin
  inherited;
  frmCWGYSDZYueList := nil;
end;

procedure TfrmCWGYSDZYueList.factoryNameChange(Sender: TObject);
begin
  ToolButton2.Click;

end;

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

procedure TfrmCWGYSDZYueList.TBCloseClick(Sender: TObject);
begin
  WriteCxBandedGrid(self.Caption + '2', Tv1, 'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>');
  Close;
end;

procedure TfrmCWGYSDZYueList.FormShow(Sender: TObject);
begin
  inherited;
  readCxBandedGrid(self.Caption + '2', Tv1, 'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>');
  InitGrid();
end;

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

procedure TfrmCWGYSDZYueList.ToolButton2Click(Sender: TObject);
begin
  if ADOQueryMain.Active then
  begin
    SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
    SCreateCDS(ADOQueryMain, CDS_HZ);
    SInitCDSData(ADOQueryMain, CDS_HZ);
  end;
end;

procedure TfrmCWGYSDZYueList.ToolButton3Click(Sender: TObject);
begin
  if CDS_HZ.IsEmpty then
    exit;
  try
    frmCWGYSKPDZList := TfrmCWGYSKPDZList.Create(self);
    with frmCWGYSKPDZList do
    begin
      begdate.DateTime := StartOfTheYear(self.begdate.DateTime);
      enddate.DateTime := endOfTheYear(self.begdate.DateTime);
      FfactoryNo := self.CDS_HZ.fieldbyname('factoryNo').AsString;
      FFactoryName := self.CDS_HZ.fieldbyname('factoryName').AsString;
      Show;
    end;
  finally
  end;
end;

procedure TfrmCWGYSDZYueList.ToolButton4Click(Sender: TObject);
begin
  if CDS_HZ.IsEmpty then
    exit;
  try
    frmCWGYSDZMXList := TfrmCWGYSDZMXList.Create(self);
    with frmCWGYSDZMXList do
    begin
      begdate.DateTime := StartOfTheYear(self.begdate.DateTime);
      enddate.DateTime := endOfTheYear(self.begdate.DateTime);
      factoryName.Text := self.CDS_HZ.fieldbyname('factoryName').AsString;
      factoryName.TxtCode := self.CDS_HZ.fieldbyname('factoryNo').AsString;
      FZKType := '';
      Show;
    end;
  finally
  end;
end;

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

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

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

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

procedure TfrmCWGYSDZYueList.FormCreate(Sender: TObject);
begin
  inherited;
  cxGrid2.Align := AlClient;
  begdate.DateTime := SGetServerDate(ADOQueryTemp);
end;

end.