C源码(107)

#if !defined(AFX_GUDPAGE1_H__8675A73D_2544_49A1_9DA7_2ADC4CDB8D30__INCLU DED_)

#define

AFX_GUDPAGE1_H__8675A73D_2544_49A1_9DA7_2ADC4CDB8D30__INCLUDED_

#include "RxGrid.h"

#include "RxRecordset.h" Added by ClassView

#if _MSC_VER > 1000

#pragma once

#endif _MSC_VER > 1000

DPage1.h : header file

CDGYPage1 dialog

class CDGYPage1 : public CDialog

{

Construction

public:

void SetRecordset(RxRecordset Rrst);

CDGYPage1(CWnd pParent = NULL); standard constructor

Dialog Data

{{AFX_GUDA TA(CDGYPage1)

enum { IDD = IDD_PAGE1 };

RxGrid m_X_GuGrid;

}}AFX_GUDA TA

Overrides

ClassWizard generated virtual function overrides

{{AFX_GUVIRTUAL(CDGYPage1)

protected:

virtual void DoDataExchange(CDataExchange pDX); DDXDDV support

}}AFX_GUVIRTUAL

Implementation

protected:

Generated message map functions

{{AFX_GUMSG(CDGYPage1)

virtual BOOL OnInitDialog();

}}AFX_GUMSG

DECLARE_MESSAGE_MAP()

private:

RxRecordset rst;

};

{{AFX_GUINSERT_LOCATION}}

Microsoft Visual C++ will insert additional declarations immediately before the previous line. #endif !defined(AFX_GUDPAGE1_H__8675A73D_2544_49A1_9DA7_2ADC4CDB8D30__I NCLUDED_)

Machine generated IDispatch wrapper class(es) created by Microsoft Visual C++ NOTE: Do not modify the contents of this file. If this class is regenerated by Microsoft Visual C++, your modifications will be overwritten.

#include "stdafx.h"

#include "vcvaluescale.h"

CVcV alueScale properties

CVcV alueScale operations

BOOL CVcValueScale::GetAuto()

{

BOOL result;

InvokeHelper(0x1, DISPATCH_PROPERTYGET, VT_BOOL, (void)&result, NULL);

return result;

}

void CVcValueScale::SetAuto(BOOL bNewValue)

{

static BYTE parms[] =

VTS_BOOL;

InvokeHelper(0x1, DISPATCH_PROPERTYPUT, VT_EMPTY, NULL, parms, bNewValue);

}

double CVcValueScale::GetMinimum()

{

double result;

InvokeHelper(0x2, DISPATCH_PROPERTYGET, VT_R8, (void)&result, NULL);

return result;

}

void CVcValueScale::SetMinimum(double newValue)

{

static BYTE parms[] =

VTS_R8;

InvokeHelper(0x2, DISPATCH_PROPERTYPUT, VT_EMPTY, NULL, parms, newValue);

}

double CVcValueScale::GetMaximum()

{

double result;

InvokeHelper(0x3, DISPATCH_PROPERTYGET, VT_R8, (void)&result, NULL);

return result;

}

void CVcValueScale::SetMaximum(double newValue)

{

static BYTE parms[] =

VTS_R8;

InvokeHelper(0x3, DISPATCH_PROPERTYPUT, VT_EMPTY, NULL, parms,

newValue);

}

short CVcValueScale::GetMajorDivision()

{

short result;

InvokeHelper(0x4, DISPATCH_PROPERTYGET, VT_I2, (void)&result, NULL);

return result;

}

void CVcValueScale::SetMajorDivision(short nNewValue)

{

static BYTE parms[] =

VTS_I2;

InvokeHelper(0x4, DISPATCH_PROPERTYPUT, VT_EMPTY, NULL, parms,

nNewValue);

}

short CVcValueScale::GetMinorDivision()

{

short result;

InvokeHelper(0x5, DISPATCH_PROPERTYGET, VT_I2, (void)&result, NULL);

return result;

}

void CVcValueScale::SetMinorDivision(short nNewV alue)

{

static BYTE parms[] =

VTS_I2;

InvokeHelper(0x5, DISPATCH_PROPERTYPUT, VT_EMPTY, NULL, parms,

nNewValue);

}

C源码Part Three

#if !defined(AFX_GUDPASS_H__DA15A9C4_6732_4176_B6CB_F6584EE1C1B6__INCLUDE D_)

#define AFX_GUDPASS_H__DA15A9C4_6732_4176_B6CB_F6584EE1C1B6__INCLUDED_ #if _MSC_VER > 1000

#pragma once

#endif _MSC_VER > 1000

DPass.h : header file

#include "BaseAFX_GuComboBox.h"

#include "BaseAFX_GuButton.h"

#include "BaseAFX_GuDateTimeCtrl.h"

#include "BaseAFX_GuEdit.h"

CDPass dialog

class CDPass : public CDialog

{

Construction

public:

void Save();

bool m_X_GubInsertOrUpdate;

void Display();

void Clear();

void Enabled(bool bEnabled);

CDPass(CWnd pParent = NULL); standard constructor Dialog Data

{{AFX_GUDA TA(CDPass)

enum { IDD = IDD_PASS };

CBaseAFX_GuEdit m_X_GuEdtTGBH;

CBaseAFX_GuButton m_X_GuRadYES;

CBaseAFX_GuButton m_X_GuRadNO;

CBaseAFX_GuButton m_X_GuRadALL;

CBaseAFX_GuEdit m_X_GuEdtTDYY;

CBaseAFX_GuEdit m_X_GuEdtLRRBM;

CBaseAFX_GuEdit m_X_GuEdtLRR;

CBaseAFX_GuEdit m_X_GuEdtJGS;

CBaseAFX_GuEdit m_X_GuEdtJE;

CBaseAFX_GuEdit m_X_GuEdtHL;

CBaseAFX_GuEdit m_X_GuEdtHBJ;

CBaseAFX_GuEdit m_X_GuEdtGS;

CBaseAFX_GuEdit m_X_GuEdtFKFS;

CBaseAFX_GuEdit m_X_GuEdtCYDJMC;

CBaseAFX_GuEdit m_X_GuEdtBZJ;

CBaseAFX_GuEdit m_X_GuEdtBZ;

CBaseAFX_GuEdit m_X_GuEdtBH;

CBaseAFX_GuEdit m_X_GuEdtBGYWBH;

CBaseAFX_GuEdit m_X_GuEdtBGSJ;

BaseAFX_GuDateTimeCtrl m_X_GuDtZZSJ;

BaseAFX_GuDateTimeCtrl m_X_GuDtXCSBSJ;

BaseAFX_GuDateTimeCtrl m_X_GuDtXCFXSJ;

BaseAFX_GuDateTimeCtrl m_X_GuDtTDSJ;

BaseAFX_GuDateTimeCtrl m_X_GuDtQSSJ;

BaseAFX_GuDateTimeCtrl m_X_GuDtLRSJ;

CBaseAFX_GuComboBox m_X_GuComID;

CBaseAFX_GuButton m_X_GuChkXCFXBZ;

CBaseAFX_GuButton m_X_GuChkTDBZ;

CBaseAFX_GuButton m_X_GuChkSFJSTG;

CBaseAFX_GuButton m_X_GuChkEDIFSBZ;

CButton m_X_GuButTotal;

CButton m_X_GuButSave;

CButton m_X_GuButInto;

}}AFX_GUDA TA

Overrides

ClassWizard generated virtual function overrides

{{AFX_GUVIRTUAL(CDPass)

protected:

virtual void DoDataExchange(CDataExchange pDX); DDXDDV support

}}AFX_GUVIRTUAL

Implementation

protected:

Generated message map functions

{{AFX_GUMSG(CDPass)

virtual void OnOK();

virtual void OnCancel();

AFX_Gumsg void OnSetfocusComid();

AFX_Gumsg void OnButinto();

AFX_Gumsg void OnButsave();

virtual BOOL OnInitDialog();

AFX_Gumsg void OnButtotal();

}}AFX_GUMSG

DECLARE_MESSAGE_MAP()

};

{{AFX_GUINSERT_LOCATION}}

Microsoft Visual C++ will insert additional declarations immediately before the previous line. #endif !defined(AFX_GUDPASS_H__DA15A9C4_6732_4176_B6CB_F6584EE1C1B6__INC LUDED_)

C源码Part Four

DialogUsers.cpp : implementation file

#include "stdafx.h"

#include "a1.h"

#include "DialogUsers.h"

#include "myfunction.h"

#include "Crypt.h"

#ifdef _DEBUG

#define new DEBUG_NEW

#undef THIS_FILE

static char THIS_FILE[] = __FILE__;

#endif

CDialogUsers dialog

CDialogUsers::CDialogUsers(CWnd pParent =NULL)

: CDialog(CDialogUsers::IDD, pParent)

{

{{AFX_GUDA TA_INIT(CDialogUsers)

NOTE: the ClassWizard will add member initialization here }}AFX_GUDA TA_INIT

}

void CDialogUsers::DoDataExchange(CDataExchange pDX)

{

CDialog::DoDataExchange(pDX);

{{AFX_GUDA TA_MAP(CDialogUsers)

DDX_Control(pDX, IDC_EDIT3, m_X_GueditMM2);

DDX_Control(pDX, IDC_EDIT2, m_X_GueditMM1);

DDX_Control(pDX, IDC_EDIT1, m_X_GueditName);

DDX_Control(pDX, IDC_COMBO1, m_X_GucomboPurview);

}}AFX_GUDA TA_MAP

}

BEGIN_MESSAGE_MAP(CDialogUsers, CDialog)

{{AFX_GUMSG_MAP(CDialogUsers)

}}AFX_GUMSG_MAP

END_MESSAGE_MAP()

CDialogUsers message handlers

BOOL CDialogUsers::OnInitDialog()

{

CDialog::OnInitDialog();

LRunSql m_X_Gurunsql;

CString sql;

_variant_t value;

int i=0;

sql.Format("select from tabpurview");

if(!m_X_Gurunsql.CheckSQLResult(sql))

{

this->EndDialog(0);

return false;

}

while(!m_X_Gurunsql.m_X_Gurecordset->adoEOF)

{

value=m_X_Gurecordset->GetCollect("admi_purview");

this->m_X_GucomboPureview.InsertString(i,(char)(_bstr_t)value);

m_X_Gurunsql.m_X_Gurecordset->MoveNext();

i++;

}

this->m_X_GucomboPurview.InsertString(0,"超级用户");

this->m_X_GucomboPurview.InsertString(1,"管理员");

this->m_X_GucomboPurview.InsertString(2,"标准用户");

this->m_X_GucomboPurview.InsertString(3,"一般用户");

this->m_X_GucomboPurview.SetCurSel(3);

return TRUE; return TRUE unless you set the focus to a control

EXCEPTION: OCX Property Pages should return FALSE }

void CDialogUsers::OnOK()

{

HWND hwnd=this->GetFocus()->GetSafeHwnd();

if(hwnd==this->m_X_GueditName.GetSafeHwnd())

{

this->m_X_GueditMM1.SetFocus();

return;

}

else if(hwnd==this->m_X_GueditMM1.GetSafeHwnd())

{

this->m_X_GueditMM2.SetFocus();

return;

}

else if(hwnd==this->m_X_GueditMM2.GetSafeHwnd())

{

this->m_X_GucomboPurview.SetFocus();

return;

}

CString m_X_GusNewPW1,m_X_GusNewPW2;

this->m_X_GueditMM1.GetWindowText(m_X_GusNewPW1);

this->m_X_GueditMM2.GetWindowText(m_X_GusNewPW2);

LRunSql m_X_Gurunsql;

CString sql;

CString name;

int purview=m_X_GucomboPurview.GetCurSel();

this->m_X_GueditName.GetWindowText(name);

if(name=="")

{

MessageBox("用户名不可为空");

m_X_GueditName.SetFocus();

return;

}

if(m_X_GusNewPW1!=m_X_GusNewPW2)

{

MessageBox("请确认密码相同");

m_X_GueditMM2.SetFocus();

return;

}

else

{

try{

sql.Format("select from tabpurview where admi_name = '%s'"

,name);

if(m_X_Gurunsql.CheckSQLResult(sql))

{

MessageBox("请换一个用户名,该用户名已被注册");

return;

}

CString s_password=CCrypt::Encrypt(m_X_GusNewPW2);

sql.Format("insert into tabpurview(admi_name,admi_password,admi_purview) values('%s','%s',%d)"

,name,s_password,purview);

m_X_Gurunsql.RunSQL(sql);

}

catch(_com_X_Guerror& e)

{

AfxMessageBox(e.ErrorMessage());

return ;

}

MessageBox("成功添加新用户!","医药管理系统");

this->m_X_GustrName=name;

this->m_X_GucomboPurview.GetWindowText(m_X_GustrPurview);

}

CDialog::OnOK();

}

C源码Part One

#if !defined(AFX_GUDLGTHECK_H__182E7DA5_8864_413D_85E4_BB03E6FF2E9E__INC LUDED_)

#define

AFX_GUDLGTHECK_H__182E7DA5_8864_413D_85E4_BB03E6FF2E9E__INCLUDED_

#if _MSC_VER > 1000

#pragma once

#endif _MSC_VER > 1000

DlgTheCK.h : header file

CDlgTheCK dialog

class CDlgTheCK : public CDialog

{

Construction

public:

CDlgTheCK(CWnd pParent = NULL); standard constructor

Dialog Data

{{AFX_GUDA TA(CDlgTheCK)

enum { IDD = IDD_DIALOG_CK };

CEdit m_X_GueditName;

CComboBox m_X_GucomboYg;

}}AFX_GUDA TA

bool m_X_GubAdd;

CString m_X_GustrCkName;

CString m_X_GustrCkAdmi;

Overrides

ClassWizard generated virtual function overrides

{{AFX_GUVIRTUAL(CDlgTheCK)

protected:

virtual void DoDataExchange(CDataExchange pDX); DDXDDV support

}}AFX_GUVIRTUAL

Implementation

protected:

Generated message map functions

{{AFX_GUMSG(CDlgTheCK)

virtual BOOL OnInitDialog();

virtual void OnOK();

}}AFX_GUMSG

DECLARE_MESSAGE_MAP()

};

{{AFX_GUINSERT_LOCATION}}

Microsoft Visual C++ will insert additional declarations immediately before the previous line. #endif !defined(AFX_GUDLGTHECK_H__182E7DA5_8864_413D_85E4_BB03E6FF2E9E__ INCLUDED_)

C源码Part Two

WordGLXT.cpp : Defines the class behaviors for the application.

#include "stdafx.h"

#include "WordGLXT.h"

#include "WordGLXTDlg.h"

#ifdef _DEBUG

#define new DEBUG_NEW

#undef THIS_FILE

static char THIS_FILE[] = __FILE__;

#endif

CWordGLXTApp

BEGIN_MESSAGE_MAP(CWordGLXTApp, CWinApp)

{{AFX_GUMSG_MAP(CWordGLXTApp)

NOTE - the ClassWizard will add and remove mapping macros here.

DO NOT EDIT what you see in these blocks of generated code!

}}AFX_GUMSG

ON_COMMAND(ID_HELP, CWinApp::OnHelp)

END_MESSAGE_MAP()

CWordGLXTApp construction

CWordGLXTApp::CWordGLXTApp()

{

TODO: add construction code here,

Place all significant initialization in InitInstance

}

The one and only CWordGLXTApp object

CWordGLXTApp theApp;

CUsers user;

CWordGLXTApp initialization

BOOL CWordGLXTApp::InitInstance()

{

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

AfxInitRichEdit();

CWordGLXTDlg dlg;

m_X_GupMainWnd = &dlg;

int nResponse = dlg.DoModal();

if (nResponse == IDOK)

{

TODO: Place code here to handle when the dialog is

dismissed with OK

}

else if (nResponse == IDCANCEL)

{

TODO: Place code here to handle when the dialog is

dismissed with Cancel

}

Since the dialog has been closed, return FALSE so that we exit the

application, rather than start the application's message pump.

return FALSE;

}

C源码Part Three

DlgTheCK.cpp : implementation file

#include "stdafx.h"

#include "a1.h"

#include "DlgTheCK.h"

#include "myfunction.h"

#ifdef _DEBUG

#define new DEBUG_NEW

#undef THIS_FILE

static char THIS_FILE[] = __FILE__;

#endif

CDlgTheCK dialog

CDlgTheCK::CDlgTheCK(CWnd pParent =NULL)

: CDialog(CDlgTheCK::IDD, pParent)

{

{{AFX_GUDA TA_INIT(CDlgTheCK)

NOTE: the ClassWizard will add member initialization here }}AFX_GUDA TA_INIT

}

void CDlgTheCK::DoDataExchange(CDataExchange pDX)

{

CDialog::DoDataExchange(pDX);

{{AFX_GUDA TA_MAP(CDlgTheCK)

DDX_Control(pDX, IDC_EDIT1, m_X_GueditName);

DDX_Control(pDX, IDC_COMBO1, m_X_GucomboYg);

}}AFX_GUDA TA_MAP

}

BEGIN_MESSAGE_MAP(CDlgTheCK, CDialog)

{{AFX_GUMSG_MAP(CDlgTheCK)

}}AFX_GUMSG_MAP

END_MESSAGE_MAP()

CDlgTheCK message handlers

BOOL CDlgTheCK::OnInitDialog()

{

CDialog::OnInitDialog();

LRunSql m_X_Gurunsql;

CString str;

CString sql;_variant_t value;

sql.Format("select yg_id,yg_name from tabyginfo");

if(m_X_Gurunsql.CheckSQLResult(sql))

while(!m_X_Gurunsql.m_X_Gurecordset->adoEOF)

{

value=m_X_Gurunsql.m_X_Gurecordset->GetCollect("yg_id");

if(value.vt!=VT_NULL)

str=(char)(_bstr_t)value;

str+=":";

value=m_X_Gurunsql.m_X_Gurecordset->GetCollect("yg_name");

if(value.vt!=VT_NULL)

str+=(char)(_bstr_t)value;

this->m_X_GucomboYg.AddString(str);

m_X_Gurunsql.m_X_Gurecordset->MoveNext();

}

m_X_GucomboYg.SetCurSel(0);

if(m_X_GubAdd)

this->SetWindowText("添加新仓库");

else

{

this->SetWindowText("修改仓库");

this->m_X_GueditName.SetWindowText(m_X_GustrCkName);

this->m_X_GueditName.SetReadOnly();

int mark=-1;

if((mark=m_X_GucomboYg.FindString(-1,m_X_GustrCkAdmi))>=0) m_X_GucomboYg.SetCurSel(mark);

}

return TRUE; return TRUE unless you set the focus to a control

EXCEPTION: OCX Property Pages should return FALSE }

void CDlgTheCK::OnOK()

{

HWND hwnd=this->GetFocus()->GetSafeHwnd();

if(hwnd==this->m_X_GueditName.GetSafeHwnd())

{

this->m_X_GucomboYg.SetFocus();

return;

}

this->m_X_GucomboYg.GetWindowText(m_X_GustrCkAdmi);

CString yg_id=m_X_GustrCkAdmi.Left(m_X_GustrCkAdmi.Find(':'));

this->m_X_GueditName.GetWindowText(this->m_X_GustrCkName);

if(m_X_GustrCkName=="")

{

MessageBox("仓库名称不能为空");

m_X_GueditName.SetFocus();

return;

}

LRunSql m_X_Gurunsql;

CString sql;

if(m_X_GubAdd)

{

sql.Format("select from tabck where ck_name='%s'",this->m_X_GustrCkName);

if(m_X_Gurunsql.CheckSQLResult(sql))

{

MessageBox("该仓库已有，请换个仓库名称","注意");

return;

}

sql.Format("insert into tabck(ck_name,yg_id) values('%s','%s')",

m_X_GustrCkName,yg_id);m_X_GustrCkAdmi

m_X_Gurunsql.RunSQL(sql);

_variant_t value;CStringList slist;

sql.Format("select from tabypinfo");

m_X_Gurunsql.CheckSQLResult(sql);

while(!m_X_Gurunsql.m_X_Gurecordset->adoEOF)

{

value=m_X_Gurunsql.m_X_Gurecordset->GetCollect("yp_id");

slist.AddTail((char)(_bstr_t)value);

m_X_Gurunsql.m_X_Gurecordset->MoveNext();

}

POSITION pos=NULL;

for(pos=slist.GetHeadPosition();pos!=NULL;)

{

sql.Format("insert into tabkc(yp_id,ck_name,kc_number,alert_leverup,alert_leverdown) \

values('%s','%s',0,100000,10)",slist.GetNext(pos),m_X_GustrCkName);

m_X_Gurunsql.RunSQL(sql);

}

}

else

{

sql.Format("update tabck set yg_id='%s' where ck_name = '%s'",yg_id,m_X_GustrCkName);

m_X_Gurunsql.RunSQL(sql);

}

CDialog::OnOK();

}

C源码Part Four

Rizhib.cpp: implementation of the CRizhib class.

#include "stdafx.h"

#include "WordGLXT.h"

#include "Rizhib.h"

#ifdef _DEBUG

#undef THIS_FILE

static char THIS_FILE[]=__FILE__;

#define new DEBUG_NEW

#endif

ConstructionDestruction

CRizhib::CRizhib()

{

}

CRizhib::~CRizhib()

{

}

CString CRizhib::GetName()

{

return Name;

}

void CRizhib::SetName(CString cName)

{

Name=cName;

}

CString CRizhib::GetDLsj()

{

return DLsj;

}

void CRizhib::SetDLsj(CString cDLsj)

{

DLsj=cDLsj;

}

CString CRizhib::GetDZ()

{

return DZ;

}

void CRizhib::SetDZ(CString cDZ)

{

DZ=cDZ;

}

void CRizhib::sql_insert()

{

ADOConn m_X_GuAdoConn;

_bstr_t vSQL;

vSQL="insert into Rizhib(Name,DLsj,DZ)values('"+Name+"','"+DLsj+"','"+DZ+"')";

m_X_GuAdoConn.ExecuteSQL(vSQL);

m_X_GuAdoConn.ExitConnect();

}

C源码Part Five

#if !defined(AFX_GUVCLABELS_H__BC287B91_5455_419E_A016_2D120540CB9D__INCL

UDED_)

#define

AFX_GUVCLABELS_H__BC287B91_5455_419E_A016_2D120540CB9D__INCLUDED_

#if _MSC_VER > 1000

#pragma once

#endif _MSC_VER > 1000

Machine generated IDispatch wrapper class(es) created by Microsoft Visual C++

NOTE: Do not modify the contents of this file. If this class is regenerated by

Microsoft Visual C++, your modifications will be overwritten.

Dispatch interfaces referenced by this interface

class CVcLabel;

CVcLabels wrapper class

class CVcLabels : public COleDispatchDriver

{

public:

CVcLabels() {} Calls COleDispatchDriver default constructor

CVcLabels(LPDISPA TCH pDispatch) : COleDispatchDriver(pDispatch) {}

CVcLabels(const CVcLabels& dispatchSrc) : COleDispatchDriver(dispatchSrc) {} Attributes

public:

Operations

public:

long GetCount();

CVcLabel GetItem(short LabelIndex);

};

{{AFX_GUINSERT_LOCATION}}

Microsoft Visual C++ will insert additional declarations immediately before the previous line. #endif !defined(AFX_GUVCLABELS_H__BC287B91_5455_419E_A016_2D120540CB9D__I NCLUDED_)

Machine generated IDispatch wrapper class(es) created by Microsoft Visual C++

NOTE: Do not modify the contents of this file. If this class is regenerated by

Microsoft Visual C++, your modifications will be overwritten.

#include "stdafx.h"

#include "columns.h"

Dispatch interfaces referenced by this interface

#include "Column.h"

CColumns properties

CColumns operations

long CColumns::GetCount()

{

long result;

InvokeHelper(0x1, DISPATCH_PROPERTYGET, VT_I4, (void)&result, NULL);

return result;

}

CColumn CColumns::Add(short Index)

{

LPDISPATCH pDispatch;

static BYTE parms[] =

VTS_I2;

InvokeHelper(0x2, DISPATCH_METHOD, VT_DISPA TCH, (void)&pDispatch, parms, Index);

return CColumn(pDispatch);

}

CColumn CColumns::GetItem(const V ARIANT& Index)

{

LPDISPATCH pDispatch;

static BYTE parms[] =

VTS_V ARIANT;

InvokeHelper(0x0, DISPA TCH_PROPERTYGET, VT_DISPATCH, (void)&pDispatch, parms,

&Index);

return CColumn(pDispatch);

}

void CColumns::Remove(const V ARIANT& Index)

{

static BYTE parms[] =

VTS_V ARIANT;

InvokeHelper(0x3, DISPATCH_METHOD, VT_EMPTY, NULL, parms,

&Index);

}