Курсовая работа: Облік компютерів та комплектуючих на підприємстві

Іmage1 – Зображення. Відображає фотографію автора.

Label1-Label3 – Текст. Призначається для відображення інформації про автора.

Button1 – Кнопка яка закриває вікно.

Рисунок 10 – вікно виведення інформації про автора.

Рисунок 11 – Вікно готової програми.

6 Складання коду програми

Код програми – алгоритм дій, написаний на конкретній мові програмування. Цей проект написано з використанням Delphi 6.0, отже мова програмування Object Pascal.

В Delphi 6.0 вся програма складається з окремих модулів.

Створення нової комплектації комп’ютера відбувається таким чином (процедура TForm1.Button3Click):

if ((DEP[ComboBox1.ItemIndex+1].CompsCount>=100)or //Якщо комп’ютерів які знаходяться в одному відділі більше 100 тоді виходимо.

(ComboBox1.ItemIndex<0)) then Exit;

ADD:=True;// активізуємо функцію створення нового коп’ютера.

Form2.Show;// показуємо саму форму створення нового комп’ютера.

Form2.ClearEdit;// очищуємо поля.

Видалення відділу має такий вигля (процедура TForm1. DelDep):

if ((ComboBox1.ItemIndex>=0)and(ComboBox1.Items.Count>0)) then//Якщо відділ вибраний виводиться повідомлення підтвердження видалення.

if MessageDlg('Видалити відділ'+#13#10+'із всіма його комп’ютерами',

mtConfirmation,[mbOk,mbCancel],0)=mrOk then

DelDep(ComboBox1.ItemIndex+1);//Видаляємо відділ зі списку

Вибір відділу зі списку можна описати так (процедура ComboBox1Change):

if ComboBox1.ItemIndex>=0 then// якщо відділ вибраний тоді вивести

ShowDepartament(ComboBox1.ItemIndex+1); //всю інформацію про відділ на екран.

Створення нового відділу відбувається таким чином (процедура TForm1. Button1Click):

if Count>29 then Exit;

for i:=0 to ComboBox1.Items.Count-1 do //Перевірка на наявність відділу

if ComboBox1.Text=ComboBox1.Items.Strings[i] then begin

ShowMessage('Такий відділ вже є!');//виводимо повідомлення що відділ вже існує.

Exit;//виходимо