护士工作站代码

app_yzgl.exe 护士分床、医嘱、打印等功能

/*=====================================================
*  mHand 3.5                                          *
*                                                     *
*  PowerBuilder Expand Function Dynamic link Library  *
*  Created : 1996.01.16   Last Modified : 1999.08.03  *
*                                                     *
*                  - Jianhui.Wang  （ TianJin CHINA ）  
*
=====================================================*/

#include 

#ifdef _DEBUG
class CDebug
{
private:
	static void ReportValue（LPSTR）;
public:
	static void WatchValue（LPSTR）;
	static void WatchValue（WORD）;
};
#endif

extern “C“

BOOL APIENTRY DllMain（HANDLE hModuleDWORD ul_reason_for_callLPVOID lpReserved）
{
    return TRUE;
}

int WINAPI SetPaperSize（WORD nWidthWORD nHeightWORD nOrient）
{
	#define ExpectA3 （（nWidth==2970）&&（nHeight==4200））
	#define ExpectA4 （（nWidth==2100）&&（nHeight==2970））
	#define ExpectB5 （（nWidth==1820）&&（nHeight==2570））
	
	HKEY hRegKey;
	char szPrinterKey[100]=“System\\CurrentControlSet\\Control\\Print\\Printers\\“;
	char szDeviceName[40]szPort[40];
	DWORD cbBuffer;
	DWORD dwRV;
	DWORD dwPapers;
	WORD lpwPapers[256];
	BOOL fSupportUserDefind=FALSEfSupportA3=FALSEfSupportA4=FALSEfSupportB5=FALSE;
	HANDLE hDriver;
	HGLOBAL hMem;
	LPDEVMODE lpDevMode;

	//取当前默认打印机设备名
	RegOpenKey（HKEY_CURRENT_CONFIG“System\\CurrentControlSet\\Control\\Print\\Printers“&hRegKey）;
	cbBuffer=sizeof（szDeviceName）;
	dwRV=RegQueryValueEx（hRegKey“Default“NULLNULL（unsigned char *）szDeviceName&cbBuffer）;
	RegCloseKey（hRegKey）;
	if （dwRV != ERROR_SUCCESS） return -1;
	
	//取打印机端口
	RegOpenKey（HKEY_LOCAL_MACHINElstrcat（szPrinterKeyszDeviceName）&hRegKey）;
	cbBuffer=sizeof（szPort）;
	dwRV=RegQueryValueEx（hRegKey“Port“NULLNULL（unsigned char *）szPort&cbBuffer）;
	RegCloseKey（hRegKey）;
	if （dwRV != ERROR_SUCCESS） return -2;

	//取打印机支持的全部纸型
	dwPapers=DeviceCapabilitiesA（szDeviceNameszPortDC_PAPERS（LPTSTR）lpwPapersNULL）;
	if （（dwPapers < 1） || （dwPapers > 256）） return -3;

	//判断打印机是否支持自定义、A3、A4、B5纸型
	do
		switch （lpwPapers[--dwPapers]）
		{
			case DMPAPER_USER:
				fSupportUserDefind=TRUE;
				break;
			case DMPAPER_A3:
				fSupportA3=TRUE;
				break;
			case DMPAPER_A4:
				fSupportA4=TRUE;
				break;
			case DMPAPER_B5:
				fSupportB5=TRUE;
				break;
		}
	while （dwPapers > 0）;

	//取打印机的DeviceMode
	if （! OpenPrinter（szDeviceName（LPHANDLE）&hDriverNULL）） return -4;
	hMem=GlobalAlloc（GPTRDocumentProperties（NULLhDriverszDeviceNameNULLNULL0））;
	lpDevMode=（LPDEVMODE）GlobalLock（hMem）;
	DocumentProperties（NULLhDriverszDeviceNamelpDevModeNULLDM_OUT_BUFFER）;

	//设置纸型或大小
	switch （（ExpectA3 && fSupportA3）*1 + （ExpectA4 && fSupportA4）*2 + （ExpectB5 && fSupportB5）*3）
	{
		case 1: //A3
			lpDevMode->dmFields=DM_PAPERSIZE;
			lpDevMode->dmPaperSize=DMPAPER_A3;
		case 2: //A4
			lpDevMode->dmFields=DM_PAPERSIZE;
			lpDevMode->dmPaperSize=DMPAPER_

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      35840  2011-05-22 21:09  护士工作站\app_yzgl.exe

     文件        328  2010-11-17 11:15  护士工作站\BUTTON.INI

     文件       7258  2010-11-17 11:15  护士工作站\button.wav

     文件          9  2010-11-17 11:15  护士工作站\Desktop_.ini

     文件        183  2010-11-17 11:15  护士工作站\DLLINIT.INI

     文件       1067  2010-11-17 11:15  护士工作站\eapagent.ini

     文件       7366  2010-11-17 11:15  护士工作站\function.wav

     文件        682  2010-11-17 11:15  护士工作站\Hisv3.ini

     文件      64512  2010-12-09 11:35  护士工作站\hsz_tjbb.pbd

     文件      95232  2011-01-04 10:27  护士工作站\hsz_tjbb.pbl

     文件     604672  2010-12-09 11:35  护士工作站\hsz_zby.pbd

     文件    1014784  2011-01-04 10:27  护士工作站\hsz_zby.pbl

     文件     321832  2010-11-17 11:15  护士工作站\hzxx.bmp

     文件        519  2010-11-17 11:15  护士工作站\LICENSE.INI

     文件         94  2010-11-17 11:15  护士工作站\loadif.ini

     文件       4102  2010-11-17 11:15  护士工作站\lost.wav

     文件     114688  2010-11-17 08:55  护士工作站\MessageBox.DLL

     文件      42576  2010-11-17 11:15  护士工作站\MFM1992

     文件       5830  2010-11-17 11:15  护士工作站\mHand.cpp

     文件        137  2010-11-17 11:15  护士工作站\mHand.def

     文件      49152  2010-11-17 08:55  护士工作站\networkaddress.dll

     文件        439  2010-11-17 11:15  护士工作站\pb.ini

     文件        417  2010-11-17 11:15  护士工作站\pbbbbb.ini

     文件     186880  2010-11-17 08:55  护士工作站\POWERPRN.dll

     文件        216  2010-11-17 11:15  护士工作站\print.ini

     文件     126976  2010-11-17 08:55  护士工作站\PrintCtrl.dll

     文件     126976  2010-11-17 08:55  护士工作站\PrintCtrl11.dll

     文件         79  2010-11-17 11:15  护士工作站\PRINTER.INI

     文件        184  2010-11-17 11:15  护士工作站\QEDBF.INI

     文件       4006  2010-11-17 11:15  护士工作站\rb.wav

............此处省略10个文件信息