2.4 Описание контрольного примера и результатов испытаний

1. Вендров А.М. Проектирование программного обеспечения экономических информационных систем. -- М.: Финансы и статистика, 2003. - 352 с.

2. Смирнова Г.Н. Проектирование экономических информационных систем /Г.Е. Смирнова, А.А. Сорокин, 3.Ф. Тельнов. - М. : Финансы и статистика, 2001. -512 с.

3. Маклаков С.В. BPwin и ЕRwin. CASE-средства разработки информационных систем. - М.: ДИАЛОГ-МИФИ, 1999. - 256 с.

Приложение А

Программный модуль UnBibl

unit UnBibl;

interface

uses

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

Dialogs, ToolWin, ActnMan, ActnCtrls, ActnMenus, ExtCtrls, StdCtrls,

Buttons, ActnList, Grids, DBGrids, DBCtrls, DB, dbcgrids, Mask;

type

TFmBiblio = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

ActionMainMenuBar1: TActionMainMenuBar;

Panel4: TPanel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

ActionManager1: TActionManager;

ActPubl: TAction;

Panel5: TPanel;

Panel6: TPanel;

Panel7: TPanel;

Panel8: TPanel;

Panel9: TPanel;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

SpeedButton1: TSpeedButton;

DBNavigator2: TDBNavigator;

DBGrid2: TDBGrid;

Edit1: TEdit;

Label1: TLabel;

Panel10: TPanel;

Panel11: TPanel;

DBNavigator3: TDBNavigator;

Panel12: TPanel;

DBGrid3: TDBGrid;

Edit2: TEdit;

Label2: TLabel;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

Action1: TAction;

Action2: TAction;

Action3: TAction;

Action4: TAction;

procedure ActPublExecute(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Edit2Change(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure Action1Execute(Sender: TObject);

procedure Action2Execute(Sender: TObject);

procedure Action3Execute(Sender: TObject);

procedure Action4Execute(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FmBiblio: TFmBiblio;

implementation

uses UnDM, UnPublisher, UnType, UnAuthor, UnDep, UnShowType, UnShowCopy, UnDiagr;

{$R *.dfm}

procedure TFmBiblio.ActPublExecute(Sender: TObject);

begin

FmPublisher.ShowModal; //Показать форму "Издательства"

end;

procedure TFmBiblio.BitBtn2Click(Sender: TObject);

begin

FmType.ShowModal; ////Показать форму "Типы"

end;

rocedure TFmBiblio.BitBtn3Click(Sender: TObject);

begin

FmAuthor.ShowModal; //Показать форму "Авторы"

end;

procedure TFmBiblio.BitBtn4Click(Sender: TObject);

begin

FmDep.ShowModal; //Показать форму "Отделы"

end;

procedure TFmBiblio.SpeedButton1Click(Sender: TObject);

begin

If SpeedButton1.Down then Panel7.Visible := true //Отображение/скрытие панели в зависимости от того нажата ли кнопка

else Panel7.Visible := false;

end;

procedure TFmBiblio.Edit1Change(Sender: TObject);

begin

DM.TbEdition.Locate('Название',Edit1.Text,[loCaseInsensitive,loPartialKey]);

Поиск по полю "Название"

end;

procedure TFmBiblio.Edit2Change(Sender: TObject);

begin

DM.TbCopy.Locate('Инвентарный номер',Edit2.Text,[loCaseInsensitive,loPartialKey]);

//Поиск по полю "Инвентарный номер"

end;

procedure TFmBiblio.BitBtn5Click(Sender: TObject);

begin

FmShowType.ShowModal; //Показать форму "Отчет по типам"

end;

procedure TFmBiblio.BitBtn6Click(Sender: TObject);

begin

FmShowCopy.ShowModal; //Показать форму "Отчет по экземплярам"

end;

procedure TFmBiblio.BitBtn7Click(Sender: TObject);

var i : integer;

begin

FmDiagr.DBChart1.Series[0].Clear;//УДаляем все имеющиеся диаграммы

FmDiagr.DBChart1.Title.Text.Clear; //Очищаем заголовок

FmDiagr.DBChart1.Title.Text.Add('Распределение экземпляров по отделам в количестве'); //Добавляем новый заголовок

DM.QDiagr.First;

for i := 0 to DM.QDiagr.RecordCount -1 do //Перебор всех записей в цикле

begin

FmDiagr.DBChart1.Series[0].Add(DM.QDiagr.FieldByName('Count-ЭкзID').Value, DM.QDiagr.FieldByName('Отдел').AsString, clRed);

//Добавление отдела и числа экземпляров в отделе

DM.QDiagr.Next;

end;

FmDiagr.ShowModal;

end;

procedure TFmBiblio.Action1Execute(Sender: TObject);

begin

FmType.ShowModal; //Показать форму "Типы"

end;

procedure TFmBiblio.Action2Execute(Sender: TObject);

begin

FmAuthor.ShowModal; //Показать форму "Авторы"

end;

procedure TFmBiblio.Action3Execute(Sender: TObject);

begin

FmDep.ShowModal; //Показать форму "Отделы"

end;

procedure TFmBiblio.Action4Execute(Sender: TObject);

begin

Close; //Закрыть форму

end;

end.

Программный модуль UnAuthor

unit UnAuthor;

interface

uses

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

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

type

TFmAuthor = class(TForm)

Panel1: TPanel;

Label1: TLabel;

DBNavigator1: TDBNavigator;

Edit1: TEdit;

BitBtn1: TBitBtn;

DBGrid1: TDBGrid;

procedure Edit1Change(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FmAuthor: TFmAuthor;

implementation

uses UnDM;

{$R *.dfm}

procedure TFmAuthor.Edit1Change(Sender: TObject);

begin

DM.TbAuthor.Locate('ФИО автора',Edit1.Text,[loCaseInsensitive,loPartialKey]);

//Поиск по полю "ФИО автора"

end;

procedure TFmAuthor.BitBtn1Click(Sender: TObject);

begin

close;

end;

end.

Программный модуль UnType

unit UnType;

interface

uses

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

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

type

TFmType = class(TForm)

Panel1: TPanel;

Label1: TLabel;

DBNavigator1: TDBNavigator;

Edit1: TEdit;

BitBtn1: TBitBtn;

DBGrid1: TDBGrid;

procedure Edit1Change(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FmType: TFmType;

implementation

uses UnDM;

{$R *.dfm}

procedure TFmType.Edit1Change(Sender: TObject);

begin

DM.TbType.Locate('Тип',Edit1.Text,[loCaseInsensitive,loPartialKey]);

//Поиск по столбцу "тип"

end;

procedure TFmType.BitBtn1Click(Sender: TObject);

begin

close;

end;

end.

Программный модуль UnDM

unit UnDM;

interface

uses

SysUtils, Classes, DB, ADODB;

type

TDM = class(TDataModule)

ADOC: TADOConnection;

TbPublisher: TADOTable;

TbPublisherID: TAutoIncField;

TbPublisherDSDesigner: TWideStringField;

TbPublisherDSDesigner2: TWideStringField;

DSPublisher: TDataSource;

TbType: TADOTable;

TbTypeID: TAutoIncField;

TbTypeDSDesigner: TWideStringField;

TbTypeDSDesigner2: TWideStringField;

DSType: TDataSource;

DSAuthor: TDataSource;

TbAuthor: TADOTable;

TbAuthorID: TAutoIncField;

TbAuthorDSDesigner: TWideStringField;

TbAuthorDSDesigner2: TWideStringField;

TbDep: TADOTable;

DSDep: TDataSource;

TbDepID: TAutoIncField;

TbDepDSDesigner: TWideStringField;

TbDepDSDesigner2: TWideStringField;

TbEdition: TADOTable;

DSEdition: TDataSource;

TbEditionID: TAutoIncField;

TbEditionDSDesigner: TWideStringField;

TbEditionDSDesigner2: TWideStringField;

TbEditionID2: TIntegerField;

TbEditionDSDesigner3: TIntegerField;

TbEditionID3: TIntegerField;

TbEditionDSDesigner4: TWideStringField;

TbEditionField: TStringField;

TbEditionField2: TStringField;

DSCopy: TDataSource;

TbCopy: TADOTable;

TbCopyID: TAutoIncField;

TbCopyDSDesigner: TWideStringField;

TbCopyDSDesigner2: TBooleanField;

TbCopyID2: TIntegerField;

TbCopyID3: TIntegerField;

TbCopyDSDesigner3: TBooleanField;

TbCopyDSDesigner4: TWideStringField;

TbCopyField: TStringField;

TbAE: TADOTable;

DSAE: TDataSource;

TbAEID: TAutoIncField;

TbAEID2: TIntegerField;

TbAEID3: TIntegerField;

TbAEField: TStringField;

QShowType: TADOQuery;

QShowTypedep: TWideStringField;

QShowTypeID: TAutoIncField;

QShowTypeCountID1: TIntegerField;

QShowTypeCountID: TIntegerField;

QShowEdition: TADOQuery;

QDiagr: TADOQuery;

QDiagrDSDesigner: TWideStringField;

QDiagrCountID: TIntegerField;

procedure TbCopyDSDesigner2GetText(Sender: TField; var Text: String;

DisplayText: Boolean);

procedure TbCopyDSDesigner2SetText(Sender: TField; const Text: String);

procedure TbCopyDSDesigner3GetText(Sender: TField; var Text: String;

DisplayText: Boolean);

procedure TbCopyDSDesigner3SetText(Sender: TField; const Text: String);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DM: TDM;

implementation

{$R *.dfm}

procedure TDM.TbCopyDSDesigner2GetText(Sender: TField; var Text: String;

DisplayText: Boolean);

begin

If Sender.AsBoolean then text:='+' //Если значение = true, тогда отображаем + иначе -

else text:='-';

end;

procedure TDM.TbCopyDSDesigner2SetText(Sender: TField; const Text: String);

begin

Sender.Value:=(Text = '+'); //Если вводится +, то значение = true

end;

procedure TDM.TbCopyDSDesigner3GetText(Sender: TField; var Text: String;

DisplayText: Boolean);

begin

If Sender.AsBoolean then text:='+' //Если значение = true, тогда отображаем + иначе -

else text:='-';

end;

procedure TDM.TbCopyDSDesigner3SetText(Sender: TField; const Text: String);

begin

Sender.Value:=(Text = '+'); //Если вводится +, то значение = true

end;

end.

Программный модуль UnShowType

unit UnShowType;

interface

uses

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

Dialogs, DBCtrls, StdCtrls, Buttons, ComObj;

type

TFmShowType = class(TForm)

DBLookupComboBox1: TDBLookupComboBox;

Label1: TLabel;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FmShowType: TFmShowType;

implementation

uses UnDM;

{$R *.dfm}

procedure TFmShowType.BitBtn1Click(Sender: TObject);

var Excel: Variant;

WorkbookName: string;

i, PosInc: Integer;

sum,sum1 : integer;

begin

DM.QShowType.Active := false;

DM.QShowType.Parameters[0].Value := DBLookupComboBox1.KeyValue; //Задание параметра - издание

DM.QShowType.Parameters[1].Value := DBLookupComboBox1.KeyValue; //Задание параметра - издание

//Задаем параметры для запроса

DM.QShowType.Active := true;

WorkbookName := GetCurrentDir + '\dep.xlt'; //Задаем путь к шаблону докуиента Excel

Excel := CreateOleObject('Excel.Application'); //Создаем объект Excel

try

Excel.Workbooks.Open(WorkbookName);//Открываем книгу

//Экспорт данных из таблиц БД:

Excel.WorkSheets[1].Select;//Делаем текущим первый лист

DM.QShowType.First;

PosInc := 4; //Начальная позиция

sum := 0;

sum1 := 0;

//Ввод значений в соответствующие ячейки

Excel.Cells[1,4] := DBLookupComboBox1.Text;

for i:=0 to DM.QShowType.RecordCount-1 do

begin

if i <> DM.QShowType.RecordCount-1 then

begin

Excel.Rows.Item[PosInc+1].Select;//выделяем текущую строку +1

Excel.Selection.Insert;//вставка строки

Excel.Rows.Item[PosInc].Select;//выделяем текущую строку

Excel.Selection.Copy;//Копируем текущую строку

Excel.Rows.Item[PosInc+1].Select;//Выделяем текущую строку +1

Excel.ActiveSheet.Paste;//Вставляем в выделенную строку скопированные значения

Excel.Application.CutCopyMode := False;//Выключаем режим копирования

end;

//Ввод значений в соответствующие ячейки

Excel.Cells[PosInc,1] := DM.QShowType.FieldByName('dep.Отдел').AsString;

Excel.Cells[PosInc,2] := IntToStr(DM.QShowType.FieldByName('Count-ИзданиеID1').AsInteger);

Excel.Cells[PosInc,3] := FloatToStr(DM.QShowType.FieldByName('Count-ИзданиеID').AsInteger);

PosInc := PosInc +1;

sum := sum + DM.QShowType.FieldByName('Count-ИзданиеID1').AsInteger;

sum1 := sum1 + DM.QShowType.FieldByName('Count-ИзданиеID').AsInteger;

DM.QShowType.Next;

end; //for

Excel.Cells[PosInc,2] := IntToStr(sum);

Excel.Cells[PosInc,3] := IntToStr(sum1);

Excel.WorkSheets[1].Select;

Excel.Visible := True;

except

Excel.Quit; //Завершение работы с объектом

end;

end;

end.

Программный модуль UnShowCopy

unit UnShowCopy;

interface

uses

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

Dialogs, DBCtrls, StdCtrls, Buttons, ComObj;

type

TFmShowCopy = class(TForm)

DBLookupComboBox1: TDBLookupComboBox;

Label1: TLabel;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FmShowCopy: TFmShowCopy;

implementation

uses UnDM;

{$R *.dfm}

procedure TFmShowCopy.BitBtn1Click(Sender: TObject);

var Excel: Variant;

WorkbookName: string;

i, PosInc: Integer;

sum : integer;

begin

DM.QShowEdition.Active := false;

DM.QShowEdition.Parameters[0].Value := DBLookupComboBox1.KeyValue; //Задание параметра - тип издания

//Задаем параметры для запроса

DM.QShowEdition.Active := true;

WorkbookName := GetCurrentDir + '\copy.xlt'; //Задаем путь к шаблону докуиента Excel

Excel := CreateOleObject('Excel.Application'); //Создаем объект Excel

try

Excel.Workbooks.Open(WorkbookName); //Открываем книгу

//Экспорт данных из таблиц БД:

Excel.WorkSheets[1].Select; //Делаем текущим первый лист

DM.QShowEdition.First;

PosInc := 5; //Начальная позиция

sum := 0;

//Ввод значений в соответствующие ячейки

Excel.Cells[1,2] := DBLookupComboBox1.Text;

Excel.Cells[2,2] := DM.QShowEdition.FieldByName('Год издания').AsString;

for i:=0 to DM.QShowEdition.RecordCount-1 do

begin

if i <> 0 then

begin

Excel.Rows.Item[PosInc+1].Select; //выделяем текущую строку +1

Excel.Selection.Insert; //вставка строки

Excel.Rows.Item[PosInc].Select; //выделяем текущую строку

Excel.Selection.Copy; //Копируем текущую строку

Excel.Rows.Item[PosInc+1].Select; //Выделяем текущую строку +1

Excel.ActiveSheet.Paste; //Вставляем в выделенную строку скопированные значения

Excel.Application.CutCopyMode := False; //Выключаем режим копирования

end;

//Ввод значений в соответствующие ячейки

Excel.Cells[PosInc,1] := DM.QShowEdition.FieldByName('Инвентарный номер').AsString;

Excel.Cells[PosInc,2] := DM.QShowEdition.FieldByName('Отдел').AsString;

if DM.QShowEdition.FieldByName('Контрольный экземпляр').AsBoolean = true then Excel.Cells[PosInc,3] := '+'

else Excel.Cells[PosInc,3] := '-';

if DM.QShowEdition.FieldByName('Наличие').AsBoolean = true then Excel.Cells[PosInc,4] := '+'

else Excel.Cells[PosInc,4] := '-';

sum := sum + 1; //Вычисляем общее количество

DM.QShowEdition.Next;

end; //for

Excel.Cells[1,4] := IntToStr(sum); //Выводим количество изданий

Excel.WorkSheets[1].Select;

Excel.Visible := True;

except

Excel.Quit;

end;

end;

end.

Программный модуль UnDiagr

unit UnDiagr;

interface

uses

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

Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, DbChart, Series, StdCtrls;

type

TFmDiagr = class(TForm)

DBChart1: TDBChart;

Panel1: TPanel;

Series1: TPieSeries;

RadioGroup1: TRadioGroup;

procedure RadioGroup1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FmDiagr: TFmDiagr;

implementation

uses UnDM, DB;

{$R *.dfm}

procedure TFmDiagr.RadioGroup1Click(Sender: TObject);

var i, sum : integer;

begin

FmDiagr.DBChart1.Series[0].Clear; //Удаляем все имеющиеся диаграммы

FmDiagr.DBChart1.Title.Text.Clear;//Очищаем название

Case RadioGroup1.ItemIndex of

0 : begin //В количестве

FmDiagr.DBChart1.Title.Text.Add('Распределение экземпляров по отделам в количестве'); //Задаем название

DM.QDiagr.First;

for i := 0 to DM.QDiagr.RecordCount -1 do //Перебор всех записей в цикле

begin

FmDiagr.DBChart1.Series[0].Add(DM.QDiagr.FieldByName('Count-ЭкзID').Value, DM.QDiagr.FieldByName('Отдел').AsString, clRed);

//Выводим отдел и количество экземпляров

DM.QDiagr.Next;

end;

end;

1 : begin //В процентах

FmDiagr.DBChart1.Title.Text.Add('Распределение экземпляров по отделам в процентах');//Задаем название

DM.QDiagr.First;

sum := 0;

for i := 0 to DM.QDiagr.RecordCount -1 do //Перебор всех записей в цикле

begin

sum := sum + DM.QDiagr.FieldByName('Count-ЭкзID').AsInteger; //Формирование общего количества

DM.QDiagr.Next;

end;

DM.QDiagr.First;

for i := 0 to DM.QDiagr.RecordCount -1 do //Перебор всех записей в цикле

begin

FmDiagr.DBChart1.Series[0].Add(DM.QDiagr.FieldByName('Count-ЭкзID').Value/sum * 100, DM.QDiagr.FieldByName('Отдел').AsString, clRed);

//Вывод распределения экземпляров по отделам в процентах

DM.QDiagr.Next;

end;

end;

end;

end;

end.

Программный модуль UnPublisher

unit UnPublisher;

interface

uses

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

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

type

TFmPublisher = class(TForm)

Panel1: TPanel;

DBNavigator1: TDBNavigator;

Edit1: TEdit;

Label1: TLabel;

DBGrid1: TDBGrid;

BitBtn1: TBitBtn;

procedure Edit1Change(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FmPublisher: TFmPublisher;

implementation

uses UnDM;

{$R *.dfm}

procedure TFmPublisher.Edit1Change(Sender: TObject);

begin

DM.TbPublisher.Locate('Издательство',Edit1.Text,[loCaseInsensitive,loPartialKey]);

//Поиск по полю "Издательство"

end;

procedure TFmPublisher.BitBtn1Click(Sender: TObject);

begin

Close; //Закрыть форму

end;

end.

Размещено на Allbest.ru