upubfun.pas

一个简单得医院图像管理系统

unit uPubFun;

interface
uses Windows, Messages, SysUtils, Variants, Classes,Forms,ADODB,DB;
type
TBasoUtils=class(TObject)
class function SysMessage(sMessage:string;iFlag:Integer):INTEGER;
class function GetDataFromField(ADOQuery:TADOQuery;sFieldName:string;DefaultValue:Variant):Variant;
class function ConfirmDelete:integer;

end;
const
  OK=MB_OK;
  YESNO=MB_YESNO;

  WARN=MB_ICONWARNING;
  QUST=MB_ICONQUESTION;
  INFORMATION=MB_ICONINFORMATION;
  STOP=MB_ICONSTOP;

  YES=ID_YES;
  NO=ID_NO;



implementation

{ TPubUtils }

class function TBasoUtils.ConfirmDelete: integer;
begin
  Result:=sysmessage('真的删除该记录吗？',QUST+YESNO);
end;

class function TBasoUtils.GetDataFromField(ADOQuery: TADOQuery;
  sFieldName: string; DefaultValue: Variant): Variant;
begin
  result:=DefaultValue;
  sFieldName:=Trim(sFieldName);
  if sFieldName='' then
  begin
    SysMessage('错误的字段名称，请联系软件供应商！',OK+STOP);
    Exit;
  end;

  if ADOQuery.Active=False then Exit;
  if ADOQuery.RecordCount<1 then Exit;
try
  if ADOQuery.FieldByName(sFieldName).IsNull then Exit;
  Result:=ADOQuery.FieldValues[sFieldName];
except
  on e:Exception do
  begin
    SysMessage(e.Message,OK+STOP);
  end;
end;

end;

class function TBasoUtils.SysMessage(sMessage: string; iFlag: Integer):Integer;
begin
  Result:=Application.MessageBox(PAnsiChar(sMessage),'BASO图像分析系统',iFlag);
end;

end.