Составление программы в C++ Builder 6 для расчета численности рабочих

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

Составление программы в C++ Builder 6 для расчета численности рабочих



1. Описание визуальных компонентов

1.1 Форма

Форма (Tform) - стандартное окно Windows, используемое для размещения в нем всех визуальных компонентов.

Свойства (Properties):

Name: String - внутреннее имя формы (не следует менять).

Caption: String - заголовок формы (показывается в строке заголовка окна).

Color: String - цвет фона формы.

Height: Integer - вертикальный размер в пикселях (высота).

Width: Integer - горизонтальный размер (ширина).

Left: Integer - расстояние от левой границы экрана монитора до формы.

Top: Integer - расстояние от верхней границы экрана монитора до формы.

1.2 Кнопка

Кнопка (Tbutton) - это визуальный компонент, используемый для управления процессом выполнения задачи или настройки ее интерфейса. У кнопки только два возможных состояния: не нажата, нажата.

Свойства Tbutton - Name, Height, Width, Left, Top - те же, что и для Tform.

Caption: String - заголовок кнопки (показывается на кнопке).

Default: Boolean - выбор по умолчанию.

Enabled: Boolean - доступность для выбора пользователем. Это свойство используется для защиты программы от некорректных действий.

Font: Tfont - шрифт заголовка.

TabOrder: Integer - порядковый номер компонента, которому передано управление (фокус ввода), при обходе всех компонентов формы с помощью клавиши Tab.

Tag: LongInt - ячейка памяти, используемая для хранения целого числа.

Visible: Boolean - видимость данного компонента.

1.3 Надпись

Надпись (Tlabel) - используется для оформления других визуальных компонентов, поясняющих их функции комментариями.

Свойства (Properties):

Caption: String - содержание надписи.

Font: Tfont - шрифт надписи.

1.4 Изображение

Изображение (TImage) используется для отображения статических картинок и создания различных анимационных эффектов.

Свойства (Properties):

Picture - описывает точечное изображение (.bmp) загружаемого файла.

Center - центрирование картинки внутри заданной рамки (если она меньше рамки). Если свойство Center = true, рисунок центрируется, в противном случае его верхний левый угол совмещается с верхним левым углом рамки. Transparent - определяет прозрачность фона изображения при значении, равном true.



1.5 Многостраничная панель

TPageControl - это набор листов с закладками TabSheet, используемый для размещения на каждом из листов набора элементов управления диалогом.

Свойства:

ActivePage:TtabeSheet - активная страница, используется только на этапе выполнения для листания страниц панели с помощью программного кода.

HotTrace:Boolean - выделение цветом текста закладки.

ImageList:TimageList - список изображений, используемых на закладках страниц.

MultiLine:Boolean - возможность многорядного размещения закладок.

PageCount:Integer - количество страниц на панели.

RaggedRight:Booltan - размещение закладок по всей ширине панели.

TabPosition - расположение закладок относительно панели.

События TpageControl:

OnChange - изменение структуры и свойств многостраничной панели.

1.6 Страница многостраничной панели

TtabSheet представляет собой отдельную закладку объекта TPageControl.

Свойства:

Caption: String - текс закладки.

ImageIndex: Integer - номер рисунка в списке панели, изображаемого на закладке данной страницы.

PageIndex: Integer - номер страницы в панели.

TabVisible: Boolean - видимость закладки у страницы.



1.7 Таблица строк

Таблица String Grid является экземпляром класса TString Grid и предназначена для отображения двухмерной информации, например, элементов матрицы. В таблице может находиться произвольное количество строк и столбцов. Если зафиксировать необходимое количество первых строк и столбцов, то можно задать заголовки строк и столбцов, постоянно присутствующие в окне компонента, в том числе при горизонтальном и вертикальном скроллинге.

На пересечении строк и столбцов находятся ячейки. Каждая ячейка может содержать символьную строку и произвольный объект, ассоциированный с ячейкой. Чаще всего таким объектом является некоторый рисунок. Если для ячеек задан режим редактирования, то на этапе выполнения программы разрешается вводить и редактировать данные, находящиеся в ячейке.

Нумерация строк и столбцов таблицы начинается с нуля. Координаты каждой ячейки таблицы задаются парой чисел, первое из которых является номером столбца, а второе - номером строки. Например, ячейка с координатами (3,5) расположена в четвертом столбце и шестой строке.

Класс TCustonGrid, являющийся предком класса TStrigGrid, содержит определение многих характеристик, общих для любых таблиц. Многие из них определяют внешний вид таблицы.

Свойства:

Col: Longint; - Задает столбец, в котором находится активная ячейка. Свойство доступно только на этапе выполнения программы.

ColСount: Longint; - Задает число столбцов в таблице.

СolWidths[Index: Longint]: Integer; - Задает ширину каждого столбца в таблице. Доступно только на этапе выполнения программы.

DefaultColWidth: Integer; - Задает исходную ширину всех столбцов. Для задания ширины отдельного столбца следует использовать свойство ColWidths.

DefaultDrawing: Boolean; - Если свойство имеет значение True, то прорисовка ячеек при рисовании таблицы будет происходить автоматически, в противном случае необходимо создать свои средства отображения.

DefaultRowHeight: Integer; - Задает исходную высоту всех строк. Для задания высоты отдельной строки следует использовать свойство RowHeights.

FixedColor: TColor; - Задает цвет фиксированных ячеек.

FixedCols: Integer; - Задает число фиксированных столбцов. По умолчанию задается один фиксированный столбец.

FixedRows: Integer; - Задает число фиксированных строк. По умолчанию задается одна фиксированная строка.

GridLineWidth: Integer; - Задает толщину линий между ячейками в пикселях.

Row: Longint; - Задает строку, в которой находится активная ячейка. Доступно только на этапе выполнения программы.

RowCount: Longint; - Задает число строк таблицы. RowHeights[Index: Longint]: Integer; - Задает высоту каждой строки таблицы. Доступно только на этапе выполнения программы.

Selection: TGridRest; - Указывает область текущего выделения. При выделении указываются номера строк и столбцов. Доступно только на этапе выполнения программы.

Рассмотрим теперь основные свойства класса TstringGird, позволяющие осуществлять доступ к данным, находящимся в ячейках таблицы. Все перечисленные ниже свойства доступны только на этапе выполнения программы.

Cells[ACol, ARow, Integer]: string; - Содержит двумерный массив символьных строк, каждая из которых принадлежит ячейке, находящейся в столбце AСol, и строке ARow.

Cols[Index: Integer]: Tstrings; - Содержит список строк, принадлежащих ячейкам столбца с индексом Index.

Objects[ACol, Arow: Integer]: TObject; - Содержит двумерный массив, элементами которого являются указатели на объекте, каждый из которых ассоциирован с соответствующей ему ячейкой, находящейся в столбце AСol, и строке ARow.

Rows[Index: Integer]: TStrings; - Содержит список строк, принадлежащих ячейкам строки с индексом Index. Событием по умолчанию для таблицы StrigGrid является событие OnClick.



2. Руководство пользователя

Для начало работы с программой необходимо открыть директорию «Программа» и запустить файл «Project 1.exe»

На экране появится интерфейс программы: закладка график сменности, плановый баланс, рабочие и закладка численность рабочих, которые представлены на рисунках 1, 2, 3 и 4 соответственно.

После запуска программы во второй закладке необходимо ввести исходные данные для расчета, а именно заполнить поля ввода “Отпуск очередной и дополнительный”, “Болезни”, “Выполнение государственных и общественных обязанностей”. Аналогичные действия необходимо произвести и в третьей вкладке.

Расчет производится путем нажатия кнопки "Рассчитать” (рисунок 4). При этом если не будут заполнены все необходимые поля ввода, то расчет производиться не будет.

Рисунок 1- Интерфейс программы - “График сменности”



Рисунок 2- Интерфейс программы - “Плановый баланс”

Рисунок 3- Интерфейс программы- “Рабочие”



Рисунок 4- Интерфейс программы - “Численность рабочих”

Для того чтобы произвести расчет с использованием новых данных, необходимо заполнить поля ввода другими численными значениями, а именно заполнить поля ввода во второй и третьей вкладке, как это представлено на рисунке 2 и рисунке 3. После чего нажать кнопку “Рассчитать”.



Заключение

В данной курсовой работе было разработано приложение для автоматизации расчета основных технико-экономических показателей производства колес на предприятии “K&K”. Программа разработана на языке программирования С++ в интегрированной среде разработки С++ Builder 6.

Программа позволяет рассчитать основные технико-экономические показатели производства после ввода необходимых данных, либо использую данные по умолчанию.

Программа является актуальной как для студентов, так и для специалистов и служащих. Данная программа значительно экономит время, исключает возможность ошибки при расчетах технико-экономических показателей производства.



Список использованных источников

расчет автоматизация визуальный компонент программа

1. СТО 4.2-07-2008 Стандарт организации. Система менеджмента качества. Общие требования к построению, изложению и оформлению документов учебной и научной деятельности. - Введ. впервые; дата введ. 22.12.2008. - К.: СФУ, 2008. - 46с.

2. Организация и планирование производства: Метод. указания к дипломному проектированию для студентов специальности «Автоматизация производственных процессов» / С. Л. Парфенова. - К.: ГАЦМиЗ, 2003. - 52с

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



Приложение 1

Листинг программы

#include <vcl.h>

#include <math.h>

#pragma hdrstop

#include "Unit1.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)

{

}

void __fastcall TForm1::FormCreate(TObject *Sender)

{

StringGrid1->Cells[0][0]="Показатели";

StringGrid1->Cells[0][1]="Календарный фонд,дни";

StringGrid1->Cells[0][2]="Выходные и не рабочие дни по графику сменности,дни";

StringGrid1->Cells[0][3]="Номинальный фонд рабочего времени Тн,дни";

StringGrid1->Cells[0][4]="Невыходы по причинам:";

StringGrid1->Cells[0][5]="-отпуск очередной и дополнительный";

StringGrid1->Cells[0][6]="-болезни";

StringGrid1->Cells[0][7]="-выполнение гос. и общ. обязанностей";

StringGrid1->Cells[0][8]="Эффективный фонд рабочего времени Тэф";

StringGrid1->Cells[0][9]="-дни";

StringGrid1->Cells[0][10]="-часы";

StringGrid1->Cells[0][11]="Коэффициент перехода от штатной численности к списочной Ксп=Тн/Тэф";

StringGrid1->Cells[1][0]="Непрерывный режим (3 см. по 8 час.)";

StringGrid2->Cells[1][0]="2";

StringGrid2->Cells[2][0]="3";

StringGrid2->Cells[3][0]="4";

StringGrid2->Cells[4][0]="5";

StringGrid2->Cells[5][0]="6";

StringGrid2->Cells[6][0]="7";

StringGrid2->Cells[7][0]="8";

StringGrid2->Cells[8][0]="9";

StringGrid2->Cells[0][1]="Основные рабочие";

StringGrid2->Cells[0][2]="Оператор технолог";

StringGrid2->Cells[0][3]="Оператор щитов";

StringGrid2->Cells[0][4]="Литейщик";

StringGrid2->Cells[0][5]="Итого";

StringGrid2->Cells[0][6]="Вспомогательные рабочие";

StringGrid2->Cells[0][7]="Слесарь КИПиА";

StringGrid2->Cells[0][8]="Ремонтный слесарь";

StringGrid2->Cells[0][9]="Слесарь электрик";

StringGrid2->Cells[0][10]="Грузчик";

StringGrid2->Cells[0][11]="Крановщик";

StringGrid2->Cells[0][12]="Водитель";

StringGrid2->Cells[0][13]="Итого";

StringGrid2->Cells[0][14]="Всего";

}

void __fastcall TForm1::Button1Click(TObject *Sender)

{

// Переменные

int gf=365*24;

int nomfond=(365-52-11)*8;

int brigad= gf/nomfond;

int chfaktnvd=365*8*12/(16*52);

int np=abs((40-chfaktnvd)*52/8);

int kvix=ceil(double(365*4)/double(16));

StringGrid1->Cells[1][1]="365";

StringGrid1->Cells[1][2]=IntToStr(kvix);

StringGrid1->Cells[1][3]=IntToStr(365-kvix);

StringGrid1->Cells[1][5]=LabeledEdit1->Text;

StringGrid1->Cells[1][6]=LabeledEdit2->Text;

StringGrid1->Cells[1][7]=LabeledEdit3->Text;

StringGrid1->Cells[1][9]=FloatToStr(365-kvix-StrToInt(LabeledEdit1->Text)-StrToInt(LabeledEdit2->Text)-StrToInt(LabeledEdit3->Text));

StringGrid1->Cells[1][10]= FloatToStr((365-kvix-StrToInt(LabeledEdit1->Text)-StrToInt(LabeledEdit2->Text)-StrToInt(LabeledEdit3->Text))*8);

// расчет коэффициента

double kk;

kk=double(StrToInt(StringGrid1->Cells[1][3]))/double(StrToInt(StringGrid1->Cells[1][9]));

kk=floor(kk*100)/100;

StringGrid1->Cells[1][11]=kk;

StringGrid2->Cells[1][2]=LabeledEdit4->Text;

StringGrid2->Cells[1][3]=LabeledEdit5->Text;

StringGrid2->Cells[1][4]=LabeledEdit6->Text;

StringGrid2->Cells[2][2]= Edit1->Text;

StringGrid2->Cells[2][3]= Edit2->Text;

StringGrid2->Cells[2][4]= Edit3->Text;

StringGrid2->Cells[3][2]= "3";

StringGrid2->Cells[3][3]= "3";

StringGrid2->Cells[3][4]= "3";

StringGrid2->Cells[4][2]= IntToStr(StrToInt(StringGrid2->Cells[1][2])*StrToInt(StringGrid2->Cells[2][2]));

StringGrid2->Cells[4][3]= IntToStr(StrToInt(StringGrid2->Cells[1][3])*StrToInt(StringGrid2->Cells[2][3]));

StringGrid2->Cells[4][4]= IntToStr(StrToInt(StringGrid2->Cells[1][4])*StrToInt(StringGrid2->Cells[2][4]));

StringGrid2->Cells[4][5]=IntToStr(StrToInt(StringGrid2->Cells[4][2])+ StrToInt(StringGrid2->Cells[4][3])+StrToInt(StringGrid2->Cells[4][4]));

StringGrid2->Cells[5][2]= IntToStr(StrToInt(StringGrid2->Cells[3][2])*StrToInt(StringGrid2->Cells[4][2]));

StringGrid2->Cells[5][3]= IntToStr(StrToInt(StringGrid2->Cells[3][3])*StrToInt(StringGrid2->Cells[4][3]));

StringGrid2->Cells[5][4]= IntToStr(StrToInt(StringGrid2->Cells[3][4])*StrToInt(StringGrid2->Cells[4][4]));

StringGrid2->Cells[5][5]=IntToStr(StrToInt(StringGrid2->Cells[5][2])+ StrToInt(StringGrid2->Cells[5][3])+StrToInt(StringGrid2->Cells[5][4]));

StringGrid2->Cells[6][2]=IntToStr(StrToInt(StringGrid2->Cells[4][2])+ StrToInt(StringGrid2->Cells[5][2]));

StringGrid2->Cells[6][3]=IntToStr(StrToInt(StringGrid2->Cells[4][3])+ StrToInt(StringGrid2->Cells[5][3]));

StringGrid2->Cells[6][4]=IntToStr(StrToInt(StringGrid2->Cells[4][4])+ StrToInt(StringGrid2->Cells[5][4]));

StringGrid2->Cells[6][5]=IntToStr(StrToInt(StringGrid2->Cells[6][2])+ StrToInt(StringGrid2->Cells[6][3])+StrToInt(StringGrid2->Cells[6][4]));

StringGrid2->Cells[7][2]=kk;

StringGrid2->Cells[7][3]=kk;

StringGrid2->Cells[7][4]=kk;

StringGrid2->Cells[8][2]= ceil(kk*double(StrToInt(StringGrid2->Cells[6][2])));

StringGrid2->Cells[8][3]= ceil(kk*double(StrToInt(StringGrid2->Cells[6][3])));

StringGrid2->Cells[8][4]= ceil(kk*double(StrToInt(StringGrid2->Cells[6][4])));

StringGrid2->Cells[8][5]= IntToStr(StrToInt(StringGrid2->Cells[8][2])+StrToInt(StringGrid2->Cells[8][3])+ StrToInt(StringGrid2->Cells[8][4]));

StringGrid2->Cells[3][7]="3";

StringGrid2->Cells[3][8]="3";

StringGrid2->Cells[3][9]="3";

StringGrid2->Cells[3][10]="3";

StringGrid2->Cells[3][11]="3";

StringGrid2->Cells[3][12]="3";

StringGrid2->Cells[4][7]=LabeledEdit7->Text;

StringGrid2->Cells[4][8]=LabeledEdit8->Text;

StringGrid2->Cells[4][9]=LabeledEdit9->Text;

StringGrid2->Cells[4][10]=LabeledEdit10->Text;

StringGrid2->Cells[4][11]=LabeledEdit11->Text;

StringGrid2->Cells[4][12]=LabeledEdit12->Text;

StringGrid2->Cells[4][13]=IntToStr(StrToInt(StringGrid2->Cells[4][7])+ StrToInt(StringGrid2->Cells[4][8])+StrToInt(StringGrid2->Cells[4][9])+StrToInt(StringGrid2->Cells[4][10])+StrToInt(StringGrid2->Cells[4][11])+StrToInt(StringGrid2->Cells[4][12]));

StringGrid2->Cells[5][7]= IntToStr(StrToInt(StringGrid2->Cells[4][7])*StrToInt(StringGrid2->Cells[3][7]));

StringGrid2->Cells[5][8]= IntToStr(StrToInt(StringGrid2->Cells[4][8])*StrToInt(StringGrid2->Cells[3][8]));

StringGrid2->Cells[5][9]= IntToStr(StrToInt(StringGrid2->Cells[4][9])*StrToInt(StringGrid2->Cells[3][9]));

StringGrid2->Cells[5][10]= IntToStr(StrToInt(StringGrid2->Cells[4][10])*StrToInt(StringGrid2->Cells[3][10]));

StringGrid2->Cells[5][11]= IntToStr(StrToInt(StringGrid2->Cells[4][11])*StrToInt(StringGrid2->Cells[3][11]));

StringGrid2->Cells[5][12]= IntToStr(StrToInt(StringGrid2->Cells[4][12])*StrToInt(StringGrid2->Cells[3][12]));

StringGrid2->Cells[5][13]=IntToStr(StrToInt(StringGrid2->Cells[5][7])+ StrToInt(StringGrid2->Cells[5][8])+StrToInt(StringGrid2->Cells[5][9])+StrToInt(StringGrid2->Cells[5][10])+StrToInt(StringGrid2->Cells[5][11])+StrToInt(StringGrid2->Cells[5][12]));

StringGrid2->Cells[6][7]= IntToStr(StrToInt(StringGrid2->Cells[4][7])+StrToInt(StringGrid2->Cells[5][7]));

StringGrid2->Cells[6][8]= IntToStr(StrToInt(StringGrid2->Cells[4][8])+StrToInt(StringGrid2->Cells[5][8]));

StringGrid2->Cells[6][9]= IntToStr(StrToInt(StringGrid2->Cells[4][9])+StrToInt(StringGrid2->Cells[5][9]));

StringGrid2->Cells[6][10]= IntToStr(StrToInt(StringGrid2->Cells[4][10])+StrToInt(StringGrid2->Cells[5][10]));

StringGrid2->Cells[6][11]= IntToStr(StrToInt(StringGrid2->Cells[4][11])+StrToInt(StringGrid2->Cells[5][11]));

StringGrid2->Cells[6][12]= IntToStr(StrToInt(StringGrid2->Cells[4][12])+StrToInt(StringGrid2->Cells[5][12]));

StringGrid2->Cells[6][13]=IntToStr(StrToInt(StringGrid2->Cells[6][7])+ StrToInt(StringGrid2->Cells[6][8])+StrToInt(StringGrid2->Cells[6][9])+StrToInt(StringGrid2->Cells[6][10])+StrToInt(StringGrid2->Cells[6][11])+StrToInt(StringGrid2->Cells[6][12]));

StringGrid2->Cells[7][7]=kk;

StringGrid2->Cells[7][8]=kk;

StringGrid2->Cells[7][9]=kk;

StringGrid2->Cells[7][10]=kk;

StringGrid2->Cells[7][11]=kk;

StringGrid2->Cells[7][12]=kk;

StringGrid2->Cells[8][7] = ceil(kk*double(StrToInt(StringGrid2->Cells[6][7])));

StringGrid2->Cells[8][8] = ceil(kk*double(StrToInt(StringGrid2->Cells[6][8])));

StringGrid2->Cells[8][9] = ceil(kk*double(StrToInt(StringGrid2->Cells[6][9])));

StringGrid2->Cells[8][10] = ceil(kk*double(StrToInt(StringGrid2->Cells[6][10])));

StringGrid2->Cells[8][11] = ceil(kk*double(StrToInt(StringGrid2->Cells[6][11])));

StringGrid2->Cells[8][12] = ceil(kk*double(StrToInt(StringGrid2->Cells[6][12])));

StringGrid2->Cells[8][13]=IntToStr(StrToInt(StringGrid2->Cells[8][7])+ StrToInt(StringGrid2->Cells[8][8])+StrToInt(StringGrid2->Cells[8][9])+StrToInt(StringGrid2->Cells[8][10])+StrToInt(StringGrid2->Cells[8][11])+StrToInt(StringGrid2->Cells[8][12]));

StringGrid2->Cells[8][14]=IntToStr(StrToInt(StringGrid2->Cells[8][13])+ StrToInt(StringGrid2->Cells[8][5]));

StringGrid2->Cells[6][14]=IntToStr(StrToInt(StringGrid2->Cells[6][13])+ StrToInt(StringGrid2->Cells[6][5]));

StringGrid2->Cells[5][14]=IntToStr(StrToInt(StringGrid2->Cells[5][13])+ StrToInt(StringGrid2->Cells[5][5]));

StringGrid2->Cells[4][14]=IntToStr(StrToInt(StringGrid2->Cells[4][13])+ StrToInt(StringGrid2->Cells[4][5]));

}

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