Комплексный финансовый анализ эмитента ценных бумаг

  {

   Form1->Button1->Enabled=false;

  }

 else if(IsValidData())

  {

   Form1->Button1->Enabled=true;

  }

}

//-----------------------------------------------------------------------------------------------------

void __fastcall TForm1::StringGrid1SelectCell(TObject *Sender, int ACol,

     int ARow, bool &CanSelect)

{

  for(int i=2;i<=5;i++)

 {

  Form1->StringGrid1->Cells[1][i]=Form1->StringGrid1->Cells[3][i-1];

  Form1->StringGrid1->Cells[2][i]=Form1->StringGrid1->Cells[4][i-1];

 }

}

//-----------------------------------------------------------------------------------------------------

 

Программа, обеспечивающая ввод экспертных данных для  расчета

Содержание  заголовочного файла diplom_ras4et_cpp.h:

//-----------------------------------------------------------------------------------------------------

#ifndef diplom_ras4et_cppH

#define diplom_ras4et_cppH

//-----------------------------------------------------------------------------------------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

#include <Buttons.hpp>

#include <jpeg.hpp>

#include <Vector.h>

#include <math.h>

#include <Math.hpp>

#include <Grids.hpp>

#include <Algorithm.h>

#include <map.h>

#include <Dialogs.hpp>

#include <Menus.hpp>

using namespace std;

//-----------------------------------------------------------------------------------------------------

class TForm1 : public TForm

{

__published: // IDE-managed Components

        TLabeledEdit *LabeledEdit1;

        TButton *Button1;

        TRadioGroup *RadioGroup1;

        TLabeledEdit *LabeledEdit2;

        TStringGrid *StringGrid1;

        TButton *Button2;

        TButton *Button3;

        TLabel *Label1;

        void __fastcall FormCreate(TObject *Sender);

        void __fastcall Button1Click(TObject *Sender);

        void __fastcall Button3Click(TObject *Sender);

        void __fastcall RadioGroup1Click(TObject *Sender);

        void __fastcall LabeledEdit1KeyDown(TObject *Sender, WORD &Key,

          TShiftState Shift);

        void __fastcall Button2Click(TObject *Sender);

        void __fastcall LabeledEdit2Change(TObject *Sender);

        void __fastcall LabeledEdit1Change(TObject *Sender);

private: // User declarations

public:  // User declarations

bool IsValidFishbern(AnsiString);

FILE *ptr;

char temp[100];

float kriteriy;

unsigned int koli4estvo_pokaz;

vector<vector<vector<float> > > ocenka_pokaz;

vector<vector<char> > nazv_pokaz;

vector<float> zna4_pokaz;

vector<vector<float> > lambda;

        __fastcall TForm1(TComponent* Owner);

};

extern PACKAGE TForm1 *Form1;

//-----------------------------------------------------------------------------------------------------

#endif 

Содержание  исполняемого файла программы diplom_ras4et_cpp.cpp:

//-----------------------------------------------------------------------------------------------------

#include <stdio.h>

#include <vcl.h>

#pragma hdrstop

#include "diplom_ras4et_cpp.h"

//-----------------------------------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//-----------------------------------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

        : TForm(Owner)

{

}

//-----------------------------------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{

 kriteriy=0;

 Form1->BorderStyle=bsDialog;

 Form1->Color=clCream;

 Form1->LabeledEdit1->Font->Style=TFontStyles() << fsItalic;

 Form1->LabeledEdit1->AutoSelect=true;

 Form1->LabeledEdit1->Text="Введите значение показателя";

 Form1->LabeledEdit1->Focused();

 Form1->Button2->Enabled=false;

 Form1->LabeledEdit2->Enabled=false;

 Form1->RadioGroup1->Enabled=false;

 Form1->RadioGroup1->ItemIndex=0;

 Form1->StringGrid1->ColCount=3;

 Form1->StringGrid1->RowCount=2;

 Form1->StringGrid1->ScrollBars=ssVertical;

 Form1->StringGrid1->DefaultColWidth=Floor(Form1->StringGrid1->

Width/Form1->StringGrid1->ColCount-2);

 Form1->StringGrid1->FixedColor=clCream;

 Form1->StringGrid1->Cells[0][0]="Номер показателя";

 Form1->StringGrid1->Cells[1][0]="Название показателя";

 Form1->StringGrid1->Cells[2][0]="Значение показателя";

 koli4estvo_pokaz=0;

 try

 {

  ptr=fopen("pokazateli.pkz","r");

  while(!feof(ptr))

   {

    fscanf(ptr,"%s",temp);

    nazv_pokaz.resize(nazv_pokaz.size()+1);

    for(int i=0;i<100;i++)

     {

      nazv_pokaz.at(nazv_pokaz.size()-1).push_back(temp[i]);

     }

    ocenka_pokaz.resize(ocenka_pokaz.size()+1);

    ocenka_pokaz.at(ocenka_pokaz.size()-1).resize(5);

    for(int i=0;i<5;i++)

     {

      ocenka_pokaz.at(ocenka_pokaz.size()-1).at(i).resize(4);

     }

    for(int i=0;i<5;i++)

     {

      for(int j=0;j<4;j++)

       {

        fscanf(ptr,"%s",temp);

        ocenka_pokaz.at(ocenka_pokaz.size()-1).at(i).at(j)=StrToFloat(temp);

       }

     }

   }

  for(int i=0;i<100;i++)

   {

    temp[i]=nazv_pokaz.at(0).at(i);

   }

  Form1->LabeledEdit1->EditLabel->Caption=temp;

 }

 catch(...)

 {

  Application->MessageBoxA("Файл pokazateli.pkz поврежден или отсутствует в

     заданной директории","Ошибка!",MB_OK);

  Application->Terminate();

 }

}

//-----------------------------------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

 koli4estvo_pokaz++;

 Form1->StringGrid1->RowCount++;

 Form1->StringGrid1->Cells[0][koli4estvo_pokaz]=IntToStr(koli4estvo_pokaz);

 Form1->StringGrid1->Cells[1][koli4estvo_pokaz]=temp;

 Form1->StringGrid1->Cells[2][koli4estvo_pokaz]=Form1->LabeledEdit1->Text;

 zna4_pokaz.push_back(StrToFloat(Form1->LabeledEdit1->Text));

 if(koli4estvo_pokaz!=nazv_pokaz.size()-1)

  {

   for(int i=0;i<100;i++)

    {

     temp[i]=nazv_pokaz.at(koli4estvo_pokaz).at(i);

    }

   Form1->LabeledEdit1->EditLabel->Caption=temp;

   Form1->LabeledEdit1->Font->Style=TFontStyles() << fsItalic;

   Form1->LabeledEdit1->Text="Введите значение показателя";

   Form1->LabeledEdit1->SetFocus();

  }

 else

  {

   Form1->LabeledEdit1->Text="";

   Form1->StringGrid1->RowCount--;

   Form1->LabeledEdit1->EditLabel->Caption="";

   Form1->Button1->Enabled=false;

   Form1->LabeledEdit1->Enabled=false;

   Form1->RadioGroup1->Enabled=true;

   Form1->Button2->Enabled=true;

  }

}

//-----------------------------------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)

{

 fclose(ptr);

 Form1->Close();

}

//-----------------------------------------------------------------------------------------------------

void __fastcall TForm1::RadioGroup1Click(TObject *Sender)

{

 if(Form1->RadioGroup1->ItemIndex==1)

  {

   Form1->Button2->Enabled=false;

   Form1->LabeledEdit2->Enabled=true;

  }

 else

  {

   Form1->Button2->Enabled=true;

   Form1->LabeledEdit2->Text="";

   Form1->LabeledEdit2->Enabled=false;

  }

}

void __fastcall TForm1::LabeledEdit1KeyDown(TObject *Sender, WORD &Key,

TShiftState Shift)

{

 Form1->LabeledEdit1->Font->Style=TFontStyles() >> fsItalic;

}

//-----------------------------------------------------------------------------------------------------