Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые проекты » Інформаційно-аналітична система для контролю ходу ливарного виробництва

Реферат Інформаційно-аналітична система для контролю ходу ливарного виробництва





ommandButton1_Click (). Hide.ShowSub


Кнопка «Пошук» викликає форму «Пошук». Алгоритм роботи даної кнопки в конструкції VBA: Sub CommandButton4_Click (). Hide.ShowSub

Кнопка «Вихід» дозволяє завершити роботу з програмою, приховуючи налаштовувану форму. Алгоритм роботи даної кнопки в конструкції VBA: Sub CommandButton3_Click () Sub

таблиця дані програма алгоритм


















2.2 Алгоритми додавання даних










Додавання в таблиці відбувається за допомогою спеціальних форм, які містять поля призначені для введення в них відповідної інформації. Після введення необхідно натиснути на одну з кнопок (з січня по грудень), запуститися процедура, яка вносить в таблицю дані з полів форми.

Дані процедури працюють на основі оператора If..Then.

Розглянемо код для кнопки «Січ»: Sub CommandButton5_Click () TextBox6.Text=1 Then Ліст5.Activate=3=i + 1Cells (i, 1)=TextBox1.Text Then=i - 2 ( i + 2, 1)=TextBox1.Text (i + 2, 11)=TextBox2.Text (i + 2, 20)=TextBox3.Text (i + 2, 23)=TextBox4.Text (i + 2, 29) =TextBox5.Text (i + 2, 31)=TextBox6.Text (i + 2, 27)=Cells (i + 2, 29) (i + 2, 24)=Cells (i + 2, 28) * Cells ( i + 2, 29) (i + 2, 7)=Cells (i + 2, 6) * Cells (i + 2, 4) (i + 2, 9)=Cells (i + 2, 8) * Cells ( i + 2, 4) (i + 2, 10)=(Cells (i + 2, 8) * Cells (i + 2, 5))/Cells (i + 2, 3) (i + 2, 12)= Cells (i + 2, 11) * Cells (i + 2, 40) (i + 2, 13)=(Cells (i + 2, 11) * Cells (i + 2, 5))/Cells (i + 2 , 3) (i + 2, 15)=Cells (i + 2, 13) * Cells (i + 2, 4) (i + 2, 16)=(Cells (i + 2, 14) * Cells (i + 2, 5))/Cells (i + 2, 3) (i + 2, 17)=Cells (i + 2, 11) - (Cells (i + 2, 20) + Cells (i + 2, 23)) (i + 2, 18)=Cells (i + 2, 17) * Cells (i + 2, 4) (i + 2, 19)=(Cells (i + 2, 17) * Cells (i + 2, 5 ))/Cells (i + 2, 3) (i + 2, 21)=Cells (i + 2, 20) * Cells (i + 2, 4) (i + 2, 21)=(Cells (i + 2 , 20) * Cells (i + 2, 5))/Cells (i + 2, 3) (i + 2, 24)=Cells (i + 2, 23) * Cells (i + 2, 4) (i + 2, 26)=Cells (i + 2, 25) * Cells (i + 2, 4) (i + 2, 30)=Cells (i + 2, 29) * Cells (i + 2, 4)=i + 2=1IfUntil Cells (i, 2)=Emptya lt; gt; 1 Then=i - 2 (i + 2, 1)=TextBox1.Text (i + 2, 11)=TextBox2.Text (i + 2, 20)=TextBox3.Text (i + 2, 23)=TextBox4.Text (i + 2, 29)=TextBox5.Text (i + 2, 31)=TextBox6.Text (i + 2, 27)=Cells (i + 2, 29) (i + 2, 24)=Cells (i + 2, 28) * Cells (i + 2, 29) (i + 2, 7)=Cells (i + 2, 6) * Cells (i + 2, 4) (i + 2, 9)=Cells (i + 2, 8) * Cells (i + 2, 4) (i + 2, 10)=(Cells (i + 2, 8) * Cells (i + 2, 5))/Cells (i + 2, 3) ( i + 2, 12)=Cells (i + 2, 11) * Cells (i + 2, 40) (i + 2, 13)=(Cells (i + 2, 11) * Cells (i + 2, 5) )/Cells (i + 2, 3) (i + 2, 15)=Cells (i + 2, 13) * Cells (i + 2, 4) (i + 2, 16)=(Cells (i + 2, 14) * Cells (i + 2, 5))/Cells (i + 2, 3) (i + 2, 17)=Cells (i + 2, 11) - (Cells (i + 2, 20) + Cells ( i + 2, 23)) (i + 2, 18)=Cells (i + 2, 17) * Cells (i + 2, 4) (i + 2, 19)=(Cells (i + 2, 17) * Cells (i + 2, 5))/Cells (i + 2, 3) (i + 2, 21)=Cells (i + 2, 20) * Cells (i + 2, 4) (i + 2, 21) =(Cells (i + 2, 20) * Cells (i + 2, 5))/Cells (i + 2, 3) (i + 2, 24)=Cells (i + 2, 23) * Cells (i + 2, 4) (i + 2, 26)=Cells (i + 2, 25) * Cells (i + 2, 4) (i + 2, 30)=Cells (i + 2, 29) * Cells (i + 2, 4)=i + 2=1IfSub

Коди для інших місяців будуть аналогічні коду для кнопки «Січ». Буде лише змінюватися рядок «If TextBox6.Text =« номер місяця »Then Лист« номер відповідного аркуша ».Activate»

Оператор If ... Then перевіряє, чи немає такого ж ключа в даній таблиці (ключ - унікальне значення для рядка, яке однозначно визначає рядок).

Решта процедури також використовують цей оператор і мають схожу структуру програми.


2.4 Алгоритми пошуку


Кнопка «Пошук» на формі «Пошук» служить для пошуку з таблиці «Виливки» дані про кожну з позиції. Результат пошуку відображається на окремих для кожного значення полях. Наприклад, для TextBox2 відповідає значення стовпця «Найменування».


Малюнок 2.3


Код програми пошуку: Sub CommandButton1_Click ()

Ліст1.Activate=i + 1Until Cells (i, 1)=Emptya lt; gt; 1 Then=TextBox7=1If

Ліст1.Activate=i + 1Until Cells (i, 1)=Emptyi=1 To ji=TextBox6.Text.Text=iTextBox6.Text lt; gt; Then.Text=TextBox7IfTextBox7=TextBox6.Text Then.Text=Cells (i + j, 2) IfTextBox7=TextBox6.Text Then.Text=Cells (i + j, 3) IfTextBox7=TextBox6.Text Then.Text=Cells (i + j, 4) IfTextBox7=TextBox6.Text Then.Text=Cells (i + j, 5) IfSub


. Проектування інтерфейсів


Назад | сторінка 3 з 4 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Phonetic peculiarities of the popular science text
  • Реферат на тему: Grammar of the Text: its Basic Units and Main Features (based on the novel ...
  • Реферат на тему: Технології аналізу даних (Text Mining, Data Mining)
  • Реферат на тему: Прямий пошук без обмежень. Метод пошуку Хука-Дживса для функції Розенброка ...
  • Реферат на тему: Алгоритм пошуку в ширину