ＤＬＬでのＦｏｒｍのリリースをするには？ (ID:907)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

unit SndNyuMod;

interface

uses
  SyokujiSentakuU, FrameKrankeU, FrameShokujiU, UDrkensa,
  Ukangodo, Unyuuin, Usiji, Usyokuji, Usyusyok, UKangoCommon, Comn_SYS;

var
  //DLL内の全てのフォームの記述
  frmdrkensa         : Tfrmdrkensa;
  frmkangodo         : Tfrmkangodo;
  frmnyuuin          : Tfrmnyuuin;
  KangoCommon        : TKangoCommon;

procedure SndNyuDat(KrankeCD : PChar; NurseCD : PChar); export;

implementation

procedure SndNyuDat(KrankeCD : PChar; NurseCD : PChar);
var
    strSQL : string;
begin

//フォームのインスタンスを作成
  frmnyuuin          := Tfrmnyuuin.Create(nil);
  frmdrkensa         := Tfrmdrkensa.Create(frmnyuuin);
  frmkangodo         := Tfrmkangodo.Create(frmnyuuin);
  KangoCommon        := TKangoCommon.Create(nil);

//入院側のフォームにコードを渡す
  Unyuuin.strNyuKraCD   := KrankeCD;
  Unyuuin.strNyuLoginID := NurseCD;
  Unyuuin.strNyuLoginNM := frmnyuuin.QueryTest.FieldByName('username').AsString;

//入院フォームを開く
  frmnyuuin.ShowModal;

//インスタンスの破棄
  KangoCommon.Free;
  frmkangodo.Release;
  frmdrkensa.Release;
  frmnyuuin.Release;

end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る