54
Заключение
В ходе выполнения дипломного проекта была проведена следующая
работа:
проведена технико-экономическая характеристика КОМИТЕТА ПО
ОБРАЗОВАНИЮ АДМИНИСТРАЦИИ ЗИМИНСКОГО РАЙОНА;
проведен анализ деятельности главный специалиста и мастера
КОМИТЕТА ПО ОБРАЗОВАНИЮ АДМИНИСТРАЦИИ ЗИМИНСКОГО
РАЙОНА
обоснована необходимость создания информационной системы;
сформулированы основные задачи и выделены ключевые направления
разработки;
сформулированы назначение и функции Автоматизации системы
контроля и учета заявок абонентов на подключение к сети интернет;
произведен выбор прикладного программного обеспечения;
произведены выбор и обоснование проектных решений;
проведено проектирование БД, интерфейса, определены входные и
выходные данные;
разработана автоматизированная система.
Разработанная автоматизированная система обеспечивает выполнение
следующих основных функций:
ведение прайс-листа на работы и услуги;
ведение прайс-листа на расходные материалы;
оформление заказа на подключение к сети, ремонт или обслуживание
сети;
авторизация и распределение прав доступа между сотрудниками
(главный специалист, мастера);
распределение заказов между работниками;
55
учет наличия расходных материалов на складе;
формирование документов и отчетов:
остаток на складе расходных материалов;
договор на предоставление услуг связи или обслуживание;
наряд-допуск на производство работ;
прайс-лист на работы и услуги;
прайс-лист на расходные материалы;
бухгалтерские документы (счет, счет-фактура, акт сдачи-приемки
работ);
формирование статистических диаграмм:
Также произведена оценка экономической эффективности разработки
Автоматизации системы контроля и учета заявок на подклюение к сети
интернет для Комитета по образованию администрации Зиминского района.
В рамках дальнейшего развития проекта можно определить
автоматизацию других подразделений компании в рамках единой
информационной системы.
Автоматизированная система контроля и учета заявок абонентов на
подключение к сети интернет находится на стадии тестирования с
последующим внедрением в Комитет по образованию администрации
Зиминского района.
56
Список использованных источников
1. Вендров А.М. CASEтехнологии. Современные методы и средства
проектирования информационных систем. М.: Финансы и статистика, 2000.
2. Автоматизация сервисных центров, служб и представительств
[Электронный ресурс]: – Электрон. дан. – М., [201-]. – Режим доступа: http://sc-
soft.ru/
3. Корс Сервис-Центр [Электронный ресурс]: – Электрон. дан. – М.,
[201-]. – Режим доступа: http://www.kors-soft.ru/opser3.htm
4. Липаев В.В Управление разработкой программных средств. Методы,
стандарты, технология. – М.: Финансы и статистика, 2006.
5. Принципы проектирования и разработки программного обеспечения.
Учебный курс MCSD. М.: Русская редакция, 2000.
6. Дейт К. Введение в системы баз данных/Пер. с англ. М.: Наука, 2003.
463 с.
7. Кауфельд Д. Microsoft Office Access 2003 для «чайников»: Пер. с англ.
М.: «Диалектика», 2006. 320 стр. с ил.
8. Архангельский А.Я. Программирование в Delphi 7. – М.: Бином, 2004.
118 с.
9. Мишенин, А.И. Теория экономических информационных
систем: Учеб. для вузов / А.И. Мишенин.- 4-е изд., доп. и перераб. -
М. : Финансы и статистика, 2001. - 240 с. : ил.
10. Оскерко В.С., Пунчик З.В. Практикум по технологиям баз данных.
– Мн.: «БГЭУ», 2004. – 170 с.
11. Фуфаев Д.Э., Фуфаев Э.В. Базы данных. – М.: “Академия”, 2005. –
320 с.
12. Хотяшов Э.Н. Проектирование машинной обработки
экономической информации. М.:Финансы и статистика, 2001.-246 с.
57
13. Бугорский В.Н., Фомин В.И. Информационные системы в
экономике: основы информационного бизнеса. Учебное пособие СПб.:
СПБГИЭА, 1999.
14. Когаловский М.Р. Энциклопедия технологий баз данных. - М.:
Финансы и статистика, 2002.
15. Грох М., Ирвин М., Пауэлл Г., Праг К., Рирдон Д., Стокман Д.
Microsoft Office Access 2007: Библия пользователя. – М.: «Диалектика», 2009. –
1023 с.
16. Смирнова, Г.Н. Проектирование экономических информационных
систем: Учеб. для вузов / Г.Н. Смирнова, А.А. Сорокин, Ю.Ф. Тельнов; Под
ред. Ю.Ф. Тельнова. -М. : Финансы и статистика, 2002. - 512 с. : ил.
17. СанПиН 2.2.2/2.4.1340-03. Санитарно-эпидемиологические правила
и нормативы. Гигиенические требования к персональным электронно-
вычислительным машинам и организации работы. – М: Издательство
стандартов, 2003.
18. http://ru.wikipedia.org/wiki/Рабочее_место
19. www.uran.ru/
58
Приложение А.
Текст программы
Программный модуль ClientUnit.pas
unit ClientUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Grids, DBGrids, DBCtrls, StdCtrls, Buttons, Mask;
type
TfmClients = class(TForm)
Panel1: TPanel;
DBNavigator1: TDBNavigator;
BitBtn1: TBitBtn;
Panel2: TPanel;
DBGrid1: TDBGrid;
bbtPrint: TBitBtn;
bbtGo: TBitBtn;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bbtPrintClick(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmClients: TfmClients;
implementation
uses DMUnit, ReportsUnit, ADODB, OrderUnit, OrderListUnit;
{$R *.dfm}
procedure TfmClients.FormShow(Sender: TObject);
begin
DM.tbClients.Open;
DM.tbClients.Sort := 'ФИО_Наименование';
end;
procedure TfmClients.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//Набор данных закрывается, если он не используется в других формах:
if (not fmOrderList.Showing) and (not fmOrder.Showing) then
DM.tbClients.Close;
end;
procedure TfmClients.bbtPrintClick(Sender: TObject);
begin
Rep_Any(DBGrid1, 7, Self.Caption);
end;
//Сортировка данных в таблице по выбранному столбцу:
procedure TfmClients.DBGrid1TitleClick(Column: TColumn);
begin
try
(DBGrid1.DataSource.DataSet as TADOTable).Sort := Column.FieldName;
except
Application.MessageBox('Сортировка по данному полю невозможна', 'Информация',
MB_OK+MB_ICONINFORMATION)
end;
end;
procedure TfmClients.BitBtn1Click(Sender: TObject);
begin
Close;
end;
end.
59
Программный модуль DiapasonUnit.pas
unit DiapasonUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Buttons;
type
TfmDiapason = class(TForm)
Label1: TLabel;
Label2: TLabel;
dtpDateFrom: TDateTimePicker;
dtpDateTo: TDateTimePicker;
bbtCancel: TBitBtn;
bbtOK: TBitBtn;
private
{ Private declarations }
public
{ Public declarations }
end;
function GetDiapason(var DateFrom, DateTo: TDate): Boolean;
var
fmDiapason: TfmDiapason;
implementation
{$R *.dfm}
//Функция возвращает диапазон дат, заданный пользователем:
function GetDiapason(var DateFrom, DateTo: TDate): Boolean;
begin
fmDiapason.dtpDateFrom.Date := DateFrom;
fmDiapason.dtpDateTo.Date := DateTo;
if fmDiapason.ShowModal = mrOK then begin
DateFrom := fmDiapason.dtpDateFrom.Date;
DateTo := fmDiapason.dtpDateTo.Date;
Result := True;
end
else
Result := False;
end;
end.
Программный модуль DMUnit.pas
unit DMUnit;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDM = class(TDataModule)
ADOConnection1: TADOConnection;
tbManagers: TADOTable;
dsManagers: TDataSource;
tbManagersN: TAutoIncField;
tbManagersDSDesigner: TWideStringField;
tbSpec: TADOTable;
dsSpec: TDataSource;
tbSpecID: TAutoIncField;
tbSpecDSDesigner: TWideStringField;
tbClients: TADOTable;
dsClients: TDataSource;
tbClientsID: TAutoIncField;
tbClients_: TWideStringField;
tbClientsDSDesigner: TWideStringField;
tbClientsDSDesigner4: TWideStringField;
tbClientsDSDesigner5: TWideStringField;
tbClientsDSDesigner6: TWideStringField;
tbClientsDSDesigner7: TWideStringField;
60
tbClientsDSDesigner8: TWideStringField;
tbRequisite: TADOTable;
dsRequisite: TDataSource;
tbRequisiteDSDesigner: TWideStringField;
tbRequisiteDSDesigner2: TWideStringField;
tbRequisiteDSDesigner4: TWideStringField;
tbRequisiteDSDesigner5: TWideStringField;
tbRequisiteDSDesigner6: TWideStringField;
tbRequisiteDSDesigner7: TWideStringField;
tbRequisiteDSDesigner8: TWideStringField;
tbStore: TADOTable;
dsStore: TDataSource;
tbStoreDSDesigner: TAutoIncField;
tbStoreDSDesigner2: TWideStringField;
tbStoreDSDesigner3: TWideStringField;
tbStoreDSDesigner4: TWideStringField;
tbStoreDSDesigner5: TIntegerField;
tbStoreDSDesigner6: TBCDField;
tbPrice: TADOTable;
dsPrice: TDataSource;
tbStaff: TADOTable;
dsStaff: TDataSource;
tbStaffN: TAutoIncField;
tbStaffDSDesigner: TWideStringField;
tbStaffID: TIntegerField;
tbStaffIntegerField: TStringField;
tbStoreField: TCurrencyField;
tbPriceDSDesigner: TAutoIncField;
tbPriceDSDesigner2: TWideStringField;
tbPriceDSDesigner3: TWideStringField;
tbPriceDSDesigner4: TFloatField;
tbPriceDSDesigner5: TBCDField;
dsOrders: TDataSource;
dstOrders: TADODataSet;
dstOrdersN: TAutoIncField;
dstOrdersDSDesigner: TDateTimeField;
dstOrdersDSDesigner2: TDateTimeField;
dstOrdersID: TIntegerField;
dstOrdersID2: TIntegerField;
dstOrdersID3: TIntegerField;
dstOrdersDSDesigner3: TBCDField;
dstOrdersField: TStringField;
dstOrdersField2: TStringField;
dstOrdersIntegerField: TStringField;
dsJobs: TDataSource;
dstJobs: TADODataSet;
dstJobsN: TIntegerField;
dstJobsID: TIntegerField;
dstJobsDSDesigner: TDateTimeField;
dstJobsID2: TIntegerField;
dstJobsDSDesigner3: TBCDField;
dstJobsField: TStringField;
dstJobsStringField: TStringField;
dstJobsField2: TCurrencyField;
dstJobsDSDesigner2: TFloatField;
dsMat: TDataSource;
dstMat: TADODataSet;
dstMatN: TIntegerField;
dstMat_ID: TIntegerField;
dstMatDSDesigner: TIntegerField;
dstMatDSDesigner2: TBCDField;
dstMatCurrencyField: TCurrencyField;
dstMatStringField: TStringField;
dstOrderJobSum: TADODataSet;
dstOrderJobSumSum1: TFloatField;
dstOrderMatSum: TADODataSet;
FloatField1: TFloatField;
dstStatEmp: TADODataSet;
dstStatJobs: TADODataSet;
dstStatEmpDSDesigner2: TFloatField;
dstStatEmpField: TStringField;
dstStatJobsDSDesigner2: TFloatField;
dstStatJobsField: TStringField;
dstStatOrderSum: TADODataSet;
BCDField2: TBCDField;
StringField2: TStringField;
dstStatClientSum: TADODataSet;
dstStatClientSumDSDesigner: TBCDField;
dstStatClientSum_: TStringField;
dstEmpJobList: TADODataSet;
61
dstEmpJobListDSDesigner: TWideStringField;
dstEmpJobListDSDesigner2: TAutoIncField;
dstEmpJobListDSDesigner3: TFloatField;
dstEmpJobListDSDesigner4: TWideStringField;
dsSupOrders: TDataSource;
dstSupOrders: TADODataSet;
dstSupOrdersN: TAutoIncField;
dstSupOrdersDSDesigner: TDateTimeField;
dsSupCont: TDataSource;
dstSupCont: TADODataSet;
dstSupContN: TIntegerField;
dstSupCont_ID: TIntegerField;
dstSupContDSDesigner: TIntegerField;
dstSupContField: TStringField;
dstStatSupOrderSum: TADODataSet;
BCDField3: TBCDField;
StringField1: TStringField;
tbManagersDSDesigner2: TWideStringField;
tbManagersDSDesigner3: TWideStringField;
tbStaffDSDesigner2: TWideStringField;
tbStaffDSDesigner3: TWideStringField;
dstSupOrdersID: TIntegerField;
dstSupOrdersStringField: TStringField;
dsStatus: TDataSource;
dstStatus: TADODataSet;
dstStatusID: TAutoIncField;
dstStatusDSDesigner: TWideStringField;
dstOrdersID4: TIntegerField;
dstOrdersField3: TStringField;
dstOrdersField4: TStringField;
procedure tbStoreCalcFields(DataSet: TDataSet);
procedure dstJobsCalcFields(DataSet: TDataSet);
procedure dstMatCalcFields(DataSet: TDataSet);
procedure DataModuleDestroy(Sender: TObject);
procedure dstOrdersAfterInsert(DataSet: TDataSet);
procedure dstSupOrdersAfterInsert(DataSet: TDataSet);
procedure dstJobsIDChange(Sender: TField);
procedure dstMat_IDChange(Sender: TField);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DM: TDM;
implementation
uses LoginUnit;
{$R *.dfm}
//Расчет суммы каждой позиции материалов на складе:
procedure TDM.tbStoreCalcFields(DataSet: TDataSet);
begin
DataSet.FieldByName('Сумма').Value :=
DataSet.FieldByName('Количество').Value * DataSet.FieldByName('Цена').Value;
end;
//Расчет суммы по каждой выполняемой работе по заказу:
procedure TDM.dstJobsCalcFields(DataSet: TDataSet);
begin
DataSet.FieldByName('Сумма').Value :=
DataSet.FieldByName('Количество').Value * DataSet.FieldByName('ОплатаЗаНорму').Value;
end;
//Расчет суммы по каждой позиции затраченной материальной ценности по заказу:
procedure TDM.dstMatCalcFields(DataSet: TDataSet);
begin
DataSet.FieldByName('Сумма').Value :=
DataSet.FieldByName('Количество').Value * DataSet.FieldByName('Цена').Value;
end;
procedure TDM.DataModuleDestroy(Sender: TObject);
begin
ADOConnection1.Close;
end;
//Для нового заказа записывается ID менеджера:
62
procedure TDM.dstOrdersAfterInsert(DataSet: TDataSet);
begin
DataSet.FieldByName('МенеджерID').AsInteger := fmLogin.UserID;
end;
//Для новой заявки поставщику записывается ID менеджера:
procedure TDM.dstSupOrdersAfterInsert(DataSet: TDataSet);
begin
DataSet.FieldByName('РаботникID').AsInteger := fmLogin.UserID;
end;
//Для выбранной работы по заказу записывается ее стоимость за норму:
procedure TDM.dstJobsIDChange(Sender: TField);
begin
dstJobs.FieldByName('ОплатаЗаНорму').AsCurrency :=
tbPrice.FieldByName('ОплатаЗаНорму').AsCurrency;
end;
//Для выбранного комплектующегопо заказу записывается его стоимость:
procedure TDM.dstMat_IDChange(Sender: TField);
begin
dstMat.FieldByName('Цена').AsCurrency := tbStore.FieldByName('Цена').AsCurrency;
end;
end.
Программный модуль MainUnit.pas
unit MainUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, XPMan, ImgList, ActnList, StdActns,
XPStyleActnCtrls, ActnMan, ToolWin, ActnCtrls, ActnMenus, jpeg, ExtCtrls;
type
TfmMain = class(TForm)
bbtStat: TBitBtn;
XPManifest1: TXPManifest;
ActionManager1: TActionManager;
ImageList1: TImageList;
FileExit1: TFileExit;
acSpravReq: TAction;
acSpravSpec: TAction;
acSpravManagers: TAction;
acSpravClients: TAction;
acSpravStaff: TAction;
acSpravStore: TAction;
acSpravPrice: TAction;
acWorkOrders: TAction;
acWorkSup: TAction;
acRepStat: TAction;
bbtOrder: TBitBtn;
bbtPriceStore: TBitBtn;
acRepJobByEmp: TAction;
bbtPriceJob: TBitBtn;
Image1: TImage;
bbtSupOrder: TBitBtn;
ActionMainMenuBar1: TActionMainMenuBar;
procedure acSpravReqExecute(Sender: TObject);
procedure acSpravSpecExecute(Sender: TObject);
procedure acSpravManagersExecute(Sender: TObject);
procedure acSpravClientsExecute(Sender: TObject);
procedure acSpravStaffExecute(Sender: TObject);
procedure acSpravStoreExecute(Sender: TObject);
procedure acSpravPriceExecute(Sender: TObject);
procedure acWorkOrdersExecute(Sender: TObject);
procedure acWorkSupExecute(Sender: TObject);
procedure acRepStatExecute(Sender: TObject);
procedure acRepJobByEmpExecute(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
63
{ Public declarations }
end;
var
fmMain: TfmMain;
implementation
uses ReqUnit, PostUnit, ManagerUnit, ClientUnit, DMUnit, StaffUnit, StoreUnit, PriceUnit,
OrderListUnit, SupListUnit, StatUnit, DiapasonUnit, ReportsUnit, FileCtrl,
LoginUnit;
{$R *.dfm}
procedure TfmMain.acSpravReqExecute(Sender: TObject);
begin
fmRequisite.Show;
end;
procedure TfmMain.acSpravSpecExecute(Sender: TObject);
begin
fmPost.Show;
end;
procedure TfmMain.acSpravManagersExecute(Sender: TObject);
begin
fmManagers.Show;
end;
procedure TfmMain.acSpravClientsExecute(Sender: TObject);
begin
fmClients.Show;
end;
procedure TfmMain.acSpravStaffExecute(Sender: TObject);
begin
fmStaff.Show;
end;
procedure TfmMain.acSpravStoreExecute(Sender: TObject);
begin
fmStore.Show;
end;
procedure TfmMain.acSpravPriceExecute(Sender: TObject);
begin
fmPrice.Show;
end;
procedure TfmMain.acWorkOrdersExecute(Sender: TObject);
begin
fmOrderList.Show;
end;
procedure TfmMain.acWorkSupExecute(Sender: TObject);
begin
fmSupplierList.Show;
end;
procedure TfmMain.acRepStatExecute(Sender: TObject);
begin
fmStat.Show;
end;
procedure TfmMain.acRepJobByEmpExecute(Sender: TObject);
var
Date1, Date2: TDate;
begin
Date1 := Date;
Date2 := Date;
if GetDiapason(Date1, Date2) then
Rep_JobList(Date1, Date2);
end;
procedure TfmMain.FormShow(Sender: TObject);
begin
bbtPriceJob.Caption := 'Прайс-лист' + Chr(13) + 'на работы и услуги';
bbtPriceStore.Caption := 'Прайс-лист на' + Chr(13) + 'расходные материалы';
bbtSupOrder.Caption := 'Заявки на' + Chr(13) + 'расходные материалы';
end;