Автоматизированная система по учету материальных ценностей на предприятии
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
µстоимость продукции (работ, услуг), утвержденным Министерством экономики 26 января 1998 г. N 19-12/397, Министерством статистики и анализа 30 января 1998 г. N 01-21/8, Министерством финансов 30 января 1998 г. N 3, Министерством труда 30 января 1998 г. N 03-02-07/300. При определении размера минимально гарантированных доплат за работу во вредных и тяжелых условиях труда применяется тарифная ставка 1-го разряда, устанавливаемая Советом Министров Республики Беларусь. Наниматель не имеет права устанавливать размер доплат ниже минимально гарантированных. В случае применения нанимателем тарифной ставки 1-го разряда, превышающей размер тарифной ставки 1-го разряда, установленной Советом Министров Республики Беларусь, расчет сумм доплат производится от применяемой нанимателем тарифной ставки 1-го разряда с отнесением на себестоимость продукции (работ, услуг), выплаченных сумм доплат в полном объеме.
Заключение
В ходе выполнения данной дипломной работы был создан программный продукт, обеспечивающий ведение качественного учета материальных ценностей на предприятии. Программа обеспечивает корректное ведение базы данных, содержащих сведения об оборудовании и прочих материальных ценностях на предприятии, списанном оборудовании, передвижениях ценностей внутри предприятия. Автоматизированная система поддерживает все операции, связанные с учетом, обработкой и предоставлением необходимых данных.
Базы данных являются основой деятельности многих предприятий, поэтому они должны обеспечивать одновременный доступ к одной и той же информации для большого числа людей. Способность обслуживать большое количество одновременно работающих пользователей является одним из ключевых свойств базы данных. Хорошо спроектированная база данных может одновременно отвечать на запросы тысяч и даже миллионов пользователей при сохранении удовлетворительной производительности.
Для разработки АРМ была выбрана интегрированная среда разработки Delphi 7 для WINDOWS - приложений. Программный продукт обеспечивает ведение качественного учета материальных ценностей на предприятии.
Разработанная система поддерживает формирование итоговых отчетов по данным из данной базы и обеспечивает ввод, удаление, хранение и редактирование информации, которая содержится в таблицах данных.
Базы данных содержат часть самой важной информации, поэтому базы данных имеют исключительно надежные системы безопасности.
Список использованных источников
1.Харьков, О.П БД в Delphi Минск: из-во Питер, -1999.-672с.
2.Фигурнов, В.Э. IBM PC для пользователя. - М.:ИНФРА М 1997. - 475с.
.Перминов, О.Н .Программирование в Delphi.- М., 1988. - 219c.
.Фаронов, В.В. Delphi 4. Учебный курс. -М.: "Нолидж", 1998. -400 с.
.Фаронов, В.В. Delphi 5. Учебный курс. -М.: "Нолидж", 1998. -464 с.
.Абель, П. IBM PC и программирование Пер. с англ. Ю.В. Сальникова.-М.:высш.шк.,1992. - 447с.
.Орвис, В. Д. Visual Basic for Applications на примерах: Пер. с англ. - М.: БИНОМ, 1995. - 512с.
.Антонов, И. О. Руководство программиста по VisualBasic для Microsoft Office 97. - М.: Издательский отдел Русская редакция, 1997.- 544с.
.Потапкин, А.В. Основы Visial Basic для пакета Microsoft Office: Практ. пособие. - М.: ЭКОМ, 1995. - 256с.
.Кузьменко, В.Г. VBA 2000: - М: ЗАО Издательство БИНОМ, 2000. - 408с.
.Додж, М. The Cobb Group. Эффективная работа с Excel 7.0 для Windows 95: Пер. с англ. - СПб: Питер, 1996. - 513с.
.Лаптев, В.Н., Брякотнина, Т.А. Информатика. Инструментальные информационные технологии. Основы VBA и OFFICE: Учебное пособие. - Новосибирск: СибУПК, 1999. - 68 с.
.Мамаев, Е.В., Шкарина, Л.О. Microsoft SQL Server 2000 для профессионалов. - СПб: Питер, 2001. - 514с.
Приложение
Листинг модуля входа в программу
unit Login;Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons;TFmLogin = class(TForm) EditLog: TEdit; EditPass: TEdit; BitBtnOK: TBitBtn; BitBtnCancel: TBitBtn; procedure BitBtnOKClick(Sender: TObject); procedure BitBtnCancelClick(Sender: TObject); private { Private declarations } public { Public declarations } end;FmLogin: TFmLogin; status : integer; //0-admin, 1-user //-1 - ошибка (запрет доступа)UnDM, UnAccess, UnMenu, UnDevice;
{$R *.dfm}TFmLogin.BitBtnOKClick(Sender: TObject);i : integer;DM.QAccess.Close; DM.QAccess.Parameters[0].Value := EditLog.Text; DM.QAccess.Parameters[1].Value := EditPass.Text; DM.QAccess.Open; //Запрос по логину и паролю status := -1; if DM.QAccess.FieldByName(ac_role).AsString = администратор then status := 0; if DM.QAccess.FieldByName(ac_role).AsString = пользователь then status := 1; if DM.QAccess.FieldByName(ac_role).AsString = then status := -1; //ShowMessage(DM.QAccess.FieldByName(ac_role).AsString); //FmLogin.Close; Case status of 0 : begin //Режим администратора //FmMenu.ShowModal; //FmAccess.ShowModal; FmMenu.Action8.Enabled := true; FmMenu.Action2.Enabled := true; FmMenu.Action3.Enabled := true; FmMenu.Action4.Enabled := true; FmMenu.Button1.Enabled := true; FmMenu.Button3.Enabled := true; FmMenu.BitBtnDel.Enabled := true; FmMenu.BitBtnAdd.Enabled := true; FmMenu.BitBtnSave.Enabled := true; FmMenu.Edit1.Enabled := true; FmMenu.Edit2.Enabled := true; FmMenu.Edit3.Enabled := true; FmMenu.DBEdit1.Enabled := true; FmMenu.DBEdit4.Enabled := true; FmMenu.DBEdit6.Enabled := true; FmMenu.DBEdit5.Enabled := true; FmMenu.DBEdit77.Enabled := true; FmMenu.DBMemo1.Enabled := true; FmMenu.DBGrid1.ReadOnly := true; FmMenu.DBGrid2.ReadOnly := true; FmMenu.DBGrid3.ReadOnly := true; FmMenu.DBGrid4.ReadOnly := true; FmMenu.DBGrid5.ReadOnly := true; FmMenu.DBLookupComboBox1.Enabled := true; FmMenu.DBLookupComboBox3.Enabled := true; FmMenu.DBLookupComboBox2.Enabled := true; FmMenu.DBLookupComboBox5.Enabled := true; FmMenu.DBLookupComboBox6.Enabled := true; FmMenu.DBLookupComboBox7.Enabled := true; FmMenu.DBLookupComboBox8.Enabled := true; FmMenu.DBLookupComboBox9.Enabled := true; FmMenu.DBLookupComboBox10.Enabled := true; FmMenu.DBLookupComboBox11.Enabled := true; FmMenu.DBLookupComboBox12.Enabled := true; FmMenu.DBLookupComboBox13.Enabled := true; FmMenu.DBLookupComboBox14.Enabled := true; FmMenu.DBLookupComboBox15.Enabled := true; FmMenu.DBLookupComboBox16.Enabled := true; FmMenu.DBLookupComboBox17.Enabled := true; FmMenu.DBLookupComboBox18.Enabled := true; FmMenu.DBLookupComboBox19.Enabled := true; FmMenu.DBLookupComboBox20.Enabled := true; FmMenu.DBLookupComboBox21.Enabled := true; FmMenu.DBLookupComboBox22.Enabled := true; FmMenu.DBLookupComboBox23.Enabled := true; FmMenu.DBLookupComboBox24.Enabled := true; FmMenu.DBLookupComboBox25.Enabled := true; FmMenu.DBLookupComboBox26.Enabled := true; FmMenu.DBLookupComboBox27.Enabled := true; FmMenu.DBLookupComboBox28.Enabled := true; FmMenu.DBLookupComboBox29.Enabled := true; FmMenu.DBLookupComboBox30.Enabled := true; FmMenu.DBLookupComboBox31.Enabled := true; FmMenu.DBLookupComboBox32.Enabled := true; FmMenu.DBLookupComboBox33.Enabled := true; FmMenu.DBLookupComboBox34.Enabl