База данных библиотеки Стэлс - Дипломная работа

База данных - это организованная структура, предназначенная для хранения информации. В ней есть все необходимые сведения об авторах, книгах, читателях и т.д. Доступ к этой базе могут иметь как работники библиотеки, так и читатели, которым необходимо найти какое-либо издание. СОСТОЯНИЕ ПРОБЛЕМЫ АВТОМАТИЗАЦИИ ФУНКЦИОНИРОВАНИЯ БИБЛИОТЕКИ «СТЭЛС» 1.1 Описание проблемы, обзор и анализ публикаций процесса функционирования библиотеки и обоснование его автоматизации В процессе ознакомления работы библиотеки Стэлс стало очевидно, что все действия сотрудников библиотеки осуществлялись вручную. Д27 Дейт К. Руководство по реляционной СУБД DB2 / Пер. с англ. и предисл. М.Р.Когаловского. Рассмотрим опыт Библиотечно-Информационного Центра Университета «Хазар» по автоматизации библиотеки на основе программного продукта «Follett Library Automation Solutions» [21]. И.П.Котляревского Нет Нет Нет Нет 3 11 НТБ Харьковского государственного технического университета сельского хозяйства АЙСИС Нет Нет Нет 2 13 Библиотека Национальной фармацевтической Академии Украины ЛИБЭР Есть Есть Есть 1 14 Фундаментальная библиотека Национальной юридической академии Украины им. Я.Мудрого САБ Есть Нет Нет 1 15 Библиотека Харьковского государственного медицинского университета МАРК Есть Нет Нет 2 19 НТБ Харьковского государств-го автодорожного университета АИСТ Есть Есть Есть 2 22 Библиотека Украинской инженерно-педагогической академии ЛИБЭР Нет Нет Нет 2 23 НТБ НТУ Харьковский политехнический университет САБ Есть Есть Есть 1 24 Библиотека Харьковского гос. технич. унив-та строительства и архитектуры Нет Нет Нет Нет 3 25 Харьковская государственная научная медицинская библиотека АЙСИС Нет Нет Нет 3 26 Библиотека Української Правничої Фундації при НЮАУ Нет Нет Нет Нет 3 27 НТБ государственного технического университета радиоэлектроники МАРК Есть Нет Нет 2 28 Библиотека (НИГЦ) ХГИ НУА АИСТ Есть Есть Есть 1 29 НТБ Харьковской академии городского хозяйства ЛИБЭР Нет Нет Нет 2 В более крупных библиотеках используются такие программы как: Библиотека 4.0 then begin Application.CreateForm( TStateFrm, StateFrm ); StateFrm.ShowModal; end else begin MessageDlg( Ошибка: Не указано значение поля Город!, mtError, [mbOk], 0 ); end; end; procedure TMainFrm.ExitBtnClick(Sender: TObject); begin Close; end; procedure TMainFrm.FormShow(Sender: TObject); begin DModule.IBTransaction.StartTransaction; end; procedure TMainFrm.LNumWorkerClick(Sender: TObject); begin ActiveWnd := 2; Application.CreateForm( TWorkerFrm, WorkerFrm ); WorkerFrm.ShowModal; end; procedure TMainFrm.MExitClick(Sender: TObject); begin ExitBtn.OnClick( sender ); end; procedure TMainFrm.LCityMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin LCity.Font.Color := clPurple; end; procedure TMainFrm.LStateMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin LState.Font.Color := clPurple; end; procedure TMainFrm.LCityMouseLeave(Sender: TObject); begin LCity.Font.Color := clBlue; end; procedure TMainFrm.LStateMouseLeave(Sender: TObject); begin LState.Font.Color := clBlue; end; procedure TMainFrm.LNumWorkerMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin LNumWorker.Font.Color := clPurple; end; procedure TMainFrm.LNumWorkerMouseLeave(Sender: TObject); begin LNumWorker.Font.Color := clBlue; end; procedure TMainFrm.LNumReaderMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin LNumReader.Font.Color := clPurple; end; procedure TMainFrm.LAuthorNameMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin LAuthorName.Font.Color := clPurple; end; procedure TMainFrm.LAuthorNameMouseLeave(Sender: TObject); begin LAuthorName.Font.Color := clBlue; end; procedure TMainFrm.LTepographyMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin LTepography.Font.Color := clPurple; end; procedure TMainFrm.LTepographyMouseLeave(Sender: TObject); begin LTepography.Font.Color := clBlue; end; procedure TMainFrm.LLitMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin LLit.Font.Color := clPurple; end; procedure TMainFrm.LLitMouseLeave(Sender: TObject); begin LLit.Font.Color := clBlue; end; procedure TMainFrm.LAuthorNameClick(Sender: TObject); begin Application.CreateForm( TAuthorFrm, AuthorFrm ); AuthorFrm.ShowModal; end; procedure TMainFrm.LTepographyClick(Sender: TObject); begin ActiveWnd := 4; Application.CreateForm( TTepFrm, TepFrm ); TepFrm.ShowModal; end; procedure TMainFrm.LLitClick(Sender: TObject); begin if LitTypeCB.ItemIndex = -1 then begin MessageDlg( Не выбран тип литературы!, mtError, [mbOk], 0 ); exit; end; Application.CreateForm( TLitFrm, LitFrm ); LitFrm.ShowModal; end; procedure TMainFrm.LitTypeCBChange(Sender: TObject); begin DelEditFields; if LitTypeCB.ItemIndex