Расчет стоимости пластиковых оконных конструкций и дверей
Создание программы в среде Delphi 7 для упрощения и автоматизации расчетов стоимости пластиковых оконных конструкций и дверей. Разработка программы с учётом расчёта стоимости заказываемых изделий, сохранением заказов в файлы, вывод отчетов на печать.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 29.05.2008 |
| Размер файла | 463,9 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да'; end;
if Combobox1.Text='450' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h450);
podsen:=floattostr(l);
razpod:='450'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да'; end;
if Combobox1.Text='500' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h500);
podsen:=floattostr(l);
razpod:='500'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да'; end;
if Combobox1.Text='600' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h600);
podsen:=floattostr(l);
razpod:='600'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да'; end;
if Combobox1.Text='700' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h700);
podsen:=floattostr(l);
razpod:='700'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да'; end;
if Combobox1.Text='800' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h800);
podsen:=floattostr(l);
razpod:='800'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да'; end;
end else begin Exit;
Showmessage('Ошибка чтения файла цены'); end; CloseFile(f); Close; end;
if RadioButton1.Checked=True then begin
markP:='Moller';
{$I-}
AssignFile(f,dir+'\Цены\Подоконники\Moller.dat');
{$I+}
If IOResult=0 then begin
Reset(f);
while not EoF(f) do begin
readln(f,h150); readln(f,h200);
readln(f,h250); readln(f,h300);
readln(f,h350); readln(f,h400);
readln(f,h450); readln(f,h500);
readln(f,h600); end;
if (Combobox1.Text='100')or(Combobox1.Text='700')or(Combobox1.Text='800') then
Showmessage('Такого размера нет, выберите другой!')
else begin
if Combobox1.Text='150' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h150);
podsen:=floattostr(l);
razpod:='150'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да'; end;
if Combobox1.Text='200' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h200);
podsen:=floattostr(l);
razpod:='200'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да'; end;
if Combobox1.Text='250' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h250);
podsen:=floattostr(l);
razpod:='250'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[0,6]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да'; end;
if Combobox1.Text='300' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h300);
podsen:=floattostr(l);
razpod:='300'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да'; end;
if Combobox1.Text='350' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h350);
podsen:=floattostr(l);
razpod:='350'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да'; end;
if Combobox1.Text='400' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h400);
podsen:=floattostr(l);
razpod:='400'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да'; end;
if Combobox1.Text='450' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h450);
podsen:=floattostr(l);
razpod:='450'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да'; end;
if Combobox1.Text='500' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h500);
podsen:=floattostr(l);
razpod:='500'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да'; end;
if Combobox1.Text='600' then begin
l:=(SpinEdit1.Value*0.001)*strtofloat(h600);
podsen:=floattostr(l);
razpod:='600'+'x'+inttostr(SpinEdit1.Value);
if CheckBox1.Checked=true then l:=l+2.1;
z:=strtofloat(Form8.StringGrid2.Cells[6,1])+l;
Form8.StringGrid2.Cells[6,1]:=floattostr(z);
Form8.StringGrid2.Cells[2,1]:='да'; end; Close
end; end else begin Exit; Showmessage('Ошибка чтения файла цены'); end;
CloseFile(f); end;end;end;end.
unit Unit19;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls,unit8, Spin, jpeg, ExtCtrls;
type
TForm19 = class(TForm)
Image1: TImage; Label13: TLabel;SpinEdit1: TSpinEdit; SpeedButton8: TSpeedButton;
Label1: TLabel; procedure SpeedButton8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations } end;
var Form19: TForm19;
implementation
{$R *.dfm}
procedure TForm19.SpeedButton8Click(Sender: TObject);
Var pl,sum:real;k:integer;
begin
if Form8.StringGrid2.Cells [3,1]<>'да' then
begin
pl:=strtofloat(Form8.StringGrid2.Cells [6,1]);
sum:=SpinEdit1.Value*0.003;
sum:=pl+sum;
Form8.StringGrid2.Cells [6,1]:=floattostr(sum);
Form8.StringGrid2.Cells [3,1]:='да';
Close;endelse Showmessage('На этом окне профиль уже учтён!')end;end.
unit Unit20;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, Spin, jpeg, ExtCtrls;
type
TForm20 = class(TForm)
Image1: TImage; Label13: TLabel; SpinEdit1: TSpinEdit; Label1: TLabel;
SpeedButton8: TSpeedButton; procedure SpeedButton8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations } end;
var Form20: TForm20;
implementation
uses Unit8;
{$R *.dfm}
procedure TForm20.SpeedButton8Click(Sender: TObject);
Var pl,sum:real;k:integer;
begin
pl:=strtofloat(Form8.StringGrid2.Cells [6,1]);
sum:=SpinEdit1.Value*0.025;
sum:=pl+sum;
Form8.StringGrid2.Cells [6,1]:=floattostr(sum);
if (Components[k] is TSpinEdit) then
(Components[k] as TSpinEdit).Value:=0;Close end; end.
unit Unit21;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, Buttons, jpeg, unit1, ExtCtrls;
type
TForm21 = class(TForm)
StringGrid3: TStringGrid; Image1: TImage; SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton; procedure FormCreate(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations } end;
var Form21: TForm21;
implementation
{$R *.dfm}
procedure TForm21.FormCreate(Sender: TObject);
begin
StringGrid3.Cells[0,0]:='Ширина';
StringGrid3.Cells[1,0]:='Moller(Германия)';
StringGrid3.Cells[2,0]:='Ulьtra(Ростов)';
StringGrid3.Cells[0,1]:='100';StringGrid3.Cells[0,2]:='150';
StringGrid3.Cells[0,3]:='200';StringGrid3.Cells[0,4]:='250';
StringGrid3.Cells[0,5]:='300';StringGrid3.Cells[0,6]:='350';
StringGrid3.Cells[0,7]:='400';StringGrid3.Cells[0,8]:='450';
StringGrid3.Cells[0,9]:='500';StringGrid3.Cells[0,10]:='600';
StringGrid3.Cells[0,11]:='700';StringGrid3.Cells[0,12]:='800';
StringGrid3.Cells[1,2]:='10,6';StringGrid3.Cells[1,3]:='12,1';
StringGrid3.Cells[1,4]:='14,5';StringGrid3.Cells[1,5]:='16,8';
StringGrid3.Cells[1,6]:='19,7';StringGrid3.Cells[1,7]:='22,4';
StringGrid3.Cells[1,8]:='25,4';StringGrid3.Cells[1,9]:='31,9';
StringGrid3.Cells[1,10]:='35,9';StringGrid3.Cells[2,1]:='3,8';
StringGrid3.Cells[2,2]:='5,7';StringGrid3.Cells[2,3]:='7,6';
StringGrid3.Cells[2,4]:='9,5';StringGrid3.Cells[2,5]:='11,5';
StringGrid3.Cells[2,6]:='13,4';StringGrid3.Cells[2,7]:='15,3';
StringGrid3.Cells[2,8]:='17,2';StringGrid3.Cells[2,9]:='19,1';
StringGrid3.Cells[2,10]:='21';StringGrid3.Cells[2,11]:='22,9';
StringGrid3.Cells[2,12]:='30,5';end;
procedure TForm21.SpeedButton2Click(Sender: TObject);
Var s:string;f:textfile;
begin
{$I-}
AssignFile(f,dir+'\Цены\Подоконники\');
{$I+}
If IOResult=0 then
s:=dir+'\Цены\Подоконники\';
{$I-}
Rewrite(f,s+'Moller.dat');
{$I+}
If IOResult=0 then begin
Writeln(f,StringGrid3.Cells[1,2]);Writeln(f,StringGrid3.Cells[1,3]);
Writeln(f,StringGrid3.Cells[1,4]);Writeln(f,StringGrid3.Cells[1,5]);
Writeln(f,StringGrid3.Cells[1,6]);Writeln(f,StringGrid3.Cells[1,7]);
Writeln(f,StringGrid3.Cells[1,8]);Writeln(f,StringGrid3.Cells[1,9]);
Writeln(f,StringGrid3.Cells[1,10]);CloseFile(f);
Rewrite(f,s+'Ultra.dat');Writeln(f,StringGrid3.Cells[2,1]);
Writeln(f,StringGrid3.Cells[2,2]);Writeln(f,StringGrid3.Cells[2,3]);
Writeln(f,StringGrid3.Cells[2,4]);Writeln(f,StringGrid3.Cells[2,5]);
Writeln(f,StringGrid3.Cells[2,6]);Writeln(f,StringGrid3.Cells[2,7]);
Writeln(f,StringGrid3.Cells[2,8]);Writeln(f,StringGrid3.Cells[2,9]);
Writeln(f,StringGrid3.Cells[2,10]);Writeln(f,StringGrid3.Cells[2,11]);
Writeln(f,StringGrid3.Cells[2,12]);CloseFile(f);
ShowMessage('Данные сохранены успешно!');end else begin
Exit;ShowMessage('Ошибка при зиписи в файл!');end;end;
procedure TForm21.SpeedButton1Click(Sender: TObject);
begin Close;end;end.
unit Unit22;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, Buttons, jpeg,Unit1, ExtCtrls;
type
TForm22 = class(TForm)
Image1: TImage; StringGrid1: TStringGrid;Label1: TLabel; Label2: TLabel;
StringGrid2: TStringGrid;StringGrid3: TStringGrid; Label3: TLabel;
SpeedButton2: TSpeedButton; SpeedButton1: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations } end;
var Form22: TForm22;
implementation
uses Unit13;
{$R *.dfm}
procedure TForm22.FormCreate(Sender: TObject);
begin
StringGrid1.Cells[0,0]:='Название';StringGrid1.Cells[1,0]:='Цвет';
StringGrid1.Cells[2,0]:='Светопропуск';StringGrid1.Cells[3,0]:='Цена(1м.кв)';
StringGrid1.Cells[0,1]:='R Silver 20';StringGrid1.Cells[0,2]:='R Silver 35';
StringGrid1.Cells[0,3]:='R Silver 50';StringGrid1.Cells[0,4]:='R Grey 10';
StringGrid1.Cells[0,5]:='R Blue 15';StringGrid1.Cells[0,6]:='R Gold 15';
StringGrid1.Cells[0,7]:='R Green 10';StringGrid1.Cells[0,8]:='R Bronze 10';
StringGrid1.Cells[0,9]:='HP Natural 20';StringGrid1.Cells[0,10]:='HP Natural 35';
StringGrid1.Cells[0,11]:='HP Bronze 35';StringGrid1.Cells[0,12]:='HP Blue 35';
StringGrid1.Cells[0,13]:='HP Green 30';StringGrid1.Cells[1,1]:='Серебро';
StringGrid1.Cells[1,2]:='Серебро';StringGrid1.Cells[1,3]:='Серебро';
StringGrid1.Cells[1,4]:='Серый';StringGrid1.Cells[1,5]:='Голубой';
StringGrid1.Cells[1,6]:='Золото';StringGrid1.Cells[1,7]:='Зеленый';
StringGrid1.Cells[1,8]:='Бронза';StringGrid1.Cells[1,9]:='Нейтральный';
StringGrid1.Cells[1,10]:='Нейтральный';StringGrid1.Cells[1,11]:='Бронза';
StringGrid1.Cells[1,12]:='Голубой';StringGrid1.Cells[1,13]:='Зеленый';
StringGrid1.Cells[2,1]:='18';StringGrid1.Cells[2,2]:='28';StringGrid1.Cells[2,3]:='47';
StringGrid1.Cells[2,4]:='7';StringGrid1.Cells[2,5]:='15';StringGrid1.Cells[2,6]:='15';
StringGrid1.Cells[2,7]:='10';StringGrid1.Cells[2,8]:='8';StringGrid1.Cells[2,9]:='24';
StringGrid1.Cells[2,10]:='35';StringGrid1.Cells[2,11]:='37';StringGrid1.Cells[2,12]:='35';
StringGrid1.Cells[2,13]:='30';StringGrid1.Cells[3,1]:='14,3';StringGrid1.Cells[3,2]:='15,3';
StringGrid1.Cells[3,3]:='15,3';StringGrid1.Cells[3,4]:='15,3';StringGrid1.Cells[3,5]:='15,3';
StringGrid1.Cells[3,6]:='15,3';StringGrid1.Cells[3,7]:='15,3';
StringGrid1.Cells[3,8]:='15,3';StringGrid1.Cells[3,9]:='19,1';
StringGrid1.Cells[3,10]:='19,1';StringGrid1.Cells[3,11]:='19,1';
StringGrid1.Cells[3,12]:='19,1';StringGrid1.Cells[3,13]:='19,1';
StringGrid2.Cells[0,0]:='Название';StringGrid2.Cells[1,0]:='Цвет';
StringGrid2.Cells[2,0]:='Светопропуск';StringGrid2.Cells[3,0]:='Цена(1м.кв)';
StringGrid2.Cells[0,1]:='Matt White';StringGrid2.Cells[0,2]:='Matt Bronze';
StringGrid2.Cells[0,3]:='Matt Silver';StringGrid2.Cells[0,4]:='Black Out';
StringGrid2.Cells[1,1]:='Белый';StringGrid2.Cells[1,2]:='Бронза';
StringGrid2.Cells[1,3]:='Серебро';StringGrid2.Cells[1,4]:='Черный';
StringGrid2.Cells[2,1]:='69';StringGrid2.Cells[2,2]:='36';
StringGrid2.Cells[2,3]:='16';StringGrid2.Cells[2,4]:='0';
StringGrid2.Cells[3,1]:='15,3';StringGrid2.Cells[3,2]:='15,3';
StringGrid2.Cells[3,3]:='15,3';StringGrid2.Cells[3,4]:='17,5';
StringGrid3.Cells[0,0]:='Название';StringGrid3.Cells[1,0]:='Цвет';
StringGrid3.Cells[2,0]:='Светопропуск';StringGrid3.Cells[3,0]:='Цена(1м.кв)';
StringGrid3.Cells[0,1]:='100MIC Silver 20';StringGrid3.Cells[0,2]:='Safety 2 MIL';
StringGrid3.Cells[0,3]:='Safety 4 MIL';StringGrid3.Cells[0,4]:='Safety 7 MIL';
StringGrid3.Cells[0,5]:='Класс защиты А1';StringGrid3.Cells[0,6]:='Класс защиты А2';
StringGrid3.Cells[0,7]:='Класс защиты А3';StringGrid3.Cells[0,8]:='Стекло 4мм';
StringGrid3.Cells[1,1]:='Серебро';StringGrid3.Cells[1,2]:='Прозрачная';
StringGrid3.Cells[1,3]:='Прозрачная';StringGrid3.Cells[1,4]:='Прозрачная';
StringGrid3.Cells[1,8]:='Бронза в массе';StringGrid3.Cells[2,1]:='20';
StringGrid3.Cells[2,2]:='98';StringGrid3.Cells[2,3]:='89';
StringGrid3.Cells[2,4]:='89';StringGrid3.Cells[3,1]:='32,3';
StringGrid3.Cells[3,2]:='24,9';StringGrid3.Cells[3,3]:='27';
StringGrid3.Cells[3,4]:='32,3';StringGrid3.Cells[3,5]:='39,7';
StringGrid3.Cells[3,6]:='52,9';StringGrid3.Cells[3,7]:='79,4';
StringGrid3.Cells[3,8]:='24,4';end;
procedure TForm22.SpeedButton2Click(Sender: TObject);
Var s:string;f:textfile;begin{$I-}
AssignFile(f,dir+'\Цены\Тонировка\');{$I+}
If IOResult=0 then s:=dir+'\Цены\Тонировка\';{$I-}
Rewrite(f,s+'Prof.dat'); {$I+} If IOResult=0 then begin
Writeln(f,StringGrid1.Cells[3,1]);Writeln(f,StringGrid1.Cells[3,2]);
Writeln(f,StringGrid1.Cells[3,3]);Writeln(f,StringGrid1.Cells[3,4]);
Writeln(f,StringGrid1.Cells[3,5]);Writeln(f,StringGrid1.Cells[3,6]);
Writeln(f,StringGrid1.Cells[3,7]);Writeln(f,StringGrid1.Cells[3,8]);
Writeln(f,StringGrid1.Cells[3,9]);Writeln(f,StringGrid1.Cells[3,10]);
Writeln(f,StringGrid1.Cells[3,11]);Writeln(f,StringGrid1.Cells[3,12]);
Writeln(f,StringGrid1.Cells[3,13]);CloseFile(f);Rewrite(f,s+'Dekor.dat');
Writeln(f,StringGrid2.Cells[3,1]);Writeln(f,StringGrid2.Cells[3,2]);
Writeln(f,StringGrid2.Cells[3,3]);Writeln(f,StringGrid2.Cells[3,4]);
CloseFile(f);Rewrite(f,s+'Udar.dat');Writeln(f,StringGrid3.Cells[3,1]);
Writeln(f,StringGrid3.Cells[3,2]);Writeln(f,StringGrid3.Cells[3,3]);
Writeln(f,StringGrid3.Cells[3,4]);Writeln(f,StringGrid3.Cells[3,5]);
Writeln(f,StringGrid3.Cells[3,6]);Writeln(f,StringGrid3.Cells[3,7]);
Writeln(f,StringGrid3.Cells[3,8]);CloseFile(f);
ShowMessage('Данные сохранены успешно!');end else beginExit;
ShowMessage('Ошибка при зиписи в файл!');end;end;
procedure TForm22.SpeedButton1Click(Sender: TObject);
begin Close;end;end.
Подобные документы
Информационная система предприятия. Создание программы средствами Delphi 7 для обработки информации от пользователя и выдачи конечного результата для просмотра. Выбор программных и аппаратных средств. Методика расчета стоимости изготовления изделия.
отчет по практике [237,1 K], добавлен 05.03.2013Изучение основ программирования и создание полноценного приложения в среде программирования Delphi. Разработка эскизного и технического проектов программы. Внедрение выполнения программы. Разработка рабочего проекта, спецификация и текст программы.
курсовая работа [560,1 K], добавлен 18.07.2012Изучение программы базовой системы ввода-вывода (BIOS) и её настроек. Разработка компьютерной обучающей программы-тренажера "Настройка BIOS" в объектно-ориентированной среде Delphi. Тестирование данного программного продукта и экономические затраты.
дипломная работа [54,5 K], добавлен 09.10.2013Основные требования к программному средству. Компоненты интегрированной среды Delphi 7, алгоритм создания приложения. Разработка программы для редактирования и просмотра данных о клиентах, врачах, перечне медицинских услуг, стоимости медикаментов.
курсовая работа [2,6 M], добавлен 13.10.2012Информационное обеспечение задачи автоматизации учета. Программное обеспечение задачи автоматизации учета. Расчет технико-экономической эффективности программного продукта по учету пластиковых карт. Расчет затрат на разработку программного модуля.
дипломная работа [2,1 M], добавлен 10.02.2018Технико-математическое описание и назначение программы "Расчет фундаментов": предоставление краткого описания формул вычисления и инженерного калькулятора, вывод информации на печать, простой интерфейс. Тестирование вычислительной системы программы.
дипломная работа [4,4 M], добавлен 25.09.2014Структура предприятия, место и функции информационных отделов. Перспективные направления в применении современных информационных технологий. Требования к формированию отчетов и к графическому интерфейсу. Расчет стоимости разрабатываемой программы.
дипломная работа [2,6 M], добавлен 26.08.2014Отличительные особенности программы для создания каталога видеокарт на Visual Basic с ее занесением, изменением и удалением. Расчет максимальной и минимальной стоимости видеоносителя в порядке увеличения его стоимости и выбор параметров сортировки.
реферат [2,9 M], добавлен 12.10.2010Разработка программы тестирования студентов по MS PowerPoint с кодом на языке Delphi. Создание алгоритма для решения функциональных требований задачи. Описание переменных, вспомогательных процедур, входных и выходных данных для реализации программы.
курсовая работа [1,5 M], добавлен 21.09.2010Разработка алгоритма и программы "Расчет стыкового паяного соединения" в среде Microsoft Visual Studio для облегчения расчётов сварных швов. Создание главной формы приложения и его кодирование для расчёта углового шва. Тестирование программы на ошибки.
курсовая работа [1,5 M], добавлен 06.02.2013
