Разработка автоматизированной информационной системы на примере "МегионСофтОйл"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
нных. Вводный курс. - М.: Изд. Гелиос, 2008.- 375 с.
.Информационные системы в экономике: учебник для студентов вузов / Под ред. Г. А. Титоренко. - 2-е изд., перераб. и доп. - М.: ЮНИТИ-ДАНА, 2008. - 463 с.
.Диго С.М. Базы данных: проектирование и использование: Учебник. - М.: Финансы и статистика, 2005.
.Кен Гетц и др. Access 2000. Руководство разработчика. Том 1. Настольные приложения: Пер. с англ. - К.: Издательская группа BHV, 2000.
.Литвин П., Гетц К., Гунделой М. Разработка корпоративных приложений в Access 2002. Для профессионалов. - СПб.: Питер; Киев: BHV, 2003.
.Питер Роб, Карлос Коронел. Системы баз данных: проектирование, реализация и управление, БХВ-Петербург, Сп-б, 2004 г.
.Попов Ф.А., Ануфриева Н.Ю. Интеллектуализация пользовательских интерфейсов информационных систем // Вестник Томского государственного университета. - 2007.- №300(1).- с.130-133.
.Программирование в Delphi 5: 2-е изд., переработанное и дополненное / А.Я. Архангельский. - М.: ЗАО Издательство БИНОМ, 2000.-1072с.: ил.
.Новиков Ф.А. Microsoft Office 2003 в целом. - СПб.: БХВ - Санкт-Петербург, 2005. - 728 с.: ил.
.Сибилёв В.Д. Проектирование баз данных: Учеб. пособие. - Томск: Томский межвузовский центр дистанционного образования, 2007. - 201 с.
.Томас Коннолли, Каролин Бегг, Анна Страчан. Базы данных. Проектирование, реализация и сопровождение. Теория и практика, Вильямс, М, 2001 г.
.Фаронов В. В. Программирование баз данных в Delphi 7. Учебный курс. - СПб.: Питер, 2006. - 459 с.: ил
.Черемных С.В., Семенов И.О., Ручкин В.С. Структурный анализ систем: IDEF-технологии:практикум. М.: Финансы и статистика, 2003. - 192 с.
.Щербаков А. Ю. Современная компьютерная безопасность. Теоретические основы. Практические аспекты. М.: Книжный мир, 2009. - 352 с.
23.Элисон Балтер. Профессиональное программирование в Microsoft Office Access 2003 (+CD-ROM), Вильямс, М, 2006 г.
Приложение А. Листинг программных модулей проекта
Модуль данных (UDataM)UDataM;
SysUtils, Classes, DB, ADODB, WordXP, OleServer;
DataM: TDataM;UMain, Uklient, Uuslugi, Uuzel, Utex, Umarka;
{$R *.dfm}
//===После отмены в справочнике "Клиенты компании"===
procedure TDataM.ADOTklientAfterCancel(DataSet: TDataSet);
Uklient.Fklient.N1.Enabled:=True;
Uklient.Fklient.N3.Enabled:=True;
Uklient.Fklient.N4.Enabled:=False;
Uklient.Fklient.N5.Enabled:=True;
end;
//===После удаления записи в справочнике "Клиенты компании"===
procedure TDataM.ADOTklientAfterDelete(DataSet: TDataSet);
Uklient.Fklient.N1.Enabled:=True;
Uklient.Fklient.N3.Enabled:=True;
Uklient.Fklient.N4.Enabled:=False;
Uklient.Fklient.N5.Enabled:=True;
end;
//===После изменения записи в справочнике "Клиенты компании"===
procedure TDataM.ADOTklientAfterEdit(DataSet: TDataSet);
Uklient.Fklient.N1.Enabled:=False;
Uklient.Fklient.N3.Enabled:=False;
Uklient.Fklient.N4.Enabled:=True;
Uklient.Fklient.N5.Enabled:=False;
end;
//===После добавление записи в справочник "Клиенты компании"===
procedure TDataM.ADOTklientAfterInsert(DataSet: TDataSet);
Uklient.Fklient.N1.Enabled:=False;
Uklient.Fklient.N3.Enabled:=False;
Uklient.Fklient.N4.Enabled:=True;
Uklient.Fklient.N5.Enabled:=False;
end;
//===После сохранения записи в справочник "Клиенты компании"===
procedure TDataM.ADOTklientAfterPost(DataSet: TDataSet);
Uklient.Fklient.N1.Enabled:=True;
Uklient.Fklient.N3.Enabled:=True;
Uklient.Fklient.N4.Enabled:=False;
Uklient.Fklient.N5.Enabled:=True;
ADOTklient.Refresh;;
//===После отмены в справочнике "Марки оргтехники"===
procedure TDataM.ADOTmarkiAfterCancel(DataSet: TDataSet);
Umarka.Fmarka.N1.Enabled:=True;
Umarka.Fmarka.N3.Enabled:=True;
Umarka.Fmarka.N4.Enabled:=False;
Umarka.Fmarka.N5.Enabled:=True;
end;
//===После удаления записи в справочнике "Марки оргтехники"===
procedure TDataM.ADOTmarkiAfterDelete(DataSet: TDataSet);
Umarka.Fmarka.N1.Enabled:=True;
Umarka.Fmarka.N3.Enabled:=True;
Umarka.Fmarka.N4.Enabled:=False;
Umarka.Fmarka.N5.Enabled:=True;
end;
//===После изменения записи в справочнике "Марки оргтехники"===
procedure TDataM.ADOTmarkiAfterEdit(DataSet: TDataSet);
Umarka.Fmarka.N1.Enabled:=False;
Umarka.Fmarka.N3.Enabled:=False;
Umarka.Fmarka.N4.Enabled:=True;
Umarka.Fmarka.N5.Enabled:=False;
end;
//===После добавление записи в справочник "Марки оргтехники"===
procedure TDataM.ADOTmarkiAfterInsert(DataSet: TDataSet);
Umarka.Fmarka.N1.Enabled:=False;
Umarka.Fmarka.N3.Enabled:=False;
Umarka.Fmarka.N4.Enabled:=True;
Umarka.Fmarka.N5.Enabled:=False;
end;
//===После сохранения записи в справочник "Марки оргтехники"===
procedure TDataM.ADOTmarkiAfterPost(DataSet: TDataSet);
Umarka.Fmarka.N1.Enabled:=True;
Umarka.Fmarka.N3.Enabled:=True;
Umarka.Fmarka.N4.Enabled:=False;
Umarka.Fmarka.N5.Enabled:=True;
ADOTklient.Refresh;;
//===Обновить цену ПО===TDataM.ADOTprogCalcFields(DataSet: TDataSet);
S:currency;
S:=ADOTprogЦена.Value;
ADOTprogСумма.Value:=S;;
//===Обновить сумму заказа===
procedure TDataM.ADOTrabAfterPost(DataSet: TDataSet);
ADOQSumRab.Close;.Parameters.ParamValues[N]:=ADOTremontНомерЗаказа.Value;
ADOQSumRab.Open;;
//===Расчет суммы работ===TDataM.ADOTrabCalcFields(DataSet: TDataSet);
S:currency;
S:=ADOTrabЦена.Value*ADOTrabКоличество.Value;
ADOTrabСумма.Value:=S;;
//===Обновить сумму заказа===
procedure TDataM.ADOTrasAfterPost(DataSet: TDataSet);
ADOQSumRas.Close;.Parameters.ParamValues[N]:=ADOTremontНомерЗаказа.Value;
ADOQSumRas.Open;;
//===Расчет суммы расхода===
procedure TDataM.ADOTrasCalcFields(DataSet: TDataSet);
S:currency;
S:=ADOTrasЦена.Value*ADOTrasКоличество.Value;
ADOTrasСумма.Value:=S;;
//===После отмены в справочнике "Оргтехника"===
procedure TDataM.ADOTtexAfterCancel(DataSet: TDataSet);
Utex.Ftex.N1.Enabled:=True;
Utex.Ftex.N3.Enabled:=True;
Utex.Ftex.N4.Enabled:=False;
Utex.Ftex.N5.Enabled:=True;
end;
//===После удаления записи в справочнике "Оргтехника"===
procedure TDataM.ADOTtexAfterDelete(DataSet: TDataSet);
Utex.Ftex.N1.Enabled:=True;
Utex.Ftex.N3.Enabled:=True;
Utex.Ftex.N4.Enabled:=False;
Utex.Ftex.N5.Enabled:=True;
end;
//===После изменения записи в справочнике "Оргтехника"===
procedure TDataM.ADOTtexAfterEdit(DataSet: TDataSet);
Utex.Ftex.N1.Enabled:=False;
Utex.Ftex.N3.Enabled:=False;
Utex.Ftex.N4.Enabled:=True;
Utex.Ftex.N5.Enabled:=False;
end;
//===После добавление записи в справочник "Оргтехника"===
procedure TDataM.ADOTtexAfterInsert(DataSet: TDataSet);
Utex.Ftex.N1.Enabled:=False;
Utex.Ftex.N3.Enabled:=False;
Utex.Ftex