Створення інформаційної системи обліку медичних препаратів ТОВ "Аптека 36,6"

Для здійснення фільтрування, наприклад для таблиці Співробітники, потрібно поставити курсор у рядок ПІБ співробітника і ввести початкову літеру. В результаті у таблиці будуть відображатися всі співробітники, чиї прізвища починаються на цю літеру. Для очищення фільтру і повернення до повноцінного вигляду форми натискаємо клавішу Backspace.

Аналогічно було створено фільтрування і сортування для всіх інших форм інформаційної системи.



4.5 Алгоритми експорту даних у MS Word і MS Excel

Для ефективної і кращої роботи з даними на всіх формах інформаційної системи створено кнопку Сформувати дані в Excel, що автоматично експортує дані відкритої таблиці у середовище MS Excel. Детальніше розглянемо цю кнопку на формі Співробітники. Для правильної роботи цієї процедури необхідно у розділі uses дописати ComObj, що дозволить без проблем працювати з MS Excel. Після цього на кнопці, яка буде експортувати дані таблиці в MS Excel, необхідно написати програмний код, який у середовищі Delphi має вигляд:

procedure TForm3.ToolButton11Click(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

index,index2,i,s:Integer;

begin

try

XLApp:= CreateOleObject('Excel.Application');

TQuery(DBGrid1.DataSource.DataSet).DisableControls;

XLApp.Visible:=False;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:=Self.Caption;

Colum:=XLApp.Workbooks[1].WorkSheets[Self.Caption].Columns;

index:=1;

Colum:=XLApp.Workbooks[1].WorkSheets[Self.Caption].Rows;

Colum.Rows[1].Font.Bold:=true;

Colum.Rows[1].Font.Size:=8;

Sheet:=XLApp.Workbooks[1].WorkSheets[Self.Caption];

for I := 1 to TQuery(DBGrid1.DataSource.DataSet).FieldCount do

if TQuery(DBGrid1.DataSource.DataSet).Fields[i-1].Visible then

begin

if TQuery(DBGrid1.DataSource.DataSet).Fields[i-1].Size>0 then

Colum.Columns[index].ColumnWidth:=TQuery(DBGrid1.DataSource.Data

Set).Fields[i-1].Size

else Colum.Columns[index].ColumnWidth:=12;

Sheet.Cells[1,index].Value:=TQuery(DBGrid1.DataSource.DataSet).Fields[i

1].DisplayLabel;

Inc(index);

end;

// index:=2;

TQuery(DBGrid1.DataSource.DataSet).First;

for i:=2 to TQuery(DBGrid1.DataSource.DataSet).RecordCount+1 do

begin

index2:=1;

for s := 0 to TQuery(DBGrid1.DataSource.DataSet).FieldCount-1 do

if TQuery(DBGrid1.DataSource.DataSet).Fields[s].Visible then

begin

Sheet.Cells[i,index2].Value:=TQuery(DBGrid1.DataSource.DataSet).Fields[

s].AsString;

Inc(index2);

end;

// Inc(index);

TQuery(DBGrid1.DataSource.DataSet).Next;

end;

XLApp.Range[XLApp.Cells[1, 1],

XLApp.Cells[TQuery(DBGrid1.DataSource.DataSet).RecordCount+1,index

-1]].Select;

XLApp.Selection.Borders.LineStyle:=1;

XLApp.Selection.WrapText:=True;

XLApp.Range['A1'].Select;

TQuery(DBGrid1.DataSource.DataSet).EnableControls;

XLApp.Visible:=true;

except

Application.MessageBox(PChar('Microsoft Ecxel не інстальований, або

виникла інша помилка.'), 'Помилка!!!', MB_ICONWARNING+MB_OK);

if VarIsEmpty(XLApp) = false then

begin

XLApp.Quit;

XLApp := 0;

end;

exit;

end;

end;

Аналогічний програмний код використовується і для інших форм інформаційної системи, щоб автоматично формувати дані в середовище MS Excel.

Також для ще більш автоматичної і простішої роботи користувача з системою, на панелі інструментів форми Співробітники, є кнопка Заява на звільнення. Тобто, виділяємо рядок із прізвищем потрібного працівника і при натисненні цієї кнопки автоматично формується, у середовищі MS Word, заява на його звільнення. Дана процедура значно полегшує роботу користувача. Для її правильної роботи необхідно у розділі uses дописати ComObj, що дозволить без проблем працювати з MS Word. Після цього на кнопці, яка буде експортувати дані про співробітника в MS Word, необхідно написати програмний код, який у середовищі Delphi має вигляд:

procedure TForm3.ToolButton23Click(Sender: TObject);

var

WordApp, Doc: OleVariant;

begin

try

WordApp:= CreateOleObject('Word.Application');

except

ShowMessage('Помилка зв'язку з Word') ;

exit;

end;

WordApp.Visible:=true;

Doc:=WordApp.Documents.Add;

// Виводимо текст

WordApp.Selection.Font.Size:=12;

WordApp.Selection.Paragraphs.Alignment:=2;

WordApp.Selection.TypeText('Директору ТОВ "Аптека 36,6"'+#13+#10);

WordApp.Selection.TypeText('Петрову А.М.'+#13+#10);

WordApp.Selection.TypeText('від працівника'+#13+#10);

WordApp.Selection.TypeText(Query1.FieldByName('PIBSpivrobitnuka').A

sString +#13+#10);

WordApp.Selection.TypeParagraph;

WordApp.Selection.Paragraphs.Alignment:=1;

WordApp.Selection.Font.Size:=20;

WordApp.Selection.Font.Bold:=true;

WordApp.Selection.TypeText('Заява'+#13+#10);

WordApp.Selection.TypeParagraph;

WordApp.Selection.Paragraphs.Alignment:=3;

WordApp.Selection.Font.Bold:=false;

WordApp.Selection.Font.Size:=12;

WordApp.Selection.Paragraphs.FirstLineIndent:=20;

WordApp.Selection.TypeText('Прошу вас звільнити мене ');

WordApp.Selection.TypeText(DateToStr(Now) +#13+#10);

WordApp.Selection.TypeText('з посади ');

WordApp.Selection.TypeText(Query1.FieldByName('Posada').AsString

+#13+#10);

WordApp.Selection.TypeText('за власним бажанням'+#13+#10);

WordApp.Selection.TypeParagraph;

WordApp.Selection.Paragraphs.FirstLineIndent:=50;

WordApp.Selection.TypeText(DateToStr(Now)+#13+#10);

WordApp.Selection.Paragraphs.Alignment:=2;

WordApp.Selection.TypeText('Підпис______');

end;

Дана процедура сприяє підвищенню ефективності роботи з кадрами.



РОЗДІЛ 5. НЕРЕАЛІЗОВАНІ МОЖЛИВОСТІ ТА ШЛЯХИ ВДОСКОНАЛЕННЯ ІНФОРМАЦІЙНОЇ СИСТЕМИ

Розроблена інформаційна система дозволяє ефективно редагувати данi, що використовуються в процесі роботи ТОВ «Аптека 36,6», але для впровадження в практику дiяльностi Товариства розробленої системи необхiдно насамперед здiйснити реструктуризацiю даних, а саме:

- оснастити інформаційну систему динамічними діаграмами та звітами для візуального відображення результатів обробки даних;

- оснастити інформаційну систему засобами для автоматичного перенесення неактуальних даних між основними та архівними таблицями;

- розробити більш досконалі форми на відображення і редагування даних, щодо основної діяльності Товариства;

- розробити більш досконалу систему захисту даних інформаційної системи від пошкоджень та несанкціонованого доступу.

ТОВ «Аптека 36,6» у своєму розпорядженні має лише налагоджену локальну мережу, яка поєднує тільки структурні підрозділи даного Товариства. Персонал ТОВ «Аптека 36,6» має доступ лише до власних баз даних, що обмежує можливості фармацевтів швидко та якісно надавати інформацію населенню про відсутній препарат та наявність його в інших аптеках міста. Цю проблему може вирішити розробка та впровадження глобальної мережі, яка б поєднувала всі аптечні установи та склади медичних препаратів міста.

Впровадження глобальної мережі сприятиме:

- підвищенню ефективності управління за рахунок забезпечення керівників і персоналу Товариства повною, оперативною і достовірною інформацією на основі єдиного банку даних;

- підвищенню рівня взаємодії між аптечними установами та складами, принаймні на місцевому рівні;

- покращенню процесу обміну даними між аптечними установами та складами медичних препаратів міста;

- покращенню якості обслуговування населення, надання своєчасної та достовірної інформації про відсутній лікарський засіб та наявність його в іншій аптеці міста або на складі;

- створенню позитивної репутації ТОВ «Аптека 36,6», що теж є важливою ланкою успішного функціонування Товариства на ринку.

Отже, варто подбати про розробку та впровадження глобальної мережі, яка дозволить підвищити рівень взаємодії ТОВ «Аптека 36,6» з іншими аптечними установами, а також здійснити заміну застарілого обладнання на нове. Всi цi вдосконалення дозволять створити справдi конкурентноздатну інформаційну систему облiку роботи ТОВ «Аптека 36,6».



ВИСНОВКИ

В основі інформаційної системи лежить середовище доступу до інформації - система управління базою даних. Сьогодні важко уявити собі комп'ютерну техніку, локальні та глобальні мережі без основної частини прикладного програмного забезпечення - бази даних та системи управління базою даних. З базою даних та інформаційною системою ми стикаємося всюди: у банку та відділі бухгалтерії, в пенсійному фонді та податковій інспекції, у паспортному столі та на залізничному вокзалі. Вже стало звичним для посвідчення особи поряд з паспортом подавати ідентифікаційний номер, під яким зберігаються наші дані в інформаційній системі Державного реєстру фізичних осіб. Все частіше використовуються інформаційні системи для автоматизації діяльності лікарень, бібліотек, автозаправних станцій, туристичних агенцій, підвищення якості підготовки спеціалістів у закладах освіти.

Переконані, що поширюватися інформаційні системи будуть і в майбутньому, закріплюючись у сферах мобільного зв'язку, телерадіокомунікацій та проникаючи у наш побут.

Метою зберігання даних на електронних носіях є швидка та якісна їх обробка. І саме добре розроблена інформаційна система дозволяє зберігати інформацію без надлишковостей та неузгодженостей, забезпечують оперативний доступ до даних, створення та експлуатацію засобів для їх швидкого пошуку, фільтрування і сортування. Отже, поширення інформаційної системи обробки бази даних - це об'єктивний процес сучасності, викликаний науково-технічним прогресом.

В процесі виконання курсової роботи:

Ш застосовано на практиці теорію розробки інформаційної системи;

Ш опрацьовано вхідну та нормативно-довідкову документацію досліджуваної організації, а саме ТОВ «Аптека 36,6», вивчено функціонування об'єкта управління та можливості заміни матеріальних потоків інформаційними;

Ш розроблено, перевірено коректність з використанням нормальних форм та доопрацьовано інформаційно-логічну схему бази даних;

Ш розроблено таблиці, встановлено всі властивості їх полів, забезпечено цілісність;

Ш розроблено засоби коригування, пошуку, сортування та фільтрування даних;

Ш створено засоби для публікації результатів обробки даних інформаційної системи у середовищах MS Excel і MS Word;

Ш розроблено необхідні засоби автоматизації управління інформаційною системою .

Виконання поставлених у вступі завдань дозволило розробити нескладну інформаційну систему обробки нормалізованої бази даних, що й передбачалося метою курсової роботи.

Створена інофрмаційна система призначена для автоматизації роботи ТОВ «Аптека 36,6». Вона також може бути використана для автоматизації обліку роботи будь-якої іншої аптечної установи з аналогічною структурою.

Перед початком експлуатації системи необхідно розробити та затвердити єдині методи кодування інформації ї неухильно дотримуватися їх при редагуванні даних. Це дозволить усунути неузгодженість даних ще на етапі введення.

Виконання курсової роботи дозволило нам не лише навчитися проектувати базу даних та розробляти власні нескладні інформаційні системи, а й на практиці оволодіти основними методами наукових досліджень, навчитися самостійно опрацьовувати, аналізувати і систематизувати інформацію літературних та електронних джерел, логічно викладати матеріал та обґрунтовувати власну позицію, необхідність та доцільність прийнятих рішень. Виконання даної курсової роботи дало нам перші практичні навики розробки власної інформаційної системи, що є дуже корисним у подальшому освоєнню інформаційних систем та технологій.

СПИСОК ВИКОРИСТАНОЇ ЛІТЕРАТУРИ

1. Береза А.М. Основи створення інформаційних систем. Навч. посібник.- 2-е вид., перероб. і доп. -- К.: КНЕУ, 2001. -- 214 с.

2. Бобровский С.И. Delphi 7. - Учебный курс. СПб.: Питер, 2005. - 736 с.

3. Гужва В.М. Інформаційні системи і технології на підприємствах: Навч.посібник. - К.: КНЕУ, 2001.- 400с.

4. Інформаційні системи і технології в економіці: Посібник для студентів вищих навчальних закладів/ За ред. Пономаренка В.С. - К.: Видавничий центр "Академія", 2002. - 544 с.

5. Мамиконов А. Г. Проектирование АСУ. -- М.: Высш. шк., 1987. -- 303 с.

6. Пономаренко В.С., Пушкар О.І., Коваленко Ю.І. Проектування автоматизованих економічних інформаційних систем. -- К.: ІЗМН, 1996. -- 312 с.

7. Проектування інформаційних систем. Під ред. Пономаренко В.С.- К.: Видавничий центр «Академія», 2002. - 363 с.

8. Ситник В.Ф. та інші. Основи інформаційних систем: Навч. посібник.-Вид. 2-ге переробл. і доп/ В.Ф. Ситник, Т.А. Писаревська, за ред. Ситника В.Ф. - К.:КНЕУ, 2001. - 420с.

9. Статут ТОВ «Аптека 36,6».

10. Стоянович Р.М. Програмування консольного додатку в системі Borland Delphi. Методичні вказівки для студентів спеціальності 6.050100 "Економічна кібернетика ".- Рівне: РДГУ, 2005. - 12с.

Размещено на Allbest.ru