Measure/Frames/DealPaymentFme.pas

unit DealPaymentFme;

interface

uses
  DealPaymentDm, FormulaCalc, DB,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, sdGridDBA, ZJGrid, JimLabels, dxBar, sdDB,
  ActnList;

type
  TDealPaymentFrame = class(TFrame)
    pnlExprs: TPanel;
    laEdtExprs: TLabeledEdit;
    pnlPayRecord: TPanel;
    zgDealPayment: TZJGrid;
    sdDealPayment: TsdGridDBA;
    pnlTitle: TPanel;
    labTitle: TJimGradLabel;
    pnlParameter: TPanel;
    zgParameter: TZJGrid;
    imgHelp: TImage;
    dxpmDealPayment: TdxBarPopupMenu;
    actnDealPayment: TActionList;
    actnCalculatePhasePay: TAction;
    procedure zgParameterCellCanEdit(Sender: TObject; const ACoord: TPoint;
      var Allow: Boolean);
    procedure imgHelpClick(Sender: TObject);
    procedure zgDealPaymentMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure laEdtExprsExit(Sender: TObject);
    procedure laEdtExprsKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dxpmDealPaymentPopup(Sender: TObject);
    procedure actnCalculatePhasePayExecute(Sender: TObject);
    procedure actnCalculatePhasePayUpdate(Sender: TObject);
    procedure zgDealPaymentCellGetColor(Sender: TObject; ACoord: TPoint;
      var AColor: TColor);
    procedure zgDealPaymentCurrentChanged(Sender: TObject; Col,
      Row: Integer);
    procedure laEdtExprsKeyPress(Sender: TObject; var Key: Char);
    procedure zgDealPaymentCanEditAcceptKey(var AKey: Char;
      var Accept: Boolean);
  private
    FDealPaymentData: TDealPaymentData;

    procedure InitParameterGrid;

    function CheckColHasFormula(ACol: Integer): Boolean;
    function CheckCurTotalPriceCol(ACol: Integer): Boolean;
    function CheckLimitPriceCol(ACol: Integer): Boolean;
    procedure RefreshFormula(ACol, ARow: Integer);

    procedure ResetBaseDataReadOnly(AReadOnly: Boolean);
    procedure ResetPhaseDataReadOnly(AReadOnly: Boolean);
    procedure ResetAllowInsert(AAllow: Boolean);
  public
    constructor Create(AProjectFrame: TFrame; ADealPaymentData: TDealPaymentData);
    destructor Destroy; override;

    procedure RefreshPhase_Stage;
  end;

implementation

uses
  MainFrm, UtilMethods, ProjectData, PhaseData;

{$R *.dfm}

{ TDealPaymentFrame }

constructor TDealPaymentFrame.Create(AProjectFrame: TFrame;
  ADealPaymentData: TDealPaymentData);
begin
  inherited Create(AProjectFrame);
  FDealPaymentData := ADealPaymentData;
  sdDealPayment.DataView := FDealPaymentData.sdvDealPayment;
  InitParameterGrid;
end;

destructor TDealPaymentFrame.Destroy;
begin
  inherited;
end;

procedure TDealPaymentFrame.InitParameterGrid;
begin
  zgParameter.ColWidths[1] := 150;
  zgParameter.ColWidths[2] := 60;
  zgParameter.Cells[1, 0].Text := '可选基数';
  zgParameter.Cells[2, 0].Text := '计算代号';
  zgParameter.Cells[1, 1].Text := '签约合同价';
  zgParameter.Cells[1, 1].Align := gaCenterLeft;
  zgParameter.Cells[2, 1].Text := 'htj';
  zgParameter.Cells[1, 2].Text := '签约开工预付款';
  zgParameter.Cells[1, 2].Align := gaCenterLeft;
  zgParameter.Cells[2, 2].Text := 'kgyfk';
  zgParameter.Cells[1, 3].Text := '签约材料预付款';
  zgParameter.Cells[1, 3].Align := gaCenterLeft;
  zgParameter.Cells[2, 3].Text := 'clyfk';
  zgParameter.Cells[1, 4].Text := '本期完成计量';
  zgParameter.Cells[1, 4].Align := gaCenterLeft;
  zgParameter.Cells[2, 4].Text := 'bqwc'; 
  zgParameter.Cells[1, 5].Text := '100章本期完成计量';
  zgParameter.Cells[1, 5].Align := gaCenterLeft;
  zgParameter.Cells[2, 5].Text := 'ybbqwc';
end;

procedure TDealPaymentFrame.zgParameterCellCanEdit(Sender: TObject;
  const ACoord: TPoint; var Allow: Boolean);
begin
  Allow := False;
end;

procedure TDealPaymentFrame.imgHelpClick(Sender: TObject);
begin
  pnlParameter.Visible := not pnlParameter.Visible;
end;

procedure TDealPaymentFrame.zgDealPaymentMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    dxpmDealPayment.PopupFromCursorPos;
end;

procedure TDealPaymentFrame.laEdtExprsExit(Sender: TObject);
begin
  if CheckColHasFormula(zgDealPayment.CurCell.Col) then
  begin
    zgDealPayment.CurCell.Text := laEdtExprs.Text;
    RefreshFormula(zgDealPayment.CurCol, zgDealPayment.CurRow);
  end;
end;

procedure TDealPaymentFrame.laEdtExprsKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if Key = VK_Return then
    zgDealPayment.SetFocus;
end;

function TDealPaymentFrame.CheckColHasFormula(ACol: Integer): Boolean;
begin
  Result := (ACol - 1 = sdDealPayment.VisibleCol('CurTotalPrice')) or
            (ACol - 1 = sdDealPayment.VisibleCol('StartedPrice')) or
            (ACol - 1 = sdDealPayment.VisibleCol('RangePrice'));
end;

procedure TDealPaymentFrame.dxpmDealPaymentPopup(Sender: TObject);
begin
  SetDxBtnAction(actnCalculatePhasePay, MainForm.dxbtnCalculatePhasePay);
end;

procedure TDealPaymentFrame.actnCalculatePhasePayExecute(Sender: TObject);
begin
  TProjectData(FDealPaymentData.ProjectData).PhaseData.PhasePayData.CalculateAll;
end;

procedure TDealPaymentFrame.actnCalculatePhasePayUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := TProjectData(FDealPaymentData.ProjectData).PhaseData.Active;
end;

procedure TDealPaymentFrame.zgDealPaymentCellGetColor(Sender: TObject;
  ACoord: TPoint; var AColor: TColor);
var
  Rec: TsdDataRecord;
  iCurPhase: Integer;
begin
  if (ACoord.Y > zgDealPayment.FixedRowCount - 1) and
      (ACoord.Y < zgDealPayment.RowCount - sdDealPayment.ExtendRowCount) then
  begin
    Rec := sdDealPayment.DataView.Records[ACoord.Y - 1];
    iCurPhase := TProjectData(FDealPaymentData.ProjectData).PhaseIndex;
    // 本期应付
    if Rec.ValueByName('CalcType').AsInteger = 1 then
      AColor := clSkyBlue
    // 本期实付
    //else if Rec.ValueByName('CalcType').AsInteger = 2 then
    else if iCurPhase = 0 then
      AColor := clWindow
      //AColor := clSkyBlue
    // 当期不存在项（例如：查看第二期数据，该项为第三期新增项）
    else if Rec.ValueByName('CreatePhaseID').AsInteger > iCurPhase then
      AColor := clSilver
    // 当期新增项
    else if Rec.ValueByName('CreatePhaseID').AsInteger = iCurPhase then
      AColor := clInfoBk;
  end;
end;

procedure TDealPaymentFrame.zgDealPaymentCurrentChanged(Sender: TObject;
  Col, Row: Integer);
begin
  RefreshFormula(Col, Row);
end;

procedure TDealPaymentFrame.RefreshFormula(ACol, ARow: Integer);
begin
  if (ARow > 0) and (ARow < zgDealPayment.RowCount - sdDealPayment.ExtendRowCount) then
  begin
    if CheckColHasFormula(ACol) then
      laEdtExprs.Text := zgDealPayment.CurCell.EditText
    else
      laEdtExprs.Text := '';
  end
  else
    laEdtExprs.Text := '';
end;

procedure TDealPaymentFrame.RefreshPhase_Stage;
begin
  with TProjectData(FDealPaymentData.ProjectData) do
  begin
    if ProjProperties.PhaseCount = 0 then
      ResetPhaseDataReadOnly(False)
    else
      ResetPhaseDataReadOnly(StageDataReadOnly);
    ResetBaseDataReadOnly(BaseDataReadOnly);
    ResetAllowInsert(AllowInsert);
  end;
  zgDealPayment.Invalidate;
  RefreshFormula(zgDealPayment.CurCol, zgDealPayment.CurRow);
end;

procedure TDealPaymentFrame.laEdtExprsKeyPress(Sender: TObject;
  var Key: Char);
begin
  if CheckCurTotalPriceCol(zgDealPayment.CurCol) then
  begin
    if not((Key in ArithmeticCharSet) or (Key in ExprsBaseCharSet) or (Key = #8)) then
      Key := #0;
  end
  else if CheckLimitPriceCol(zgDealPayment.CurCol) then
  begin
    if not((Key in ArithmeticCharSet) or (Key in ExprsExceptCharSet) or (Key = #8)) then
      Key := #0;
  end
  else
    Key := #0;
end;

procedure TDealPaymentFrame.zgDealPaymentCanEditAcceptKey(var AKey: Char;
  var Accept: Boolean);
var
  Col: TsdViewColumn;
begin
  Accept := False;
  if sdDealPayment.FindViewColumn(zgDealPayment.CurCol, Col) then
  begin
    if (AKey = #161) and
       ((Assigned(Col.Field) and (Col.Field.DataType in [ftFloat, ftCurrency, ftBCD])) or
        (Assigned(Col.LookUpField) and (Col.LookUpField.DataType in [ftFloat, ftCurrency, ftBCD]))) then
      AKey := '.';

    if (Col.Field <> nil) then
      Accept := Col.Field.IsValidChar(AKey)
    else if (Col.LookUpField <> nil) then
      Accept := Col.LookUpField.IsValidChar(AKey)
    else if SameText(Col.FieldName, 'CurTotalPrice') then
      Accept := (AKey in ArithmeticCharSet) or (AKey in ExprsBaseCharSet)
    else
      Accept := True;
  end;
end;

procedure TDealPaymentFrame.ResetAllowInsert(AAllow: Boolean);
begin
  if AAllow then
    sdDealPayment.Options := sdDealPayment.Options + [aoAllowInsert]
  else
    sdDealPayment.Options := sdDealPayment.Options - [aoAllowInsert];
end;

procedure TDealPaymentFrame.ResetBaseDataReadOnly(AReadOnly: Boolean);
begin
  sdDealPayment.Column('Name').ReadOnly := AReadOnly;
  sdDealPayment.Column('IsMinus').ReadOnly := AReadOnly;
end;

procedure TDealPaymentFrame.ResetPhaseDataReadOnly(AReadOnly: Boolean);
begin
  sdDealPayment.Column('CurTotalPrice').ReadOnly := AReadOnly;
  laEdtExprs.ReadOnly := AReadOnly;
end;

function TDealPaymentFrame.CheckCurTotalPriceCol(ACol: Integer): Boolean;
begin
  Result := (ACol - 1 = sdDealPayment.VisibleCol('CurTotalPrice'));
end;

function TDealPaymentFrame.CheckLimitPriceCol(ACol: Integer): Boolean;
begin
  Result := (ACol - 1 = sdDealPayment.VisibleCol('StartedPrice')) or
            (ACol - 1 = sdDealPayment.VisibleCol('RangePrice'));
end;

end.