Автоматизированное рабочее место специалиста по работе с клиентами санатория

Анализ информационных систем в области автоматизации деятельности развлекательных центров. Построение информационной модели для специалиста по работе с клиентами санатория. Создание унифицированных форм и их электронных версий. Верификация программы.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 15.12.2016
Размер файла 1,9 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

procedure TForm19.Bitbutton1Click(Sender: TObject);

var

rast : real; // расстояние

cena : real; // цена

potr : real; // потребление на 100 км

summ : real; // сумма

mes: string;

begin

rast := StrToFloat(Edt1.Text);

cena := StrToFloat(Edt2.Text);

potr := StrToFloat(Edt3.Text);

summ := rast / 100 * potr * cena;

if Chk1.Checked then

summ := summ * 2;

mes := 'Поездка на дачу';

if Chk1.Checked then

mes := mes + 'обойдется в ' + FloatToStrF(summ,ffGeneral,4,2)

+ ' руб.';

Lbl4.Caption := mes;

end;

procedure TForm19.mniN2Click(Sender: TObject);

begin

Form19.Visible:=False;

Form1.Visible:=True;

end;

procedure TForm19.Bitbutton3Click(Sender: TObject);

begin

Form14.tbl1.Filtered:=false;

Form14.tbl1.Filter:='[Код чека]='+Form19.Edt4.Text;

Form14.tbl1.Filtered:=true;

Form14.qckrp1.Preview;

Form14.tbl1.Filtered:=false;

Form19.Edt4.Text:='';

end;

end.

Размещено на Allbest.ru


Подобные документы

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.