Разработка информационно-аналитической системы контакт-центра

end;

/ / Close;

end;

procedure TForm3. BitBtn2Click(Sender: TObject);

begin

Form1. Close;

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, unit2, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Buttons;

type

TForm4 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *. dfm}

procedure TForm4. BitBtn1Click(Sender: TObject);

begin

DataModule2. ADOTable1. Cancel;

DataModule2. ADOTable1. Active: =false;

Close;

end;

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, unit2, StdCtrls, Buttons,

Mask;

type

TForm5 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

BitBtn1: TBitBtn;

DBLookupComboBox1: TDBLookupComboBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *. dfm}

procedure TForm5. BitBtn1Click(Sender: TObject);

begin

DataModule2. ADOTable5. Cancel;

Close;

end;

procedure TForm5. BitBtn2Click(Sender: TObject);

begin

DataModule2. ADOTable5. Edit;

DataModule2. ADOTable5. FieldByName('Id_status'). AsString: =DBLookupComboBox1. KeyValue;

DataModule2. ADOTable5. Post;

end;

end.

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, unit2, StdCtrls, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids;

type

TForm6 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

{$R *. dfm}

procedure TForm6. BitBtn1Click(Sender: TObject);

begin

DataModule2. ADOTable2. Cancel;

DataModule2. ADOTable2. Active: =false;

Close;

end;

end.

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, DBCtrls, Unit2;

type

TForm7 = class(TForm)

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

DBLookupComboBox1: TDBLookupComboBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit1;

{$R *. dfm}

procedure TForm7. BitBtn2Click(Sender: TObject);

begin

Close;

end;

procedure TForm7. BitBtn1Click(Sender: TObject);

begin

DataModule2. ADOTable4. Active: =true;

DataModule2. ADOTable4. InsertRecord([Edit2. Text, Edit3. Text, Edit4. Text, Edit5. Text, Edit6. Text, Edit7. Text, Edit8. Text, Edit9. Text, Form1. Label1. Caption, DBLookupComboBox1. KeyValue]);

Close;

end;

end.

unit Unit8;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Unit2, DBCtrls, ExtCtrls, Grids, DBGrids, StdCtrls, Buttons,

Mask;

type

TForm8 = class(TForm)

DBLookupComboBox1: TDBLookupComboBox;

Label1: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Label2: TLabel;

Label3: TLabel;

Edit2: TEdit;

MaskEdit1: TMaskEdit;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

{$R *. dfm}

procedure TForm8. BitBtn1Click(Sender: TObject);

begin

Close;

end;

procedure TForm8. BitBtn2Click(Sender: TObject);

Var max_num: integer;

begin

DataModule2. ADOQuery2. Active: =false;

DataModule2. ADOQuery2. Active: =true;

DataModule2. ADOTable8. Active: =true;

DataModule2. ADOTable8. InsertRecord([MaskEdit1. Text, DBLookupComboBox1. KeyValue, Edit2. Text]);

Close;

end;

end.

unit Unit9;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids, Mask;

type

TForm9 = class(TForm)

DBLookupComboBox1: TDBLookupComboBox;

Label1: TLabel;

BitBtn1: TBitBtn;

Label2: TLabel;

Label3: TLabel;

Edit2: TEdit;

MaskEdit1: TMaskEdit;

BitBtn2: TBitBtn;

Label4: TLabel;

Edit1: TEdit;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses Unit2;

{$R *. dfm}

procedure TForm9. BitBtn1Click(Sender: TObject);

begin

Close;

end;

procedure TForm9. BitBtn2Click(Sender: TObject);

begin

DataModule2. ADOTable9. Active: =true;

DataModule2. ADOTable9. InsertRecord([MaskEdit1. Text, DBLookupComboBox1. KeyValue, Edit2. Text, Edit1. Text]);

Close;

end;

end.

unit Unit10;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, unit2, ExtCtrls, QuickRpt, QRCtrls;

type

TForm10 = class(TForm)

QuickRep1: TQuickRep;

TitleBand1: TQRBand;

QRLabel1: TQRLabel;

PageFooterBand1: TQRBand;

DetailBand1: TQRBand;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRSysData1: TQRSysData;

QRSysData2: TQRSysData;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

implementation

{$R *. dfm}

end.

unit Unit11;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, unit2, ExtCtrls, QuickRpt, QRCtrls;

type

TForm11 = class(TForm)

QuickRep1: TQuickRep;

TitleBand1: TQRBand;

PageFooterBand1: TQRBand;

DetailBand1: TQRBand;

ColumnHeaderBand1: TQRBand;

QRLabel1: TQRLabel;

QRLabel4: TQRLabel;

QRLabel3: TQRLabel;

QRLabel5: TQRLabel;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRSysData2: TQRSysData;

QRSysData1: TQRSysData;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form11: TForm11;

implementation

{$R *. dfm}

end.

Приложение 3. ЛИСТИНГ СКРИПТОВ БАЗЫ ДАННЫХ

USE [master]

GO

/ ****** Object: Database [simpaza] Script Date: 04/06/2009 06: 34: 09 ****** /

CREATE DATABASE [simpaza] ON PRIMARY

(NAME = N'simpaza', FILENAME = N'C: \Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\DATA\simpaza. mdf', SIZE = 2048KB, MAXSIZE = UNLIMITED, FILEGROWTH = 1024KB)

LOG ON

(NAME = N'simpaza_log', FILENAME = N'C: \Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\DATA\simpaza_log. ldf', SIZE = 1024KB, MAXSIZE = 2048GB, FILEGROWTH = 10%)

COLLATE SQL_Latin1_General_CP1_CI_AS

GO

EXEC dbo. sp_dbcmptlevel @dbname=N'simpaza', @new_cmptlevel=90

GO

IF (1 = FULLTEXTSERVICEPROPERTY('IsFullTextInstalled'))

begin

EXEC [simpaza]. [dbo]. [sp_fulltext_database] @action = 'disable'

end

GO

ALTER DATABASE [simpaza] SET ANSI_NULL_DEFAULT OFF

GO

ALTER DATABASE [simpaza] SET ANSI_NULLS OFF

GO

ALTER DATABASE [simpaza] SET ANSI_PADDING OFF

GO

ALTER DATABASE [simpaza] SET ANSI_WARNINGS OFF

GO

ALTER DATABASE [simpaza] SET ARITHABORT OFF

GO

ALTER DATABASE [simpaza] SET AUTO_CLOSE OFF

GO

ALTER DATABASE [simpaza] SET AUTO_CREATE_STATISTICS ON

GO

ALTER DATABASE [simpaza] SET AUTO_SHRINK OFF

GO

ALTER DATABASE [simpaza] SET AUTO_UPDATE_STATISTICS ON

GO

ALTER DATABASE [simpaza] SET CURSOR_CLOSE_ON_COMMIT OFF

GO

ALTER DATABASE [simpaza] SET CURSOR_DEFAULT GLOBAL

GO

ALTER DATABASE [simpaza] SET CONCAT_NULL_YIELDS_NULL OFF

GO

ALTER DATABASE [simpaza] SET NUMERIC_ROUNDABORT OFF

GO

ALTER DATABASE [simpaza] SET QUOTED_IDENTIFIER OFF

GO

ALTER DATABASE [simpaza] SET RECURSIVE_TRIGGERS OFF

GO

ALTER DATABASE [simpaza] SET ENABLE_BROKER

GO

ALTER DATABASE [simpaza] SET AUTO_UPDATE_STATISTICS_ASYNC OFF

GO

ALTER DATABASE [simpaza] SET DATE_CORRELATION_OPTIMIZATION OFF

GO

ALTER DATABASE [simpaza] SET TRUSTWORTHY OFF

GO

ALTER DATABASE [simpaza] SET ALLOW_SNAPSHOT_ISOLATION OFF

GO

ALTER DATABASE [simpaza] SET PARAMETERIZATION SIMPLE

GO

ALTER DATABASE [simpaza] SET READ_WRITE

GO

ALTER DATABASE [simpaza] SET RECOVERY FULL

GO

ALTER DATABASE [simpaza] SET MULTI_USER

GO

ALTER DATABASE [simpaza] SET PAGE_VERIFY CHECKSUM

GO

ALTER DATABASE [simpaza] SET DB_CHAINING OFF

/ ****** Object: Login [simp] Script Date: 04/06/2009 06: 38: 59 ****** /

/ * For security reasons the login is created disabled and with a random password. * /

/ ****** Object: Login [simp] Script Date: 04/06/2009 06: 38: 59 ****** /

CREATE LOGIN [simp] WITH PASSWORD=N'›YAS?! ‰s¤i??R$?E¤?EO

aYeEl1_?; ', DEFAULT_DATABASE= [simpaza], DEFAULT_LANGUAGE= [us_english], CHECK_EXPIRATION=ON, CHECK_POLICY=ON

GO

EXEC sys. sp_addsrvrolemember @loginame = N'simp', @rolename = N'sysadmin'

GO

EXEC sys. sp_addsrvrolemember @loginame = N'simp', @rolename = N'securityadmin'

GO

EXEC sys. sp_addsrvrolemember @loginame = N'simp', @rolename = N'serveradmin'

GO

EXEC sys. sp_addsrvrolemember @loginame = N'simp', @rolename = N'setupadmin'

GO

EXEC sys. sp_addsrvrolemember @loginame = N'simp', @rolename = N'processadmin'

GO

EXEC sys. sp_addsrvrolemember @loginame = N'simp', @rolename = N'diskadmin'

GO

EXEC sys. sp_addsrvrolemember @loginame = N'simp', @rolename = N'dbcreator'

GO

EXEC sys. sp_addsrvrolemember @loginame = N'simp', @rolename = N'bulkadmin'

GO

ALTER LOGIN [simp] DISABLE

USE [simpaza]

GO

/ ****** Object: Table [dbo]. [Manager] Script Date: 04/06/2009 06: 54: 40 ****** /

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

SET ANSI_PADDING ON

GO

CREATE TABLE [dbo]. [Manager] (

[Id_manager] [bigint] IDENTITY(1,1) NOT NULL,

[FIO_manager] [varchar] (30) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,

[Login] [varchar] (20) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,

[Pass] [varchar] (20) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,

[Level] [bigint] NULL

) ON [PRIMARY]

GO

SET ANSI_PADDING OFF

USE [simpaza]

GO

/ ****** Object: Table [dbo]. [Status] Script Date: 04/06/2009 06: 55: 04 ****** /

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

SET ANSI_PADDING ON

GO

CREATE TABLE [dbo]. [Status] (

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

[Status] [varchar] (20) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL

) ON [PRIMARY]

GO

SET ANSI_PADDING OFF

USE [simpaza]

GO

/ ****** Object: Table [dbo]. [Customer] Script Date: 04/06/2009 06: 55: 14 ****** /

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

SET ANSI_PADDING ON

GO

CREATE TABLE [dbo]. [Customer] (

[Name_organiz] [varchar] (30) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,

[Activities] [varchar] (50) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,

[Address] [varchar] (50) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,

[Telephone] [varchar] (50) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,

[E_mail] [varchar] (50) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,

[Site] [varchar] (50) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,

[Contact] [varchar] (50) COLLATE SQL_SwedishStd_Pref_CP1_CI_AS NULL,

[Info] [varchar] (150) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,

[Id_manager] [int] NULL,

[Id_status] [int] NULL,

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

) ON [PRIMARY]

GO

SET ANSI_PADDING OFF

USE [simpaza]

GO

/ ****** Object: Table [dbo]. [Call] Script Date: 04/06/2009 06: 55: 29 ****** /

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

SET ANSI_PADDING ON

GO

CREATE TABLE [dbo]. [Call] (

[Date] [datetime] NULL,

[Id_customer] [int] NULL,

[Comments] [varchar] (150) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,

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

[Id_manager] [int] NULL

) ON [PRIMARY]

GO

SET ANSI_PADDING OFF

USE [simpaza]

GO

/ ****** Object: Table [dbo]. [Meeting] Script Date: 04/06/2009 06: 55: 41 ****** /

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

SET ANSI_PADDING ON

GO

CREATE TABLE [dbo]. [Meeting] (

[Date] [datetime] NULL,

[Id_customer] [int] NULL,

[Comments] [varchar] (150) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,

[Place] [varchar] (50) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,

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

[Id_manager] [int] NULL

) ON [PRIMARY]

GO

SET ANSI_PADDING OFF

USE [simpaza]

GO

/ ****** Object: View [dbo]. [Customer_Status] Script Date: 04/06/2009 06: 37: 20 ****** /

SET ANSI_NULLS OFF

GO

SET QUOTED_IDENTIFIER ON

GO

CREATE VIEW [dbo]. [Customer_Status]

WITH VIEW_METADATA

AS

SELECT dbo. Status. Status, dbo. Customer. Id_customer, dbo. Customer. Name_organiz, dbo. Customer. Activities, dbo. Customer. Address,

dbo. Customer. Telephone, dbo. Customer. E_mail, dbo. Customer. Site, dbo. Customer. Contact, dbo. Customer. Info, dbo. Customer. Id_manager,

dbo. Customer. Id_status

FROM dbo. Customer LEFT OUTER JOIN

dbo. Status ON dbo. Customer. Id_status = dbo. Status. Id_status

GO

EXEC sys. sp_addextendedproperty @name=N'MS_DiagramPane1', @value=N' [0E232FF0-B466-11cf-A24F-00AA00A3EFFF, 1.00]

Begin DesignProperties =

Begin PaneConfigurations =

Begin PaneConfiguration = 0

NumPanes = 4

Configuration = "(H (1 [41] 4 [33] 2 [8] 3))"

End

Begin PaneConfiguration = 1

NumPanes = 3

Configuration = "(H (1 [50] 4 [25] 3))"

End

Begin PaneConfiguration = 2

NumPanes = 3

Configuration = "(H (1 [50] 2 [25] 3))"

End

Begin PaneConfiguration = 3

NumPanes = 3

Configuration = "(H (4 [30] 2 [40] 3))"

End

Begin PaneConfiguration = 4

NumPanes = 2

Configuration = "(H (1 [56] 3))"

End

Begin PaneConfiguration = 5

NumPanes = 2

Configuration = "(H (2 [66] 3))"

End

Begin PaneConfiguration = 6

NumPanes = 2

Configuration = "(H (4 [50] 3))"

End

Begin PaneConfiguration = 7

NumPanes = 1

Configuration = "(V (3))"

End

Begin PaneConfiguration = 8

NumPanes = 3

Configuration = "(H (1 [56] 4 [18] 2))"

End

Begin PaneConfiguration = 9

NumPanes = 2

Configuration = "(H (1 [75] 4))"

End

Begin PaneConfiguration = 10

NumPanes = 2

Configuration = "(H (1 [66] 2))"

End

Begin PaneConfiguration = 11

NumPanes = 2

Configuration = "(H (4 [60] 2))"

End

Begin PaneConfiguration = 12

NumPanes = 1

Configuration = "(H (1))"

End

Begin PaneConfiguration = 13

NumPanes = 1

Configuration = "(V (4))"

End

Begin PaneConfiguration = 14

NumPanes = 1

Configuration = "(V (2))"

End

ActivePaneConfig = 0

End

Begin DiagramPane =

Begin Origin =

Top = 0

Left = 0

End

Begin Tables =

Begin Table = "Customer"

Begin Extent =

Top = 6

Left = 38

Bottom = 114

Right = 189

End

DisplayFlags = 280

TopColumn = 0

End

Begin Table = "Status"

Begin Extent =

Top = 6

Left = 227

Bottom = 84

Right = 378

End

DisplayFlags = 280

TopColumn = 0

End

End

End

Begin SQLPane =

End

Begin DataPane =

Begin ParameterDefaults = ""

End

End

Begin CriteriaPane =

Begin ColumnWidths = 11

Column = 1440

Alias = 900

Table = 1170

Output = 720

Append = 1400

NewValue = 1170

SortType = 1350

SortOrder = 1410

GroupBy = 1350

Filter = 1350

Or = 1350

Or = 1350

Or = 1350

End

End

End

',@level0type=N'SCHEMA', @level0name=N'dbo', @level1type=N'VIEW', @level1name=N'Customer_Status'

GO

EXEC sys. sp_addextendedproperty @name=N'MS_DiagramPaneCount', @value=1,@level0type=N'SCHEMA', @level0name=N'dbo', @level1type=N'VIEW', @level1name=N'Customer_Status'

USE [simpaza]

GO

/ ****** Object: View [dbo]. [Calls] Script Date: 04/06/2009 06: 37: 32 ****** /

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

CREATE VIEW [dbo]. [Calls]

WITH VIEW_METADATA

AS

SELECT dbo. Customer. Id_customer AS Expr1, dbo. Customer. Name_organiz, dbo. Call. Id_call, dbo. Call. Date, dbo. Call. Id_customer, dbo. Call. Comments,

dbo. Customer. Id_manager

FROM dbo. Call INNER JOIN

dbo. Customer ON dbo. Call. Id_customer = dbo. Customer. Id_customer

GO

EXEC sys. sp_addextendedproperty @name=N'MS_DiagramPane1', @value=N' [0E232FF0-B466-11cf-A24F-00AA00A3EFFF, 1.00]

Begin DesignProperties =

Begin PaneConfigurations =

Begin PaneConfiguration = 0

NumPanes = 4

Configuration = "(H (1 [41] 4 [47] 2 [5] 3))"

End

Begin PaneConfiguration = 1

NumPanes = 3

Configuration = "(H (1 [50] 4 [25] 3))"

End

Begin PaneConfiguration = 2

NumPanes = 3

Configuration = "(H (1 [50] 2 [25] 3))"

End

Begin PaneConfiguration = 3

NumPanes = 3

Configuration = "(H (4 [30] 2 [40] 3))"

End

Begin PaneConfiguration = 4

NumPanes = 2

Configuration = "(H (1 [56] 3))"

End

Begin PaneConfiguration = 5

NumPanes = 2

Configuration = "(H (2 [66] 3))"

End

Begin PaneConfiguration = 6

NumPanes = 2

Configuration = "(H (4 [50] 3))"

End

Begin PaneConfiguration = 7

NumPanes = 1

Configuration = "(V (3))"

End

Begin PaneConfiguration = 8

NumPanes = 3

Configuration = "(H (1 [56] 4 [18] 2))"

End

Begin PaneConfiguration = 9

NumPanes = 2

Configuration = "(H (1 [75] 4))"

End

Begin PaneConfiguration = 10

NumPanes = 2

Configuration = "(H (1 [66] 2))"

End

Begin PaneConfiguration = 11

NumPanes = 2

Configuration = "(H (4 [60] 2))"

End

Begin PaneConfiguration = 12

NumPanes = 1

Configuration = "(H (1))"

End

Begin PaneConfiguration = 13

NumPanes = 1

Configuration = "(V (4))"

End

Begin PaneConfiguration = 14

NumPanes = 1

Configuration = "(V (2))"

End

ActivePaneConfig = 0

End

Begin DiagramPane =

Begin Origin =

Top = 0

Left = 0

End

Begin Tables =

Begin Table = "Call"

Begin Extent =

Top = 6

Left = 38

Bottom = 160

Right = 189

End

DisplayFlags = 280

TopColumn = 1

End

Begin Table = "Customer"

Begin Extent =

Top = 6

Left = 227

Bottom = 114

Right = 378

End

DisplayFlags = 280

TopColumn = 7

End

End

End

Begin SQLPane =

End

Begin DataPane =

Begin ParameterDefaults = ""

End

Begin ColumnWidths = 9

Width = 284

Width = 1500

Width = 1500

Width = 1500

Width = 1500

Width = 1500

Width = 1500

Width = 1500

Width = 1500

End

End

Begin CriteriaPane =

Begin ColumnWidths = 11

Column = 1440

Alias = 900

Table = 1170

Output = 720

Append = 1400

NewValue = 1170

SortType = 1350

SortOrder = 1410

GroupBy = 1350

Filter = 1350

Or = 1350

Or = 1350

Or = 1350

End

End

End

',@level0type=N'SCHEMA', @level0name=N'dbo', @level1type=N'VIEW', @level1name=N'Calls'

GO

EXEC sys. sp_addextendedproperty @name=N'MS_DiagramPaneCount', @value=1,@level0type=N'SCHEMA', @level0name=N'dbo', @level1type=N'VIEW', @level1name=N'Calls'

USE [simpaza]

GO

/ ****** Object: View [dbo]. [Meetings] Script Date: 04/06/2009 06: 37: 44 ****** /

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

CREATE VIEW [dbo]. [Meetings]

WITH VIEW_METADATA

AS

SELECT dbo. Customer. Id_customer AS Expr1, dbo. Customer. Name_organiz, dbo. Meeting. Date, dbo. Meeting. Comments, dbo. Meeting. Place,

dbo. Meeting. Id_meeting, dbo. Meeting. Id_customer, dbo. Customer. Id_manager

FROM dbo. Meeting INNER JOIN

dbo. Customer ON dbo. Meeting. Id_customer = dbo. Customer. Id_customer

WITH CHECK OPTION

GO

EXEC sys. sp_addextendedproperty @name=N'MS_DiagramPane1', @value=N' [0E232FF0-B466-11cf-A24F-00AA00A3EFFF, 1.00]

Begin DesignProperties =

Begin PaneConfigurations =

Begin PaneConfiguration = 0

NumPanes = 4

Configuration = "(H (1 [32] 4 [51] 2 [1] 3))"

End

Begin PaneConfiguration = 1

NumPanes = 3

Configuration = "(H (1 [50] 4 [25] 3))"

End

Begin PaneConfiguration = 2

NumPanes = 3

Configuration = "(H (1 [50] 2 [25] 3))"

End

Begin PaneConfiguration = 3

NumPanes = 3

Configuration = "(H (4 [30] 2 [40] 3))"

End

Begin PaneConfiguration = 4

NumPanes = 2

Configuration = "(H (1 [56] 3))"

End

Begin PaneConfiguration = 5

NumPanes = 2

Configuration = "(H (2 [66] 3))"

End

Begin PaneConfiguration = 6

NumPanes = 2

Configuration = "(H (4 [50] 3))"

End

Begin PaneConfiguration = 7

NumPanes = 1

Configuration = "(V (3))"

End

Begin PaneConfiguration = 8

NumPanes = 3

Configuration = "(H (1 [56] 4 [18] 2))"

End

Begin PaneConfiguration = 9

NumPanes = 2

Configuration = "(H (1 [75] 4))"

End

Begin PaneConfiguration = 10

NumPanes = 2

Configuration = "(H (1 [66] 2))"

End

Begin PaneConfiguration = 11

NumPanes = 2

Configuration = "(H (4 [60] 2))"

End

Begin PaneConfiguration = 12

NumPanes = 1

Configuration = "(H (1))"

End

Begin PaneConfiguration = 13

NumPanes = 1

Configuration = "(V (4))"

End

Begin PaneConfiguration = 14

NumPanes = 1

Configuration = "(V (2))"

End

ActivePaneConfig = 0

End

Begin DiagramPane =

Begin Origin =

Top = 0

Left = 0

End

Begin Tables =

Begin Table = "Meeting"

Begin Extent =

Top = 6

Left = 38

Bottom = 114

Right = 189

End

DisplayFlags = 280

TopColumn = 2

End

Begin Table = "Customer"

Begin Extent =

Top = 6

Left = 227

Bottom = 114

Right = 378

End

DisplayFlags = 280

TopColumn = 7

End

End

End

Begin SQLPane =

End

Begin DataPane =

Begin ParameterDefaults = ""

End

Begin ColumnWidths = 9

Width = 284

Width = 1500

Width = 1500

Width = 1500

Width = 1500

Width = 1500

Width = 1500

Width = 1500

Width = 1500

End

End

Begin CriteriaPane =

Begin ColumnWidths = 11

Column = 1440

Alias = 900

Table = 1170

Output = 720

Append = 1400

NewValue = 1170

SortType = 1350

SortOrder = 1410

GroupBy = 1350

Filter = 1350

Or = 1350

Or = 1350

Or = 1350

End

End

End

',@level0type=N'SCHEMA', @level0name=N'dbo', @level1type=N'VIEW', @level1name=N'Meetings'

GO

EXEC sys. sp_addextendedproperty @name=N'MS_DiagramPaneCount', @value=1,@level0type=N'SCHEMA', @level0name=N'dbo', @level1type=N'VIEW', @level1name=N'Meetings'

USE [simpaza]

GO

/ ****** Object: View [dbo]. [Report] Script Date: 04/06/2009 06: 37: 56 ****** /

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

CREATE VIEW [dbo]. [Report]

AS

SELECT TOP (100) PERCENT dbo. Customer. Name_organiz, MC. tp, MC. Date, MC. Comments, MC. Place, dbo. Customer. Id_manager

FROM (SELECT Id_customer, '0' AS tp, Date, Comments, ' ' AS Place

FROM dbo. Call

UNION ALL

SELECT Id_customer, '1' AS tp, Date, Comments, Place

FROM dbo. Meeting) AS MC INNER JOIN

dbo. Customer ON MC. Id_customer = dbo. Customer. Id_customer

ORDER BY MC. Date

GO

EXEC sys. sp_addextendedproperty @name=N'MS_DiagramPane1', @value=N' [0E232FF0-B466-11cf-A24F-00AA00A3EFFF, 1.00]

Begin DesignProperties =

Begin PaneConfigurations =

Begin PaneConfiguration = 0

NumPanes = 4

Configuration = "(H (1 [28] 4 [19] 2 [36] 3))"

End

Begin PaneConfiguration = 1

NumPanes = 3

Configuration = "(H (1 [50] 4 [25] 3))"

End

Begin PaneConfiguration = 2

NumPanes = 3

Configuration = "(H (1 [50] 2 [25] 3))"

End

Begin PaneConfiguration = 3

NumPanes = 3

Configuration = "(H (4 [30] 2 [40] 3))"

End

Begin PaneConfiguration = 4

NumPanes = 2

Configuration = "(H (1 [56] 3))"

End

Begin PaneConfiguration = 5

NumPanes = 2

Configuration = "(H (2 [66] 3))"

End

Begin PaneConfiguration = 6

NumPanes = 2

Configuration = "(H (4 [50] 3))"

End

Begin PaneConfiguration = 7

NumPanes = 1

Configuration = "(V (3))"

End

Begin PaneConfiguration = 8

NumPanes = 3

Configuration = "(H (1 [56] 4 [18] 2))"

End

Begin PaneConfiguration = 9

NumPanes = 2

Configuration = "(H (1 [75] 4))"

End

Begin PaneConfiguration = 10

NumPanes = 2

Configuration = "(H (1 [66] 2))"

End

Begin PaneConfiguration = 11

NumPanes = 2

Configuration = "(H (4 [60] 2))"

End

Begin PaneConfiguration = 12

NumPanes = 1

Configuration = "(H (1))"

End

Begin PaneConfiguration = 13

NumPanes = 1

Configuration = "(V (4))"

End

Begin PaneConfiguration = 14

NumPanes = 1

Configuration = "(V (2))"

End

ActivePaneConfig = 0

End

Begin DiagramPane =

Begin Origin =

Top = 0

Left = 0

End

Begin Tables =

Begin Table = "MC"

Begin Extent =

Top = 6

Left = 38

Bottom = 114

Right = 189

End

DisplayFlags = 280

TopColumn = 0

End

Begin Table = "Customer"

Begin Extent =

Top = 6

Left = 227

Bottom = 114

Right = 378

End

DisplayFlags = 280

TopColumn = 0

End

End

End

Begin SQLPane =

End

Begin DataPane =

Begin ParameterDefaults = ""

End

Begin ColumnWidths = 9

Width = 284

Width = 1500

Width = 1500

Width = 1500

Width = 1500

Width = 1500

Width = 1500

Width = 1500

Width = 1500

End

End

Begin CriteriaPane =

Begin ColumnWidths = 11

Column = 1440

Alias = 900

Table = 1170

Output = 720

Append = 1400

NewValue = 1170

SortType = 1350

SortOrder = 1410

GroupBy = 1350

Filter = 1350

Or = 1350

Or = 1350

Or = 1350

End

End

End

',@level0type=N'SCHEMA', @level0name=N'dbo', @level1type=N'VIEW', @level1name=N'Report'

GO

EXEC sys. sp_addextendedproperty @name=N'MS_DiagramPaneCount', @value=1,@level0type=N'SCHEMA', @level0name=N'dbo', @level1type=N'VIEW', @level1name=N'Report'