Разработка статистической отчетности в системе АСУ ГГУ

Разработка статистической отчетности в системе АСУ ГГУ

СТП 04-98

30

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РЕСПУБЛИКИ БЕЛАРУСЬ

УЧРЕЖДЕНИЕ ОБРАЗОВАНИЯ

Назначение Статистической отчетности в системе АСУ ГГУ - автоматизированное ведение расчетных экономических операций с распечаткой отчетности. Задачи подсистемы:

Данная статистическая отчетность реализует экономическое понятие о отчетности. Она создана для более быстрой и качественной работы с различного вида экономических операций. При справочниках о статьях доходов и расходов (дебитов, кредитов) пользователь может выбрать те из них, по которым он собирается вести расчеты (осуществлять нужную ему экономическую операцию, как например расчет заработной платы). Система АСУ ГГУ проста в работе и предназначена на различных пользователей. То есть человек может успешно работать с системой вне зависимости от его знаний компьютера. Поэтому любой пользователь может без труда сделать экономическую отчетность о проделанной им работе при помощи данной системы.

CREATE TABLE StatRashod (

Id_StRd INTEGER NOT NULL,

CodeStRd char(8) NOT NULL UNIQUE,

StatName VARCHAR(30) NOT NULL,

PRIMARY KEY (Id_StRd));

/*Создается таблица StatProvodki, которая описывает коды дебитов и кредитов в соответствии с кодом статьи расходв*/

CREATE TABLE StatProvodki (

Id_Provodki INTEGER NOT NULL,

CodeProvodki CHAR(8) NOT NULL,

IdDsf INTEGER NOT NULL,

IdCsf INTEGER NOT NULL,

PRIMARY KEY (Id_Provodki),

FOREIGN KEY (CodeProvodki) REFERENCES StatRashod(CodeStRd));

/*Создается таблица StatRdDd, которая описывает статьи расходов и доходов.*/

CREATE TABLE StatRdDd (

Id_StatRdDd INTEGER NOT NULL,

StatRdDdName VARCHAR(30) NOT NULL,

PRIMARY KEY (Id_StatRdDd));

/*Создается индексы и генераторы для таблиц*/

CREATE UNIQUE INDEX StatRashod_INDEX ON StatRashod (Id_StRd);

CREATE UNIQUE INDEX StatRdDd_INDEX ON StatRdDd (Id_StatRdDd);

CREATE UNIQUE INDEX StatProvodki_INDEX ON StatProvodki (Id_Provodki);

CREATE GENERATOR Id_StRd_GEN;

CREATE GENERATOR Id_StatRdDd_GEN;

CREATE GENERATOR Id_Provodki_GEN;

COMMIT;

set term #;

/* триггеры для заполнения полей XXX_ID соответствующих таблиц (все срабатывают до добавления данных в таблицу) */

create trigger TRG_Id_StRd for StatRashod active before insert position 0 as

begin

new. Id_StRd = gen_id (Id_StRd _GEN, 1); /* новое значение XXX_ID РАВНО старое плюс 1 */

end#

create trigger TRG_Id_StatRdDd for StatRdDd active before insert position 0 as

begin

new. Id_StatRdDd = gen_id (Id_StatRdDd _GEN, 1); /* новое значение XXX_ID РАВНО старое плюс 1 */

end#

create trigger TRG_Id_Provodki for Stat Provodki active before insert position 0 as

begin

new. Id_ Provodki = gen_id (Id_ Provodki _GEN, 1); /* новое значение XXX_ID РАВНО старое плюс 1 */

end#

set term;#

COMMIT;

Таблица StatProvodki:

№Field name Type Width Dec

Таблица StatRdDd:

№Field name Type Width Dec

Взаимодействие пользователя с подсистемой осуществляется с использованием модели пользовательского интерфейса, соответствующей известному стандарту CUA (Common User Access). Хотя этот стандарт первоначально был предложен фирмой IBM в качестве внутрифирменного стандарта, на сегодняшний день он превратился в общепризнанный стандарт проектирования пользовательского интерфейса. Далее рассматриваются некоторые базовые концепции стандарта CUA.

Программа USStatRashodForm.h

 // -

#ifndef USStatRashodFormH

#define USStatRashodFormH

 // -

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include «ASUBUTEX.h»

#include «AsuDBGrd.h»

#include «AsuTable.h»

#include «AsuForm.h»

#include «StatRashodTable.h»

#include <Db.hpp>

#include <DBGrids.hpp>

#include <DBTables.hpp>

#include <Grids.hpp>

#include «ASUQUERY.h»

 // -

class TFSStatRashod: public AsuForm

{

__published:  // IDE-managed Components

TButton *SearchButton;

AsuButtonExit *AsuButtonExit1;

StatRashodTable *StatRashodTable1;

AsuQuery *AsuQuery1;

void __fastcall SearchButtonClick (TObject *Sender);

void __fastcall AsuButtonExit1Click (TObject *Sender);

private:  // User declarations

public: // User declarations

__fastcall TFSStatRashod (TComponent* Owner);

};

 // -

extern PACKAGE TFSStatRashod *FSStatRashod;

 // -

#endif

Программа USStatRashodForm.cpp

 // -

#include <vcl.h>

#pragma hdrstop

#include «AsuObj.h»

#include «USStatRashodForm.h»

 // -

#pragma package (smart_init)

#pragma link «ASUBUTEX»

#pragma link «AsuDBGrd»

#pragma link «AsuTable»

#pragma link «StatRashodTable»

#include «SearchWn.h»

#pragma link «ASUQUERY»

#pragma resource «*.dfm»

TFSStatRashod *FSStatRashod;

 // -

__fastcall TFSStatRashod:TFSStatRashod (TComponent* Owner)

: AsuForm(Owner)

{

}

 // -

void __fastcall TFSStatRashod: SearchButtonClick (TObject *Sender)

{

SearchForm->searchList = NULL;

SearchForm->gridSearch = StatRashodDBGrid;

SearchForm->ShowModal();

}

 // -

void __fastcall TFSStatRashod: AsuButtonExit1Click (TObject *Sender)

{

((AsuForm *) Owner)->Close();

}

 // -

Программа USStatRashodForm.dfm

object FSStatRashod: TFSStatRashod

Left = 194

Top = 9

Width = 544

Height = 501

Caption = 'Статья расходов'

Color = clBtnFace

Font. Charset = DEFAULT_CHARSET

Font. Color = clWindowText

Font. Height = -11

Font. Name = 'MS Sans Serif'

Font. Style = []

OldCreateOrder = False

PixelsPerInch = 96

TextHeight = 13

object StatRashodDBGrid: AsuDBGrid

Tag = 4

Left = 0

Top = 0

Width = 536

Height = 417

Align = alTop

TabOrder = 0

TitleFont. Charset = DEFAULT_CHARSET

TitleFont. Color = clWindowText

TitleFont. Height = -11

TitleFont. Name = 'MS Sans Serif'

TitleFont. Style = []

AsuDataSet = StatRashodTable1

Update = True

end

object SearchButton: TButton

Left = 16

Top = 432

Width = 75

Height = 25

Caption = '&Найти'

TabOrder = 1

OnClick = SearchButtonClick

end

object AsuButtonExit1: AsuButtonExit

Left = 144

Top = 432

Width = 75

Height = 25

Cancel = True

Caption = 'Выход'

TabOrder = 2

OnClick = AsuButtonExit1Click

end

object StatRashodTable1: StatRashodTable

Exclusive = True

TableName = 'StatRashod'

Left = 232

Top = 72

end

object AsuQuery1: AsuQuery

SQL. Strings = (

'Select CodeStRd, StatName from'

' StatRashod'

'Order by CodeStRd')

Left = 184

Top = 104

end

end

Программа StatRashodTable.h

 // -

#ifndef StatRashodTableH

#define StatRashodTableH

 // -

#include <SysUtils.hpp>

#include <Controls.hpp>

#include <Classes.hpp>

#include <Forms.hpp>

#include «AsuTable.h»

#include <Db.hpp>

#include <DBTables.hpp>

 // -

class PACKAGE StatRashodTable: public AsuTable

{

private:

char *getNameColumn (AnsiString nameField);

TFieldType getFieldType(AnsiString);

protected:

public:

__fastcall StatRashodTable (TComponent* Owner);

__published:

};

 // -

#endif

Программа StatRashodTable.h

 // -

#include <vcl.h>

#pragma hdrstop

#include «AsuObj.h»

#include «StatRashodTable.h»

 // #include «OValKursTp.h»

#pragma link «AsuTable»

#pragma package (smart_init)

 // -

 // ValidCtrCheck is used to assure that the components created do not have

 // any pure virtual functions.

static inline void ValidCtrCheck (StatRashodTable *)

{

new StatRashodTable(NULL);

}

 // -

__fastcall StatRashodTable: StatRashodTable (TComponent* Owner)

: AsuTable(Owner)

{

TableName = «StatRashod»;

}

 // -

char *StatRashodTable:getNameColumn (AnsiString nameField)

{

if (! nameField. AnsiCompareIC («CodeStRd»)) return «Код Статьи расходов»;

if (! nameField. AnsiCompareIC («StatName»)) return «Наименование статьи»;

return 0;

}

 // -

TFieldType StatRashodTable:getFieldType (AnsiString nameField)

{

return ftString;

}

 // -

namespace Statrashodtable

{

void __fastcall PACKAGE Register()

{

TComponentClass classes[1] = {__classid(StatRashodTable)};

RegisterComponents («АСУ-таблицы», classes, 0);

}

}