Разработка автоматизированной системы управления учета и товара оптового магазина

     Изучение и решение проблем, связанных с обеспечением здоровых и безопасных условий, в которых протекает труд и обучение человека - одна из наиболее важных задач в разработке новых технологий и систем производства. Изучение и выявление возможных причин производственных несчастных случаев, профессиональных заболеваний, аварий, взрывов, пожаров, и разработка мероприятий и требований, направленных на устранение этих причин позволяют создать безопасные и благоприятные условия для труда.  
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Заключение

 

     В данной работе была спроектирована и  реализована автоматизированная система  управления учета и продажи товара в оптовом магазине. Данная система обеспечивает формирование прайс-листа магазина и основных первичных документов, также ввод, удаление, хранение и редактирование информации, которая содержится в таблицах данных.

     Реализация  системы проводилась с использованием Borland Delphi 7.0. При написании программы было уделено внимание удобству работы пользователя и построению дружественного интерфейса.

     Тестирование  системы показало, что данная разработка полностью соответствует функциональным требованиям и работает без сбоев.

     Длительность  периода разработки системы составляет 30 рабочих дней. Дневная экономия от использования системы «Оптовый магазин» равна 394,09 тенге в день. Срок окупаемости проекта составляет 52 дня.

     В рамках дипломного проекта также  была рассмотрена эргономика рабочего места пользователя ПЭВМ и даны необходимые  рекомендации.

     Автоматизированная  система учета прихода и расхода  товара находится на стадии тестирования с последующим внедрением ее в организацию, которую удовлетворит данная система. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Список использованной литературы 

      

1. Закон РК «О безопасности и охране труда» от 28 февраля 2004г. №528 – II ЗРК. Газета «Индустриальная Караганда» за 18 – 25 марта №32 – 35.
2. СанПиН «Гигиенические требования к организации и условиям работы с видеодисплейными терминалами и персональными электронно-вычислительными машинами». – Астана: изд. офиц., 2001г. 
3. Андрей Сорокин, Delphi. Разработка баз данных – Москва, Издательство «Питер», 2005. – 476 с.
4. Паронжанов С. Объектно-ориентированные средства анализа, проектирования и реинжениринга информационных систем. – М.: Учебные материалы конференции «Индустрия программирования 96». 1996 г. с.117-123.
5.        Липаев В.В Управление разработкой программных средств.  Методы, стандарты, технология. – М.: Финансы и статистика, 1993.
6.        Вендров А.М. CASE-технологии. Современные методы и средства проектирования информационных систем. - М.: Финансы и статистика, 2000.
7.        Методические указания по дипломному проектированию раздела “Охрана труда и окружающей среды” под ред. Мотузко Ф. Я., МИРЭА, 1980 г.180с.
8. В. Гофман, А. Хомоненко “Delphi 7”, С-П, 2001г.
9. Гайдамакин Н.А. «Автоматизированные информавционные системы, базы и банки данных». Москва, 2002.
10. Кузнецов С.Д. “Основы современных баз данных”, К., 1999.
11. Майкл Дж. Хернандес, Джон Л. Вьескас “ Запросы для простых смертных”.
12. Анатолий Хомоненко и др., Delphi 7. Наиболее полное руководство – Санкт-Петербург, Издательство «БХВ-Петербург», 2005. – 1200 с.
13. Юрий Ревич, Нестандартные приемы программирования на Delphi - Санкт-Петербург, Издательство «БХВ-Петербург», 2005. – 555с.
14. Правила пожарной безопасности в Республике Казахстан. Информационно-методический сборник материалов по Чрезвычайным ситуациям и Гражданской обороне (выпуск №4, 2003г.).

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Приложение  А 

Выходные  формы документов 

  Прайс-лист

 

     Товар на складе

 
 
 
 
 
 
 
 
 
 
 
 
 

Продолжение приложения А 

     Книга продаж

 

     Книга покупок

 
 
 
 
 
 
 
 
 
 
 
 
 

Продолжение приложения А 

     Счет

 

     Накладная

 

     Товарный  чек

 

Приложение  Б 

     Исходный  код модуля главного окна программы 

program Tovar; 

uses

  Forms,

  uMain in 'uMain.pas' {fmMain},

  uDM in 'uDM.pas' {DM: TDataModule},

  uGoodsGroup in 'uGoodsGroup.pas' {fmGoodsGroup},

  uGoods in 'uGoods.pas' {fmGoods},

  uRealiz in 'uRealiz.pas' {fmRealiz},

  uRealizAll in 'uRealizAll.pas' {fmRealizAll},

  uStore in 'uStore.pas' {fmStore},

  uIncome in 'uIncome.pas' {fmIncome},

  uIncomeAll in 'uIncomeAll.pas' {fmIncomeAll},

  uSumToStr in 'uSumToStr.pas',

  uRep in 'uRep.pas',

  uDiapason in 'uDiapason.pas' {fmDiapason},

  uContrag in 'uContrag.pas' {fmContrag},

  uRequisit in 'uRequisit.pas' {fmRequisit},

  uContract in 'uContract.pas' {fmContract}; 

{$R *.res} 

begin

  Application.Initialize;

  Application.CreateForm(TDM, DM);

  Application.CreateForm(TfmMain, fmMain);

  Application.CreateForm(TfmGoodsGroup, fmGoodsGroup);

  Application.CreateForm(TfmGoods, fmGoods);

  Application.CreateForm(TfmRealiz, fmRealiz);

  Application.CreateForm(TfmRealizAll, fmRealizAll);

  Application.CreateForm(TfmStore, fmStore);

  Application.CreateForm(TfmIncome, fmIncome);

  Application.CreateForm(TfmIncomeAll, fmIncomeAll);

  Application.CreateForm(TfmDiapason, fmDiapason);

  Application.CreateForm(TfmContrag, fmContrag);

  Application.CreateForm(TfmRequisit, fmRequisit);

  Application.CreateForm(TfmContract, fmContract);

  Application.Run;

end. 

     Продолжение приложения Б 

unit uContract; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons, DBCtrls, ExtCtrls, Grids, DBGrids, ComCtrls; 

type

  TfmContract = class(TForm)

    DBGrid1: TDBGrid;

    Panel1: TPanel;

    DBNavigator1: TDBNavigator;

    BitBtn1: TBitBtn;

    GroupBox1: TGroupBox;

    CheckBox1: TCheckBox;

    CheckBox2: TCheckBox;

    dtpDate1From: TDateTimePicker;

    dtpDate1To: TDateTimePicker;

    Label1: TLabel;

    Label2: TLabel;

    dtpDate2From: TDateTimePicker;

    dtpDate2To: TDateTimePicker;

    CheckBox4: TCheckBox;

    CheckBox3: TCheckBox;

    BitBtn2: TBitBtn;

    procedure CheckBox1Click(Sender: TObject);

    procedure FormShow(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  fmContract: TfmContract; 

implementation 

uses uDM, uMain; 

{$R *.dfm} 

     Продолжение приложения Б 

//Фильтрация  договоров по диапазону дат  начала и окончания действия:

procedure TfmContract.CheckBox1Click(Sender: TObject);

var Filter: string;

begin

  Filter := '';

  if CheckBox1.Checked then

    Filter := '(Date1 >= ' + QuotedStr(DateToStr(dtpDate1From.Date)) + ')';

  if CheckBox2.Checked then begin

    if Filter <> '' then

      Filter := Filter + ' and ';

    Filter := Filter + '(Date1 <= ' + QuotedStr(DateToStr(dtpDate1To.Date)) + ')';

    end;

  if CheckBox3.Checked then begin

    if Filter <> '' then

      Filter := Filter + ' and ';

    Filter := Filter + '(Date2 >= ' + QuotedStr(DateToStr(dtpDate2From.Date)) + ')';

    end;

  if CheckBox4.Checked then begin

    if Filter <> '' then

     Filter := Filter + ' and ';

    Filter := Filter + '(Date2 <= ' + QuotedStr(DateToStr(dtpDate2To.Date)) + ')';

    end; 

  if (CheckBox1.Checked) or (CheckBox2.Checked) or

     (CheckBox3.Checked) or (CheckBox4.Checked) then begin

    DM.tbContract.Filter := Filter;

    DM.tbContract.Filtered := True;

    end

  else

    DM.tbContract.Filtered := False;

end; 

procedure TfmContract.FormShow(Sender: TObject);

begin

  dtpDate1From.Date := Date;

  dtpDate1To.Date := Date;

  dtpDate2From.Date := Date;

  dtpDate2To.Date := Date;

end; 

end. 
 

     Продолжение приложения Б 

unit uContrag; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons, DBCtrls, ExtCtrls, Grids, DBGrids; 

type

  TfmContrag = class(TForm)

    DBGrid1: TDBGrid;

    Panel1: TPanel;

    DBNavigator1: TDBNavigator;

    BitBtn1: TBitBtn;

    GroupBox1: TGroupBox;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    RadioButton3: TRadioButton;

    GroupBox2: TGroupBox;

    RadioButton4: TRadioButton;

    RadioButton5: TRadioButton;

    RadioButton6: TRadioButton;

    procedure RadioButton1Click(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure FormShow(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  fmContrag: TfmContrag; 

implementation 

uses uDM; 

{$R *.dfm} 

//Отбор контрагентов  по критерию поставщик/клиент  и юр.лицо/физ. лицо:

procedure TfmContrag.RadioButton1Click(Sender: TObject);

var Filter: string;

     Продолжение приложения Б 

begin

  if RadioButton1.Checked then

    Filter := ''

  else

    if RadioButton2.Checked then

      Filter := '(ContrType = True)'

    else

      Filter := '(ContrType = False)'; 

  if (RadioButton5.Checked) or (RadioButton6.Checked) then

    if Filter<>'' then

      Filter := Filter + ' and ';

  if RadioButton5.Checked then

    Filter := Filter + '(Organiz = True)'

  else

    if RadioButton6.Checked then

      Filter := Filter + '(Organiz = False)'; 

  if Filter<>'' then begin

    DM.tbContrag.Filter := Filter;

    DM.tbContrag.Filtered := True;

    end

  else

    DM.tbContrag.Filtered := False;

end; 

procedure TfmContrag.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  DM.tbContrag.Filtered := False;

end; 

procedure TfmContrag.FormShow(Sender: TObject);

begin

  RadioButton1.Checked := True;

  RadioButton4.Checked := True;

end; 

end. 
 

unit uDiapason; 

interface

     Продолжение приложения Б 

uses