Теория управления запасами и системы массового обслуживания в программной среде Delfi

Диалектика, Москва-СПБ-Киев, 2011 г. 785 с. Роман С. Использование макросов в Excel. Питер, СПБ, 2004 г. 512 с. ПРИЛОЖЕНИЕ АИСХОДНЫЕ КОДЫПРОГРАММНОГО СРЕДСТВАИСХОДНЫЕ КОДЫ ПОЛЬЗОВАТЕЛЬСКОЙ ФОРМЫOptionExplicitPrivateSubcbExit_Click ()UnloadufAddReplaceEndSubPrivateSubcbMore_Click ()'Отработка сигнала пользователя о желании добавить/заменить ещё один товарDimintTColAsInteger, intSColAsInteger, intRowAsInteger, intSourseAsIntegerbUFW = False 'ДанныесформынесчитаныbACF = False 'Запас не определенIfReadyToWriteThen 'Если данным можно веритьintTCol = Val (tbColumn.Text) 'считываем столбик для записи параметров товараIfintTCol = ASKINGCOL + 1 Then 'Выбор столбцы источника пуассоновских формул, для столбца с записью параметров добавляемого/заменямого товараintSCol = ASKINGCOL + 2ElseintSCol = ASKINGCOL + 1EndIfCells (NAMEROW, intTCol).Value = tbName. Text 'ЗаписьназваниятовараColumns (intTCol).EntireColumn.AutoFit 'АвтоподборшириныстолбцаCells (YVOLROW, intTCol).Value = Val (tbYVol.Text) 'ЗаписьобъёмапродажCells (ARRROW, intTCol).Value = Val (tbPriceArr.Text) 'ЗаписьценыдоставкиCells (SAROW, intTCol).Value = Val (tbPriceSa.Text) 'ЗаписьценыхраненияIfcbReplace.Value = FalseThen 'ЕслитовардобавляетсяCells (POISROW, intTCol).FormulaR1C1 = «=R2C/DpY» 'Запись пуассоновского параметра потока реализации товаровEndIfintRow = POISROW + 2 'выбор начальной строки для расчета вероятности востребованностиDoWhilebACF = False 'цикл поиска запасаintSourse = intRow — POISROW — 1 'вычисление очередного запасаCells (intRow, ASKINGCOL).Value = intSourse 'запись очередного запаса в столбец ASKINGCOLCells (intRow, intTCol).FormulaR1C1 = Cells (POISROW + 2, intSCol).FormulaR1C1 'расчет и запись очередной вероятности востребованностиIfCells (intRow, intTCol).Value<= 1 — Range («Надёжность»).ValueThen 'если вероятность востребованности соответствует заданному уровню надежностиbACF = True 'поиск завершенintSourse = MyMax (intSourse — 1, 1) 'запас определенElse 'в противном случаеintRow = intRow + 1 'продолжим поиск со следующей строкиEndIfLoop 'конец цикла поиска запасаEndIfCells (Range («Издержки»).ROW, intTCol).Value = Cells (YVOLROW, intTCol).Value * Cells (ARRROW, intTCol).Value + Cells (SAROW, intTCol).Value * intSourse 'Запись издержек на товарCells (Range («Издержки»).ROW + 1, intTCol).FormulaR1C1 = Cells (Range («Издержки»).ROW + 1, intSCol).FormulaR1C1 'ЗаписьзапасатовараbUFW = True 'Данные с формы считаныEndSubPrivateSubcbReplace_Click ()EndSubPrivateSubUserForm_Activate ()'Активация формы добавки/замены товараIfActiveSheet.Name<> «ИДХ» ThenExitSub 'Отказ активировать форму с любого листа, кроме ИДХCells (1, 1).Select 'Избегание неожиданностей с выделенным диапазономtbName. Text = «» 'Очистка поля для названияtbPriceArr. Text = «» 'Очистка поля для цены доставкиtbPriceSa. Text = «» 'Очистка поля для цены храненияtbYVol. Text = «» 'Очистка поля для объёма продажcbReplace. Value = False 'Выставление переключателя добавка/замена в положение «Добавка» tbColumn. Text = Trim (Str (WorksheetFunction.Count (Rows (NAMEROW + 1)) + 1)) + ASKINGCOL 'Индикация номера столбца для записи параметров добавляемого товараEndSubPublicFunctionReadyToWrite () AsBoolean’Проверка готовности данных на форме к записи на лист ИДХDimbDataReadyAsBoolean, bColSelAsBooleanIfLen (tbName.Text) AndWorksheetFunction. IsNumber (Val (tbPriceArr.Text)) AndWorksheetFunction. IsNumber (Val (tbPriceSa.Text)) _AndWorksheetFunction.IsNumber (Val (tbYVol.Text)) Then 'ЕслиданныехорошипотипуIfVal (tbPriceArr.Text) > 0 AndVal (tbPriceSa.Text) > 0 AndVal (tbYVol.Text) > 0 ThenbDataReady = True ' иположительныэтоотражаетсявbDataReadyElse 'В противном случаеMsgBox «Проверьте правильность и полноту ввода параметров товара.», vbOKOnly, «Соберитесь, предприниматель!» 'пользователя просят их исправитьReadyToWrite = False 'Функция возвращает неготовность данныхExitFunctionEndIfIf (cbReplace.ValueAndVal (tbColumn.Text) >WorksheetFunction.Count (Rows (NAMEROW + 1)) + ASKINGCOL) Or _ (cbReplace.Value = FalseAndVal (tbColumn.Text) <= WorksheetFunction. Count (Rows (NAMEROW + 1)) + ASKINGCOL) Then 'Еслипереключательдобавка/заменаиномерстолбцанесогласованыMsgBox «Вспомните разницу между заменить и добавить», vbOKOnly, «Соберитесь, предприниматель!» 'пользователя просят их исправитьReadyToWrite = False 'Функция возвращает неготовность данныхExitFunctionElse 'В противном случаеbColSel = True 'это отражается в bColSelEndIfReadyToWrite = bDataReadyAndbColSel 'Совмещение результатов двух проверокEndFunctionPublicFunctionMyMax (dArg1 AsDouble, dArg2 AsDouble) AsDouble’Возвращает аргумент, не меньший другогоIf dArg1 >= dArg2 ThenMyMax = dArg1ElseMyMax = dArg2EndIfEndFunctionИСХОДНЫЕ КОДЫ МОДУЛЯ ОБЩИХ ОБЪЯВЛЕНИЙOptionExplicit’Модуль глобальных объявлений’на рабочем листе ИДХPublicConst NAMEROW = 1 'Строка с названиями товаровPublicConst YVOLROW = 2 'Строка с годовым объёмом реализации товаровPublicConst ARRROW = 3 'Строка с ценой доставки товаровPublicConst SAROW = 4 'Строка с ценой доставки товаровPublicConst POISROW = 5 'Строка с пуассоновским параметром потока реализации товаровPublicConst ASKINGCOL = 2 'Столбец с количеством востребованного в течение дня товараPublicbUFWAsBoolean, bACFAsBooleanКОДМОДУЛЯ"Controlling"Option ExplicitPublic Sub PrepareAddReplace ()ufAddReplace.ShowEnd Sub.