xoffice.cpp
来自「一个模板打印的源程序。可用于医院诊断报告的打印。」· C++ 代码 · 共 333 行
CPP
333 行
// XOffice.cpp : Defines the class behaviors for the application.
//
#include "stdafx.h"
#include "XOffice.h"
#include "MainFrm.h"
#include "ChildFrm.h"
#include "XOfficeDoc.h"
#include "XOfficeView.h"
#include <initguid.h>
#include "XOffice_i.c"
#include "FormDemo.h"
#include "infoinput.h"
#include "msword9.h"
#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif
CString g_template;
CString g_str;
double g_double;
long g_long;
/////////////////////////////////////////////////////////////////////////////
// CXOfficeApp
BEGIN_MESSAGE_MAP(CXOfficeApp, CWinApp)
//{{AFX_MSG_MAP(CXOfficeApp)
ON_COMMAND(ID_APP_ABOUT, OnAppAbout)
// NOTE - the ClassWizard will add and remove mapping macros here.
// DO NOT EDIT what you see in these blocks of generated code!
//}}AFX_MSG_MAP
// Standard file based document commands
ON_COMMAND(ID_FILE_NEW, CWinApp::OnFileNew)
ON_COMMAND(ID_FILE_OPEN, CWinApp::OnFileOpen)
// Standard print setup command
ON_COMMAND(ID_FILE_PRINT_SETUP, CWinApp::OnFilePrintSetup)
END_MESSAGE_MAP()
/////////////////////////////////////////////////////////////////////////////
// CXOfficeApp construction
CADODatabase * CXOfficeApp::g_pDb;
CXOfficeApp::CXOfficeApp()
{
// TODO: add construction code here,
// Place all significant initialization in InitInstance
}
/////////////////////////////////////////////////////////////////////////////
// CXOfficeApp initialization
CXOfficeApp::OpenDocument()
{
_Application app;
app.CreateDispatch(_T("Word.Application"));
app.SetVisible(TRUE);
Documents m_Docs=app.GetDocuments();
CComVariant Template(_T("c:\\temp\\reportTemplate.dot"));
CComVariant NewTemplate(false),DocumentType(0),Visible;
m_Docs.Add(&Template,&NewTemplate,&DocumentType,&Visible);
app.ReleaseDispatch();
m_Docs.ReleaseDispatch();
}
BOOL CXOfficeApp::InitInstance()
{
if (false == _Module.m_bATLInited)
return FALSE;
_Module.UpdateRegistryFromResource(IDR_XOFFICE, TRUE);
_Module.RegisterServer(TRUE);
AfxOleInit();
m_pConnection->Open("driver={SQL Server};Server=127.0.0.1;DATABASE=vcbase;UID=sa;PWD=139","","",adModeUnknown):
AfxEnableControlContainer();
// Standard initialization
// If you are not using these features and wish to reduce the size
// of your final executable, you should remove from the following
// the specific initialization routines you do not need.
#ifdef _AFXDLL
Enable3dControls(); // Call this when using MFC in a shared DLL
#else
Enable3dControlsStatic(); // Call this when linking to MFC statically
#endif
// Change the registry key under which our settings are stored.
// TODO: You should modify this string to be something appropriate
// such as the name of your company or organization.
SetRegistryKey(_T("Local AppWizard-Generated Applications"));
LoadStdProfileSettings(); // Load standard INI file options (including MRU)
CString m_dataSource=GetParameter("Connection","dataSource");
CString m_initialCatalog=GetParameter("Connection","initialCatalog");
CString m_userId=GetParameter("Connection","userId");
CString m_passWord=GetParameter("Connection","passWord");
CString strConnection=_T("Provider=sqloledb;Data Source="+m_dataSource);
strConnection+=_T(";Initial Catalog="+m_initialCatalog+";User Id="+m_userId);
strConnection+=_T(";PassWord="+m_passWord);
//open database
g_pDb = new CADODatabase;
g_pDb->Open(strConnection);
// Register the application's document templates. Document templates
// serve as the connection between documents, frame windows and views.
CMultiDocTemplate* pDocTemplate;
pDocTemplate = new CMultiDocTemplate(
IDR_FORMDEMO_TMPL,
RUNTIME_CLASS(CFormDemoDoc), // document class
RUNTIME_CLASS(CChildFrame), // frame class
RUNTIME_CLASS(CDataView)); // view class
AddDocTemplate(pDocTemplate);
// create main MDI Frame window
CMainFrame* pMainFrame = new CMainFrame;
if (!pMainFrame->LoadFrame(IDR_MAINFRAME))
return FALSE;
m_pMainWnd = pMainFrame;
// Parse command line for standard shell commands, DDE, file open
CCommandLineInfo cmdInfo;
ParseCommandLine(cmdInfo);
if (cmdInfo.m_bRunEmbedded || cmdInfo.m_bRunAutomated)
{
return TRUE;
}
// Dispatch commands specified on the command line
if (!ProcessShellCommand(cmdInfo))
return FALSE;
// The main window has been initialized, so show and update it.
m_nCmdShow=SW_SHOWMAXIMIZED;
pMainFrame->ShowWindow(m_nCmdShow);
pMainFrame->UpdateWindow();
return TRUE;
}
/////////////////////////////////////////////////////////////////////////////
// CAboutDlg dialog used for App About
class CAboutDlg : public CDialog
{
public:
CAboutDlg();
// Dialog Data
//{{AFX_DATA(CAboutDlg)
enum { IDD = IDD_ABOUTBOX };
//}}AFX_DATA
// ClassWizard generated virtual function overrides
//{{AFX_VIRTUAL(CAboutDlg)
protected:
virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support
//}}AFX_VIRTUAL
// Implementation
protected:
//{{AFX_MSG(CAboutDlg)
// No message handlers
//}}AFX_MSG
DECLARE_MESSAGE_MAP()
};
CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
{
//{{AFX_DATA_INIT(CAboutDlg)
//}}AFX_DATA_INIT
}
void CAboutDlg::DoDataExchange(CDataExchange* pDX)
{
CDialog::DoDataExchange(pDX);
//{{AFX_DATA_MAP(CAboutDlg)
//}}AFX_DATA_MAP
}
BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
//{{AFX_MSG_MAP(CAboutDlg)
// No message handlers
//}}AFX_MSG_MAP
END_MESSAGE_MAP()
// App command to run the dialog
void CXOfficeApp::OnAppAbout()
{
CAboutDlg aboutDlg;
aboutDlg.DoModal();
}
/////////////////////////////////////////////////////////////////////////////
// CXOfficeApp message handlers
CXOfficeModule _Module;
BEGIN_OBJECT_MAP(ObjectMap)
OBJECT_ENTRY(CLSID_Application, CXOfficeApp)
END_OBJECT_MAP()
CXOfficeModule::CXOfficeModule()
{
m_bATLInited = TRUE;
HRESULT hRes = CoInitialize(NULL);
if (FAILED(hRes))
exit(1);
_Module.Init(ObjectMap, GetModuleHandle(NULL));
_Module.dwThreadID = GetCurrentThreadId();
LPTSTR lpCmdLine = GetCommandLine(); //this line necessary for _ATL_MIN_CRT
TCHAR szTokens[] = _T("-/");
BOOL bRun = TRUE;
LPCTSTR lpszToken = _Module.FindOneOf(lpCmdLine, szTokens);
while (lpszToken != NULL)
{
if (lstrcmpi(lpszToken, _T("UnregServer"))==0)
{
_Module.UpdateRegistryFromResource(IDR_XOFFICE, FALSE);
_Module.UnregisterServer(TRUE); //TRUE means typelib is unreg'd
bRun = FALSE;
break;
}
if (lstrcmpi(lpszToken, _T("RegServer"))==0)
{
_Module.UpdateRegistryFromResource(IDR_XOFFICE, TRUE);
_Module.RegisterServer(TRUE);
bRun = FALSE;
break;
}
lpszToken = _Module.FindOneOf(lpszToken, szTokens);
}
if (!bRun)
{
_Module.Term();
CoUninitialize();
exit(0);
}
hRes = _Module.RegisterClassObjects(CLSCTX_LOCAL_SERVER, REGCLS_MULTIPLEUSE);
if (FAILED(hRes))
{
CoUninitialize();
exit(1);
}
}
CXOfficeModule::~CXOfficeModule()
{
if (m_bATLInited)
{
_Module.RevokeClassObjects();
_Module.Term();
CoUninitialize();
}
}
LONG CXOfficeModule::Unlock()
{
AfxOleUnlockApp();
return 0;
}
LONG CXOfficeModule::Lock()
{
AfxOleLockApp();
return 1;
}
LPCTSTR CXOfficeModule::FindOneOf(LPCTSTR p1, LPCTSTR p2)
{
while (*p1 != NULL)
{
LPCTSTR p = p2;
while (*p != NULL)
{
if (*p1 == *p)
return CharNext(p1);
p = CharNext(p);
}
p1++;
}
return NULL;
}
int CXOfficeApp::ExitInstance()
{
// TODO: Add your specialized code here and/or call the base class
g_pDb->Close();
return CWinApp::ExitInstance();
}
CString CXOfficeApp::GetParameter(CString section,CString skey)
{
//读取参数值
CString FilePath;
FilePath="c:\\temp\\setup.ini";
char inBuf[80];
CString strValue = _T("");
GetPrivateProfileString (section,skey, NULL, inBuf, 80, FilePath);
strValue=inBuf;
return strValue;
}
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?