ps_comprocess.pas

来自「DELPHI5加SQL SERVER2000完成的进销存系统,具体哪些内容记不清」· PAS 代码 · 共 23 行

unit PS_comprocess;

interface
uses
  forms,windows,sysutils;
type
  comprocess=class
  public
    class function isdelete:boolean;
    end;
implementation

{ comdatabase }

class function comprocess.isdelete:boolean;
begin
  result:=false;
  if application.messagebox('真的要删除吗？','Are you sure?',mb_yesno)=idyes then
    result:=true;
end;

end.