waterfeebrowsefrm.pas

供水营销打印程序源码

unit WaterfeeBrowseFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SJCustomBrowseFrm, wwDialog, wwfltdlg, ActnList, XPMenu, Menus,
  PropStorageEh, Grids, DBGridEh, SJCustomProperty, ImgList;

type
  TfrmBrowseWaterfee = class(TSJCustomBrowseForm)
    procedure FormCreate(Sender: TObject);
    procedure ActListUpdate(Action: TBasicAction; var Handled: Boolean);
  private
    { Private declarations }
  protected
    procedure Delete; override;
    function  GetPropertyForm: TSJCustomPropertyForm; override;
  public
    { Public declarations }
  end;

var
  frmBrowseWaterfee: TfrmBrowseWaterfee;

implementation

uses InvPrintDM, MainFrm, SJInvPrintGlobal, WaterfeePropertyFrm;

{$R *.dfm}

{ TfrmBrowseWaterfee }

function TfrmBrowseWaterfee.GetPropertyForm: TSJCustomPropertyForm;
begin
  if not Assigned(FPropertyForm) then
  begin
    FPropertyForm := TfrmPropertyWaterfee.Create(Application);
    TfrmPropertyWaterfee(FPropertyForm).dasProperty.DataSet := grdBrowse.DataSource.DataSet;
  end;
  Result := FPropertyForm;
end;

procedure TfrmBrowseWaterfee.FormCreate(Sender: TObject);
begin
  inherited;
  try
    grdBrowse.DataSource.DataSet.Open;
  except
    ShowMessage('打开客户用水记录资料失败，请稍后再试 。');
  end;
end;

procedure TfrmBrowseWaterfee.ActListUpdate(Action: TBasicAction;
  var Handled: Boolean);
begin
  //inherited;
  with grdBrowse do
    begin
      actBrowseCut.Enabled       := CheckCutAction and (geaCutEh in EditActions);
      actBrowseCopy.Enabled      := CheckCopyAction and (geaCopyEh in EditActions);
      actBrowsePaste.Enabled     := CheckPasteAction and (geaPasteEh in EditActions);
      //actBrowseDelete.Enabled    := CheckDeleteAction and (geaDeleteEh in EditActions);
      actBrowseSelectAll.Enabled := CheckSelectAllAction and (geaSelectAllEh in EditActions);
      actBrowseSaveAs.Enabled    := CheckCopyAction and (geaCopyEh in EditActions);
    end;

  with grdBrowse.DataSource.DataSet do
  begin
    if not Active then
    begin
      actBrowseDelete.Enabled := False;
      exit;
    end;
    if IsEmpty then
    begin
      actBrowseDelete.Enabled := False;
      Exit;
    end;
    actBrowseDelete.Enabled := not FieldByName('Payflag').AsBoolean;
  end;
end;

procedure TfrmBrowseWaterfee.Delete;
// 删除客户用水记录
var
  AcustID: string;
  I: Integer;
begin
  //inherited;
  if Application.MessageBox(Pchar('你真的要删除所选定的数据吗？'), Pchar('提示'), MB_YESNO) = IDNO then
    Exit;

  Screen.Cursor := crHourGlass;
  with grdBrowse, grdBrowse.DataSource.DataSet do
  try
    DisableControls;
    for I := 0 to SelectedRows.Count - 1 do
    begin
      GotoBookmark(Pointer(SelectedRows.Items[I]));
      AcustID := FieldByName('CustID').AsString;
      // 如果已经缴费则不能删除
      if FieldByName('Payflag').AsBoolean then
        Continue;
      if not IsEmpty then
        Delete;
      dmInvPrint.UpdateCustomerDegree(AcustID);
    end;
  finally
    EnableControls;
    Screen.Cursor := crDefault;
  end;
end;

end.