Внедрение автоматизированного рабочего места ОАО "Уфалейникель" Серовский рудник
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
rClickПроцедура обработки события выбора пункта меню Акт об использовании МЦSender: TObjectTMenuBuh.AktSpisClickПроцедура обработки события выбора пункта меню Акт о сдаче готовой продукцииSender: TObjectTMenuBuh.InvVedomClickПроцедура обработки события выбора пункта меню Инвентаризац. ведомостьSender: TObjectTOtchet.Button1ClickПроцедура обработки события нажатой кнопкиSender: TObjectTOtchet.FormCloseПроцедура закрытия формы OtchetSender: TObject; var Action: TCloseAction
Описание запросов, разработанных для формирования текстовых отчетов, для манипулирования данными, представлены в таблице 3.17:
Таблица 3.17
Описание запросов
НазначениеФункцииТекст запросаВывод документа Инвентариза-ционная ведомостьГруппировка данных по складу, цеху, расчет количественных и суммовых остатков МЦSELECT MC.Name_mc, MC.N_k, Ed_izm.Usl, MC.Uch_p, If([Inv_ras_ca]![Sum-kol] Is Null,0,[Inv_ras_c]![Sum-kol]-[Inv_ras_ca]![Sum-kol]) AS Fact, [MC]![Uch_p]*[Fact] AS Summa, Inv_ras_c.SchFROM Ed_izm INNER JOIN ((Inv_ras_c LEFT JOIN Inv_ras_ca ON Inv_ras_c.Id_mc = Inv_ras_ca.Id_mc) INNER JOIN MC ON Inv_ras_c.Id_mc = MC.Id_mc) ON Ed_izm.Id_ei = MC.Id_ei; FROM SF_TN INNER JOIN (MC INNER JOIN Zap_sf ON MC.Id_mc = Zap_sf.Id_mc) ON SF_TN.Id_sf = Zap_sf.Id_sfGROUP BY Zap_sf.Id_mc, MC.Uch_p, SF_TN.VidHAVING (((SF_TN.Vid)=True));Вывод документа Накладная на внутреннее перемещениеВыбор данных о перемещении МЦ от складу к цеху из лимитно-заборной картыPARAMETERS n Long;SELECT Nakl.Num_nakl, Nakl.Data, MC.Name_mc, Ed_izm.Usl, Zap_nakl.kol, MC.Uch_p, [Uch_p]*[kol] AS SummaPodrazdel.Ruk_p, Podrazdel.Name_p, Podrazdel_1.Ruk_p, Podrazdel_1.Name_pFROM Podrazdel AS Podrazdel_1 INNER JOIN ((Ed_izm INNER JOIN MC ON Ed_izm.Id_ei = MC.Id_ei) INNER JOIN ((Podrazdel INNER JOIN Nakl ON Podrazdel.Id_p = Nakl.Otk) INNER JOIN Zap_nakl ON Nakl.Id_nakl = Zap_nakl.Id_nakl) ON MC.Id_mc = Zap_nakl.Id_mc) ON Podrazdel_1.Id_p = Nakl.Kom WHERE (((Nakl.Num_nakl)=[n]));Вывод документа Акт о сдаче готовой продукции Формирование данных об изготовленной продукции за определенный месяцPARAMETERS np Long;SELECT Podrazdel.Name_p, Podrazdel.Ruk_p, Post_pok.Name_pp, Act.Prod, Sum(Zap_act.Price) AS [Sum-Price]FROM Post_pok INNER JOIN (Podrazdel INNER JOIN ((Ed_izm INNER JOIN MC ON Ed_izm.Id_ei = MC.Id_ei) INNER JOIN (Act INNER JOIN Zap_act ON Act.Id_act = Zap_act.Id_act) ON MC.Id_mc = Zap_act.Id_mc) ON Podrazdel.Id_p = Act.Podr) ON Post_pok.Id_pp = Act.Potr GROUP BY Podrazdel.Name_p, Podrazdel.Ruk_p, Post_pok.Name_pp, Вывод документа КалькуляцияФормирование данных об продукции, изготавливаемой цехомPARAMETERS n Long;SELECT Act.N_act, Post_pok.Name_pp, Act.Ozp, Act.Nozp, Nalog.Rate_n, Act.Nras, MC.Name_mc, Ed_izm.Usl, Zap_act.kol, Zap_act.Price, [Price]*[kol] AS Summa FROM Post_pok INNER JOIN (Nalog INNER JOIN ((Ed_izm INNER JOIN MC ON Ed_izm.Id_ei = MC.Id_ei) INNER JOIN (Act INNER JOIN Zap_act ON Act.Id_act = Zap_act.Id_act) ON MC.Id_mc = Zap_act.Id_mc) ON Nalog.Id_nal = Act.Nal) ON Post_pok.Id_pp = Act.Potr WHERE (((Act.N_act)=[n]));Вывод формы ПроверкаПодсчет приход МЦ за определенный месяц по складу, бухгалтерии, выявление ошибкиSELECT SF_TN.Num_sf, SF_TN.Vid, Sum([Zap_sf]![Kol_vo]*[Zap_sf]![Price]) AS Summa FROM SF_TN INNER JOIN Zap_sf ON SF_TN.Id_sf = Zap_sf.Id_sf GROUP BY SF_TN.Num_sf, SF_TN.Vid HAVING (((SF_TN.Vid)=False)); SELECT SF_TN.Num_sf, SF_TN.Vid, Sum([Zap_sf]![Kol_vo]*[Zap_sf]![Price]) AS Summa FROM SF_TN INNER JOIN Zap_sf ON SF_TN.Id_sf = Zap_sf.Id_sf GROUP BY SF_TN.Num_sf, SF_TN.Vid HAVING (((SF_TN.Vid)=True)); SELECT prov2_b.[Sum-Summa], prov2_s.[Sum-Summa], [prov2_b.Sum-Summa]-[prov2_s.Sum-Summa] AS Cpr FROM prov2_b, prov2_s;Вывод документа Отчет о движении МЦФормирование данных о наличие, приходе, расходе и остатке МЦ по складу, цехуPARAMETERS m Long; SELECT Post_pok.Name_pp, Month([Data]) AS Mes, Sum([MC]![Uch_p]*[Zap_act]![kol]) AS Summa FROM Post_pok INNER JOIN ((Ed_izm INNER JOIN MC ON Ed_izm.Id_ei = MC.Id_ei) INNER JOIN (Act INNER JOIN Zap_act ON Act.Id_act = Zap_act.Id_act) ON MC.Id_mc = Zap_act.Id_mc) ON Post_pok.Id_pp = Act.Potr GROUP BY Post_pok.Name_pp, Month([Data]) HAVING (((Month([Data]))=[m]));
3.6 Разработка руководство пользователя
Назначение и условия применения программы
Автоматизированная система учёта материальных ценностей разработана для автоматизации деятельности по учету материальных ценностей и ускорения решения задач, связанных с учетом материальных ценностей [2, c.8].
Программа выполняет следующие функции:
ввод, удаление и корректировка данных;
контроль вводимых данных, их накопление и хранение;
поиск информации в БД;
формирование, просмотр и печать выходных документов.
Подготовка к работе
При подготовке к работе необходимо проверить соответствие программных и технических средств. Далее требуется скопировать с гибкого диска на жесткий файл исполняемый модуль UMC.exe. Затем скопировать в эту же директорию базу данных UMC.mdb. Для запуска программы выбрать файл UMC.exe и двойным щелчком мыши запустить программу. На экране появится диалоговое окно, которое позволит выбрать необходимый АРМ для дальнейшей работы (рисунок 3.2).
Для работы с системой необходимо наличие программы Access, так как через нее загружается база данных проекта.
Описание операций обработки данных
Описание операций технологического процесса обработки данных представлено в таблице 3.18.
Рисунок 3.2 - Выбор рабочего места
Таблица 3.18
Описание операций технологического процесса обработки данных
Название операцииУсловия выполненияПодготовительные и основные действия пользователяНачало работы АРМНаличие и целостность файлов с БД1. Запустить UMC.exe. 2. Выбрать АРМ и нажать кнопку Войти. 3. Выбрать меню Файл далее Открыть БД. 4. Выбрать каталог, в котором находится файл базы данных UMC.mdb. 4. Щелкнуть левой клавишей мыши на файле базы данных.Выбор пользовательской функции1. Выбрать курсором необходимый пункт меню. 2. Щелкнуть левой кнопкой мышиРабота со справочникамиВводимые данные должны соответствовать типам полей; для полей со списками должны быть подготовлены соответствующие источники данных (см. примеры ниже)1. Открывается справочник путем выбора пункта меню Работа с БД далее Справочники. 2. Выбираем необходимый справочник 3. Переход по записям формы осуществляется с помощью кнопок в нижней части формы. 4. Ввод и корректировка производится путем выбора поля и ввода в него данных с клавиатуры. Ввод значения с помощью полей со списками: выбор нужного элемента списка, ввод либо клавишей Enter, либо щелчком мыши. 5. С помощью кнопок, расположенных на панели управления можно осуществлять операции сортировки, поиска, удаления, добавления,