МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
МІНІСТЕРСТВО ОСВІТИ

«Гомельський державний університет ім. Ф. Скорина »

Курсовий проект

«Розробка статистична звітність в системі АСУ ГГУ»

ГОМЕЛЬ 2003

Введення

Статистична звітність створена для введення бухгалтерської діяльності (розрахунку прибутку підприємства, зарплати персоналу, введення бухгалтерського обліку, обчислення різних податків і платежів, складання оплати за ресурси і т.д.). При цьому для полегшення виконання даних операцій зазвичай застосовують метод поділу всіх розрахунків на більш дрібні. (Так для розрахунку зарплати використовуються статті розрахунку податків, нарахування самої плати за кількома статтями, в залежності від виду виконаних робіт, займаної посади, стажу та інших складових. Крім цього робляться перерахування в різні фонди, такі як пенсійний. Віднімають і різні штрафи за порушення норм і т.д.)
Ось таким складним чином нараховується заробітна плата. Якщо ж ми розподілимо всі операції по окремих статтях, то надалі нам не доведеться заново розраховувати багато операцій. Просто потрібно підсумувати ті статті, які відносяться до доходів, і відняти ті, які до витрат. Тобто ми отримуємо як би довідники за статтями доходу і витрати. У цьому і є зручність системи для створення статистичної звітності. Користувач вибирає зі списку потрібні статті і записує формулу розрахунку, а програма вираховує за даними формули і значень таблиць і показує результат.

1 Статистична звітність

Призначення Статистичної звітності в системі АСУ ГГУ - автоматизоване ведення розрахункових економічних операцій з роздрукуванням звітності. Завдання підсистеми:

1) забезпечення санкціонованого доступу до даних різних видів звітності, їх розподіл і упорядкування;

2) перегляд статей витрат і доходів;

3) перегляд даних по дебіту та кредитами;

4) робота з платіжними документами: вимогами та дорученнями (введення, створення, пошук, коректування, друк) на основі статистичних даних;

5) відображення поточного стану рахунків (використовуючи розрахункові дані статей доходів і витрат);

6) формування, коригування та друк різних відомостей, документів і ордерів;

7) створення статзвітності з різним економічним операціям;

8) побудова різних ордерів і створення квитанцій на основі статзвітності;

9) забезпечення цілісності інформації, можливість резервного копіювання і відновлення даних.

Дана статистична звітність реалізує економічне поняття про звітності. Вона створена для більш швидкої і якісної роботи з різного виду економічних операцій. При довідниках про статті доходів і витрат (дебітів, кредитів) користувач може вибрати ті з них, за якими він збирається вести розрахунки (здійснювати потрібну йому економічну операцію, як наприклад розрахунок заробітної плати). Система АСУ ГГУ проста в роботі і призначена на різних користувачів. Тобто людина може успішно працювати з системою незалежно від його знань комп'ютера. Тому будь-який користувач може без праці зробити економічну звітність про виконану ним роботу за допомогою даної системи.

2. Структура бази даних статистичної звітності

2.1 Склад таблиць БД

У процесі функціонування підсистеми «Банк» використовується база даних Statotchet, яка приєднується до основної бази даних Bank.
CONNECT «D: \ GDB \ BANKDB.gdb» user «A» password «a»;
/ * Під'єднується до основної бази даних. Потрібно тільки вказати правильний шлях доступу до бази даних Bank .* /
/ * Складається таблиця StatRashod, яка описує статті витрат .* /
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;

2.2 Структура даних програми

Таблиця StatRashod:
№ Field name Type Width Dec

1	Id_StRd	INTEGER		Ключ, Лічильник
2	CodeStRd	CHAR	8	Код Статті витрат
3	StatName	VARCHAR	30	Назва статті витрат

Таблиця StatProvodki:
№ Field name Type Width Dec

1	Id_Provodki	INTEGER		Ключ, Лічильник
2	CodeProvodki	CHAR	8	Код проводки у відповідності з кодами статей витрат
3	IdDsf	INTEGER		Код дебіту
4	IdСsf	INTEGER		Код кредиту

Таблиця StatRdDd:
№ Field name Type Width Dec

1	Id_StRdDd	INTEGER		Ключ, Лічильник
2	StatRdDdName	VARCHAR	30	Назва статті витрат

3. Схема діалогу користувача з системою АСУ ГГУ і створення статистичної звітності

3.1 Схема діалогу користувача з системою за стандартом CUA

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

Метафора робочого столу. Відповідно з цією ідеєю екран комп'ютера розглядається як робоча поверхня, на якій користувач і програма розміщують візуальну інформацію. Інформація, що відноситься до певного виду діяльності, що виконується в поточний момент часу, організується у вигляді вікна. Користувач має можливість вільно переміщувати вікна, змінювати їх розміри, вибирати поточне вікно, переміщаючи його на передній план, і, нарешті, створювати нові і знищувати непотрібні йому вікна. Обов'язковою вимогою до інтерфейсу є многооконность-то є можливість створення користувачем в робочій області кількох вікон.

Меню-орієнтований інтерфейс. CUA жорстко регламентує вимоги до організації призначеного для користувача меню. Це розміщення головного меню у верхній частині екрана, організація «випадають» підменю, можливість вибору необхідної позиції за допомогою клавіатури та маніпулятора типу «миша», наявність «гарячих» клавіш для позицій меню. Засоби організації меню повинні забезпечувати можливість різної візуалізації активних і неактивних позицій, а також організовувати зв'язок з системою допомоги, яка дозволяє отримати підказку для кожної позиції меню.
Діалогові вікна. Відповідно до концепції CUA спілкування користувача з програмою (введення даних користувачем або виведення повідомлень програмою) здійснюється за допомогою так званих «спливаючих» (pop-up) діалогових вікон. Такі вікна містять марковані області, в які користувач може здійснювати введення даних, вибір опцій програми, перегляд інформації та інші операції. Важливим елементом діалогових вікон є так звані органи управління - кнопки, смуги прокручування, що дозволяють користувачеві керувати поведінкою програми або переглядом інформації.
Контекстно-залежна допомога. Програма, яка задовольняє вимоги CUA, зобов'язана підтримувати систему допомоги, зміст якої залежить від поточної виконуваної користувачем операції. Це стосується не тільки виведення довідкової інформації по запиту користувача, але також і наявності коротких підказок по використовуваних клавішах, ідентифікації поточної виконуваної функції або операції.

3.2 Схема діалогу користувача з системою АСУ ГГУ

Реалізація системи АСУ ГГУ проведена на мові C + + Bilder5 із застосуванням об'єктно-орієнтованої технології, що забезпечує розробку користувальницького інтерфейсу для прикладних програм у відповідності з викладеними вище концепціями стандарту CUA. Взаємодія користувача з підсистемою здійснюється в основному з використанням діалогових вікон, що містять такі основні органи управління: «Файл», «Проведення», «ПДВ», «Банк», «Каса», «Харчування», «Послуги», «Матеріали», «Відрядження», «Квитанції», «Документи», «Довідники». Деякі з них містять інші діалогові вікна. Наприклад: діалогове вікно "Файл" крім пункту «Створення даних за місяць» містить так само підменю «Налаштування», «Службові функції», «Параметри роботи».

3.3 Реалізація статистичної звітності в системі АСУ ГГУ

Для реалізації статистичної звітності були створені три форми написані на мові C + + Bilder5. Перша описує статті витрат. Друга відповідність проводков до статей витрат. Нарешті третя описує статті витрат / доходів. Ця третя є батьківської.
Для створення цих форм були створені компоненти AsuTable: StatRashodTable, StatRdDdTable, StatProvodkiTable. Ці компоненти реалізовані програмами StatRashodTable.cpp, StatRashodTable.h, StatProvodkiTable.cpp, StatProvodkiTable.h, StatProvodkiTable.cpp, StatProvodkiTable.h. Текст програм наведено нижче в Додатку А, В і С.
Крім того в створенні використовувалися кнопки «знайти» і «вихід». Дані кнопки реалізовані як методи Searchform з програми SearchWn.h. При натисканні маніпулятором миша на кнопку, з'являється нова форма для знаходження потрібної вам інформації. При залученні кнопки «вихід» дана форма закривається.
Дані у форму заносяться з таблиць. Оновлюються і змінюються за допомогою методу AsuDbgrid.
Програми реалізують ці форми: USStatRashodForm.h, USStatRashodForm.cpp, USStatRashodForm.dfm, USStatRdDdForm.h, USStatRdDdForm.cpp, USStatRdDdForm.dfm, USStatProvodkiForm.h, USStatProvodkiForm.cpp, USStatProvodkiForm.dfm. Тексти програм наведені в додатках А, В і С.

Висновок

Статистична звітність створена для введення бухгалтерської діяльності (розрахунку прибутку підприємства, зарплати персоналу, введення бухгалтерського обліку, обчислення різних податків і платежів, складання оплати за ресурси і т.д.). Дана статистична звітність в системі АСУ ГГУ реалізує економічне поняття про звітності. Вона створена для більш швидкої і якісної роботи з різного виду економічних операцій. При довідниках про статті доходів і витрат (дебітів, кредитів) користувач може вибрати ті з них, за якими він збирається вести розрахунки (здійснювати потрібну йому економічну операцію, як наприклад розрахунок заробітної плати). Система АСУ ГГУ проста в роботі і призначена на різних користувачів. Тобто людина може успішно працювати з системою незалежно від його знань комп'ютера. Тому будь-який користувач може без праці зробити економічну звітність про виконану ним роботу за допомогою даної системи.

Додаток А
Програма 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);
}
}

Додаток B

Програма USStatRdDdForm.h
  / / -
# Ifndef USStatRdDdFormH
# Define USStatRdDdFormH
/ / -
# 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 «StatRdDdTable.h»
# Include <Db.hpp>
# Include <DBGrids.hpp>
# Include <DBTables.hpp>
# Include <Grids.hpp>
# Include «ASUQUERY.h»
/ / -
class TFSStatRdDd: public AsuForm
{
__published: / / IDE-managed Components
TButton * SearchButton;
AsuButtonExit * AsuButtonExit1;
StatRdDdTable * StatRdDdTable1;
AsuQuery * AsuQuery1;
void __fastcall SearchButtonClick (TObject * Sender);
void __fastcall AsuButtonExit1Click (TObject * Sender);
private: / / User declarations
public: / / User declarations
__fastcall TFSStatRdDd (TComponent * Owner);
};
/ / -
extern PACKAGE TFSStatRdDd * FSStatRdDd;
/ / -
# Endif
Програма USStatRdDdForm.cpp
  / / -
# Include <vcl.h>
# Pragma hdrstop
# Include «AsuObj.h»
# Include «USStatRdDdForm.h»
/ / -
# Pragma package (smart_init)
# Pragma link «ASUBUTEX»
# Pragma link «AsuDBGrd»
# Pragma link «AsuTable»
# Pragma link «StatRdDdTable»
# Include «SearchWn.h»
# Pragma link «ASUQUERY»
# Pragma resource «*. dfm»
TFSStatRdDd * FSStatRdDd;
/ / -
__fastcall TFSStatRdDd: TFSStatRdDd (TComponent * Owner)
: AsuForm (Owner)
{
}
/ / -
void __fastcall TFSStatRdDd: SearchButtonClick (TObject * Sender)
{
SearchForm-> searchList = NULL;
SearchForm-> gridSearch = StatRdDdDBGrid;
SearchForm-> ShowModal ();
}
/ / -
void __fastcall TFSStatRdDd: AsuButtonExit1Click (TObject * Sender)
{
((AsuForm *) Owner) -> Close ();
}
/ / -
Програма USStatRdDdForm.dfm
bject FSStatRdDd: TFSStatRdDd
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 StatRdDdDBGrid: 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 = StatRdDdTable1
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 StatRdDdTable1: StatRdDdTable
Exclusive = True
TableName = 'StatRdDd'
Left = 232
Top = 72
end
object AsuQuery1: AsuQuery
SQL. Strings = (
'Select StatRdDdName from'
'StatRdDd'
'Order by StatRdDdName')
Left = 184
Top = 104
end
end

Програма StatRdDdTable.h
/ / -
# Ifndef StatRdDdTableH
# Define StatRdDdTableH
/ / -
# Include <SysUtils.hpp>
# Include <Controls.hpp>
# Include <Classes.hpp>
# Include <Forms.hpp>
# Include «AsuTable.h»
# Include <Db.hpp>
# Include <DBTables.hpp>
/ / -
class PACKAGE StatRdDdTable: public AsuTable
{
private:
char * getNameColumn (AnsiString nameField);
TFieldType getFieldType (AnsiString);
protected:
public:
__fastcall StatRdDdTable (TComponent * Owner);
__published:
};
/ / -
# Endif

Програма StatRdDdTable.cpp
/ / -
# Include <vcl.h>
# Pragma hdrstop
# Include «AsuObj.h»
# Include «StatRdDdTable.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 (StatRdDdTable *)
{
new StatRdDdTable (NULL);
}
/ / -
__fastcall StatRdDdTable: StatRdDdTable (TComponent * Owner)
: AsuTable (Owner)
{
TableName = «StatRashod / Dohod»;
}
/ / -
char * StatRdDdTable: getNameColumn (AnsiString nameField)
{
if (! nameField. AnsiCompareIC («StatRdDdName»)) return «найменування статті»;
return 0;
}
/ / -
TFieldType StatRdDdTable: getFieldType (AnsiString nameField)
{
return ftString;
}
/ / -
namespace StatRdDdtable
{
void __fastcall PACKAGE Register ()
{
TComponentClass classes [1] = {__classid (StatRdDdTable)};
RegisterComponents («АСУ-таблиці», classes, 0);
}
}
/ / -

Додаток C

Програма USStatProvodkiForm.h
  / / -
# Ifndef USStatProvodkiFormH
# Define USStatProvodkiFormH
/ / -
# 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 «StatProvodkiTable.h»
# Include <Db.hpp>
# Include <DBGrids.hpp>
# Include <DBTables.hpp>
# Include <Grids.hpp>
# Include «ASUQUERY.h»
/ / -
class TFSStatProvodki: public AsuForm
{
__published: / / IDE-managed Components
TButton * SearchButton;
AsuButtonExit * AsuButtonExit1;
StatProvodkiTable * StatProvodkiTable1;
AsuQuery * AsuQuery1;
void __fastcall SearchButtonClick (TObject * Sender);
void __fastcall AsuButtonExit1Click (TObject * Sender);
private: / / User declarations
public: / / User declarations
__fastcall TFSStatProvodki (TComponent * Owner);
};
/ / -
extern PACKAGE TFSStatProvodki * FSStatProvodki;
/ / -
# Endif
Програма USStatProvodkiForm.cpp
  / / -
# Include <vcl.h>
# Pragma hdrstop
# Include «AsuObj.h»
# Include «USStatProvodkiForm.h»
/ / -
# Pragma package (smart_init)
# Pragma link «ASUBUTEX»
# Pragma link «AsuDBGrd»
# Pragma link «AsuTable»
# Pragma link «StatProvodkiTable»
# Include «SearchWn.h»
# Pragma link «ASUQUERY»
# Pragma resource «*. dfm»
TFSStatRashod * FSStatProvodki;
/ / -
__fastcall TFSStatProvodki: TFSStatProvodki (TComponent * Owner)
: AsuForm (Owner)
{
}
/ / -
void __fastcall TFSStatProvodki: SearchButtonClick (TObject * Sender)
{
SearchForm-> searchList = NULL;
SearchForm-> gridSearch = StatProvodkiDBGrid;
SearchForm-> ShowModal ();
}
/ / -
void __fastcall TFSStatProvodki: AsuButtonExit1Click (TObject * Sender)
{
((AsuForm *) Owner) -> Close ();
}
/ / -
Програма USStatProvodkiForm.dfm
object FSStatProvodki: TFSStatProvodki
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 StatProvodkiDBGrid: 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 = StatProvodkiTable1
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 StatProvodkiTable1: StatProvodkiTable
Exclusive = True
TableName = 'StatProvodki'
Left = 232
Top = 72
end
object AsuQuery1: AsuQuery
SQL. Strings = (
'Select CodeProvodki, IdDsf, IdCsf from'
'StatProvodki'
'Order by CodeProvodki')
Left = 184
Top = 104
end
end
Програма StatProvodki.h
  / / -
# Ifndef StatProvodkiTableH
# Define StatProvodkiTableH
/ / -
# Include <SysUtils.hpp>
# Include <Controls.hpp>
# Include <Classes.hpp>
# Include <Forms.hpp>
# Include «AsuTable.h»
# Include <Db.hpp>
# Include <DBTables.hpp>
/ / -
class PACKAGE StatProvodkiTable: public AsuTable
{
private:
char * getNameColumn (AnsiString nameField);
TFieldType getFieldType (AnsiString);
protected:
public:
__fastcall StatProvodkiTable (TComponent * Owner);
__published:
};
/ / -
# Endif
Програма StatProvodki.h
  / / -
# Include <vcl.h>
# Pragma hdrstop
# Include «AsuObj.h»
# Include «StatProvodkiTable.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 (StatProvodkiTable *)
{
new StatProvodkiTable (NULL);
}
/ / -
__fastcall StatProvodkiTable: StatProvodkiTable (TComponent * Owner)
: AsuTable (Owner)
{
TableName = «StatProvodki»;
}
/ / -
char * StatProvodkiTable: getNameColumn (AnsiString nameField)
{
if (! nameField. AnsiCompareIC («CodeProvodki»)) return «Код проводки»;
if (! nameField. AnsiCompareIC («IdDsf»)) return «Номер дебіту»;
if (! nameField. AnsiCompareIC («IdСsf»)) return «Номер кредиту»;
return 0;
}
/ / -
TFieldType StatProvodkiTable: getFieldType (AnsiString nameField)
{
return ftString;
}
namespace StatProvodkiTable
{
void __fastcall PACKAGE Register ()
{
TComponentClass classes [1] = {__classid (StatProvodkiTable)};
RegisterComponents («АСУ-таблиці», classes, 0);
}}