Автоматизированная информационная система учета экономической деятельности производственного предприятия

Следующим пунктом меню является Справочники: Подразделения, Склад, Контрагенты, Вид деятельности, Счет, Комплектующие и Номенклатура.

Подразделения - имеет вид:

Рисунок 7 - Форма Подразделения

При загрузки данной формы выполняется следующая процедура:

procedure TForm11.FormShow(Sender: TObject);

begin

DM.ADOQuery4.Close;

DM.ADOQuery4.SQL.Clear;

DM.ADOQuery4.SQL.Add('select * from SPodraz');

DM.ADOQuery4.Open;

end;

Данная процедура обновляет запрос к базе данных. При помощи навигатора можно добавлять, редактировать и удалять записи из справочника.

Остальные справочники представлены в приложении А.

Следующий пункт меню Операции: Реализация товара, Списания товара.

Реализация товара - открывает следующую форму:

Рисунок 8 - Форма Реализация товара

На данной форме находятся кнопки Реализовать и Выход. Реализовать - выполняет следующую процедуру:

procedure TForm27.sButton1Click(Sender: TObject);

var k,s,sbn,ssn:integer; S0:string;

begin

if (sEdit1.Text='') or (sEdit2.Text='') or (sEdit3.Text='') or (sEdit4.Text='') or (sEdit5.Text='') or (sComboBox1.Text='') or (sComboBox2.Text='') or (sComboBox3.Text='') or (sComboBox4.Text='') or (sComboBox5.Text='') or (sDateEdit1.Date=0) then ShowMessage('Заполните пустые поля') else begin

DM.ADOQuery10.Close;

DM.ADOQuery10.SQL.Clear;

DM.ADOQuery10.SQL.Add('select * from Sklad');

DM.ADOQuery10.SQL.Add('where Name="'+sComboBox5.Text+'" and Sklad="'+sComboBox3.Text+'" and Profit="'+sEdit5.Text+'"');

DM.ADOQuery10.Open;

if DM.ADOQuery10.RecordCount=1 then begin

k:=strtoint(DM.ADOQuery10.FieldValues['Koll'])-strtoint(sEdit1.Text);

s:=strtoint(DM.ADOQuery10.FieldValues['Sebest'])-strtoint(sEdit2.Text);

sbn:=strtoint(DM.ADOQuery10.FieldValues['SummaBN'])-strtoint(sEdit3.Text);

ssn:=strtoint(DM.ADOQuery10.FieldValues['SummaSN'])-strtoint(sEdit4.Text);

if k>=0 then begin DM.ADOQuery10.Edit;

DM.ADOQuery10.FieldValues['Koll']:=inttostr(k);

DM.ADOQuery10.FieldValues['Sebest']:=inttostr(s);

DM.ADOQuery10.FieldValues['SummaBN']:=inttostr(sbn);

DM.ADOQuery10.FieldValues['SummaSN']:=inttostr(ssn);

DM.ADOQuery10.Post;

DM.ADOQuery12.Close;

DM.ADOQuery12.SQL.Clear;

DM.ADOQuery12.SQL.Add('select * from Realiz');

DM.ADOQuery12.Open;

DM.ADOQuery12.Append;

S0:=inttostr(PDJXPEditDate1.Month)+'.'+inttostr(PDJXPEditDate1.Year);

DM.ADOQuery12.FieldValues['Data0']:=S0;

DM.ADOQuery12.FieldValues['Podraz']:=sComboBox1.Text;

DM.ADOQuery12.FieldValues['VidD']:=sComboBox2.Text;

DM.ADOQuery12.FieldValues['Sklad']:=sComboBox3.Text;

DM.ADOQuery12.FieldValues['Nomen']:=sComboBox4.Text;

DM.ADOQuery12.FieldValues['Name']:=sComboBox5.Text;

DM.ADOQuery12.FieldValues['Koll']:=sEdit1.Text;

DM.ADOQuery12.FieldValues['Sebest']:=sEdit2.Text;

DM.ADOQuery12.FieldValues['SummaBN']:=sEdit3.Text;

DM.ADOQuery12.FieldValues['SummaSN']:=sEdit4.Text;

DM.ADOQuery12.FieldValues['Profit']:=sEdit5.Text;

DM.ADOQuery12.FieldValues['Data']:=datetostr(sDateEdit1.Date);

DM.ADOQuery12.Post;

ShowMessage('Товар реализован в количестве '+sEdit1.Text+' шт');

End else

ShowMessage('Количество товара недостаточно для реализации');

End else ShowMessage('Товар нет на складе'); end;

end;

Данная процедура позволяет реализовать товар со склада.

При выборе списка выполняется следующая процедура:

procedure TForm27.sComboBox1Enter(Sender: TObject);

var i,ItemWidth:Integer;

begin

sComboBox1.Clear;

DM.ADOQuery6.Close;

DM.ADOQuery6.SQL.Clear;

DM.ADOQuery6.SQL.Add('select * from SPodraz');

DM.ADOQuery6.Open;

DM.ADOQuery6.First;

while not DM.ADOQuery6.Eof do begin

sComboBox1.Items.Add(DM.ADOQuery6.FieldValues['Name']);

DM.ADOQuery6.Next;

end;

ItemWidth := 0;

with sCombobox1 do begin

for i := 0 to Items.Count - 1 do

if (Form27.Canvas.TextWidth(Items[i]) <> ItemWidth) then

ItemWidth := Form27.Canvas.TextWidth((Items[i])) + 20;

Perform(CB_SETDROPPEDWIDTH, ItemWidth, 0);

end;

end;

Данная процедура выполняет запрос к таблице и заполняет список.

Форма Списания товара похожа на предыдущую формы. Она изображена в приложении А.

Предпоследний пункт меню Отчеты: Материальный отчет, Прайс, Отчет о реализации.

Материальный отчет - открывает соответствующую форму:

автоматизированный рабочий место база

Рисунок 9 - Форма Материальный отчет

На данной форме находятся кнопки Выход и Сформировать. Кнопка сформировать выполняет следующую процедуру:

procedure TForm14.sButton1Click(Sender: TObject);

var Sheet,Colum:Variant; i,i1:integer; S,SS,SS1:string;

begin

SS:=sComboBox4.Text+'.'+sComboBox5.Text;

DM.ADOQuery13.Close;

DM.ADOQuery13.SQL.Clear;

DM.ADOQuery13.SQL.Add('select * from Nomenklatur');

DM.ADOQuery13.SQL.Add('where Sthet="'+sComboBox1.Text+'" and Sklad="'+sComboBox2.Text+'" and Nom="'+sComboBox3.Text+'" and Data0="'+SS+'"');

DM.ADOQuery13.Open;

if DM.ADOQuery13.RecordCount<>0 then begin

S:=ExtractFilepath(Application.ExeName); S:=S+'data\1.xlt';

ExcelApplication1.Connect;

ExcelApplication1.Workbooks.Add(S,-4167);

ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);

Sheet:=ExcelApplication1.Workbooks[1].WorkSheets['Лист1'];

i:=7; i1:=1;

Sheet.Cells[3,1]:='Месяц: '+sComboBox4.Text+'; Год: '+sComboBox5.Text+';';

Sheet.Cells[2,1]:='По счету: '+sComboBox1.Text+', Склад: '+sComboBox2.Text+', Номенклатура: '+sComboBox3.Text;

repeat

Sheet.Cells[i,1]:=i1;

Sheet.Cells[i,2]:=DM.ADOQuery13.FieldValues['Name'];

Sheet.Cells[i,3]:=DM.ADOQuery13.FieldValues['Nambor'];

Sheet.Cells[i,4]:=DM.ADOQuery13.FieldValues['EdIsmer'];

Sheet.Cells[i,5]:=DM.ADOQuery13.FieldValues['ONPUthCena'];

inc(i); inc(i1); DM.ADOQuery13.Next;

until DM.ADOQuery13.Eof;

ExcelApplication1.Visible[-4167]:=True;

end;end;

Данная процедура создает таблицу в Excel и заполняет ее данными из базы.

Последний пункт меню Справка.

Справка позволяет открыть О программе в, которой находится информация о среде разработки и о программе в целом, и Помощь - открывает вордовский документ, который содержит руководство пользователя.

Форма О программе имеет вид:



Рисунок 10 - Форма О программе

При разработки своей программы я в основном использовал для запросов язык SQL, для соблюдения условий и осуществления алгоритма язык Delphi 7.

2.5 Руководство пользователя

Программа рассчитана для пользователя не имеющего представление о работе с базами данных.

При загрузки, программы появляется форма Авторизация, при помощи которой пользователь может защитить данные базы данных. После ввода правильного пароля открывается главная форма, представленная выше. В ней можно при помощи меню Файл выйти из программы, редактировать пароль и логин пользователя, а также при помощи меню справка получить информацию о программы, а при помощи меню Отчеты распечатать необходимые отчеты. Также при помощи меню Правка, Просмотр и Справочники можно редактировать базу данных.

Меню Файл содержит 2 подменю Выход, Авторизация:

Авторизация - он открывает форму Авторизация, представленную выше. На данной форме находится навигатор, который позволяет переходить по записям и редактировать их.

Меню Правка содержит 6 подменю: Прайс, Номенклатура, Персонал, Склад, Реализованный товар, Списанный товар:

Прайс - он открывает форму Прайс, представленную выше. На данной форме находятся 7 кнопок: Добавить, Удалить, Редактировать, Обновить, Сохранить, Отмена и Выход.

При выборе кнопки Добавить Таблица переходит в режим добавления записи. Кнопкой Удалить можно удалить запись. При выборе кнопки Выход можно, закрыть форму. Кнопка Редактировать переводит таблицу в режим редактирования. Кнопка Сохранить - сохраняет запись в базу данных. Навигатор позволяет переходить по записям.

Остальные формы похожи и описывать их нет смысла.

Следующий пункт меню Просмотр: Прайс, Номенклатура, Персонал, Склад, Реализованный товар, Списанный товар.

Прайс - он открывает форму Прайс, представленную выше. На данной форме находятся 2 кнопки: Поиск и Обновить. Кнопкой Поиск открывает форму поиска представленную выше. Кнопка Обновить позволяет обновить запрос к базе. Навигатор позволяет переходить по записям.

Остальные формы похожи и описывать их нет смысла.

Следующий пункт меню Справочники: Подразделения, Склад, Контрагенты, Вид деятельности, Счет, Комплектующие и Номенклатура.

Подразделения - он открывает форму Подразделения, представленную выше. На данной форме находится навигатор, который позволяет редактировать, удалять и добавлять записи.

Остальные формы похожи и описывать их нет смысла.

Следующий пункт меню Операции: Реализация товара, Списания товара.

Реализация товара - он открывает форму Реализация товара, представленную выше. На данной форме находится 2 кнопки, который позволяют реализовать товар и закрыть форму.

Форма Списания товара похожа на предыдущую.

Следующий пункт меню Отчеты позволяет открыть отчеты по определенному критерию.

Меню Справка имеет два компонента О программе и Помощь. Эти формы содержат вспомогательную информацию о программе.

Удачного использования.

Предупреждение: без базы данных невозможна дальнейшая работа.

Ниже приведены основные окна для работы с программой (рисунок 11- 25)

Рисунок 11 - Форма Персонал

Рисунок 12 - Форма Прайс



Рисунок 13 - Форма Склад

Рисунок 14 - Форма Списанный товар

Рисунок 15 - Форма Реализованный товар



Рисунок 16 - Форма Прайс

Рисунок 17 - Форма Персонал

Рисунок 18 - Форма Склад



Рисунок 19 - Форма Реализованный товар

Рисунок 20 - Форма Списанный товар



Рисунок 21 - Форма Списания товара

Рисунок 22 - Форма Склад

Рисунок 23 - Форма Номенклатура

Рисунок 24 - Форма Контрагенты

Рисунок 25 - Форма Комплектующие

Рисунок 26 - Форма Отчет по реализации

Заключение

Данная дипломная работа посвящена разработке автоматизированного рабочего места для компьютерной фирмы.

В процессе разработки данной дипломной работы были получены следующие результаты:

Разработаны функциональные таблицы, предназначенные для хранения информации о кадрах. Для каждой таблицы определены соответствующие атрибуты (поля). Во всех таблицах для каждого атрибута выбран соответствующий тип данных и оптимальный размер хранимых в этих полях данных.

Для данной структуры базы данных, разработаны структура и функциональные модули АРМ, получен интерфейс пользователя, позволяющие пользователю работать с базой данных.

Из выше описанного следует, что задачи поставленные перед данной работой выполнены в полной мере.

Реализация данного проекта была проведена без привлечения мощных средств работы с базами необходимости знать о ней, чтобы успешно решать весь круг возникающих задач связанных с использованием информации хранимой базе данных. Более того, программный интерфейс максимально облегчает работу по обращению с базой данных. Даже обращение к базе данных со сложными запросами осуществляется в таком виде, что структура возвращаемых данных видна еще до его исполнения. СУБД самостоятельно тестирует находящиеся в базе данных записи и производит приведение базы данных к целостному состоянию, устраняя возможные ошибки. Все рутинные операции подобного рода берёт на себя машина, что без сомнения экономит усилия и время конечного пользователя.

При создании проекта учитывались самые насущные проблемы компьютерных фирм: поиск товара, изменение, контроль реализуемого и списанного товара, составление и печать отчетов. Они решаются в рамках данной СУБД, с максимальной простотой, удобством и скоростью. Программные продукты, подобные выше описанному, разрабатываются в единичном экземпляре, с учётом пожеланий и требований заказчика. Проектируемое автоматизированное рабочее место, разрабатывалось данных, которые очень громоздки, поскольку носят универсальный характер и к тому же требуют необходимую базу знаний по теории баз данных.

Использование мощных средств Delphi 7 по созданию приложений работающих в операционной системе Windows и в частности приложений баз данных, позволило создать программный продукт максимально ориентированный на конечного пользователя, который не искушен в вопросах теории баз данных. Вся необходимая работа по осуществлению методов доступа к информации хранимой в базе данных, её модификации, поддержании базы данных в целостном виде скрыта внутри и пользователю нет как учебное, но при незначительных доработках, может быть внедрена на практике и эффективно выполнять поставленные задачи.

Список использованной литературы

1. Когаловский М.Р., "Технология баз данных на персональных ЭВМ",

2. А.H. Hаумов, А.М. Вендров и др., "Системы управления базами данных и знаний", М.: Финансы и статистика, 1991г.

3. Аппак М.А., "Автоматизированные рабочие места на основе персональных ЭВМ", М.: 'Радио и связь', 1989 г.

4. Шумаков П. В. “Delphi 3.0 и создание баз данных”. Москва 1997г.

5. Дж. Мартин "Организация баз данных в вычислительных системах" М: Мир 1978г.

6. С.М. Диго "Проектирование и использования баз данных". Москва: Финансы и статистика 1995.

7. A.M. Епанешников. "Программирование в среде Delphi 2.0"

8. Баженова И.Ю. «Delphi 7».- Москва 2002г.

9. Бобровский С.Н. «Delphi 7». - Москва 2003г.

10. Бурлак Т.Н. «Безопасность работы на компьютере». Москва. Финансы и статистика 1998г.

11. В. Герман, А. Хомоненко «Delphi 7». БХВ - Санкт - Петербург, 2001г.

12. С.В. Глушаков, Д.В. Ломотько «Базы данных». Москва, ООО «Издательства АСТ» 2002г.

13. В.В. Фаронов «Delphi 7». Нолидж, 2001г.

14. А.Д. Хомоненко, В.М.Цыганков, М.Г. Мальцев «Бызы данных». Москва 2004г.

15. Автоматизированные информационные технологии в экономике: Уч./ Под ред. проф. Г.А. Титоренко. - М.: Компьютер, ЮНИТИ, 2008. - 400 с.

16. Бойко В.В., Савинков В.М. «Проектирование информационной базы автоматизированной системы на основе СУБД». М.: Финансы и статистика, 2002.

17. Проектирование информационной базы автоматизированной системы на основе СУБД/ Бойко В.В., Савинков В.М., Финансы и статистика, 2002.

18. Базы данных: Учеб. пособие для вузов. - Мн. Университетское, 2007.-271с.

19. Базы данных: Учебник для высших учебных заведений/ Хомоненко А.Д., Цыганков В.М., Мальцев М.Г./Под ред. проф. А.Д. Хомоненко. - 4-е изд., доп. и перераб. - СПб.: Корона принт, 2008.-736с.

20. Учебное пособие «Модели и проектирование баз данных», В.Д. Сибилев, Томск, 2002.

21. Крис Дейт. Введение в базы данных, 6-е изд. Киев, Диалектика, 2008

22. Василий Корняков Программирование документов и приложений MS Office в Delphi, 2005.

23. Учебное пособие «Теория систем и системный анализ», С.Н. Павлов, Томск, 2003, 134 с.

24. Учебное методическое пособие «Теория систем и системный анализ», Томск, 2003, 34 с.

25. Интернет-университет информационных технологий, курс «Проектирование информационных систем», http://www.intuit.ru/department/se/devis/1/.

26. «Бизнес-процессы, основные стандарты их описания», С.М. Ковалев, журнал «Справочник экономиста» №11'2009.

27. «Особенности автоматизации конструкторского и технологического проектирования в мебельном производстве», Павел Бунаков, журнал «САПР и графика» №7'2007.

28. Занимательное программирование: Delphi: Книга для детей, родителей и учителей./ Симонович С.В., Евсеев Г.А.,- М.: АСТ-ПРЕСС КНИГА: Инфорком-Пресс, 2005. - 368с.

29. Программирование документов и приложений MS Office в Delphi / Василий Корняков, 2005.

30. Петр Дарахвелидзе, Евгений Марков Программирование в Delphi7, 2009.

31. Программирование в Delphi7/ Дарахвелидзе П., Марков Е.СПб.: BHV-Петербург, 2003.

32. Программирование и отладка в Delphi./ Митчелл К. Керман, Пер. с англ. - М.: Издательский дом «Вильямс», 2008, 672с.

33. Delphi - Руководство разработчика./ Марко Кэнту, - М.: ДЭСС, 1999. - 752с.

34. Delphi 5. Руководство программиста./ Фаронов В.В., - М.: «Нолидж», 2001. - 880с.

35. Delphi 6. Учебный курс./ Фаронов В.В.,- М.: Издатель Молгачева С.В., 2001. - 672с.

36. Delphi 7/ Хомоненко А.Д. и др., /Под общ. ред. А.Д. Хомоненко. - СПб.: БХВ-Петербург, 2008. - 1216с.

37. Delphi 2006 на примерах/ Шупрута В.В.-СПб.:БХВ-Петербург, 2006.-528с.

38. Харитонова Ирина, Самоучитель Access 2000, Питер, 2010.

39. Пасько В. Microsoft Access 2000 (русифицированная версия). - К.: Издательская группа BHV, 2009 - 384 с.

40. Самоучитель Microsoft Access / Бекаревич Ю., Пушкина Н. СПб.: БХВ-Санкт-Петербург, 2009.

41. Эффективная работа с Microsoft Access 97/ Вейскас Д. -Спб: Питер Ком, 1999-976с.

42. Microsoft Access 2000/ Михеева В., Харитонова И.СПб.: БХВ-Санкт-Петербург, 2000.

43. Microsoft Access 2000 (русифицированная версия)/ Пасько В., К.: Издательская группа BHV, 1999 - 384 с.

44. SQL для “чайников” 4-е издание /Тейлор Ален,Г.: Пер. с англ.-М.: Издательский дом “Вильямс”, 2001-368с.

45. Майкл Штепнер, Теория построения баз данных. «Ирина», Киев 2008. - 545 с.

46. Зеленоградский А.Я. Базы данных. Справочное пособие. «Издательство Бином», 2001. - 768 с.

47. Кириллов В.В. Структуризованный язык запросов (SQL). - СПб.: ИТМО, 2004. - 80 с.

48. Немнюгин С. А. Объектно-ориентированное программирование - М.: Питер, 2010.

49. Мартин Груббер. Понимание SQL. - Москва, 1993 - 290с.

50. Т.А. Ильина. Программирование на Delphi 6 - М.: Питер, 2000.

51. В. В. Фаронов. Система программирования Delphi. - СПб.: БХВ-Петербург, 2003. - 912 с.

52. Сапронов В.В., Тихий П.В. Руководство по языкам программирования.- М. Нолидж, 2000.640с.

53. Лемех А.С. Автоматизированные рабочие станции - М. Нолидж, 2000.-740 с.

54. Хеслоп Б., Бадник Л. Delphi с самого начала. Санкт-Петербург: Питер, 2007г.

55. Баженова И.Ю. Язык программирования Delphi - М.: Диалог-МИФИ, 2007 -288с.

56. Ремизов Н. Справочник Delphi - М.: Питер, 2006.

57. Гаевский А. Разработка программных приложений на Delphi 6 - М.: Киев, 2009.

58. Змитрович А.И. Базы данных. Учебное пособие для вузов. - Мн. - Университетское, 2007. - 271с.

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