Автоматизированная информационная система учета офисной техники
Предпроектный анализ вопросов создания автоматизированной информационной системы. Проблемы представления и хранения данных. Существующие системы автоматизации учета офисной техники. Характеристика нормативно-справочной и входной оперативной информации.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 06.06.2016 |
| Размер файла | 1,8 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
public
{ Public declarations }
end;
var
fmProducers: TfmProducers;
implementation
uses uDM, DB, uEquipment;
{$R *.dfm}
procedure TfmProducers.FormShow(Sender: TObject);
begin
DM.dstProducers.Open;
DM.dstProducers.Sort := 'Производитель';
end;
procedure TfmProducers.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//Набор данных остается открытым, если открыты формы, где он используется:
if not fmEquipment.Showing then
DM.dstProducers.Close;
end;
procedure TfmProducers.bbtFirstClick(Sender: TObject);
begin
DM.dstProducers.First;
end;
procedure TfmProducers.bbtPriorClick(Sender: TObject);
begin
DM.dstProducers.Prior;
end;
procedure TfmProducers.bbtNextClick(Sender: TObject);
begin
DM.dstProducers.Next;
end;
procedure TfmProducers.bbtLastClick(Sender: TObject);
begin
DM.dstProducers.Last;
end;
procedure TfmProducers.bbtInsertClick(Sender: TObject);
begin
DM.dstProducers.Insert;
end;
procedure TfmProducers.bbtDeleteClick(Sender: TObject);
begin
if DM.dstProducers.RecordCount > 0 then
DM.dstProducers.Delete;
end;
procedure TfmProducers.bbtPostClick(Sender: TObject);
begin
if DM.dstProducers.State in [dsEdit, dsInsert] then
DM.dstProducers.Post;
end;
procedure TfmProducers.bbtExitClick(Sender: TObject);
begin
Close;
end;
end.
unit uReceipt;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, DBCtrls, Grids, DBGrids;
type
TfmReceipt = class(TForm)
Panel1: TPanel;
DBGrid1: TDBGrid;
bbtFirst: TBitBtn;
bbtPrior: TBitBtn;
bbtNext: TBitBtn;
bbtLast: TBitBtn;
bbtInsert: TBitBtn;
bbtDelete: TBitBtn;
bbtPost: TBitBtn;
bbtExit: TBitBtn;
bbtPrint: TBitBtn;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bbtFirstClick(Sender: TObject);
procedure bbtPriorClick(Sender: TObject);
procedure bbtNextClick(Sender: TObject);
procedure bbtLastClick(Sender: TObject);
procedure bbtInsertClick(Sender: TObject);
procedure bbtDeleteClick(Sender: TObject);
procedure bbtPostClick(Sender: TObject);
procedure bbtExitClick(Sender: TObject);
procedure bbtPrintClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmReceipt: TfmReceipt;
implementation
uses uDM, uMain, DB, uEquipment, uDocs;
{$R *.dfm}
procedure TfmReceipt.FormShow(Sender: TObject);
begin
DM.dstReceipt.Open;
end;
procedure TfmReceipt.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//Набор данных остается открытым, если открыты формы, где он используется:
if not fmEquipment.Showing then
DM.dstReceipt.Close;
end;
procedure TfmReceipt.bbtFirstClick(Sender: TObject);
begin
DM.dstReceipt.First;
end;
procedure TfmReceipt.bbtPriorClick(Sender: TObject);
begin
DM.dstReceipt.Prior;
end;
procedure TfmReceipt.bbtNextClick(Sender: TObject);
begin
DM.dstReceipt.Next;
end;
procedure TfmReceipt.bbtLastClick(Sender: TObject);
begin
DM.dstReceipt.Last;
end;
procedure TfmReceipt.bbtInsertClick(Sender: TObject);
begin
DM.dstReceipt.Insert;
end;
procedure TfmReceipt.bbtDeleteClick(Sender: TObject);
begin
if DM.dstReceipt.RecordCount > 0 then
DM.dstReceipt.Delete;
end;
procedure TfmReceipt.bbtPostClick(Sender: TObject);
begin
if DM.dstReceipt.State in [dsEdit, dsInsert] then
DM.dstReceipt.Post;
end;
procedure TfmReceipt.bbtExitClick(Sender: TObject);
begin
Close;
end;
procedure TfmReceipt.bbtPrintClick(Sender: TObject);
begin
Rep_Any(DBGrid1, 4, Self.Caption);
end;
end.
unit uStaff;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, DBCtrls, Grids, DBGrids;
type
TfmStaff = class(TForm)
Panel1: TPanel;
DBGrid1: TDBGrid;
bbtFirst: TBitBtn;
bbtPrior: TBitBtn;
bbtNext: TBitBtn;
bbtLast: TBitBtn;
bbtInsert: TBitBtn;
bbtDelete: TBitBtn;
bbtPost: TBitBtn;
bbtExit: TBitBtn;
procedure FormShow(Sender: TObject);
procedure bbtFirstClick(Sender: TObject);
procedure bbtPriorClick(Sender: TObject);
procedure bbtNextClick(Sender: TObject);
procedure bbtLastClick(Sender: TObject);
procedure bbtInsertClick(Sender: TObject);
procedure bbtDeleteClick(Sender: TObject);
procedure bbtPostClick(Sender: TObject);
procedure bbtExitClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmStaff: TfmStaff;
implementation
uses uDM, DB;
{$R *.dfm}
procedure TfmStaff.FormShow(Sender: TObject);
begin
DM.dstStaff.Open;
DM.dstStaff.Sort := 'ФИО'
end;
procedure TfmStaff.bbtFirstClick(Sender: TObject);
begin
DM.dstStaff.First;
end;
procedure TfmStaff.bbtPriorClick(Sender: TObject);
begin
DM.dstStaff.Prior;
end;
procedure TfmStaff.bbtNextClick(Sender: TObject);
begin
DM.dstStaff.Next;
end;
procedure TfmStaff.bbtLastClick(Sender: TObject);
begin
DM.dstStaff.Last;
end;
procedure TfmStaff.bbtInsertClick(Sender: TObject);
begin
DM.dstStaff.Insert;
end;
procedure TfmStaff.bbtDeleteClick(Sender: TObject);
begin
if DM.dstStaff.RecordCount > 0 then
DM.dstStaff.Delete;
end;
procedure TfmStaff.bbtPostClick(Sender: TObject);
begin
if DM.dstStaff.State in [dsEdit, dsInsert] then
DM.dstStaff.Post;
end;
procedure TfmStaff.bbtExitClick(Sender: TObject);
begin
Close;
end;
end.
unit uState;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, DBCtrls, Grids, DBGrids;
type
TfmState = class(TForm)
Panel1: TPanel;
DBGrid1: TDBGrid;
bbtFirst: TBitBtn;
bbtPrior: TBitBtn;
bbtNext: TBitBtn;
bbtLast: TBitBtn;
bbtInsert: TBitBtn;
bbtDelete: TBitBtn;
bbtPost: TBitBtn;
bbtExit: TBitBtn;
procedure FormShow(Sender: TObject);
procedure bbtFirstClick(Sender: TObject);
procedure bbtPriorClick(Sender: TObject);
procedure bbtNextClick(Sender: TObject);
procedure bbtLastClick(Sender: TObject);
procedure bbtInsertClick(Sender: TObject);
procedure bbtDeleteClick(Sender: TObject);
procedure bbtPostClick(Sender: TObject);
procedure bbtExitClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmState: TfmState;
implementation
uses uDM, DB;
{$R *.dfm}
procedure TfmState.FormShow(Sender: TObject);
begin
DM.dstState.Open;
DM.dstState.Sort := 'Статус';
end;
procedure TfmState.bbtFirstClick(Sender: TObject);
begin
DM.dstState.First;
end;
procedure TfmState.bbtPriorClick(Sender: TObject);
begin
DM.dstState.Prior;
end;
procedure TfmState.bbtNextClick(Sender: TObject);
begin
DM.dstState.Next;
end;
procedure TfmState.bbtLastClick(Sender: TObject);
begin
DM.dstState.Last;
end;
procedure TfmState.bbtInsertClick(Sender: TObject);
begin
DM.dstState.Insert;
end;
procedure TfmState.bbtDeleteClick(Sender: TObject);
begin
if DM.dstState.RecordCount > 0 then
DM.dstState.Delete;
end;
procedure TfmState.bbtPostClick(Sender: TObject);
begin
if DM.dstState.State in [dsEdit, dsInsert] then
DM.dstState.Post;
end;
procedure TfmState.bbtExitClick(Sender: TObject);
begin
Close;
end;
end.
Приложение 2
Экранные формы
Рисунок Б.1
Рисунок Б.2
Рисунок Б.3
Рисунок Б.5
Рисунок Б.6
Рисунок Б.7
Рисунок Б.8
Рисунок Б.9
Рисунок Б.10
Рисунок Б.11
Приложение 3
Формы выходных документов
Рисунок В.1
Рисунок В.2
Рисунок В.3
Рисунок В.4
Рисунок В.5
Рисунок В.6
Рисунок В.7
Рисунок В.8
Рисунок В.9
Рисунок В.10
Размещено на Allbest.ru
...Подобные документы
Обоснование необходимости и цели использования вычислительной техники для решения задачи учета запасов. Анализ существующих разработок и обоснование выбора технологии проектирования. Характеристика нормативно-справочной и входной оперативной информации.
дипломная работа [869,9 K], добавлен 18.03.2012Цель создания информационной системы. Автоматизированная информационная система "Строительное предприятие". Использование вычислительной техники и программного обеспечения для создания автоматизированной информационной системы управления на предприятии.
курсовая работа [2,5 M], добавлен 04.01.2011Создание базы данных информационной системы для учета продаж бытовой техники и автоматизации документооборота в phpMyAdmin. Функциональная диаграмма IDEF0. Создание нового пользователя, таблиц, записей в таблице. Организация сайта на локальном сервере.
курсовая работа [2,8 M], добавлен 11.05.2014Разработка информационной системы для анализа, хранения и обработки информации необходимой для автоматизации учета в автомобильном салоне "Aurore Auto" с помощью технологий Rational Rose, PHP и MySQL. Реализация и экономическая эффективность проекта.
дипломная работа [2,2 M], добавлен 20.05.2011Обоснование необходимости совершенствования информационной системы (ИС) ООО "Мехсервис". Анализ системы учета деятельности авторемонтного предприятия. Разработка концепции построения автоматизированной ИС. Описание продукта информационной технологии.
дипломная работа [2,7 M], добавлен 22.05.2012Требования к функциональным характеристикам информационной системы "Подписка". Функциональное проектирование автоматизированной системы ведения учета основных средств на предприятии. Проектирование базы данных автоматизированной системы ведения учета.
курсовая работа [753,0 K], добавлен 16.01.2015Система автоматизации бухгалтерского учета. Состав и характеристика нормативно-справочной информации. Этапы и средства бухучета в 1С. Виды Классификаторов информации. Перечень основных справочников, используемых в автоматизированной системе учета.
контрольная работа [26,4 K], добавлен 27.07.2009Разработка автоматизированной информационной системы учета заявок сотрудников на обслуживание компьютерной, офисной и торговой техники в ООО "Платина". Проектирование информационных процессов с помощью средства BPWin в офисном приложении Access.
дипломная работа [2,5 M], добавлен 02.02.2016Архитектура автоматизированной информационной системы управления складом. Заказ материалов, подсистема учета материалов бытовой техники на цеховом складе. Внемашинное информационное обеспечение. Выбор инструментальной платформы для реализации системы.
курсовая работа [1,6 M], добавлен 04.12.2014Функциональные характеристики автоматизированной информационной системы "Общежитие". Функции, которые должна выполнять система. Обоснование выбора формы хранения данных. Характеристика входной информации. Описание основных информационных объектов.
курсовая работа [30,0 K], добавлен 28.11.2012Создание информационной системы для фирмы "Удача", которая является посредником при перепродаже недвижимости. Обоснование состава вычислительной техники и программного обеспечения для функционирования данной автоматизированной информационной системы.
курсовая работа [1,8 M], добавлен 17.02.2014Создание автоматизированной информационной системы учета оборудования (компьютерной и оргтехники) на АКБ НМБ ОАО с использованием современных компьютерных средств. Проектирование базы данных. Алгоритмы решения задач. Расчёт затрат на проектирование.
дипломная работа [2,1 M], добавлен 16.12.2013Цель, критерии и ограничения создания автоматизированной системы. Разработка элементов информационного обеспечения информационной системы общежития. Рекомендации по выбору комплекса технических средств для автоматизации задачи учета реализации товара.
курсовая работа [920,8 K], добавлен 11.11.2022Классификация архитектуры базы данных. Компьютерные сети и их виды. Обзор программных продуктов для учета компьютерной техники и оргтехники. Проектирование информационной структуры предметной области и программная реализация задачи учета оргтехники.
дипломная работа [1,9 M], добавлен 16.05.2017Назначение программы учета вычислительной техники и оргтехники организации. Характеристика входной и выходной информации. Требования к базам данных и приложению. Проектирование отношений сущность-связь. Описание операторов создания базы данных.
курсовая работа [1,7 M], добавлен 16.06.2022Назначение программ офисной автоматизации. Преимущества ERP-систем, критерии их выбора. Характеристики ряда программ: "БЭСТ-5" - информационной системы управления предприятием, описание 1С:Предприятие 8.1, Microsoft Dynamics AX, Галактика Business Suite.
курсовая работа [907,2 K], добавлен 19.12.2011Функциональная модель предметной области на примере базы данных автоматизированной информационной системы "Общежития". Ведение информационной базы об общежитиях, комнатах и сотрудниках, хранение информации о студентах, специальностях и факультетах.
курсовая работа [2,7 M], добавлен 10.04.2014Основные цели создания корпоративной системы нормативно-справочной информации (КС НСИ), ее системные составляющие. Место КС НСИ в технической структуре отраслевой информационной корпоративной системы. Типичные проблемы и методическая база КС НСИ.
презентация [696,8 K], добавлен 14.10.2013Проектирование информационной системы для автоматизации документооборота в области кадрового учета МОУ Гимназия № 16 г. Керчь. Объекты справочной и учетной информации. Реализация физической модели базы данных в среде СУБД. Построение логической модели БД.
курсовая работа [1,3 M], добавлен 15.08.2012Системы дистанционного учета и контроля потребления воды, разработанные различными компаниями. Техническое задание на создание автоматизированной информационной системы учета расхода воды в ООО "Водоснабжение". Экономическая эффективность проекта.
дипломная работа [3,7 M], добавлен 21.01.2015
