3 Разработка информационной системы автоматизированного рабочего места менеджера по приему заказов на предприятии тоо «Стеклотрейд»
-
Общие принципы построения информационной системы
Любые информационные системы базируются на базах данных.
Основные идеи современной информационной технологии базируются на концепции баз данных. Согласно данной концепции, основой информационной технологии являются данные, организованные в базе данных, адекватно отражающей реальность действительности в той или иной предметной области и обеспечивающие пользователя актуальной информацией в соответствующей предметной области.
В результате анализа предметной области создается описывающая ее модель данных. База данных определяется как совокупность данных, организованных по определенным правилам. Фактически база данных предназначена для хранения информации по некоторой предметной области, поэтому структура базы данных и ее состав определяются на основе анализа предметной области в соответствии с поставленной задачей.
Следует иметь в виду, что даже относящиеся к одной предметной области базы данных могут оказаться различными в зависимости от специфики поставленной задачи: назначения базы данных, необходимого количества хранимых и обрабатываемых данных, необходимости связи с другими базами данных, учета имеющегося документооборота и так далее.
На практике, особенно при создании небольших баз данных, модель предметной области сразу же определяется в виде набора таблиц конкретной системы управления базами данных. Эти таблицы соответствуют объектам и связям между ними. Каждая таблица обычно представляет собой отдельный файл, в котором находится описание структуры данных и собственно данные. При проектировании информационных систем, необходимо в первую очередь чтобы в базе данных отражалась наиболее полная информация, для принятия решений или для создания новых данных на основе имеющихся.
При выборе типа используемых данных, необходимо исходить в первую очередь из возможных значений в них, кроме того, необходимо чтобы эти значения предоставляли наиболее полную информацию, для принятия решений или для создания новых данных на основе имеющихся. В результате изучения данных, строятся цели, функции, задачи проектируемой информационной системы.
-
Реализация проекта описания разработки программного приложения
ИС состоит из 15 форм. На первой форме расположено меню программы, которое состоит из пунктов:
-
Опции;
-
Заказы;
-
Отчет;
-
настройка (настройка базы данных, паролей);
-
выход.
Первая форма является основной. На ней расположено главное меню программы, из которой осуществляется навигация по всей программе (см. рисунок 3.1).
Рисунок 3.1. Главное меню программы
Работа программы начинается с ввода пароля под нужной учетной записью.
При запуске открывается окно входа, оно показано на рисунке 3.2
Рисунок 3.2. Окно входа в систему
После правильного входа в систему открывается главное окно программы (см. Рисунок 3.3), в противном случае выходит сообщение о неверном введенном пароле (см. Рисунок 3.4).
Рисунок 3.3. Главная форма программы
Рисунок 3.4. Окно входа в систему.
Меню главной формы состоит из пяти следующих компонентов представленных на рисунке 3.5.
Рисунок 3.5. Меню главной формы
Далее разберем каждый пункт подробней.
Пункт «Опции». Содержит полную информацию о клиентах, реализуемых товарах, предоставляемых услугах, и стоимости на них. При клике на каком либо разделе, в главном окне открывается таблица с содержанием выбранного журнала.
Данный пункт так назван потому, как открывшуюся информацию можно не только просматривать, но и редактировать, удалять, пополнять новой. Пример описанных действий показан на рисунках 3.6, 3.7.
Рисунок 3.6. Редактирование записи
Добавления осуществляются согласно коду программы:
procedure TForm1.Button3Click(Sender: TObject);
begin
if form1.DBGrid1.DataSource=datamodule4.DS_klienty then
form3.Show else
if form1.DBGrid1.DataSource=datamodule4.DS_obw_zakazy then
form2.Show else form6.Show;
end;
В зависимости от того, какой журнал открыт, для добавления открываются разные окна.
В первом случае (Журнал Клиенты) открывается форма, показанная ранее на рисунке 3.7
В окне добавления в необходимые поля «Организация/ФИО», «Телефон» записывается новая информация и фиксируется кнопкой «Сохранить».
Рисунок 3.7. Добавление записи
Организация ее работы в программе представлена следующим образом:
procedure TForm3.Button1Click(Sender: TObject);
begin
if (form3.Edit_FIO.Text='')or(form3.Edit_tel.Text='') then ShowMessage('Не заполнены обязательные поля!')
else begin
datamodule4.AT_klienty.open;
datamodule4.AT_klienty.Insert;
datamodule4.AT_klienty.FieldByName('FIO').AsString:=form3.Edit_FIO.Text;
datamodule4.AT_klienty.FieldByName('tel').AsString:=form3.Edit_tel.Text;
datamodule4.AT_klienty.FieldByName('adres').AsString:=form3.Edit_adres.Text;
datamodule4.AT_klienty.FieldByName('komment').AsString:=form3.Edit_komment.Text;
datamodule4.AT_klienty.Post;
datamodule4.AT_klienty.Close;
form1.ToolBar1.Visible:=true;
form1.DBGrid1.Visible:=true;
form1.DBGrid1.DataSource:=datamodule4.DS_klienty;
datamodule4.AT_klienty.Active:=true;
form3.Close;
end ;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
form3.Edit_FIO.Clear;
form3.Edit_tel.Clear;
form3.Edit_adres.Clear;
form3.Edit_komment.Clear;
form3.Close;
end;
Во втором случае при отображении журналов товаров и услуг открывается форма, представленная на рисунке 3.8
Рисунок 3.8. Добавление нового вида товара, услуги
В данном случае после вписывания Названия нового вида товара, услуги и цены, необходимо выбрать группу, к которой относится данный товар, услуга.
В последнем случае, функция «Добавить» полезна, при работе с базой данных по заказам. Просмотреть их можно, открыв второй пункт меню (см. Рисунок 3.9), это будет подробно описано ниже.
Рисунок 3.9. Пункт меню «Просмотр заказов»
При добавлении какой либо информации в структуре форм Добавление используются не сложные компоненты из стандартного набора Delphi. Редактирование записей организовано чуть сложней. Здесь для создания формы использовались компоненты DBEdit, с помощью которых реализовано само редактирование, напрямую в базе. Форма редактирование по клиентам показана на рисунк 3.10.
Рисунок 3.10. Форма изменения информации по клиентам
Код работы окна редактирования информации по клиентам:
var
Form9: TForm9; l,m,n,o:string;
implementation
uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit10;
procedure TForm9.Button1Click(Sender: TObject);
begin
datamodule4.AT_klienty.Post;
close;
end;
procedure TForm9.Button2Click(Sender: TObject);
begin
DBEdit_FIO.Field.Text:= l;
DBEdit_tel.Field.Text:= m;
DBEdit_adres.Field.Text:= n;
DBEdit_komment.Field.Text:= o;
close;
end;
procedure TForm9.FormShow(Sender: TObject);
begin
l:= DBEdit_FIO.Field.Text;
m:= DBEdit_tel.Field.Text;
n:=DBEdit_adres.Field.Text;
o:=DBEdit_komment.Field.Text;
datamodule4.AT_klienty.Open;
datamodule4.AT_klienty.edit;
end;
end.
Для редактирования товаров/услуг в создании формы также использовался компонент DBEdit. Пример окна редактирования приведен ниже на рисунке 3.11.
Рисунок 3.11. Редактирование товаров, услуг
При нажатии на кнопку удаление и выделением строки производится удаление записи из базы данных (рисунок 3.12).
Рисунок 3.12. Удаление строки из БД
Переходим к следующему пункту меню «Заказы». В данном пункте имеется 3 подпункта – «Новый», «Поиск», «Просмотр» (см. рисунок 3.13). При нажатии на подпункт «Новый», открывается окно заполнения нового заказа (см. рисунок 3.14).
Рисунок 3.13. Пункт меню «Новый заказ»
Рисунок 3.14. Окно добавления заказа
Рассмотрим данную форму. Для ее создания использовались компоненты стандартной вкладки, DateTimePicker, StringGrid.
Сверху формы расположено поле номера заказа. Оно выставляется автоматически, поэтому ничего в нем записывать и менять не нужно. Дата- выставляется вручную. Далее выпадающий список уже имеющихся в базе клиентов, под ним – выбор группы товаров/услуг. В зависимости от того какая группа будет выбрана, такие товары/услуги будут отображаться в выпадающем списке с наименованиями. Далее необходимо заполнить ширину, длину, количество. Все остальное заполняется автоматически. Когда графы заполнены, нужно добавить наименование в заказ, для необходимо нажать «Добавить в заказ». Все что было в графах, переместилось в таблицу, а графы очистились. Добавилась первая строка в заказ. Таким образом, набирается вся заявка. И в завершении фиксируется кнопкой «Сохранить». Пример заполненной, но еще не сохраненной заявки представлен на рисунке 3.15. После этого заказ добавляется в базу, таблица очищается, и окно добавления заказа готово к новому набору заявки. При закрытии несохраненная заявка стирается, и во вновь открытом окне все поля очищаются.
Рисунок 3.15. Заполненная, но не сохраненная заявка
Отображение информации из базы данных в элементах «Выпадающий список» в программе реализована следующим образом:
if form2.ComboBox_gruppa.ItemIndex=0 then
begin
form2.Label_wirina.Visible:=true;
form2.Label_dlina.Visible:=true;
form2.Edit_wirina.Visible:=true;
form2.Edit_dlina.Visible:=true;
datamodule4.AT_steklo.Open;
while not datamodule4.AT_steklo.Eof do
begin
form2.ComboBox_naim.Items.Add(datamodule4.AT_steklo.FieldByName('naim').AsString);
datamodule4.AT_steklo.Next;
end;
datamodule4.AT_steklo.close;
end;
if form2.ComboBox_gruppa.ItemIndex=1 then
begin
form2.Label_wirina.Visible:=true;
form2.Label_dlina.Visible:=true;
form2.Edit_wirina.Visible:=true;
form2.Edit_dlina.Visible:=true;
datamodule4.AT_reflenka.Open;
while not datamodule4.AT_reflenka.Eof do
begin
form2.ComboBox_naim.Items.Add(datamodule4.AT_reflenka.FieldByName('naim').AsString);
datamodule4.AT_reflenka.Next;
end;
datamodule4.AT_reflenka.close;
end;
if form2.ComboBox_gruppa.ItemIndex=2 then
begin
form2.Label_wirina.Visible:=true;
form2.Label_dlina.Visible:=true;
form2.Edit_wirina.Visible:=true;
form2.Edit_dlina.Visible:=true;
datamodule4.AT_LDSP.Open;
while not datamodule4.AT_LDSP.Eof do
begin
form2.ComboBox_naim.Items.Add(datamodule4.AT_LDSP.FieldByName('naim').AsString);
datamodule4.AT_LDSP.Next;
end;
datamodule4.AT_LDSP.close;
end;
if form2.ComboBox_gruppa.ItemIndex=3 then
begin
form2.Label_wirina.Visible:=false;
form2.Label_dlina.Visible:=false;
form2.Edit_wirina.Visible:=false;
form2.Edit_dlina.Visible:=false;
datamodule4.AT_LDSP.Open;
while not datamodule4.AT_LDSP.Eof do
begin
form2.ComboBox_naim.Items.Add(datamodule4.AT_LDSP.FieldByName('naim').AsString);
datamodule4.AT_LDSP.Next;
end;
datamodule4.AT_LDSP.close;
end;
if form2.ComboBox_gruppa.ItemIndex=4 then
begin
datamodule4.AT_xud_oform.Open;
while not datamodule4.AT_xud_oform.Eof do
begin
form2.ComboBox_naim.Items.Add(datamodule4.AT_xud_oform.FieldByName('naim_uslugi').AsString);
datamodule4.AT_xud_oform.Next;
end;
datamodule4.AT_xud_oform.close;
end;
if form2.ComboBox_gruppa.ItemIndex=5 then
begin
datamodule4.AT_uslugi.Open;
while not datamodule4.AT_uslugi.Eof do
begin
form2.ComboBox_naim.Items.Add(datamodule4.AT_uslugi.FieldByName('naim_uslugi').AsString);
datamodule4.AT_uslugi.Next;
end;
datamodule4.AT_uslugi.close;
end;
if form2.ComboBox_gruppa.ItemIndex=6 then
begin
datamodule4.AT_pro4ee.Open;
while not datamodule4.AT_pro4ee.Eof do
begin
form2.ComboBox_naim.Items.Add(datamodule4.AT_pro4ee.FieldByName('Pro4ee').AsString);
datamodule4.AT_pro4ee.Next;
end;
datamodule4.AT_pro4ee.close;
end;
end;
В том же пункте меню «Заказы» есть подпункт «Поиск». При нажатии на подпункт «Поиск»-«по номеру», или «Поиск»- «по клиенту», открывается окно поиска. Оно показано на рисунке 3.16.
Рисунок 3.16. Окно поиска
После ввода номера искомого заказа, или фамилии клиента в списке заказов отображаются заказы, подходящие под условия поиска.
Нажав в пункте «Заказы» подпункт «Просмотр», в главном окне программы отобразится перечень оформленных заказов. Их, также как и журналы клиентов, или товары, можно редактировать и удалять. При нажатии на кнопку «Добавить», откроется первое окно, рассмотренное ранее (Рисунок 3.15). Для создания редактирования заказов потребовалось создать две формы.
При нажатии на кнопку «Редактировать», откроется первое окно, показанное на Рисунке 3.17.
Рисунок 3.17. Изменение заказа
В данном окне можно изменить заказчика, и заказанные им наименования товаров, или предоставленные ему услуги, но нельзя изменить дату и номер заказа. Для изменение информации по наименованиям и услугам, нужно выделить строку в расположенной ниже таблице и нажать на кнопку «Изменить данные по товарам/услугам». После чего откроется второе окно, представленное на рисунке 3.18.
Рисунок 3.18. Изменение содержимого заказа
Данная форма также как и другие формы редактирования, содержит компоненты DB Edit, DBCombobox, DBText. При необходимости изменить наименование – нужно выбрать группу, затем наименование вписать размеры кол-во и нажать «Сохранить». Если необходимо поменять размеры то, не меняя наименования, поменять размеры и нажать сохранить.
Следующий пункт меню – «Отчет» (см. рисунок 3.19). При нажатии на него, появляется окно ввода периода, за который мы хотим узнать, сколько реализовано товара и предоставлено услуг. Данные отчеты выводятся в программе MS Excel. Она удобна, знакома, проста в использовании, и с нее легко форматировать под печать (см. рисунок 3.20).
Рисунок 3.19. Кнопка вывода отчета
Рисунок 3.20. Отчет в Ecxel
Следующий пункт меню «Настройка» с подпунктом «Базы данных». Этот подпункт предназначен на случай, когда ИС не настроена. Нажав на данный раздел открывается диалоговое окно, для того чтобы пользователь мог указать нахождения рабочей БД. Пример настройки представлен на рисунке 3.21.
Рисунок 3.21. Настройка БД
Программно эта настройка реализуется следующим образом:
procedure TForm1.N11Click(Sender: TObject);
var f1,f2,f3: string;
fff: textfile;
begin
f1:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=';
f2:=';Persist Security Info=False';
assignfile (fff,'iniBD.ico');
rewrite(fff);
if opendialog1.Execute then begin
f3:=f1+opendialog1.FileName+f2;
datamodule4.ADOConnection1.ConnectionString:=f3;
write (fff,f3);
closefile (fff);
end;
end;
При нажатии следующего подпункта «Паролей», открывается подменю «Изменить», или «Добавить пользователя». При выборе первого, появляется окно настройки замены пароля, показанное на рисунке 3.22.
Рисунок 3.22. Окно настройки пароля
В данном окне необходимо согласно выбранной учетной записи, указать старый пароль, и новый, который необходимо оставить.
Последний пункт меню «Выход». При нажатии на него, реализуется выход из программы.