повного освоєння якого буде потрібно не менше місяця.
. Ні в одному з пакетів не реалізована можливість прямого імпорту даних, підготовлених в інших пакетах.
. Для вирішення ряду завдань не завжди використовуються коректні алгоритми. Прикладом може служити завдання підбору кадрів у складі пакету фірми «INFIN»: пропонується здійснювати цю процедуру, керуючись виключно тим, що означає ім'я людини згідно з народними прикметами.
.4 Розробка ІС «Фараон»
Фараон розроблений програмістами ТОВ «Центр Кадрових Технологій» в середовищі Borland Delphi і працює під Windows NT/2000/XP/Vista. Фараон є клієнт-серверної програмою.
У рамках даного дипломного проекту був розроблений модуль, що відповідає за з'єднання з БД і роботу ТСP-з'єднання, фрагмент якого представлений нижче:
___
{$ I FARAON.INC}
TDM. GetAvailableUpdate: boolean;: integer;: string;: TStrings;
{$ I NanoBegin.inc}:=false;:=TStringList. Create;. IOHandler. WriteLn (IntToStr (clCheckUpdate)); s=«» do:=TCPClient.IOHandler. ReadLn;:=StrToInt (s);. IOHandler. ReadStrings (ls, a); not TryStrToInt (ls [0], a) then
ShowMessage («Помилка у відповіді сервера ліцензій!")
else. Delete (0); a <> 1 thena <> 11 then (ls. Text) / / продовження технічного супроводу («Виявлено оновлення програми« Фараон ». Щоб його встановити, будь ласка, продовжите термін технічного супроводу»);
/ /. TimerSL. Enabled:=false; not OkNoDlg (ls. Text) then.IOHandler. WriteLn («0») («Почекайте! Триває завантаження оновлення ...»);. IOHandler. WriteLn («1»);:=«»; s=«» do:=TCPClient.IOHandler. ReadLn;; StrToInt (s) of
: ShowMessage («Завантаження оновлення пройшла невдало! Подивіться журнал на сервері ліцензій!");
:. Text:=«»;. Add («Файл оновлення успішно завантажений!");. Add («»);. Add («Щоб провести оновлення зробіть наступне:»);
ls. Add («»);. Add («1. Закрийте програму« Фараон ».»);. Add («»);. Add («2. Створіть резервну копію бази даних.»);. Add («Якщо у Вашій компанії програма« Фараон »використовується в многопользовательском режимі, то попередньо необхідно закрити« Фараон »на комп'ютерах усіх користувачів, а також закрити сервер ліцензій.» + «Після створення резервної копії бази даних знову запустіть сервер ліцензій . »);
ls. Add («»);. Add («3. Запустіть програму« Фараон »на комп'ютері користувача з правами адміністратора.» + При цьому автоматично запуститься модуль оновлення. Дочекайтеся повідомлення про закінчення процесу оновлення. ');
ls. Add («»);. Add («4. Запустіть програму« Фараон »і переконайтеся, що вона працює коректно.»);. Add («»);. Add («Якщо в процесі проведення оновлення у Вас виникнуть якісь непередбачені ситуації, зв'яжіться зі службою технічної підтримки програми« Фараон ».»);
ShowMessage (ls. Text);:=true;
end;
: ShowMessage («Завантаження оновлення відбувається з іншого комп'ютера!");
end;;. TimerSL. Enabled:=true;;;. Free; not TCPClient. Connected then. Connect;. TimerSL. Enabled:=true;;
