Файл: Вдовин Суркова Валентинов Теория систем и системный анализ.pdf

564

565

 .Name = “Arial Cyr”: .FontStyle = “обычный”
 .Size = 10: .Strikethrough = False
 .Superscript = False
 .Subscript = False
 .OutlineFont = False
 .Shadow = False
 .Underline = xlUnderlineStyleNone
 .ColorIndex = 1
 End With
 nom = 0
For j = 3 To 300
ag = Лист2.Cells(j, 2)
If ag = af Then
nom = j
Else
End If
Next j
ss = 0
For i = 1 To k + 1
st = Лист8.Cells(i + 2, 3) * Лист8.Cells(i + 2, 6)
Лист8.Cells(i + 2, 7) = st
ss = ss + st
Next i
Лист8.Cells(k + 4, 7) = ss
With Лист8.Cells(k + 4, 7).Font
 .Name = “Arial Cyr”: .FontStyle = “полужирный”
 .Size = 10: .Strikethrough = False
 .Superscript = False
 .Subscript = False
 .OutlineFont = False
 .Shadow = False
 .Underline = xlUnderlineStyleNone
 .ColorIndex = 3
 End With
Лист8.Cells(3, 8) = k + 1
опрр = Лист10.Cells(nom, 5) + opr

Otow = Лист2.Cells(nom, 3) - opr
If Otow < 0 Then
MsgBox (“Отмените ввод. Объем продаж превышает на-

личие товара на складе”)

Else
End If
Лист2.Cells(nom, 3) = Otow: Лист10.Cells(nom, 7) = Лист2.

Cells(nom, 3)

If Otow < 5 Then ‘Этот показатель определяется по ре-

зультатам анализа

MsgBox (“Произведите закупки товара. Наличие товара 

на складе достигло критических значений”)

 With Лист2.Cells(nom, 3).Interior
 .ColorIndex = 3
 .Pattern = xlSolid
 .PatternColorIndex = xlAutomatic
 End With
Else
 Лист2.Cells(nom, 3).Interior.ColorIndex = xlNone
 Лист2.Cells(nom, 1).Interior.ColorIndex = 15
 End If
Лист10.Cells(nom, 5) = опрр
выр = Лист2.Cells(nom, 5)
выр10 = Лист10.Cells(nom, 6)
Лист8.Cells(k + 3, 9) = Calendar1
Лист10.Cells(nom, 11) = Лист10.Cells(nom, 5) / ((Лист8.

Cells(k + 3, 9) - Лист1.Cells(6, 11)) + 1)

Лист2.Cells(nom, 5) = выр + Val(TextBox1.Text) * 

Val(TextBox2.Text)

Лист10.Cells(nom, 6) = выр10 + Val(TextBox1.Text) * 

Val(TextBox2.Text)

Лист10.Cells(nom, 9) = (Лист10.Cells(nom, 6) / Лист10.

Cells(nom, 5)) * Лист10.Cells(nom, 7)

End Sub

566

567

14.11. Разработка имитационной модели на основе 

программного продукта “Microsoft Access”

Выше были рассмотрены варианты разработки имитаци-

онных моделей с применением различных подходов и языков 
программирования. Преимущества и недостатки этих подходов, 
не оценив условия моделирования, определить трудно. Выбор 
того или иного подхода определяется объектом моделирования 
и условиями. Например, если в модели используется огромный 
объем данных, сформированный в базах, то ее можно создать в 
“Microsoft Accsses-VBA”. Далее нами будет рассмотрен вариант 
исследовательской имитационной модели, предназначенной 
для определения показателей, характеризующих работу опе-
рациониста в банке, а также показателей деятельности района, 
который обслуживается данным банком. При этом для упроще-
ния процесса разработки модели в качестве объекта имитации 
принять только учет реального потока платежей. 

В “Microsoft Accsses-VBA” можно создавать самые сложные 

имитационные модели, реализованные не только в персональном, 
но и в сетевом исполнении.

Аналогично “Excel” в “Accsses” заблаговременно могут быть 

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

Пример. Разработать в “Microsoft Accsses” программный про-

дукт для учета, статистики и анализа платежей в банке. Учесть: 

1) при учете платежей: районы платежей; плательщиков; 

потребную дату платежа, фактическую дату платежа; вид пла-
тежа; номер счета платежа; сумму платежа; пени;

2) при оценке статистики показателей платежей: количе-

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

3) при анализе платежей: даты анализируемого периода 

(дату начала анализа, дату окончания анализа); динамику изме-

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

Необходимо:
1) сформировать в “Microsoft Accsses” базу данных-

“Платежи”;

2) разработать таблицы базы данных: таблицу для учета 

платежей; таблицу для учета статистики платежей; таблицу 
для учета результатов анализа; таблицы для формирования 
списка районов, видов платежей, размеров пени (поля таблиц 
сформировать в соответствие с п. 1–3 задания);

3) разработать запросы для формирования в формах полей 

со списками. Этими полями будут: поле с перечнем районов; поле 
с перечнем видов платежей; поле с перечнем величин пени;

4) разработать формы для работы с таблицами (Платежи_т, 

Статистика_т, Анализ_т, Пени_т); 

5) разработать программные коды для вычисления основных 

показателей;

6) разработать макросы для управления программой;
7) разработать меню программы.
Порядок выполнения:
1. Формирование базы данных
•Открыть программу “Microsoft Accsses”.

• Выполнить операции “Файл”- “Создать”-“Новая база 

данных”

•Создать файл новой базы данных. Имя файла- “УЧЕТ”.
2. Разработка элементов базы данных “Учет”

566

567

14.11. Разработка имитационной модели на основе 

программного продукта “Microsoft Access”

Выше были рассмотрены варианты разработки имитаци-

онных моделей с применением различных подходов и языков 
программирования. Преимущества и недостатки этих подходов, 
не оценив условия моделирования, определить трудно. Выбор 
того или иного подхода определяется объектом моделирования 
и условиями. Например, если в модели используется огромный 
объем данных, сформированный в базах, то ее можно создать в 
“Microsoft Accsses-VBA”. Далее нами будет рассмотрен вариант 
исследовательской имитационной модели, предназначенной 
для определения показателей, характеризующих работу опе-
рациониста в банке, а также показателей деятельности района, 
который обслуживается данным банком. При этом для упроще-
ния процесса разработки модели в качестве объекта имитации 
принять только учет реального потока платежей. 

В “Microsoft Accsses-VBA” можно создавать самые сложные 

имитационные модели, реализованные не только в персональном, 
но и в сетевом исполнении.

Аналогично “Excel” в “Accsses” заблаговременно могут быть 

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

Пример. Разработать в “Microsoft Accsses” программный про-

дукт для учета, статистики и анализа платежей в банке. Учесть: 

1) при учете платежей: районы платежей; плательщиков; 

потребную дату платежа, фактическую дату платежа; вид пла-
тежа; номер счета платежа; сумму платежа; пени;

2) при оценке статистики показателей платежей: количе-

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

3) при анализе платежей: даты анализируемого периода 

(дату начала анализа, дату окончания анализа); динамику изме-

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

Необходимо:
1) сформировать в “Microsoft Accsses” базу данных-

“Платежи”;

2) разработать таблицы базы данных: таблицу для учета 

платежей; таблицу для учета статистики платежей; таблицу 
для учета результатов анализа; таблицы для формирования 
списка районов, видов платежей, размеров пени (поля таблиц 
сформировать в соответствие с п. 1–3 задания);

3) разработать запросы для формирования в формах полей 

со списками. Этими полями будут: поле с перечнем районов; поле 
с перечнем видов платежей; поле с перечнем величин пени;

4) разработать формы для работы с таблицами (Платежи_т, 

Статистика_т, Анализ_т, Пени_т); 

5) разработать программные коды для вычисления основных 

показателей;

6) разработать макросы для управления программой;
7) разработать меню программы.
Порядок выполнения:
1. Формирование базы данных
•Открыть программу “Microsoft Accsses”.

• Выполнить операции “Файл”- “Создать”-“Новая база 

данных”

•Создать файл новой базы данных. Имя файла- “УЧЕТ”.
2. Разработка элементов базы данных “Учет”

568

569

а) Разработка таблиц базы данных.
Открыть базу данных  “Учет”. В диалоговом окне “УЧЕТ: 

база данных” выделить “Таблицы”, “Создание в режиме кон-
структора”.

В группе “Имя поля” ввести реквизиты платежа, а в группе 

“Тип данных” ввести тип данных для каждого поля. Сохранить 
таблицу под именем “Платежи_т”.

Выполнить операции: “УЧЕТ: база данных”, выделить 

таблицу “Платежи_т” и нажать кнопку “Открыть”. В открыв-
шейся таблице проверить формирование полей. Вид и поля та-
блицы “Платежи_т” в режиме конструктор таблиц показаны на 
рис. 3.65.

Рис. 3.65. Вид и поля таблицы “Платежи_т” 

в режиме конструктора таблиц

Аналогичным образом сформировать таблицы Статистика_т, 

Анализ_т, Районы_т, Вид_платежа_т и Пени_т. Таблицы 
Районы_т, Вид_платежа_т и Пени_т используются для форми-
рования полей со списком. Таблицы Статистика_т и Анализ_т —
рабочие таблицы. Информация, приведенная в них, использу-
ется для формирования статистики платежей и вычисления 
показателей для решения задач анализа. Наименования полей 
приведены на рис. 3.66.

Рис. 3.66. Вид и поля таблиц “Статистика_т”, “Анализ_т”, “Пени_т”, 

“Вид_платежа_т” и “Районы_т” в режиме конструтора таблиц

568

569

а) Разработка таблиц базы данных.
Открыть базу данных  “Учет”. В диалоговом окне “УЧЕТ: 

база данных” выделить “Таблицы”, “Создание в режиме кон-
структора”.

В группе “Имя поля” ввести реквизиты платежа, а в группе 

“Тип данных” ввести тип данных для каждого поля. Сохранить 
таблицу под именем “Платежи_т”.

Выполнить операции: “УЧЕТ: база данных”, выделить 

таблицу “Платежи_т” и нажать кнопку “Открыть”. В открыв-
шейся таблице проверить формирование полей. Вид и поля та-
блицы “Платежи_т” в режиме конструктор таблиц показаны на 
рис. 3.65.

Рис. 3.65. Вид и поля таблицы “Платежи_т” 

в режиме конструктора таблиц

Аналогичным образом сформировать таблицы Статистика_т, 

Анализ_т, Районы_т, Вид_платежа_т и Пени_т. Таблицы 
Районы_т, Вид_платежа_т и Пени_т используются для форми-
рования полей со списком. Таблицы Статистика_т и Анализ_т —
рабочие таблицы. Информация, приведенная в них, использу-
ется для формирования статистики платежей и вычисления 
показателей для решения задач анализа. Наименования полей 
приведены на рис. 3.66.

Рис. 3.66. Вид и поля таблиц “Статистика_т”, “Анализ_т”, “Пени_т”, 

“Вид_платежа_т” и “Районы_т” в режиме конструтора таблиц