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

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

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

«ГОМЕЛЬСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ им. Ф. СКОРИНЫ»

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

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

ГОМЕЛЬ 2003

Приложение А

Программа 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.

stat

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать