Курсовая работа: Разработка статистической отчетности в системе АСУ ГГУ
Программа 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);
}}