Дипломная работа


НазваниеДипломная работа
страница21/21
Дата публикации24.05.2013
Размер1.6 Mb.
ТипДиплом
referatdb.ru > Информатика > Диплом
1   ...   13   14   15   16   17   18   19   20   21
^

SSGP: простые акции АО «ССГПО»











^ Список ценных бумаг‚ категория

 

Официальный, «A»

Тип акции

 

простые акции

Эмитент

 

Акционерное общество "Соколовско-Сарбайское горно-обогатительное производственное объединение"

NSIN

 

KZ1C10971215

^ Номинальная стоимость

 

1 000,00

Валюта выпуска

 

KZT

Выпущено‚ шт

 

5 850 000

^ Включены в торговые списки

 

17.04.03

Дата первых торгов

 



^ Валюта котирования

 

KZT

Маркет-мейкеры

 

 ТОО "Центрально–Азиатская Трастовая Компания"

^ Цена последней сделки

 

6,53

Дата последней сделки

 

30.04.02

^ Объем последней сделки‚ шт

 

110 500

Объем последней сделки‚ USD

 

721 565,00

^ Минимальная цена последнего предложения

 



Дата последнего предложения

 



^ Максимальная цена последнего спроса

 



Дата последнего спроса

 



^ Мин. цена с начала торгов

 

6,53

Макс. цена с начала торгов

 

6,53

^ Количество заключенных сделок

 

1

Объем заключенных сделок‚ шт

 

110 500

^ Объем заключенных сделок‚ USD

 

721 565,00

Дата регистрации эмиссии

 

13.02.96

^ Номер Государственного реестра

 

A1097

Реестродержатель

 

ТОО "Регистратор"

^ Права владельца

 

Право голоса, право получения дивидендов, право получения информации о деятельности компании.

Дивиденды

 

За 1996-1998 годы не выплачивались, за 1999 год выплачено 292 090,5 тыс. тенге (50,0 тенге на одну акцию), за 2000 год – 292 090,5 тыс. тенге (50,0 тенге на одну акцию)

ПРИЛОЖЕНИЕ 7



Рисунок 2 – Окно «Реестр»


Рисунок 3 – Диаграмма по динамике изменения доходности ЦБ



Рисунок 4 – Окно «Портфель» (расчет)



Рисунок 5 – Диаграмма по структуре портфеля


Рисунок 6 – «Отчет о доходности»

Рисунок 7 – «Заключение о структуре портфеля»



Рисунок 8 – «Ведомость эмитентов»

ПРИЛОЖЕНИЕ 8

Текст программы

unit Main;
interface
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, StdCtrls, ComCtrls, ExtCtrls, DBCtrls, Buttons,

Menus;
type

TForm1 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

GroupBox1: TGroupBox;

GroupBox3: TGroupBox;

GroupBox2: TGroupBox;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBGrid3: TDBGrid;

DBGrid4: TDBGrid;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

DBText1: TDBText;

Label1: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

Label2: TLabel;

DBText2: TDBText;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

DBText3: TDBText;

Label7: TLabel;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

procedure BitBtn1Click(Sender: TObject);

procedure PageControl1Enter(Sender: TObject);

procedure DBGrid2CellClick(Column: TColumn);

procedure DBGrid1CellClick(Column: TColumn);

procedure DBGrid2KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure DBGrid2KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var

Form1: TForm1;

avgtmp, disptmp, disptmp2, SummaTmp: double;
implementation
uses Data, DBTables, Graph, Edit, DB, Graph1, Unit6, Unit7, Unit8;
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);

var

j,i,a, h:integer;

begin

with DataModule1.Table3 do

begin

First;

avgtmp:=0;

disptmp:=0;

disptmp2:=0;

SummaTmp:=0;

while not eof do

begin

avgtmp:=avgtmp+DataModule1.Table3Dohodnost.Value;

disptmp:=disptmp+sqr(DataModule1.Table3Dohodnost.Value);

disptmp2:=disptmp2+DataModule1.Table3Dohodnost.Value;

SummaTmp:=SummaTmp+DataModule1.Table3Dohodnost.Value;

Next;

end;

end;

if DataModule1.Table3.RecordCount=0 then

begin

a:=1;

showmessage('В таблице котировок нет записей');

end

else a:=DataModule1.Table3.RecordCount;

avgtmp:=avgtmp/a;

DataModule1.Table3Dohodnost.Value;

disptmp:=disptmp*(DataModule1.Table3.RecordCount);

disptmp:=(disptmp-sqr(disptmp2))/(DataModule1.Table3.RecordCount*(DataModule1.Table3.RecordCount-1));

DataModule1.Table4.Append;

DataModule1.Table4.FieldByName('Emitent').Value:=DataModule1.Table1.FieldByName('Emitent').Value;

DataModule1.Table4.FieldByName('Kod').Value:=DataModule1.Table2.FieldByName('Kod').Value;

DataModule1.Table4Kotirovki.Value:=avgtmp;

DataModule1.Table4Disp.Value:=disptmp;

DataModule1.Table4Summa.Value:=SummaTmp/DataModule1.Table3.RecordCount;;

DataModule1.Table3.First;

For i:=1 to DataModule1.Table3.RecordCount do

begin

DataModule1.Table3.Edit;

DataModule1.Table3Raznost.Value:=DataModule1.Table3Dohodnost.Value-DataModule1.Table4Summa.Value;

DataModule1.Table3.Post;

DataModule1.Table3.Next;

end;

DataModule1.Table4.Post;

end;
procedure TForm1.PageControl1Enter(Sender: TObject);

begin

With DataModule1.Table3 do

begin

First;

while not eof do

begin

DataModule1.Table3.Edit;

DataModule1.Table3Dohodnost.Value:=((DataModule1.Table3Kotirovka.Value/DataModule1.Table2Nominal.Value)-1)*100;

DataModule1.Table3.Post;

DataModule1.Table3.Next;

end;

end;

DataModule1.Table4Kotirovki.DisplayFormat:='0.00';

DataModule1.Table4Disp.DisplayFormat:='0.00';

DataModule1.Table3Dohodnost.DisplayFormat:='0.00';

DataModule1.Table4OzhDohodnost.DisplayFormat:='0.00';

DataModule1.Table4Summa.DisplayFormat:='0.00';

DataModule1.Table3Raznost.DisplayFormat:='0.00';

end;
procedure TForm1.DBGrid2CellClick(Column: TColumn);

begin

With DataModule1.Table3 do

begin

First;

while not eof do

begin

DataModule1.Table3.Edit;

DataModule1.Table3Dohodnost.Value:=((DataModule1.Table3Kotirovka.Value/DataModule1.Table2Nominal.Value)-1)*100;

DataModule1.Table3.Post;

DataModule1.Table3.Next;

end;

end;

end;
procedure TForm1.DBGrid1CellClick(Column: TColumn);

begin

With DataModule1.Table3 do

begin

First;

while not eof do

begin

DataModule1.Table3.Edit;

DataModule1.Table3Dohodnost.Value:=((DataModule1.Table3Kotirovka.Value/DataModule1.Table2Nominal.Value)-1)*100;

DataModule1.Table3.Post;

DataModule1.Table3.Next;

end;

end;

end;
procedure TForm1.DBGrid2KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

With DataModule1.Table3 do

begin

First;

while not eof do

begin

DataModule1.Table3.Edit;

DataModule1.Table3Dohodnost.Value:=((DataModule1.Table3Kotirovka.Value/DataModule1.Table2Nominal.Value)-1)*100;

DataModule1.Table3.Post;

DataModule1.Table3.Next;

end;

end;

end;
procedure TForm1.DBGrid2KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

With DataModule1.Table3 do

begin

First;

while not eof do

begin

DataModule1.Table3.Edit;

DataModule1.Table3Dohodnost.Value:=((DataModule1.Table3Kotirovka.Value/DataModule1.Table2Nominal.Value)-1)*100;

DataModule1.Table3.Post;

DataModule1.Table3.Next;

end;

end;

end;
procedure TForm1.BitBtn2Click(Sender: TObject);

Var

OzhDohTmp, OzhDohTmp1, Sovokupnost, Sovokupnost1,z1,z2,z3,a, Risk, Risk1: Double;

j,i,t,n,k,q,s,v: integer;

z,M:array[1..10,1..10] of double;

label povtor;

begin

With DataModule1.Table4 do

begin

OzhDohTmp:=0;

OzhDohTmp1:=0;

Sovokupnost:=0;

Sovokupnost1:=0;

Risk1:=0;

DataModule1.Table4.First;

while not eof do

begin

DataModule1.Table4.Edit;

DataModule1.Table4OzhDohodnost.Value:=(DataModule1.Table4Kotirovki.Value*DataModule1.Table4Ves.Value);

DataModule1.Table4.Post;

DataModule1.Table4.Next;

end;

DataModule1.Table4.First;

for i:=1 to DataModule1.Table4.RecordCount do

begin

OzhDohTmp:=DataModule1.Table4OzhDohodnost.Value;

OzhDohTmp1:=OzhDohTmp1+DataModule1.Table4OzhDohodnost.Value;

DataModule1.Table4.Next;

end;

DataModule1.Table4.First;

for i:=1 to DataModule1.Table4.RecordCount do

begin

Sovokupnost:=DataModule1.Table4Ves.Value;

Sovokupnost1:=Sovokupnost1+Sovokupnost;

DataModule1.Table4.Next;

end;

if Sovokupnost1*100<100 then

begin

Label5.Caption:='Инвестиционный портфель сформирован не полностью!';

DBText2.Caption:=FloatToStr(Sovokupnost1*100);

DBText1.Caption:=FloatToStr(OzhDohTmp1);

end

else

if Sovokupnost1*100>100 then

begin

Label5.Caption:='Инвестиционный портфель переполнен!';

DBText2.Caption:=FloatToStr(Sovokupnost1*100);

DBText1.Caption:=FloatToStr(OzhDohTmp1);

end

else

Label5.Caption:='';

DBText2.Caption:=FloatToStr(Sovokupnost1*100);

DBText1.Caption:=FloatToStr(OzhDohTmp1);

end;

DataModule1.Table4.First;

for i:=1 to DataModule1.Table4.RecordCount do

begin

Risk:=DataModule1.Table4Ves.Value*DataModule1.Table4Disp.Value;

Risk1:=Risk1+Risk;

DataModule1.Table4.Next;

end;

DBText3.Caption:=FloatToStr(Risk1);
end;
procedure TForm1.BitBtn3Click(Sender: TObject);

begin

Form2.Show;

Form2.DBChart1.RefreshData;

end;
procedure TForm1.N2Click(Sender: TObject);

begin

Form3.Show;

end;
procedure TForm1.N4Click(Sender: TObject);

begin

Form2.Show;

Form2.DBChart1.RefreshData;

end;
procedure TForm1.BitBtn4Click(Sender: TObject);

begin

Form5.Show;

Form5.DBChart1.RefreshData;

end;
procedure TForm1.N5Click(Sender: TObject);

begin

Form5.Show;

Form5.DBChart1.RefreshData;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Form6.Show;

end;
procedure TForm1.N8Click(Sender: TObject);

begin

Form7.Show;

end;
procedure TForm1.N9Click(Sender: TObject);

begin

Form8.Show;

end;
end.

unit Data;
interface
uses

SysUtils, Classes, DB, DBTables;
type

TDataModule1 = class(TDataModule)

Table1: TTable;

DataSource1: TDataSource;

Table1Emitent: TStringField;

Table2: TTable;

DataSource2: TDataSource;

Table3: TTable;

DataSource3: TDataSource;

Table2NomerCB: TAutoIncField;

Table2IndexEmitent: TSmallintField;

Table2TipCB: TStringField;

Table2Naimenovanie: TStringField;

Table2Kod: TStringField;

Table2Vipusk: TIntegerField;

Table2Valuta: TStringField;

Table2MM: TStringField;

Table2DataEmissii: TDateField;

Table2NomerGosReestra: TStringField;

Table2ReestroDerzhatel: TStringField;

Table2Emissiya: TStringField;

Table2NSIN: TStringField;

Table3No: TAutoIncField;

Table3IndexCB: TSmallintField;

Table3Date: TDateField;

Table3Kotirovka: TFloatField;

Table1NomerDiploma: TAutoIncField;

Table4: TTable;

DataSource4: TDataSource;

Table4NomerPortfel: TAutoIncField;

Table4Emitent: TStringField;

Table4Kod: TStringField;

Table4Kotirovki: TFloatField;

Table4Disp: TFloatField;

Table4Ves: TFloatField;

Table3Dohodnost: TFloatField;

Table2Nominal: TFloatField;

Table4OzhDohodnost: TFloatField;

Table5: TTable;

DataSource5: TDataSource;

Table5No: TAutoIncField;

Table5IndexCB: TSmallintField;

Table5Date: TDateField;

Table5Kotirovka: TFloatField;

Table5Dohodnost: TFloatField;

Table4Summa: TFloatField;

Table3Raznost: TFloatField;

Table4Summa1: TFloatField;

Table6: TTable;

DataSource6: TDataSource;

Table6NomerPortfel: TAutoIncField;

Table6Emitent: TStringField;

Table6Kod: TStringField;

Table6Kotirovki: TFloatField;

Table6Disp: TFloatField;

Table6Ves: TFloatField;

Table6OzhDohodnost: TFloatField;

Table6Summa: TFloatField;

Table6Summa1: TFloatField;

Table3Proizvedenie: TFloatField;

procedure DataSource6DataChange(Sender: TObject; Field: TField);

private

{ Private declarations }

public

{ Public declarations }

end;
var

DataModule1: TDataModule1;
implementation
{$R *.dfm}
procedure TDataModule1.DataSource6DataChange(Sender: TObject;

Field: TField);

begin
end;
end.

unit Edit;
interface
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, DBCtrls, StdCtrls, Buttons;
type

TForm3 = class(TForm)

Edit1: TEdit;

Label1: TLabel;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var

Form3: TForm3;
implementation
uses Data, Password;
{$R *.dfm}
procedure TForm3.BitBtn1Click(Sender: TObject);

begin

If Edit1.Text='Askar' then

begin

Form4.Show;

close;

end

else

close;

end;
end.

1   ...   13   14   15   16   17   18   19   20   21

Похожие рефераты:

Дипломная работа содержит 146 страницы, 15 рисунков, 27 таблиц, 4 формулы, 1 приложение
Темой данной дипломной работы является управление маркетинговой деятельностью на предприятии Дипломная работа состоит из четырех...
Дипломная работа (дипломная научная работа) это квалификационная...
На основе изучения и оценки текущей ситуации на предприятии он должен уметь определять перспективы его развития, формулировать цели...
Дипломная работа: выполнение и защита
Методические рекомендации составлены на основе учебно-методического пособия: Дипломная работа: выполнение и защита. Учебно-методическое...
Программа дисциплины «Дипломная работа как исследование» для студентов...
Одобрено и рекомендовано к изданию на заседании Учебно-методического совета университета
Конкурс проводится по следующим номинациям: «лучшая дипломная работа...
«Лучшая дипломная и научно-исследовательская работа студентов в области менеджмента и контроля качества». Проводится с 2007 года
Уо «белорусский государственный экономический университет» сборник...
Ключевые слова: дипломная работа, курсовая работа, реферат, научная работа, магистерская диссертация, организация выполнения, организация...
Дипломная работа индейские реалии в произведении Г. У. Лонгфелло «Песнь о Гайавате»
Данная дипломная работа называется «Индейские реалии в произведении “Песнь о Гайавате” Лонгфелло»
Дипломная работа: Тема
Введение с. 3
Дипломная работа планирование и осуществление следственных действий

Дипломная работа
Общие положения о субъектах административной ответственности

Вы можете разместить ссылку на наш сайт:
Школьные материалы


При копировании материала укажите ссылку © 2013
контакты
referatdb.ru
referatdb.ru
Рефераты ДатаБаза