Разработка информационной системы по автоматизации риэлтерской деятельности

Функциональные требования

Требования к внешнему интерфейсу

Интерфейсы пользователя-1. Экраны вывода должны соответствовать общепринятым стандартам.

Интерфейсы пользователя-2. Система должна обеспечивать ссылку на справку на каждой форме, объясняющую, как пользоваться этой формой.

Интерфейсы пользователя-3. Формы должны предоставлять полную возможность навигации и выбор при помощи клавиатуры и мыши.

Требования к системе

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

IF NOT EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[Тип образования]') AND type in (N'U'))

BEGIN

CREATE TABLE [dbo].[Тип образования](

[ID] [int] IDENTITY(1,1) NOT NULL,

[Тип образования] [nvarchar](50) NULL,

CONSTRAINT [PK_Тип образования] PRIMARY KEY CLUSTERED

([ID] ASC

)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]

) ON [PRIMARY]

END

GO

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

IF NOT EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[Модули системы]') AND type in (N'U'))

BEGIN

CREATE TABLE [dbo].[Модули системы](

[ID] [int] NOT NULL,

[Назначение] [nvarchar](50) NULL,

[Название] [nvarchar](50) NULL,

CONSTRAINT [PK_Модули системы] PRIMARY KEY CLUSTERED

(

[ID] ASC

)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]

) ON [PRIMARY]

END

GO

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

IF NOT EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[Тип степени]') AND type in (N'U'))

BEGIN

CREATE TABLE [dbo].[Тип степени](

[ID] [int] IDENTITY(1,1) NOT NULL,

[Степень] [nvarchar](50) NULL,

[Сокращение] [nchar](10) NULL,

CONSTRAINT [PK_Тип степени] PRIMARY KEY CLUSTERED

([ID] ASC

)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]

) ON [PRIMARY]

END

GO

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

IF NOT EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[Учебные заведения]') AND type in (N'U'))

BEGIN

CREATE TABLE [dbo].[Учебные заведения](

[ID] [int] IDENTITY(1,1) NOT NULL,

[Название] [nvarchar](50) NOT NULL,

[Полное название] [nvarchar](50) NULL,

[Страна] [nvarchar](50) NULL,

[Город] [nvarchar](50) NULL,

[Адрес] [nvarchar](50) NULL,

CONSTRAINT [PK_Учебные заведения] PRIMARY KEY CLUSTERED

(

[ID] ASC

)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]

) ON [PRIMARY]

END

GO

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

IF NOT EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[Отделы]') AND type in (N'U'))

BEGIN

CREATE TABLE [dbo].[Отделы](

[ID] [int] NOT NULL,

[Отдел] [nvarchar](50) NULL,

CONSTRAINT [PK_Отделы] PRIMARY KEY CLUSTERED

(

[ID] ASC

)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]

) ON [PRIMARY]

END

GO

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

IF NOT EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[Штаты]') AND type in (N'U'))

BEGIN

CREATE TABLE [dbo].[Штаты](

[ID] [int] IDENTITY(1,1) NOT NULL,

[ID_Должность] [int] NULL,

[Ставки] [real] NULL,

[ID_Отдел] [int] NOT NULL,

CONSTRAINT [PK_Штаты] PRIMARY KEY CLUSTERED

(

[ID] ASC

)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]

) ON [PRIMARY]

END

GO

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

IF NOT EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[МодульДолжность]') AND type in (N'U'))

BEGIN

CREATE TABLE [dbo].[МодульДолжность](

[ID] [int] NOT NULL,

[ID_Должность] [int] NULL,

[ID_Модуль] [int] NULL,

CONSTRAINT [PK_МодульДолжность] PRIMARY KEY CLUSTERED

(

[ID] ASC

)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]

) ON [PRIMARY]

END

GO

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

IF NOT EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[Должность]') AND type in (N'U'))

BEGIN

CREATE TABLE [dbo].[Должность](

[д] [int] IDENTITY(1,1) NOT NULL,

[Должность] [nvarchar](50) NOT NULL,

[ID_Образование] [int] NULL,

[Специализация] [smallint] NULL,

[Сертификат] [smallint] NULL,

CONSTRAINT [PK_Должность] PRIMARY KEY CLUSTERED

(

[д] ASC

)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]

) ON [PRIMARY]

END

GO

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

IF NOT EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[Специальность]') AND type in (N'U'))

BEGIN

CREATE TABLE [dbo].[Специальность](

[ID] [int] IDENTITY(1,1) NOT NULL,

[Название] [nvarchar](50) NOT NULL,

[Номер] [nchar](10) NULL,

[ID_Тип образования] [int] NULL,

CONSTRAINT [PK_Специализация] PRIMARY KEY CLUSTERED

(

[ID] ASC

)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]

) ON [PRIMARY]

END

GO

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

IF NOT EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[Персонал]') AND type in (N'U'))

BEGIN

CREATE TABLE [dbo].[Персонал](

[ID] [int] IDENTITY(1,1) NOT NULL,

[Фамилия] [nvarchar](50) NOT NULL,

[Имя] [nvarchar](50) NULL,

[Отчество] [nvarchar](50) NULL,

[Дата Рождения] [datetime] NULL,

[Адрес] [nvarchar](50) NULL,

[Телефон (домашний)] [nvarchar](50) NULL,

[Телефон (мобильный)] [nvarchar](50) NULL,

[N паспорта] [nvarchar](50) NULL,

[Когда выдан] [datetime] NULL,

[Кем выдан] [nvarchar](50) NULL,

[ИНН] [nvarchar](50) NULL,

[N страхового полиса] [nvarchar](50) NULL,

[ID_Образование] [int] NULL,

CONSTRAINT [PK_Персонал] PRIMARY KEY CLUSTERED

(

[ID] ASC

)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]

) ON [PRIMARY]

END

GO

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

IF NOT EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[Образование]') AND type in (N'U'))

BEGIN

CREATE TABLE [dbo].[Образование](

[ID] [int] NOT NULL,

[ID_Песонал] [int] NOT NULL,

[ID_Учебное заведение] [int] NOT NULL,

[Дата окончания] [datetime] NULL,

[ID_Специальность] [int] NULL,

[ID_Степень] [int] NULL,

CONSTRAINT [PK_Образование_1] PRIMARY KEY CLUSTERED

(

[ID] ASC

)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]

) ON [PRIMARY]

END

GO

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

IF NOT EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[СотрудникДолжность]') AND type in (N'U'))

BEGIN

CREATE TABLE [dbo].[СотрудникДолжность](

[ID] [int] NOT NULL,

[ID_Сотрудник] [int] NULL,

[ID_Должность_по_штату] [int] NULL,

[Назначение] [datetime] NULL,

[Увольнение] [datetime] NOT NULL,

[Нагрузка] [real] NULL,

CONSTRAINT [PK_СотрудникДолжность] PRIMARY KEY CLUSTERED

(

[ID] ASC

)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]

) ON [PRIMARY]

END

GO

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

IF NOT EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[Сотрудник]') AND type in (N'U'))

BEGIN

CREATE TABLE [dbo].[Сотрудник](

[ID] [int] IDENTITY(1,1) NOT NULL,

[ID_Персонал] [int] NOT NULL,

[Прием] [datetime] NOT NULL,

[Увольнение] [datetime] NULL,

CONSTRAINT [PK_Сотрудник] PRIMARY KEY CLUSTERED

(

[ID] ASC

)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]

) ON [PRIMARY]

END

GO

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

IF NOT EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[Работающие сотрудники]'))

EXEC dbo.sp_executesql @statement = N'CREATE VIEW [dbo].[Работающие сотрудники]

AS

SELECT dbo.Персонал.Фамилия, dbo.Персонал.Имя, dbo.Персонал.Отчество, dbo.Сотрудник.Прием, dbo.Персонал.[Дата Рождения], dbo.Персонал.Адрес,

dbo.Персонал.[Телефон (домашний)], dbo.Персонал.[Телефон (мобильный)]

FROM dbo.Персонал INNER JOIN

dbo.Сотрудник ON dbo.Персонал.ID = dbo.Сотрудник.ID_Персонал

WHERE (dbo.Сотрудник.Увольнение IS NULL)

'

GO

EXEC sys.sp_addextendedproperty @name=N'MS_DiagramPaneCount', @value=1 ,@level0type=N'SCHEMA', @level0name=N'dbo', @level1type=N'VIEW', @level1name=N'Работающие сотрудники'

GO

IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_Госпитализация_Отделения больницы]') AND parent_object_id = OBJECT_ID(N'[dbo].[Госпитализация]'))

ALTER TABLE [dbo].[Госпитализация] WITH CHECK ADD CONSTRAINT [FK_Госпитализация_Отделения больницы] FOREIGN KEY([ID_Отделение])

REFERENCES [dbo].[Отделения больницы] ([ID])

GO

IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_Госпитализация_Пациент]') AND parent_object_id = OBJECT_ID(N'[dbo].[Госпитализация]'))

ALTER TABLE [dbo].[Госпитализация] WITH CHECK ADD CONSTRAINT [FK_Госпитализация_Пациент] FOREIGN KEY([ID_Пациент])

REFERENCES [dbo].[Пациент] ([ID])

GO

IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_Штаты_Должность]') AND parent_object_id = OBJECT_ID(N'[dbo].[Штаты]'))

ALTER TABLE [dbo].[Штаты] WITH CHECK ADD CONSTRAINT [FK_Штаты_Должность] FOREIGN KEY([ID_Должность])

REFERENCES [dbo].[Должность] ([д])

GO

IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_Штаты_Отделы]') AND parent_object_id = OBJECT_ID(N'[dbo].[Штаты]'))

ALTER TABLE [dbo].[Штаты] WITH CHECK ADD CONSTRAINT [FK_Штаты_Отделы] FOREIGN KEY([ID_Отдел])

REFERENCES [dbo].[Отделы] ([ID])

GO

IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_МодульДолжность_Должность]') AND parent_object_id = OBJECT_ID(N'[dbo].[МодульДолжность]'))

ALTER TABLE [dbo].[МодульДолжность] WITH CHECK ADD CONSTRAINT [FK_МодульДолжность_Должность] FOREIGN KEY([ID_Должность])

REFERENCES [dbo].[Должность] ([д])

GO

IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_МодульДолжность_Модули системы]') AND parent_object_id = OBJECT_ID(N'[dbo].[МодульДолжность]'))

ALTER TABLE [dbo].[МодульДолжность] WITH CHECK ADD CONSTRAINT [FK_МодульДолжность_Модули системы] FOREIGN KEY([ID_Модуль])

REFERENCES [dbo].[Модули системы] ([ID])

GO

IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_Должность_Тип образования]') AND parent_object_id = OBJECT_ID(N'[dbo].[Должность]'))

ALTER TABLE [dbo].[Должность] WITH CHECK ADD CONSTRAINT [FK_Должность_Тип образования] FOREIGN KEY([ID_Образование])

REFERENCES [dbo].[Тип образования] ([ID])

GO

IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_Специальность_Тип образования]') AND parent_object_id = OBJECT_ID(N'[dbo].[Специальность]'))

ALTER TABLE [dbo].[Специальность] WITH CHECK ADD CONSTRAINT [FK_Специальность_Тип образования] FOREIGN KEY([ID_Тип образования])

REFERENCES [dbo].[Тип образования] ([ID])

GO

IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_Персонал_Тип образования]') AND parent_object_id = OBJECT_ID(N'[dbo].[Персонал]'))

ALTER TABLE [dbo].[Персонал] WITH CHECK ADD CONSTRAINT [FK_Персонал_Тип образования] FOREIGN KEY([ID_Образование])

REFERENCES [dbo].[Тип образования] ([ID])

GO

IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_Персонал_Тип образования1]') AND parent_object_id = OBJECT_ID(N'[dbo].[Персонал]'))

ALTER TABLE [dbo].[Персонал] WITH CHECK ADD CONSTRAINT [FK_Персонал_Тип образования1] FOREIGN KEY([ID_Образование])

REFERENCES [dbo].[Тип образования] ([ID])

GO

IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_Образование_Персонал]') AND parent_object_id = OBJECT_ID(N'[dbo].[Образование]'))

ALTER TABLE [dbo].[Образование] WITH CHECK ADD CONSTRAINT [FK_Образование_Персонал] FOREIGN KEY([ID_Песонал])

REFERENCES [dbo].[Персонал] ([ID])

GO

IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_Образование_Специальность]') AND parent_object_id = OBJECT_ID(N'[dbo].[Образование]'))

ALTER TABLE [dbo].[Образование] WITH CHECK ADD CONSTRAINT [FK_Образование_Специальность] FOREIGN KEY([ID_Специальность])

REFERENCES [dbo].[Специальность] ([ID])

GO

IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_Образование_Тип степени]') AND parent_object_id = OBJECT_ID(N'[dbo].[Образование]'))

ALTER TABLE [dbo].[Образование] WITH CHECK ADD CONSTRAINT [FK_Образование_Тип степени] FOREIGN KEY([ID_Степень])

REFERENCES [dbo].[Тип степени] ([ID])

GO

IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_Образование_Учебные заведения]') AND parent_object_id = OBJECT_ID(N'[dbo].[Образование]'))

ALTER TABLE [dbo].[Образование] WITH CHECK ADD CONSTRAINT [FK_Образование_Учебные заведения] FOREIGN KEY([ID_Учебное заведение])

REFERENCES [dbo].[Учебные заведения] ([ID])

GO

IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_СотрудникДолжность_Сотрудник]') AND parent_object_id = OBJECT_ID(N'[dbo].[СотрудникДолжность]'))

ALTER TABLE [dbo].[СотрудникДолжность] WITH CHECK ADD CONSTRAINT [FK_СотрудникДолжность_Сотрудник] FOREIGN KEY([ID_Сотрудник])

REFERENCES [dbo].[Сотрудник] ([ID])

GO

IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_СотрудникДолжность_Штаты]') AND parent_object_id = OBJECT_ID(N'[dbo].[СотрудникДолжность]'))

ALTER TABLE [dbo].[СотрудникДолжность] WITH CHECK ADD CONSTRAINT [FK_СотрудникДолжность_Штаты] FOREIGN KEY([ID_Должность_по_штату])

REFERENCES [dbo].[Штаты] ([ID])

GO

IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_Сотрудник_Персонал]') AND parent_object_id = OBJECT_ID(N'[dbo].[Сотрудник]'))

ALTER TABLE [dbo].[Сотрудник] WITH CHECK ADD CONSTRAINT [FK_Сотрудник_Персонал] FOREIGN KEY([ID_Персонал])

REFERENCES [dbo].[Персонал] ([ID])

Приложение Д - Тексты программ

Заголовочный файл класса реализации

#pragma once

#include "resource.h" // main symbols

#include <atlctl.h>

#include "PersonalATL.h"

#include "_IPersotalDlgEvents_CP.h"

#include "DataRowset.h"

#if defined(_WIN32_WCE) && !defined(_CE_DCOM) && !defined(_CE_ALLOW_SINGLE_THREADED_OBJECTS_IN_MTA)

#error "Single-threaded COM objects are not properly supported on Windows CE platform, such as the Windows Mobile platforms that do not include full DCOM support. Define _CE_ALLOW_SINGLE_THREADED_OBJECTS_IN_MTA to force ATL to support creating single-thread COM object's and allow use of it's single-threaded COM object implementations. The threading model in your rgs file was set to 'Free' as that is the only threading model supported in non DCOM Windows CE platforms."

#endif

// CPersonalDlg

class ATL_NO_VTABLE CPersonalDlg :

public CComObjectRootEx<CComSingleThreadModel>,

public CStockPropImpl<CPersonalDlg, IPersonalDlg>,

public IPersistStreamInitImpl<CPersonalDlg>,

public IOleControlImpl<CPersonalDlg>,

public IOleObjectImpl<CPersonalDlg>,

public IOleInPlaceActiveObjectImpl<CPersonalDlg>,

public IViewObjectExImpl<CPersonalDlg>,

public IOleInPlaceObjectWindowlessImpl<CPersonalDlg>,

public ISupportErrorInfo,

public IConnectionPointContainerImpl<CPersonalDlg>,

public CProxy_IPersonalDlgEvents<CPersonalDlg>,

public IPersistStorageImpl<CPersonalDlg>,

public ISpecifyPropertyPagesImpl<CPersonalDlg>,

public IQuickActivateImpl<CPersonalDlg>,

#ifndef _WIN32_WCE

public IDataObjectImpl<CPersonalDlg>,

#endif

public IProvideClassInfo2Impl<&CLSID_PersonalDlg, &__uuidof(_IPersonalDlgEvents), &LIBID_PersonalATLLib>,

#ifdef _WIN32_WCE

public IObjectSafetyImpl<CPersonalDlg, INTERFACESAFE_FOR_UNTRUSTED_CALLER>,

#endif

public CComCoClass<CPersonalDlg, &CLSID_PersonalDlg>,

public CComCompositeControl<CPersonalDlg>

{

public:

CPersonalDlg()

{

m_bWindowOnly = TRUE;

CalcExtent(m_sizeExtent);

}

DECLARE_OLEMISC_STATUS(OLEMISC_RECOMPOSEONRESIZE |

OLEMISC_CANTLINKINSIDE |

OLEMISC_INSIDEOUT |

OLEMISC_ACTIVATEWHENVISIBLE |

OLEMISC_SETCLIENTSITEFIRST

)

DECLARE_REGISTRY_RESOURCEID(IDR_PERSOTALDLG)

BEGIN_COM_MAP(CPersonalDlg)

COM_INTERFACE_ENTRY(IPersonalDlg)

COM_INTERFACE_ENTRY(IDispatch)

COM_INTERFACE_ENTRY(IViewObjectEx)

COM_INTERFACE_ENTRY(IViewObject2)

COM_INTERFACE_ENTRY(IViewObject)

COM_INTERFACE_ENTRY(IOleInPlaceObjectWindowless)

COM_INTERFACE_ENTRY(IOleInPlaceObject)

COM_INTERFACE_ENTRY2(IOleWindow, IOleInPlaceObjectWindowless)

COM_INTERFACE_ENTRY(IOleInPlaceActiveObject)

COM_INTERFACE_ENTRY(IOleControl)

COM_INTERFACE_ENTRY(IOleObject)

COM_INTERFACE_ENTRY(IPersistStreamInit)

COM_INTERFACE_ENTRY2(IPersist, IPersistStreamInit)

COM_INTERFACE_ENTRY(ISupportErrorInfo)

COM_INTERFACE_ENTRY(IConnectionPointContainer)

COM_INTERFACE_ENTRY(ISpecifyPropertyPages)

COM_INTERFACE_ENTRY(IQuickActivate)

COM_INTERFACE_ENTRY(IPersistStorage)

#ifndef _WIN32_WCE

COM_INTERFACE_ENTRY(IDataObject)

#endif

COM_INTERFACE_ENTRY(IProvideClassInfo)

COM_INTERFACE_ENTRY(IProvideClassInfo2)

#ifdef _WIN32_WCE // IObjectSafety is required on Windows CE for the control to be loaded correctly

COM_INTERFACE_ENTRY_IID(IID_IObjectSafety, IObjectSafety)

#endif

END_COM_MAP()

BEGIN_PROP_MAP(CPersonalDlg)

PROP_DATA_ENTRY("_cx", m_sizeExtent.cx, VT_UI4)

PROP_DATA_ENTRY("_cy", m_sizeExtent.cy, VT_UI4)

PROP_ENTRY("AutoSize", DISPID_AUTOSIZE, CLSID_NULL)

PROP_ENTRY("TabStop", DISPID_TABSTOP, CLSID_NULL)

PROP_ENTRY("Text", DISPID_TEXT, CLSID_NULL)

// Example entries

// PROP_ENTRY("Property Description", dispid, clsid)

// PROP_PAGE(CLSID_StockColorPage)

END_PROP_MAP()

BEGIN_CONNECTION_POINT_MAP(CPersonalDlg)

CONNECTION_POINT_ENTRY(__uuidof(_IPersonalDlgEvents))

END_CONNECTION_POINT_MAP()

BEGIN_MSG_MAP(CPersonalDlg)

MESSAGE_HANDLER(WM_INITDIALOG, OnInitDialog)

NOTIFY_HANDLER(IDC_DATETIMEPICKER, DTN_DATETIMECHANGE, OnDtnDatetimechangeDatetimepicker)

MESSAGE_HANDLER(WM_DESTROY, OnDestroy)

NOTIFY_HANDLER(IDC_DATEPASP, DTN_DATETIMECHANGE, OnDtnDatetimechangeDatepasp)

COMMAND_HANDLER(IDC_TYPE_ED, CBN_SELCHANGE, OnCbnSelchangeTypeEd)

COMMAND_HANDLER(IDC_FAMILY, EN_UPDATE, OnEnUpdateFamily)

COMMAND_HANDLER(IDC_NEXT, BN_CLICKED, OnBnClickedNext)

COMMAND_HANDLER(IDC_PROPERTY, BN_CLICKED, OnBnClickedProperty)

COMMAND_HANDLER(IDC_END, BN_CLICKED, OnBnClickedEnd)

COMMAND_HANDLER(IDC_PREV, BN_CLICKED, OnBnClickedPrev)

COMMAND_HANDLER(IDC_BEGIN, BN_CLICKED, OnBnClickedBegin)

COMMAND_HANDLER(IDC_DELETE, BN_CLICKED, OnBnClickedDelete)

COMMAND_HANDLER(IDC_ADD, BN_CLICKED, OnBnClickedAdd)

COMMAND_HANDLER(IDC_APPLY, BN_CLICKED, OnBnClickedApply)

CHAIN_MSG_MAP(CComCompositeControl<CPersonalDlg>)

END_MSG_MAP()

BEGIN_SINK_MAP(CPersonalDlg)

//Make sure the Event Handlers have __stdcall calling convention

END_SINK_MAP()

STDMETHOD(OnAmbientPropertyChange)(DISPID dispid)

{

if (dispid == DISPID_AMBIENT_BACKCOLOR)

{

SetBackgroundColorFromAmbient();

FireViewChange();

}

return IOleControlImpl<CPersonalDlg>::OnAmbientPropertyChange(dispid);

}

// ISupportsErrorInfo

STDMETHOD(InterfaceSupportsErrorInfo)(REFIID riid)

{

static const IID* arr[] =

{

&IID_IPersonalDlg,

};

for (int i=0; i<sizeof(arr)/sizeof(arr[0]); i++)

{

if (InlineIsEqualGUID(*arr[i], riid))

return S_OK;

}

return S_FALSE;

}

// IViewObjectEx

DECLARE_VIEW_STATUS(VIEWSTATUS_SOLIDBKGND | VIEWSTATUS_OPAQUE)

// IPersonalDlg

void OnAutoSizeChanged()

{ ATLTRACE(_T("OnAutoSizeChanged\n"));}

BOOL m_bTabStop;

void OnTabStopChanged()

{

ATLTRACE(_T("OnTabStopChanged\n"));

}

CComBSTR m_bstrText;

void OnTextChanged()

{

ATLTRACE(_T("OnTextChanged\n"));

}

enum { IDD = IDD_PERSOTALDLG };

DECLARE_PROTECT_FINAL_CONSTRUCT()

HRESULT FinalConstruct()

{

N=NULL;

Nmax = 0;

return S_OK;

}

protected:

int *N;

int Nmax;

struct Personal mData;

public:

LRESULT OnInitDialog(UINT uMsg, WPARAM wParam, LPARAM lParam, BOOL& bHandled);

LRESULT OnDestroy(UINT, WPARAM, LPARAM, BOOL& /*bHandled*/);

LRESULT OnDtnDatetimechangeDatetimepicker(int, LPNMHDR pNMHDR, BOOL&);

LRESULT OnDtnDatetimechangeDatepasp(int, LPNMHDR pNMHDR, BOOL&);

LRESULT OnCbnSelchangeTypeEd(WORD, WORD, HWND, BOOL& /*bHandled*/);

LRESULT OnEnUpdateFamily(WORD, WORD, HWND, BOOL& /*bHandled*/);

LRESULT OnBnClickedNext(WORD, WORD, HWND /*hWndCtl*/, BOOL& /*bHandled*/);

LRESULT OnBnClickedProperty(WORD, WORD, HWND, BOOL& /*bHandled*/);

LRESULT OnBnClickedEnd(WORD, WORD, HWND /*hWndCtl*/, BOOL& /*bHandled*/);

LRESULT OnBnClickedPrev(WORD, WORD, HWND /*hWndCtl*/, BOOL& /*bHandled*/);

LRESULT OnBnClickedBegin(WORD, WORD, HWND, BOOL& /*bHandled*/);

LRESULT OnBnClickedDelete(WORD, WORD, HWND, BOOL& /*bHandled*/);

LRESULT OnBnClickedAdd(WORD, WORD, HWND, BOOL& /*bHandled*/);

LRESULT OnBnClickedApply(WORD, WORD, HWND, BOOL& /*bHandled*/);

};

OBJECT_ENTRY_AUTO(__uuidof(PersonalDlg), CPersonalDlg)

Класс возвращаемой выборки CDataRowsetAccessor

class CDataRowsetAccessor

DEFINE_COMMAND_EX(CDataRowsetAccessor, L"SELECT * FROM [Персонал]")

// In order to fix several issues with some providers, the code below may bind

// columns in a different order than reported by the provider

BEGIN_COLUMN_MAP(CDataRowsetAccessor)

COLUMN_ENTRY_LENGTH_STATUS(1, m_Data.m_ID, m_dwIDLength, m_dwIDStatus)

COLUMN_ENTRY_LENGTH_STATUS(2, m_Data.m_column0, m_dwcolumn0Length, m_dwcolumn0Status)

COLUMN_ENTRY_LENGTH_STATUS(3, m_Data.m_column1, m_dwcolumn1Length, m_dwcolumn1Status)

COLUMN_ENTRY_LENGTH_STATUS(4, m_Data.m_column2, m_dwcolumn2Length, m_dwcolumn2Status)

COLUMN_ENTRY_LENGTH_STATUS(5, m_Data.m_column3, m_dwcolumn3Length, m_dwcolumn3Status)

COLUMN_ENTRY_LENGTH_STATUS(6, m_Data.m_column5, m_dwcolumn5Length, m_dwcolumn5Status)

COLUMN_ENTRY_LENGTH_STATUS(7, m_Data.m_column6, m_dwcolumn6Length, m_dwcolumn6Status)

COLUMN_ENTRY_LENGTH_STATUS(8, m_Data.m_N, m_dwNLength, m_dwNStatus)

COLUMN_ENTRY_LENGTH_STATUS(9, m_Data.m_column7, m_dwcolumn7Length, m_dwcolumn7Status)

COLUMN_ENTRY_LENGTH_STATUS(10, m_Data.m_column8, m_dwcolumn8Length, m_dwcolumn8Status)

COLUMN_ENTRY_LENGTH_STATUS(11, m_Data.m_column9, m_dwcolumn9Length, m_dwcolumn9Status)

COLUMN_ENTRY_LENGTH_STATUS(12, m_Data.m_N1, m_dwN1Length, m_dwN1Status)

COLUMN_ENTRY_LENGTH_STATUS(13, m_Data.m_column4, m_dwcolumn4Length, m_dwcolumn4Status)

COLUMN_ENTRY_LENGTH_STATUS(14, m_Data.m_ID_, m_dwID_Length, m_dwID_Status)

END_COLUMN_MAP()

};

Приложение Е. ОБОСНОВАНИЕ МОДЕЛИ ВЫБОРА ЖИЗНЕННОГО ЦИКЛА