Заключение
В курсовом проекте была поставлена проблема формирования оптимального штата фирмы, основа ее актуальность и значимость.
В первой части были рассмотрены теоретические вопросы, раскрывающие суть проблемы курсового проекта и приведены примеры решения задач указанной специфики.
Во второй части составлена математическая модель задачи, предложенной для курсового проекта, выполнено ее решение с помощью математического аппарата, рассмотрены принципы использования прикладной программы MS Excel 2007 для ввода исходных данных и расчета основных параметров указанной модели.
Создать программу для решения задачи курсового проекта с помощью среды программирования Delphi не удалось.
Таким образом, не все поставленные цели были выполнены, цель курсового проекта достигнута частично.
В дальнейшем планируется автоматизировать процесс решения задачи курсового проекта с помощью среды программирования Delphi.
Библиографический список
Мастяева, И.Н. Исследование операций в экономике / И.Н. Мастяева, Г.Я. Горбовцов, О.Н. Семенихина. – Московский международный институт эконометрики, информатики, финансов и права, 2005. – 113 с.
Павлова, Т.Н. Решение задач линейного программирования средствами Excel.: учебное пособие. / Т.Н. Павлова, О.А. Ракова. – Димитровград: «Тетра Системс», 2009. – 321 с.
Пелих, А.С. Экономико-математические методы и модели в управлении производством / А.С. Пелих, Л.Л. Терехов, Л.А. Терехова. – Ростов н/Д.: «Феликс», 2005. – 248 с.
Поган, А.М. Delphi. Руководство программиста / А.М. Поган. – М.: Эксмо, 2006. – 480 с.: ил.
Фомин, Г.П. Математические методы и модели в коммерческой деятельности: учебник / Г.П. Фомин. – 2-е изд., перераб. и доп. – М.: Финансы и статистика, 2005. – 306 с.: ил.
Шикин, Е.В. Математические методы и модели в управлении: учебное пособие. / – 2-е изд., испр. – М.: Дело, 2002. – 440 с.
Шпак, Ю.А. Delphi 7 на примерах / Ю. А. Шпак. – ЮниорГод, 2005.
Приложение а Блок-схема алгоритма задачи
нет
да
Приложение в Листинг модуля Excel
Private Sub ComboBox1_Change()
End Sub
Private Sub CommandButton1_Click()
If (ComboBox1.Text = "2") Then
UserForm2.TextBox3.Visible = False
UserForm2.TextBox4.Visible = False
UserForm2.TextBox7.Visible = False
UserForm2.TextBox8.Visible = False
UserForm2.TextBox9.Visible = False
UserForm2.TextBox10.Visible = False
UserForm2.TextBox11.Visible = False
UserForm2.TextBox12.Visible = False
UserForm2.TextBox13.Visible = False
UserForm2.TextBox14.Visible = False
UserForm2.TextBox15.Visible = False
UserForm2.TextBox16.Visible = False
UserForm2.Label3.Visible = False
UserForm2.Label4.Visible = False
UserForm2.Label7.Visible = False
UserForm2.Label8.Visible = False
End If
If (ComboBox1.Text = "3") Then
UserForm2.TextBox13.Visible = False
UserForm2.TextBox14.Visible = False
UserForm2.TextBox15.Visible = False
UserForm2.TextBox16.Visible = False
UserForm2.TextBox4.Visible = False
UserForm2.TextBox8.Visible = False
UserForm2.TextBox12.Visible = False
UserForm2.TextBox16.Visible = False
UserForm2.Label4.Visible = False
UserForm2.Label8.Visible = False
End If
UserForm2.Show
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
ComboBox1.Text = "2"
ComboBox1.AddItem "2"
ComboBox1.AddItem "3"
ComboBox1.AddItem "4"
End Sub
Private Sub CommandButton1_Click()
If (UserForm1.ComboBox1.Text = "2") Then If (TextBox1.Text = "") Or (TextBox2.Text = "") Or (TextBox5.Text = "") Or (TextBox6.Text = "") Then MsgBox "Заполните все поля"
If (UserForm1.ComboBox1.Text = "3") Then
If (TextBox1.Text = "") Or (TextBox2.Text = "") Or (TextBox3.Text = "") Or (TextBox5.Text = "") Or (TextBox6.Text = "") Or (TextBox7.Text = "") Or (TextBox9.Text = "") Or (TextBox10.Text = "") Or (TextBox11.Text = "") Then MsgBox "Заполните все поля"
End If
If (UserForm1.ComboBox1.Text = "4") Then
If (TextBox1.Text = "") Or (TextBox2.Text = "") Or (TextBox3.Text = "") Or (TextBox4.Text = "") Or (TextBox5.Text = "") Or (TextBox6.Text = "") Or (TextBox7.Text = "") Or (TextBox8.Text = "") Or (TextBox9.Text = "") Or (TextBox10.Text = "") Or (TextBox11.Text = "") Or (TextBox12.Text = "") Or (TextBox13.Text = "") Or (TextBox14.Text = "") Or (TextBox15.Text = "") Or (TextBox16.Text = "") Then MsgBox "Заполните все поля"
End If
Worksheets("ИсходныеДанные").Range("A1") = TextBox1.Text
Worksheets("ИсходныеДанные").Range("B1") = TextBox2.Text
Worksheets("ИсходныеДанные").Range("C1") = TextBox3.Text
Worksheets("ИсходныеДанные").Range("D1") = TextBox4.Text
Worksheets("ИсходныеДанные").Range("A2") = TextBox5.Text
Worksheets("ИсходныеДанные").Range("B2") = TextBox6.Text
Worksheets("ИсходныеДанные").Range("C2") = TextBox7.Text
Worksheets("ИсходныеДанные").Range("D2") = TextBox8.Text
Worksheets("ИсходныеДанные").Range("A3") = TextBox9.Text
Worksheets("ИсходныеДанные").Range("B3") = TextBox10.Text
Worksheets("ИсходныеДанные").Range("C3") = TextBox11.Text
Worksheets("ИсходныеДанные").Range("D3") = TextBox12.Text
Worksheets("ИсходныеДанные").Range("A4") = TextBox13.Text
Worksheets("ИсходныеДанные").Range("B4") = TextBox14.Text
Worksheets("ИсходныеДанные").Range("C4") = TextBox15.Text
Worksheets("ИсходныеДанные").Range("D4") = TextBox16.Text
UserForm2.TextBox1.Text = Clear
UserForm2.TextBox2.Text = Clear
UserForm2.TextBox3.Text = Clear
UserForm2.TextBox4.Text = Clear
UserForm2.TextBox5.Text = Clear
UserForm2.TextBox6.Text = Clear
UserForm2.TextBox7.Text = Clear
UserForm2.TextBox8.Text = Clear
UserForm2.TextBox9.Text = Clear
UserForm2.TextBox10.Text = Clear
UserForm2.TextBox11.Text = Clear
UserForm2.TextBox12.Text = Clear
UserForm2.TextBox13.Text = Clear
UserForm2.TextBox14.Text = Clear
UserForm2.TextBox15.Text = Clear
UserForm2.TextBox16.Text = Clear
End Sub
Private Function ValidateNumeric(strText As String) _
As Boolean
ValidateNumeric = CBool(strText = "" _
Or strText = "-." _
Or strText = "." _
Or IsNumeric(strText))
End Function
Private Sub TextBox1_Change()
If Not ValidateNumeric(TextBox1.Text) Then
TextBox1.Text = ""
End If
End Sub
Private Sub TextBox2_Change()
If Not ValidateNumeric(TextBox2.Text) Then
TextBox2.Text = ""
End If
End Sub
Private Sub TextBox3_Change()
If Not ValidateNumeric(TextBox3.Text) Then
TextBox3.Text = ""
End If
End Sub
Private Sub TextBox4_Change()
If Not ValidateNumeric(TextBox4.Text) Then
TextBox4.Text = ""
End If
End Sub
Private Sub TextBox5_Change()
If Not ValidateNumeric(TextBox5.Text) Then
TextBox5.Text = ""
End If
End Sub
Private Sub TextBox6_Change()
If Not ValidateNumeric(TextBox6.Text) Then
TextBox6.Text = ""
End If
End Sub
Private Sub TextBox7_Change()
If Not ValidateNumeric(TextBox7.Text) Then
TextBox7.Text = ""
End If
End Sub
Private Sub TextBox8_Change()
If Not ValidateNumeric(TextBox8.Text) Then
TextBox8.Text = ""
End If
End Sub
Private Sub TextBox9_Change()
If Not ValidateNumeric(TextBox9.Text) Then
TextBox9.Text = ""
End If
End Sub
Private Sub TextBox10_Change()
If Not ValidateNumeric(TextBox10.Text) Then
TextBox10.Text = ""
End If
End Sub
Private Sub TextBox11_Change()
If Not ValidateNumeric(TextBox11.Text) Then
TextBox11.Text = ""
End If
End Sub
Private Sub TextBox12_Change()
If Not ValidateNumeric(TextBox12.Text) Then
TextBox12.Text = ""
End If
End Sub
Private Sub TextBox13_Change()
If Not ValidateNumeric(TextBox13.Text) Then
TextBox13.Text = ""
End If
End Sub
Private Sub TextBox14_Change()
If Not ValidateNumeric(TextBox14.Text) Then
TextBox14.Text = ""
End If
End Sub
Private Sub TextBox15_Change()
If Not ValidateNumeric(TextBox15.Text) Then
TextBox15.Text = ""
End If
End Sub
Private Sub TextBox16_Change()
If Not ValidateNumeric(TextBox16.Text) Then
TextBox16.Text = ""
End If
End Sub
Размещено на Allbest.ru