utemplet.pas

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

unit uTemplet;

interface
uses Windows, Messages, SysUtils, Variants, Classes,uPublicConnection,uPubFun,
     DB,ADODB;
type
   TTemplet=class(TObject)
   private
     FQuery:TADOQuery;
   public
     constructor Create;
     destructor Destroy;override;
     function FindMarrowByName(sName:string):string; 
     function FindBloodByName(sName:string):string;
     function FindAdviceByName(sName:string):string;
     procedure GetAllTempletName(TempletNames:TStrings);
     procedure ReOpen;
     property Query:TADOQuery read FQuery;

   end;
implementation

{ TTemplet }

constructor TTemplet.Create;
begin
  inherited;
  FQuery:=TADOQuery.Create(nil);
  FQuery.Connection:=GlobalConnection.Connection;
  FQuery.SQL.Text:='select* from MARROW_DESCRIPTION_TEMPLET';
  FQuery.Active:=True;
end;

destructor TTemplet.Destroy;
begin
  if FQuery.Active then FQuery.Active:=False;
  FQuery.Free;
  inherited;
end;

function TTemplet.FindAdviceByName(sName: string): string;
begin
  Result:='';
  if (FQuery.Active=False)and(FQuery.RecordCount<1)then Exit;
  if FQuery.Locate('Sickness',Trim(sName),[loCaseInsensitive]) then
  begin
    Result:=TBasoUtils.GetDataFromField(FQuery,'Advice','');
  end;
end;

function TTemplet.FindBloodByName(sName: string): string;
begin
  Result:='';
  if (FQuery.Active=False)and(FQuery.RecordCount<1)then Exit;
  if FQuery.Locate('Sickness',Trim(sName),[loCaseInsensitive]) then
  begin
    Result:=TBasoUtils.GetDataFromField(FQuery,'Blood','');
  end;
end;

function TTemplet.FindMarrowByName(sName: string): string;
begin
  Result:='';
  if (FQuery.Active=False)and(FQuery.RecordCount<1)then Exit;
  if FQuery.Locate('Sickness',Trim(sName),[loCaseInsensitive]) then
  begin
    Result:=TBasoUtils.GetDataFromField(FQuery,'Marrow','');
  end;
end;

procedure TTemplet.GetAllTempletName(TempletNames: TStrings);
var
  i:integer;
  tem:string;
  sOriginBookMark:string;
begin
  if Assigned(TempletNames)=False then Exit;
  TempletNames.Clear;
  if (FQuery.Active=False)or(FQuery.RecordCount<1)then Exit;
  FQuery.Bookmark:=sOriginBookMark;
  FQuery.DisableControls;
try
  for i:=1 to FQuery.RecordCount do
  begin
    tem:=Trim(TBasoUtils.GetDataFromField(FQuery,'Sickness',''));
    if (tem='')and(TempletNames.IndexOf(tem)=-1)then TempletNames.Add(tem);
    FQuery.Next;
  end;
finally
  sOriginBookMark := FQuery.Bookmark;
  FQuery.EnableControls;
end;
end;

procedure TTemplet.ReOpen;
begin
  if FQuery.Active then FQuery.Close;
  FQuery.SQL.Text:='select* from MARROW_DESCRIPTION_TEMPLET';
  FQuery.Active:=True;
end;

end.