목록2018/10 (4)
C#,Delphi,Oracle,MSSQL 개발자블로그
최근 3년간 '저가약 대체조제 인센티브제도'에 참여하는 약국이 꾸준히 증가하고 있는 것으로 드러났다. 저가약 대체조제 인센티브제도는 처방된 의약품보다 낮은 값의 의약품으로 대체조제할 경우 약사에게 약가차액의 일정부분을 지급하는 제도다. 보건복지부가 국회 보건복지위원회 남윤인순 의원에게 제출한 자료에 따르면 지난 3년간 대체조제에 참여한 약국수는 2011년 8949개소에서 2012년 1만466개소, 2013년 1만2474개소로 급증했다. 대체 횟수 역시 2011년 20만2261건에서 2012년 40만6013건, 지난해 48만1380건으로 꾸준히 늘어났다. 저가약 대체조제 인센티브 지급대상 의약품은 식품의약품안전처장이 생물학적동등성이 있다고 인정한 품목 등으로, 약사가 처방 의약품보다 저가 인정 품목으로 대..
MDB 다루는 툴 입니다. 인덱스확인, 테이블 추가제거 등 가능합니다. 출처 : http://tysite.tistory.com/64
* DLL에서 읽을 함수.(testMessage.dll) function MSG(s:string) : string; export; begin s := '[' + s + ']'; Result := s; end; 1. 핸들러를 이용하여 동적으로 사용하기. uses windows procedure TForm1.Button1Click(Sender: TObject); type TFunc = function(s:string) : string; var Handle : THandle; MyFunc : TFunc; begin Handle := LoadLibrary('testMessage.dll'); if Handle 0 then begin @MyFunc := GetProcAddress(Handle, 'MSG'); if ..
1. File -> New -> Other 에서 DLL Wizard를 선택한다. 2. 예제소스 uses SysUtils, Classes, Dialogs; {$R *.res} /// /// 문자열 반환 테스트 /// function MSG(s:string) : string; export; begin s := '[' + s + ']'; Result := s; end; /// /// 메세지박스 테스트 /// procedure MessageBoxBox; export; begin ShowMessage('message test'); end; exports MSG, MessageBoxBox; begin end.