Программное средство, которое обеспечивает учет спецодежды в Молодечненских электрических сетях
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
?ование программного средства, обоснование его архитектурных построений.
Разработка компонентов велась с использованием CASE-средств BPWin (для определения спецификации требований на программное средство) и ErWin (для получения схемы данных).
Произведена реализация реляционной базы данных с нормализацией таблиц.
Для реализации приложения была выбрана среда разработки Borland Delphi 7. Данный выбор значительно упростил создание приложения с графическим многооконным интерфейсом и организацию доступа к данным.
Данное программное средство может быть доведено до программного продукта после более детального тестирования у заказчика и разработки программной документации.
В случае разработки последующих версий программы можно добавить функциональность, новые отчеты и усовершенствовать существующую базу данных.
Список используемых источников
1 Антонова, Н. Б. Экономика предприятия: Учебное пособие / Н. Б. Антонова, М. А. Зайцева, Л. Н. Нехорошева, - Мн.: Высшая школа., 2004. - 383 с.
Большаков, Ю. В. Охрана труда Республиканский журнал для специалистов и руководителей №6, декабрь, 2005г. / Ю. В. Большаков, С. Н. Винерский, А. И. Кохнюк -Мн.: 2005. - 33с.
Крылова, Е. Г. Охрана труда и социальная защита Республиканский научно-популярный, производственно-технический журнал №11 2005 г./ Е. Г. Крылова -Мн.: 2005. - 33с.
Куприянов, А.В. Самоучитель Windows XP: Все об использовании и настройках / А.В. Куприянов, М.Д. Матвеев, М.В. Юдин. - Санкт-Петербург: Изд-во Наука и техника, 2006. - 624с.
Молосаева, Н. В. Дипломное проектирование: Методические рекомендации по экономическому разделу / Н. В. Молосаева, - Мн.: МГВРК, 1998. - 40с.
Сорокин, А.Н. Delphi разработка баз данных / А. Н. Сорокин. - СПб: Питер, 2005. -447с.
Фаронов, В. Программирование баз данных в Delphi 7: Учебный курс / В. Фаронов. - Санкт-Петербург: ООО Питер Пресс, 2006. - 459с
Фаронов, В. Программирование на языке высокого уровня: Учебник для вузов / В. Фаронов. - Санкт-Петербург: ООО Питер Пресс,2009. - 640с.
Закон Республики Беларусь от 18.06.1993 года "О государственной экологической экспертизе".
Санитарные правила и нормы СанПин 9-131 Р.Б., 2000 г.
Приложение А
(обязательное)
Листинг программыProject1;
uses,in Unit1.pas {Form1},in Unit2.pas {ed_izm},in Unit3.pas {izd},in Unit4.pas {rabot},in Unit5.pas {mater},in Unit6.pas {stat},in Unit7.pas {sostav},in Unit8.pas {nov_sostav},in Unit9.pas {norm_rasc},in Unit10.pas {nov_norm_rasc},in Unit11.pas {kalk},in Unit12.pas {nov_kalk},in Unit13.pas {otch_kalk},in Unit14.pas {otch_sostav},in Unit15.pas {otch_norm_rasc},in Unit16.pas {otch_izd},in Unit17.pas {otch_mat},in Unit18.pas {otch_rab},in Unit19.pas {o_prog},in Unit20.pas {help},in Unit21.pas {style};
{$R *.res}.Initialize;.Title := ;.CreateForm(TForm1, Form1);.CreateForm(Ted_izm, ed_izm);.CreateForm(Tizd, izd);.CreateForm(Trabot, rabot);.CreateForm(Tmater, mater);.CreateForm(Tstat, stat);.CreateForm(Tsostav, sostav);.CreateForm(Tnov_sostav, nov_sostav);.CreateForm(Tnorm_rasc, norm_rasc);.CreateForm(Tnov_norm_rasc, nov_norm_rasc);.CreateForm(Tkalk, kalk);.CreateForm(Tnov_kalk, nov_kalk);.CreateForm(Totch_kalk, otch_kalk);.CreateForm(Totch_sostav, otch_sostav);.CreateForm(Totch_norm_rasc, otch_norm_rasc);.CreateForm(Totch_izd, otch_izd);.CreateForm(Totch_mat, otch_mat);.CreateForm(Totch_rab, otch_rab);.CreateForm(To_prog, o_prog);.CreateForm(Thelp, help);.CreateForm(Tstyle, style);.Run;.Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, DB, IBCustomDataSet, IBDatabase, XPMan, sSkinManager, StdCtrls;= class(TForm): TIBDatabase;: TIBTransaction;_Set: TIBDataSet;_Source: TDataSource;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;_SetKOD_ED_IZM: TIntegerField;_SetED_IZM: TIBStringField;: TXPManifest;_Set: TIBDataSet;_Source: TDataSource;_SetKOD_IZD: TIntegerField;_SetKOD_OBOZN: TIBStringField;_SetIZD: TIBStringField;_SetPROEKT: TIBStringField;_Set: TIBDataSet;_Source: TDataSource;_SetKOD_RABOT: TIntegerField;_SetRABOT: TIBStringField;_set: TIBDataSet;_Source: TDataSource;_setKOD_MATER: TIntegerField;_setMATER: TIBStringField;_setKOD_ED_IZM: TIntegerField;_seted_izm: TStringField;_Set: TIBDataSet;_Source: TDataSource;_SetKOD_STAT: TIntegerField;_SetSTAT: TIBStringField;_SetKOEF: TFloatField;_Set: TIBDataSet;_Source: TDataSource;_rasc_Set: TIBDataSet;_rasc_Source: TDataSource;: TMenuItem;: TMenuItem;_Set: TIBDataSet;_Source: TDataSource;: TMenuItem;: TsSkinManager;: TMenuItem;: TMenuItem;_rasc_SetKOD_NORM_RASC: TIntegerField;_rasc_SetKOD_IZD: TIntegerField;_rasc_SetKOD_RABOT: TIntegerField;_rasc_SetMES: TIBStringField;_rasc_SetGOD: TIntegerField;_rasc_SetNORMA: TFloatField;_rasc_SetRASCENKA: TFloatField;_SetKOD_SOSTAV: TIntegerField;_SetKOD_IZD: TIntegerField;_SetKOD_MATER: TIntegerField;_SetMES: TIBStringField;_SetGOD: TIntegerField;_SetNORMA: TFloatField;_SetSTOIM: TFloatField;_Setsum: TFloatField;_Setmater: TStringField;_Seted_izm: TStringField;_rasc_Setrabot: TStringField;_Setizd: TStringField;_Setobozn: TStringField;_Setproekt: TStringField;_rasc_Setizd: TStringField;_rasc_Setobozn: TStringField;_rasc_Setproekt: TStringField;_SetKOD_KALK: TIntegerField;_SetKOD_IZD: TIntegerField;_SetKOD_STAT: TIntegerField;_SetMES: TIBStringField;_SetGOD: TIntegerField;_SetKOEF: TFloatField;_SetSUMMA: TFloatField;_Setstat: TStringField;_Setizd: TStringField;_Setproekt: TStringField;N12Click(Sender: TObject);N10Click(Sender: TObject);N9Click(Sender: TObject);N8Click(Sender: TObject);N11Click(Sender: TObject);N13Click(Sender: TObject);sostav_SetCalcFields(DataSet: TDataSet);N14Click(Sender: TObject);N5Click(Sender: TObject);N22Click(Sender: TObject);N15Click(Sender: TObject);N25Click(Sender: TObject);N21Click(Sender: TObject);N19Click(Sender: TObject);N20Click(Sender: TObject);N7Click(Sender: TObject);N23Click(Sender: TObject);N24Click(Sender: TObject);sostav_SetsumChange(Sender: TField);norm_rasc_SetNORMAChange(Sender: TField);norm_rasc_SetRASCENKAChange(Sender: TField);N17Click(Sender: TObject);sostav_SetSTOIMChange(Sender: TField);sostav_SetNORMAChange(Sender: TField);
{ Private declarations }
public
{ Public declarations };: TForm1;Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit10, Unit9, Unit11, Unit12, Unit13, Unit14, Unit15, Unit16, Unit17, Unit18, Unit19, Unit20, Unit21;
{$R *.dfm}TForm1.N12Click(Sender: TObject);_izm.Show;;TForm1.N10Click(Sender: TObject);.Show;;TForm1.N9Click(Sender: TObject);.Show;;TForm1.N8Click(Sender: TObject);.Show;;TForm1.N11Click(Sender: TObject);.Show;;TForm1.N13Click(Sender: TObject);_sostav.BitBtn1.Visible:=true;_sostav.BitBtn2.Visible:=false;_sostav.BitBtn3.Visible:=false;_sostav.Show;;TForm1.sostav_SetCalcFields(DataSet: TDataSet);,y,m: double;,s: integer;_Setsum.Value:=sostav_SetSTOIM.Value*sostav_SetNORMA.Value;:=sostav_Setsum.Value*1000;:=Trunc(x);:=n mod 10;:=n/10;:=trunc(y);s<5 then sostav_Setsum.Value:=n/100 else sostav_Setsum.Value:=(n+1)/100;;TForm1.N14Click(Sender: TObject);_norm_rasc.BitBtn1.Visible:=true;_norm_rasc.BitBtn2.Visible:=false;_norm_rasc.BitBtn3.Visible:=false;_norm_rasc.Show;;TForm1.N5Click(Sender: TObject);_sostav.BitBtn1.Visible:=false;_sostav.BitBtn2.Visible:=true;_sostav.BitBtn3.Visible:=false;_sostav.ShowModal;;TForm1.N22Click(Sender: TObject);_norm_rasc.BitBtn3.Visible:=false;_norm_rasc.BitBtn1.Visible:=false;_norm_rasc.BitBtn2.Visible:=true;_norm_rasc.ShowModal;;TForm1.N15Click(Sender: TObject);_kalk.Show;_kalk.bitbtn1.Visible:=true;_kalk.bitbtn2.Visible:=false;_kalk.BitBtn3.Visible:=false;_kalk.GroupBox3.Visible:=true;;TForm1.N25Click(Sender: TObject);_kalk.Show;_kalk.bitbtn2.Visible:=true;_kalk.bitbtn1.Visible:=false;_kal
Copyright © 2008-2014 geum.ru рубрикатор по предметам рубрикатор по типам работ пользовательское соглашение