Главная Коллекция "Revolution" Программирование, компьютеры и кибернетика Больничные листы

Больничные листы

Проект, содержащий форму для ввода данных о больничных листах работников предприятия с сохранением в текстовом файле. Программирование суммы оплаты за больничный лист. Отображение полученного значения с помощью компонента метки, текст программного модуля.

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

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

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

Размещено на http://www.allbest.ru/

Министерство образования и науки Красноярского края

краевое государственное бюджетное образовательное учреждение

среднего профессионального образования

(среднее специальное учебное заведение)

«Канский технологический колледж»

КОНТРОЛЬНАЯ РАБОТА № 1

по дисциплине

Объектно-ориентированное программирование

студента (тки) группы ИС-11.13

Кривошлыков Александр Сергеевич

2015/ 2016 учебный год

Вариант 4

1. Постановка задачи

Тема задания: Больничные листы

Условие задачи:

Средствами Delphi создать проект, содержащий форму для ввода данных о больничных листах работников предприятия с сохранением в текстовом файле:

ФИО работника и его оклад при помощи компонента для редактирования однострочного текста,

Пол (муж, жен) при помощи зависимого переключателя

диагноз (ОРЗ, ОРВИ, травма, бронхит) при помощи поля со списком

Дата открытия и закрытия больничного при помощи компонента календарь

Вычислить сумму оплату за больничный лист, учитывая, что за 1 день болезни работник получает на 20 % меньше своей обычной зарплаты, и отобразить полученное значение при помощи компонента метки.

Расчет производить по пункту меню «К выдаче».

Сохранять данные в текстовый файл по кнопке «Сохранить», а считывание данных из текстового файла производить по нажатию кнопки «открыть», при этом пользователь должен указать нужный файл (*.$$$) через стандартное диалоговое окно.

1.1

1.1 Вид спроектированной формы

1.2 Текст программного модуля (файл Unit1.pas)

unit Unit1;

interface

uses проект больничный текстовый модуль

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

Dialogs, StdCtrls, Menus, ComCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

MainMenu1: TMainMenu;

Label6: TLabel;

Label7: TLabel;

ComboBox1: TComboBox;

Label8: TLabel;

Button1: TButton;

af1: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

Label9: TLabel;

Button2: TButton;

Memo1: TMemo;

Label4: TLabel;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

N5: TMenuItem;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

Edit3: TEdit;

Label5: TLabel;

Label10: TLabel;

Button3: TButton;

Button4: TButton;

Edit4: TEdit;

Button5: TButton;

procedure Button1Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

ffilepath:string='';

kolday:integer;

x,y,z,q,a,s,d,f:integer;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

form2.show; //показывает окно подсказки

end;

procedure TForm1.Button2Click(Sender: TObject);

begin //выводим на экран данные с заполнненых полей программы от пользователя

Memo1.Lines.Add(Edit1.Text);

if radiobutton1.Checked then

memo1.Lines.Add(radiobutton1.Caption)

else memo1.Lines.Add(radiobutton2.Caption);

Memo1.Lines.Add('оклад');

Memo1.Lines.Add(Edit2.Text);

Memo1.Lines.Add('больничный с');

Memo1.Lines.Add(datetostr(datetimepicker1.date));

Memo1.Lines.Add('по');

memo1.Lines.Add(datetostr(datetimepicker2.date));

memo1.Lines.Add('диагноз');

memo1.lines.Add(combobox1.text);

memo1.Lines.Add('выплата с учётом больничного составляет:');

end;

procedure TForm1.N5Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

if openDialog1.Execute then //открытие диалога сохранения документа

ffilepath:=openDialog1.filename;

memo1.Lines.loadfromfile(ffilepath);

end;

procedure TForm1.N1Click(Sender: TObject);

begin //окрываем диалог сохранения документа при этом в запросе сохранить документ будет видо ,что по умолчанию документ будет назван "новый документ"

if ffilepath='' then savedialog1.filename:='Новый документ.txt'

else savedialog1.filename:=ffilepath;

if savedialog1.Execute then

begin //сохранение документа в формате .txt

if extractfileext(savedialog1.filename)=''then

ffilepath:=savedialog1.filename+'.txt'

else ffilepath:=savedialog1.filename;

memo1.lines.savetofile(ffilepath);

end;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

memo1.Lines.Clear //очистка окна

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

kolday:=trunc(datetimepicker2.date)-trunc(datetimepicker1.date);

edit3.Text:=floattostr(kolday);

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

x:=strtoint(edit2.Text);

y:=strtoint(edit3.Text);

a:=30;

s:=30;

edit4.Text:=inttostr(x*a);

end;

end.

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

...

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

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

© 2000 — 2023, ООО «Олбест» Все права защищены