Разработка программного обеспечения для анализа уровня развития сферы услуг в туризме региона
Основные функции и задачи управления развитием сферы услуг. Специальное программное обеспечение для комплексной автоматизации туристической деятельности. Современные системы бронирования в туризме. Состав и структура программного обеспечения сферы услуг.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 15.04.2012 |
| Размер файла | 3,3 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
- создание организационно-экономических условий для развития бизнеса в сфере услуг;
- кооперирование органов управления региона на базе создания совместных проектов;
- разработка целевых программ, предусматривающих комбинирование методов воздействия на развитие предприятий различных отраслей сферы услуг.
Список использованной литературы
Аброскин А. Сфера услуг и экономическое развитие (методологические аспекты статистического анализа)// Вопросы статистики, 2004г.
Адамадзиев К.Р. Разработка автоматизированных рабочих мест экономистов. Учебное пособие. - Махачкала: ИПЦ ДГУ, 2005.-70 c.
Антюфеев Г.В., Румянцев В.П., Сергиевский М.В. и др Компьютерные технологии реального времени в туристской деятельности.. МИФИ 2004, 155 с., Деп в ВИНИТИ № 1011-В2004
Алешина И.В. Маркетинг для менеджеров: Учеб. пособие / И.В. Алешина. - М.: ФАИР-ПРЕСС, 2003. - 456 с.
Баженова И.Ю. «Delphi 6. Самоучитель программиста». - М.: КУДИЦ - ОБРАЗ, 2003г. - 448 с.
Балабанов И.Т., Балабанов А.И. Экономика туризма: учебное пособие. М., 2003.
Гофман В.В., Хомоненко А.Н. «Delphi 6», Санкт - Петербург, «БХВ-Петербург».
Гуляев В.Г. «Новые информационные технологии в туризме». - М.: "Издательство ПРИОР", 2006. - 144 с.
Грачев Ю.Н. Мировой рынок услуг и Россия // Внешнеэкономический бюллетень. 2008. № 5.
Сфера услуг: новая концепция развития / В.М. Рутгайзер, Т.И. Корягина, Т.И. Арбузова и др. - М.: Экономика, 2007.
Стандартизация и спецификация в сфере услуг / Под ред. И.М. Белявского. - М., 2007. - С. 107.
Гуляев В.Г. Организация туристской деятельности. М., 2006.
Данилин А.Е. Развитие иностранного туризма в РФ // Предпринимательское право. - 2004 . № 4. С. 21
Демидов Л.С. Сфера услуг в постиндустриальной экономике // Мировая экономика и международные отношения. 2009. № 2. С. 25-26.
Ерохина Л.И., Башмачникова Е.В. Прогнозирование и планирование в сфере сервиса. - М.: КНОРУС, 2004. - 215 с.
Занятость в сфере услуг и перспективы ее развития в России// «Общество и экономика»,№8,2002г.
Колыванов В.Ю., Гиндиев А.М., Юзбеков Н.А. Формирование системы управления развитием сферы услуг на современном этапе хозяйствования. - Махачкала, ДГТУ, ИСЭИ ДНЦ РАН, 2002г.
Лукьянов С.Э., Савельев А.Я., Сазонов Б. А. Создание и использование баз данных. - М.: «Высшая школа», 2002г.
Маринин М.И. О проблемах российского туризма // Экономика и жизнь. - 2005. № 31. С. 42.
Миляков О. Туризм - категория экономическая // Юридический вестник. - 2006. № 2. С. 5
Мишурова, И В., Лысенко, Н.А. Менеджмент профессиональных услуг: стратегия и тактика [Текст]: учеб. практ. пособие / И. В. Мишурова,
Н.А. Лысенко. - М.; Ростов н/Д.: МарТ, 2004. - 176 с.
Омельченко Е. Самоучитель по Visual FoxPro 6.0. - Минск, 2001г.
Общероссийский классификатор услуг населению [Текст]: [утв. Постановлением Госстандарта России от 28 июля 1993 г. № 163: в ред. от 1 мая 2005 г.].
Папирян Г. А. Международные экономические отношения: маркетинг в туризме. - М.: Финансы и статистика, 2004. - 160 с.: ил.
Плотникова И. Комплексная автоматизация туристского бизнеса.
Полещук В. Проблема выбора системы автоматизации.// Экономика и Жизнь 2006, №11
Понамарев В.С. «Базы данных в Delphi 7» СПб: Питер 2005.
Семин В.С.. Организация международного туризма: Учебник. - М.: Финансы и статистика, 2004. - 400 с.
Суширов А.И., Петровский А.М. «Хитрости и тонкости Borland Delphi 7 ». - М.: Высшая Школа,2005г.
Успенский И.В. «Интернет-маркетинг» Учебник,- СПб.,: Изд-во СПГУЭ и Ф, 2003, стр. - 12
Чурмаева Е. Учимся делать деньги на туризме. // Эхо планеты. - 2006. - 9 -15 июня. - С. 32-33
Экономика современного туризма / Под ред. д. э. н. Г.А. Карповой/ Москва - Санкт-Петербург. - 2006. - 412 с.
http://ru.wikipedia.org/wiki
http://www.artlebedev.ru/kovodstvo
http://www.tourbus.ru/arhiv/07_99/news/technol/1.htm
http://www.travel.spb.ru
http://www.tsure.ru/University/Faculties/Mrcpk/docs/liter/turism/turism8/Untitled/page038.html
http://www.unwto.org/ruso/about_wto/general_info_wto_updated2006.htm
WTO, World Overview and Tourism Topics, 2002 Edition.
www.astt.ru/txt/berdnik.doc
Приложение 1
Блок-схема программы
Приложение 1 (продолжение)
Приложение 1 (продолжение)
Приложение 1 (продолжение)
Приложение 1 (продолжение)
Приложение 1 (продолжение)
Приложение 1 (продолжение)
Приложение 2
Листинг программы
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Menus, ComCtrls, jpeg, RegComp, LMDCustomControl,
LMDAssist, ProDlgs, ProCalc,shellapi, RxCalc;
const n=100;
type
TMainfrm = class(TForm)
StatusBar1: TStatusBar;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
Excel1: TMenuItem;
N9: TMenuItem;
Image1: TImage;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
RegComp1: TRegComp;
ProCalcDialog1: TProCalcDialog;
RxCalculator1: TRxCalculator;
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure Excel1Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Mainfrm: TMainfrm;
char,char1: array [0..n] of double;
a,cc,vv,rr,aa,tt,yy,yy1,name1,name2,name3:string;
bla,nbla,sred: real;
MVStatRec: TMultStatRec;
col,col1:integer;ss:integer;
sred2,sred1:real;
var vec,vec1,vec2:XVector;
implementation
uses Linein, DM1, Step, Exp22, Mnog, About;
{$R *.dfm}
procedure TMainfrm.N9Click(Sender: TObject);
begin
application.Terminate;
end;
procedure TMainfrm.N10Click(Sender: TObject);
begin
with linein1 do
try
flatComboBox4.ItemIndex:=1;
aa:=flatComboBox2.Text;
cc:=copy(aa,1,2);
vv:=flatComboBox4.Text;
rr:=copy(vv,1,2);
dm.Query2.Close;
dm.Query2.SQL.Clear;
begin
dm.Query2.SQL.Add('Select с,god,'+ cc + ', '+rr +' from base');
dm.Query2.Open;
end;
with DBGridEh1 do
begin
Columns.Items[0].Title.caption:='.';
Columns.Items[0].Checkboxes:=true;
Columns.Items[0].Alignment:=tacenter;
Columns.Items[1].Title.caption:='Год';
Columns.Items[1].Alignment:=tacenter;
delete(aa,1,5);
Columns.Items[2].AutoFitColWidth:=true;
Columns.Items[2].Title.caption:='Y-'+aa;
delete(vv,1,5);
Columns.Items[3].AutoFitColWidth:=true;
Columns.Items[3].Width:=73;
Columns.Items[3].Title.caption:='X-'+vv;
end;
groupbox2.Visible:=false;
Приложение 2 (продолжение)
groupbox1.Visible:=true;
Show;
except
on E: Exception do
Begin
MessageBox(mainfrm.WindowHandle, PChar('Ошибка выборки заполните правильно все поля:'+ #13#10+ E.Message),
PChar('Ошибка'),
MB_OK or MB_ICONERROR or MB_SYSTEMMODAL);
End;
end;
end;
procedure TMainfrm.N11Click(Sender: TObject);
begin
with step1 do
try
flatComboBox4.ItemIndex:=1;
aa:=flatComboBox2.Text;
cc:=copy(aa,1,2);
vv:=flatComboBox4.Text;
rr:=copy(vv,1,2);
dm.Query2.Close;
dm.Query2.SQL.Clear;
begin
dm.Query2.SQL.Add('Select с,god,'+ cc + ', '+rr +' from base');
dm.Query2.Open;
end;
with DBGridEh1 do
begin
Columns.Items[0].Title.caption:='.';
Columns.Items[0].Checkboxes:=true;
Columns.Items[0].Alignment:=tacenter;
Columns.Items[1].Title.caption:='Год';
Columns.Items[1].Alignment:=tacenter;
delete(aa,1,5);
Columns.Items[2].AutoFitColWidth:=true;
Columns.Items[2].Title.caption:='Y-'+aa;
delete(vv,1,5);
Columns.Items[3].AutoFitColWidth:=true;
Columns.Items[3].Width:=73;
Columns.Items[3].Title.caption:='X-'+vv;
end;
groupbox2.Visible:=false;
groupbox1.Visible:=true;
Show;
except
on E: Exception do
Begin
MessageBox(mainfrm.WindowHandle, PChar('Ошибка выборки заполните правильно все поля:'+ #13#10+ E.Message),
Приложение 2 (продолжение)
PChar('Ошибка'),
MB_OK or MB_ICONERROR or MB_SYSTEMMODAL);
End;
end;
end;
procedure TMainfrm.N12Click(Sender: TObject);
begin
with exp11 do
try
flatComboBox4.ItemIndex:=1;
aa:=flatComboBox2.Text;
cc:=copy(aa,1,2);
vv:=flatComboBox4.Text;
rr:=copy(vv,1,2);
dm.Query2.Close;
dm.Query2.SQL.Clear;
begin
dm.Query2.SQL.Add('Select с,god,'+ cc + ', '+rr +' from base');
dm.Query2.Open;
end;
with DBGridEh1 do
begin
Columns.Items[0].Title.caption:='.';
Columns.Items[0].Checkboxes:=true;
Columns.Items[0].Alignment:=tacenter;
Columns.Items[1].Title.caption:='Год';
Columns.Items[1].Alignment:=tacenter;
delete(aa,1,5);
Columns.Items[2].AutoFitColWidth:=true;
Columns.Items[2].Title.caption:='Y-'+aa;
delete(vv,1,5);
Columns.Items[3].Title.caption:='X-'+vv;
Columns.Items[3].AutoFitColWidth:=true;
end;
groupbox2.Visible:=false;
groupbox1.Visible:=true;
Show;
except
on E: Exception do
Begin
MessageBox(mainfrm.WindowHandle, PChar('Ошибка выборки заполните правильно все поля:'+ #13#10+ E.Message),
PChar('Ошибка'),
MB_OK or MB_ICONERROR or MB_SYSTEMMODAL);
End;
end;
end;
procedure TMainfrm.N15Click(Sender: TObject);
begin
mnog1.show;
Приложение 2 (продолжение)
end;
procedure TMainfrm.N7Click(Sender: TObject);
begin
RxCalculator1.Execute;
end;
procedure TMainfrm.Excel1Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFileDir(Application.ExeName)+'.\bd\calc.xls'), nil, nil, SW_SHOWNORMAL);
end;
procedure TMainfrm.N14Click(Sender: TObject);
begin
mnog1.show;
end;
procedure TMainfrm.N5Click(Sender: TObject);
begin
AboutFrm.showmodal;
end;
procedure TMainfrm.N3Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFileDir(Application.ExeName)+'.\help\help.chm'), nil, nil, SW_SHOWNORMAL);
end;
end.
unit About;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, RXCtrls, RxGIF;
type
TAboutFrm = class(TForm)
Bevel1: TBevel;
Button1: TButton;
Label2: TLabel;
Image1: TImage;
Label3: TLabel;
Label1: TLabel;
private
{ Private declarations }
public
Приложение 2 (продолжение)
{ Public declarations }
end;
var
AboutFrm: TAboutFrm;
implementation
{$R *.dfm}
end.
unit Linein;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, DBCtrls, GridsEh, DBGridEh, ExtCtrls, glCapt, Series,
TeEngine, TeeProcs, Chart, DbChart, StdCtrls, RbDrawCore, RbButton,
XPLabel, RegComp,math, DB, RxMemDS, DBTables, Grids, DBGrids;
const n=100;
type
TLinein1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
DBGridEh1: TDBGridEh;
DBNavigator1: TDBNavigator;
Panel3: TPanel;
DBChart1: TDBChart;
Series1: TPointSeries;
Series2: TLineSeries;
RegComp1: TRegComp;
DataSource1: TDataSource;
Query1: TQuery;
GroupBox1: TGroupBox;
Label13: TLabel;
FlatComboBox2: TComboBox;
Label14: TLabel;
FlatComboBox4: TComboBox;
GroupBox2: TGroupBox;
Label2: TLabel;
Label3: TLabel;
Label1: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
XPLabel1: TXPLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Button2: TButton;
RbButton12: TButton;
Bevel1: TBevel;
Bevel2: TBevel;
Button1: TButton;
Button5: TButton;
RegComp2: TRegComp;
Button7: TButton;
GroupBox3: TGroupBox;
Label8: TLabel;
Label21: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Bevel3: TBevel;
Button4: TButton;
Button6: TButton;
Button3: TButton;
Button8: TButton;
Button9: TButton;
XPLabel2: TXPLabel;
Label17: TLabel;
procedure RbButton3Click(Sender: TObject);
procedure RbButton1Click(Sender: TObject);
procedure RbButton4Click(Sender: TObject);
procedure RbButton2Click(Sender: TObject);
procedure RbButton12Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Linein1: TLinein1;
char,char1: array [0..n] of double;
a,cc,vv,rr,aa,tt,yy,yy1,name1,name2,name3:string;
bla,nbla,sred: real;
MVStatRec: TMultStatRec;
col,col1:integer;ss:integer;
sred2,sred1:real;
var vec,vec1,vec2:XVector;
implementation
uses dm1, Otchet1;
{$R *.dfm}
procedure TLinein1.RbButton3Click(Sender: TObject);
begin
close;
end;
procedure TLinein1.RbButton1Click(Sender: TObject);
var i,j,kum:integer;
begin
end;
procedure TLinein1.RbButton4Click(Sender: TObject);
var i,j,kum:integer;
ex,ex1,ex2:real;
begin
ex:=strtofloat(edit1.Text)+strtofloat(edit2.Text)*strtofloat(Edit7.Text);
edit8.Text:=floattostr(Roundto(ex, -4));
edit11.Text:=floattostr(strtofloat(edit8.Text)-strtofloat(edit5.Text))+' <= Y <= '+floattostr(strtofloat(edit8.Text)+strtofloat(edit5.Text));
edit10.Text:=floattostr(strtofloat(edit8.Text)-strtofloat(edit5.Text)*2)+' <= Y <= '+floattostr(strtofloat(edit8.Text)+strtofloat(edit5.Text)*2);
edit9.Text:=floattostr(Roundto(strtofloat(edit8.Text)-strtofloat(edit5.Text)*2.58,-4))+' <= Y <= '+floattostr(Roundto(strtofloat(edit8.Text)+strtofloat(edit5.Text)*2.58,-4));
end;
procedure TLinein1.RbButton2Click(Sender: TObject);
var i,j:integer;
begin
end;
procedure TLinein1.RbButton12Click(Sender: TObject);
var i,j,kum:integer;
begin
i:=1;col:=0;sred:=0;
DBChart1.Series[0].Clear;
Приложение 2 (продолжение)
DBChart1.Series[1].Clear;
RegComp1.MVPrepare;
sred1:=0;sred2:=0;
dm.Query2.First;
while not(dm.Query2.Eof) do
Begin
if dm.Query2.Fields[0].AsBoolean then
Begin
RegComp1.PRegressData^[1,col]:=dm.Query2.Fields[3].AsFloat;
RegComp1.Y[col]:=dm.Query2.Fields[2].AsFloat;
DBChart1.Series[0].AddXY(dm.Query2.Fields[3].AsFloat,dm.Query2.Fields[2].AsFloat);
inc(col);
end;
dm.Query2.Next;
end;
with RegComp1 do begin
MVStatRec:=MVRegression(PRegressData,Y,1,col);
regcomp1.MVPredictedY(PRegressData,Y,Predicted,1,col);
{ edit1.Text:=floattostr(MVStatRec.R2); }
{RichEdit2.Lines.Add(MVRegressionMemo( MVStatRec));}
yy:=(MVEquationString(MVStatRec));
delete(yy,1,3);
{XPLabel1.Caption:=(MVEquationString(MVStatRec));}
XPLabel1.Caption:=yy;
XPLabel2.Caption:=yy;
edit5.Text:=floattostr(Roundto(MVStatRec.RMSE, -4));
edit6.Text:=floattostr(Roundto(MVStatRec.FStat, -4));
vec:=MVStatRec.Beta; vec1:=MVStatRec.SeBeta;
edit1.Text:=floattostr(Roundto(vec[1], -4));
edit2.Text:=floattostr(Roundto(vec[2], -4));
{edit4.Text:=floattostr(Roundto(vec1[1], -4));
edit9.Text:=floattostr(Roundto(vec1[2], -4));}
edit3.Text:=floattostr(Roundto(MVStatRec.R, -4));
edit4.Text:=floattostr(Roundto(MVStatRec.R2, -4));
for j:= 0 to col-1 do begin
DBChart1.Series[1].AddXY(RegComp1.PRegressData^[1,j], Predicted[j]);
end;
{label22.Caption:=floattostr(Predicted[0]);}
name1:=dm.Query2.Fields[2].FieldName;
name2:=dm.Query2.Fields[3].FieldName;
name3:=dm.Query2.Fields[0].FieldName;
Query1.Close;
Query1.SQL.Clear;
begin
Query1.SQL.Add('Select god,'+ cc + ', '+rr +' from base where с=true');
Query1.Open;
end;
end;
Button2.Enabled:=true;
end;
procedure TLinein1.Button2Click(Sender: TObject);
var i,j,kum:integer;
ex,ex1,ex2:real;
begin
groupbox1.Visible:=false;
groupbox3.Visible:=true;
end;
procedure TLinein1.Button3Click(Sender: TObject);
var i,j:integer;
begin
otchet.QRLabel1.Caption:='Линейная модель';
otchet.QuickRep1.DataSet:=Query1;
otchet.QRDBText2.DataSet:=Query1;
otchet.QRDBText4.DataSet:=Query1;
otchet.QRDBText1.DataSet:=Query1;
otchet.QRDBText2.DataField:=Query1.Fields[0].FieldName;
otchet.QRDBText1.DataField:=Query1.Fields[1].FieldName;
otchet.QRDBText4.DataField:=Query1.Fields[2].FieldName;
otchet.QRLabel2.Caption:=DBGridEh1.Columns.Items[2].Title.caption;
otchet.QRLabel5.Caption:=DBGridEh1.Columns.Items[3].Title.caption;
otchet.B.Caption:=edit1.text;
otchet.B1.Caption:=edit2.text;
{otchet.std1.Caption:=edit12.text;
otchet.std2.Caption:=edit13.text;}
otchet.Model.Caption:=xplabel1.Caption;
otchet.f.Caption:=edit6.Text;
otchet.stderr.Caption:=edit5.Text;
otchet.cc.Caption:=edit3.Text;
otchet.cd.Caption:=edit4.Text;
otchet.y.Caption:=edit8.Text;
otchet.ver1.Caption:=edit11.Text;
otchet.ver2.Caption:=edit10.Text;
otchet.ver3.Caption:=edit9.Text;
otchet.x.Caption:=edit7.Text;
otchet.QuickRep1.preview;
end;
procedure TLinein1.Button4Click(Sender: TObject);
begin
close;
end;
procedure TLinein1.Button6Click(Sender: TObject);
begin
groupbox2.Visible:=false;
groupbox1.Visible:=true;
groupbox1.Visible:=true;
Приложение 2 (продолжение)
DBChart1.Series[0].Clear;
DBChart1.Series[1].Clear;
end;
procedure TLinein1.Button5Click(Sender: TObject);
begin
groupbox2.Visible:=true;
groupbox1.Visible:=false;
groupbox3.Visible:=false;
end;
procedure TLinein1.Button1Click(Sender: TObject);
begin
try
aa:=flatComboBox2.Text;
cc:=copy(aa,1,2);
vv:=flatComboBox4.Text;
rr:=copy(vv,1,2);
dm.Query2.Close;
dm.Query2.SQL.Clear;
begin
dm.Query2.SQL.Add('Select с,god,'+ cc + ', '+rr +' from base');
dm.Query2.Open;
end;
with DBGridEh1 do
begin
Columns.Items[0].Title.caption:='.';
Columns.Items[0].Checkboxes:=true;
Columns.Items[0].Alignment:=tacenter;
Columns.Items[1].Title.caption:='Год';
Columns.Items[1].Alignment:=tacenter;
delete(aa,1,5);
Columns.Items[2].AutoFitColWidth:=true;
Columns.Items[2].Title.caption:='Y-'+aa;
delete(vv,1,5);
Columns.Items[3].Title.caption:='X-'+vv;
Columns.Items[3].AutoFitColWidth:=true;
end;
except
on E: Exception do
Begin
MessageBox(linein1.WindowHandle, PChar('Ошибка выборки заполните правильно все поля:'+ #13#10+ E.Message),
PChar('Ошибка'),
MB_OK or MB_ICONERROR or MB_SYSTEMMODAL);
End;
end;
end;
procedure TLinein1.Button7Click(Sender: TObject);
begin
Приложение 2 (продолжение)
close;
end;
procedure TLinein1.Button8Click(Sender: TObject);
var i,j,kum:integer;
ex,ex1,ex2:real;
begin
ex:=strtofloat(edit1.Text)+strtofloat(edit2.Text)*strtofloat(Edit7.Text);
edit8.Text:=floattostr(Roundto(ex, -4));
{edit12.Text:=edit2.Text;}
{edit13.Text:=floattostr(roundto(strtofloat(edit2.Text)*(sred2/sred1),-4));}
edit11.Text:=floattostr(strtofloat(edit8.Text)-strtofloat(edit5.Text))+' <= Y <= '+floattostr(strtofloat(edit8.Text)+strtofloat(edit5.Text));
edit10.Text:=floattostr(strtofloat(edit8.Text)-strtofloat(edit5.Text)*2)+' <= Y <= '+floattostr(strtofloat(edit8.Text)+strtofloat(edit5.Text)*2);
edit9.Text:=floattostr(strtofloat(edit8.Text)-strtofloat(edit5.Text)*2.58)+' <= Y <= '+floattostr(strtofloat(edit8.Text)+strtofloat(edit5.Text)*2.58);
{prognoz.showmodal;}
end;
procedure TLinein1.Button9Click(Sender: TObject);
begin
groupbox3.Visible:=false;
end;
end.
unit Exp;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, DBCtrls, GridsEh, DBGridEh, ExtCtrls, glCapt, Series,
TeEngine, TeeProcs, Chart, DbChart, StdCtrls, RbDrawCore, RbButton,
XPLabel, RegComp,math, DB, RxMemDS, DBTables, Grids, DBGrids;
const n=100;
type
TExp11 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
DBGridEh1: TDBGridEh;
DBNavigator1: TDBNavigator;
Panel3: TPanel;
DBChart1: TDBChart;
Series1: TPointSeries;
Series2: TLineSeries;
RegComp1: TRegComp;
DataSource1: TDataSource;
Query1: TQuery;
GroupBox1: TGroupBox;
Label12: TLabel;
FlatComboBox1: TComboBox;
Label13: TLabel;
FlatComboBox2: TComboBox;
Label14: TLabel;
FlatComboBox4: TComboBox;
GroupBox2: TGroupBox;
Label2: TLabel;
Label3: TLabel;
Label1: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
XPLabel1: TXPLabel;
GroupBox3: TGroupBox;
Label8: TLabel;
Label21: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Button2: TButton;
RbButton12: TButton;
Button3: TButton;
Button4: TButton;
Bevel1: TBevel;
Bevel2: TBevel;
Button1: TButton;
Button5: TButton;
Button6: TButton;
RegComp2: TRegComp;
Button7: TButton;
procedure RbButton3Click(Sender: TObject);
procedure RbButton1Click(Sender: TObject);
procedure RbButton4Click(Sender: TObject);
procedure RbButton2Click(Sender: TObject);
procedure RbButton12Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
Приложение 2 (продолжение)
procedure Button4Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
QRLabel18: TQRLabel;
b5: TQRLabel;
QRLabel23: TQRLabel;
b6: TQRLabel;
QRLabel25: TQRLabel;
xx4: TQRLabel;
xx5: TQRLabel;
xx6: TQRLabel;
QRLabel26: TQRLabel;
QRLabel27: TQRLabel;
QRLabel28: TQRLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
MnogOtchet: TMnogOtchet;
implementation
uses mnog;
{$R *.dfm}
end.
Размещено на Allbest.ru
Подобные документы
Порядок автоматизации расчетов себестоимости и длительности программного обеспечения производственного предприятия. Выбор языка программирования и системы управления базами данных. Разработка алгоритмов расчета себестоимости программного обеспечения.
дипломная работа [1,7 M], добавлен 13.06.2017Схемы взаимодействия между заказчиком и разработчиком программного обеспечения. Качество программного обеспечения и определение основных критериев его оценка на современном этапе, особенности управления на стадиях жизненного цикла, анализ достаточности.
презентация [114,7 K], добавлен 14.08.2013Понятие программного обеспечения, вопросы его разработки и использования. Общая характеристика системного программного обеспечения и работа операционной системы. Специфика процесса управления разработкой программного обеспечения и его особенности.
курсовая работа [636,2 K], добавлен 23.08.2011Цели и задачи программной инженерии. Понятие программного обеспечения. Шесть принципов эффективного использования программного обеспечения. Виды программного обеспечения: общесистемное, сетевое и прикладное. Принципы построения программного обеспечения.
курсовая работа [30,4 K], добавлен 29.06.2010Анализ локально-вычислительной сети компании. Выбор общего программного обеспечения, обеспечения для инженерного отдела, бухгалтерии, сервера. Состав программного обеспечения вычислительной системы и его конфигурация. Сетевые операционные системы.
курсовая работа [405,4 K], добавлен 08.02.2016Классификация программного обеспечения, его особенности, назначение. Программное обеспечение для работы с текстом, изображением, прикладное, офисное, для работы в Интернете. Системы программирования, специфика программного обеспечения, что такое вирусы.
презентация [1,2 M], добавлен 25.02.2010Программное обеспечение для обслуживания автосалона с графическим интерфейсом, возможностью хранения файлов на диске и поиском. Программное проектирование. Документирование программного обеспечения, его тестирование. Разработка руководства пользователя.
курсовая работа [1,7 M], добавлен 06.01.2013Правила оказания услуг почтовой связи. Тарифы на оказание универсальных услуг почтовой связи. Программная реализация решения задачи. Пример выполнения программы. Разработка программного продукта в среде визуального программирования CodeGear RAD Studio.
курсовая работа [136,9 K], добавлен 01.02.2010Использование моделирования в программной инженерии в процессе разработки программного обеспечения. Основные этапы процесса разработки программного обеспечения, их характеристика. Моделирование процессов, их определение фазами и видами деятельности.
реферат [2,2 M], добавлен 25.12.2017История возникновения тестирования программного обеспечения, основные цели и особенности его проведения. Виды и типы тестирования, уровни его автоматизации. Использование и исследование необходимых технологий. Полный цикл прогона всей системы мониторинга.
дипломная работа [1,7 M], добавлен 03.05.2018
