1. простота в использовании;
2. добавление, редактирование и удаление информации;
3. организация меню пользователя;
4. улучшение качества контроля и учета обрабатываемой информации;
5. уменьшение затрат времени на поиск необходимой информации.

      Для его разработки был использован  язык  программирования высокого уровня Delphi 7, а также входящая в его состав утилита, приложение Borland Database Desktop для работы с БД.

      Данный  программный продукт  по автоматизации  учета материалов может быть внедрен  на предприятии.

       Список  литературы

 

1. Абдулаев  А.А., Алиев Р.А., Уланов Г.М. «Принципы построения автоматизированных систем управления промышленными предприятиями». – М. «Энергия», 1975. 440 с. с ил.

2. Архангельский  А.Я « Delphi 7 » Справочное пособие. – М.: ООО «Бином-Пресс», 2003. – 1024 с.: ил.

3. Архангельский А.Я. « Программирование в Delphi 7».- М.: ООО «Бином-Пресс», 2003. – 1152 с.: ил.

4. Архангельский  А.Я. « Приемы программирования в Delphi» – М.: ООО «Бином-Пресс», 2003. – 784 с.: ил.

      5. Бабаев Ю.А. Бухгалтерский учет.- М.ЮНИТИ-ДАТА,2005

6. Гофман  В.В., Хомоненко А.Д., «Работа с  базами данных в Delphi» – СПб.: «БХВ-Петербург», 2005 г- 640 с.: ил

7. Культин  Н.Б., «Основы программирования в Delphi 7» - СПП: БХБ- Петербург, 2004- 608 с.: ил.

8. Козлова Е.П. Учет и распределение материалов, расходуемых на производство // Главбух, 2004, № 7

9.  Мамиконов А.Г., Пискунов А.Н., Цвиркун  А.Д. «Модели и методы проектирования информационного обеспечения АСУ». – М., «Статистика», 1978 г.- 221 с.  ил.

10. Модин А.А., Ефимов В.Н., Коротяев М.Ф., Зингер И.С. «Предпроектный анализ систем управления при создании АСУ». М., «Статистика», 1976-  72 с.: ил.

11. Мамиконов  А.Г., «Основы построения АСУ»: Учебник для ВУЗов. – М.: Высш. Школа, 1981. – 248 с. с ил.

12. . Рашковский  В.М., «Теория и практика разработки  АСУП». - М., «Сов. радио» , 1975-  224 с.:  ил.

13. Семакин И.Г., Шестаков А.П. Основы программирования. - М.: Мастерство, 2002. – 432 с.: ил.

14. Смирнова  Г.Н.и др. «Проектирование Экономических  информационных систем» -М.: Финансы  и статистика,2002.-512с. : ил.;    15.  Титоренко Г.А. Автоматизированные технологии в экономике. – М.: Компьютер, ЮНИТИ, 1998. – 400с.: ил.

16. Уткин В.Б., Балдин К.В. Информационные системы в экономике. – М.: Издательский центр Академия, 2004.-288с.: ил.

17. Фаронов  В.В. Система программирования  Delphi. -  СПб.: БХВ - Петербург, 2003. – 912 с.: ил.

18. Фаронов  В.В. Delphi Программирование на языке высокого уровня: Учебник для вузов -  СПб.: Питер, 2005. – 640с.: ил.

19. Флёнов М.Е.  «Компьютер глазами хакера» СПб.: «БВХ – Петербург» 2005 – 336с.

20. Яковлев  А.И. Энциклопедический справочник  персонального компьютера.- М.: Русское  энциклопедическое товарищество,2004. – 928с.: ил. 
 
 
 
 
 
 
 
 
 
 
 

Приложение 

       Листинг основных модулей

type

  TdmMain = class(TDataModule)

    adocDB: TADOConnection;

    adotDocPrihod: TADOTable;

    dsDocPrihod: TDataSource;

    adotDocSpisanie: TADOTable;

    dsDocSpisanie: TDataSource;

    adotMat: TADOTable;

    dsMat: TDataSource;

    adotSklad: TADOTable;

    dsSklad: TDataSource;

    adotDocPrihodAutoIncField: TAutoIncField;

    adotDocPrihodDateTimeField: TDateTimeField;

    adotDocPrihodIntegerField: TIntegerField;

   adotDocPrihodIntegerField2: TWideStringField;

    adotTabPrihod: TADOTable;

    dsTabPrihod: TDataSource;

    adotTabPrihodIntegerField2: TIntegerField;

    adotTabPrihodFloatField: TFloatField;

    adotTabPrihodFloatField2: TFloatField;

    adotTabPrihodIntegerField3: TWideStringField;

    adotNSI: TADOTable;

    dsNSI: TDataSource;

    adotTabSpisanie: TADOTable;

    dsTabSpisanie: TDataSource;

    adotDocSpisanieAutoIncField: TAutoIncField;

    adotDocSpisanieDateTimeField: TDateTimeField;

    adotDocSpisanieIntegerField: TIntegerField;

    adotDocSpisanieIntegerField2: TIntegerField;

    adotDocSpisanieIntegerField3: TIntegerField;

    adotDocSpisanieIntegerField4: TIntegerField;

    adotDocSpisanieIntegerField5: TWideStringField;

    adotPodrazd: TADOTable;

    adotNomGrup: TADOTable;

    adotStatiya: TADOTable;

    dsPodrazd: TDataSource;

    dsNomGrup: TDataSource;

    dsStatiya: TDataSource;

    adotDocSpisanieIntegerField6: TWideStringField;

    adotDocSpisanieWideStringField: TWideStringField;

    adotDocSpisanieIntegerField7: TWideStringField;

    adotTabSpisanieIntegerField: TIntegerField;

    adotTabSpisanieIntegerField2: TIntegerField;

    adotTabSpisanieFloatField: TFloatField;

    adotTabSpisanieIntegerField3: TWideStringField;

    adotNSIAutoIncField: TAutoIncField;

    adotNSIWideStringField: TWideStringField;

    adospMatVed: TADOStoredProc;

    dsMatVed: TDataSource;

    adotTabPrihodIntegerField: TIntegerField;

    adospMatVedWideStringField: TWideStringField;

    adospMatVedWideStringField2: TWideStringField;

    adospMatVedFloatField: TFloatField;

    adospMatVedFloatField2: TFloatField;

    adospMatVedField: TWideStringField;

    adospMatVedFloatField3: TWideStringField;

    procedure adospMatVedCalcFields(DataSet: TDataSet);

    procedure DataModuleCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  dmMain: TdmMain; 

implementation 

{$R *.dfm} 

procedure TdmMain.adospMatVedCalcFields(DataSet: TDataSet);

begin

  DataSet.FieldByName('ПриходСтрока').AsString := FloatToStr(DataSet.FieldByName('Приход').AsFloat);

  DataSet.FieldByName('РасходСтрока').AsString := FloatToStr(DataSet.FieldByName('Расход').AsFloat);

end; 

procedure TdmMain.DataModuleCreate(Sender: TObject);

begin

  adocDB.ConnectionString := StringReplace(adocDB.ConnectionString,

      'D:\Users\root\Documents\Borland Studio Projects\Курсовик\BU.mdb',

      ChangeFileExt(ParamStr(0), '.mdb'),

      []); 

  adocDB.Open;

  adotDocPrihod.Open;

  adotDocSpisanie.Open;

  adotMat.Open;

  adotSklad.Open;

  adotTabPrihod.Open;

  adotTabSpisanie.Open;

  adotPodrazd.Open;

  adotNomGrup.Open;

  adotStatiya.Open;

end; 

end. 

unit ufmMain; 

interface 

uses

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

  Dialogs, Menus, ComCtrls, ToolWin, ActnList, ImgList, ExtCtrls, DBCtrls,

  Grids, DBGrids, StdCtrls, StdActns; 

type

  TfmMain = class(TForm)

    ActionList1: TActionList;

    MainMenu1: TMainMenu;

    ImageList1: TImageList;

    Splitter1: TSplitter;

    Panel1: TPanel;

    Panel2: TPanel;

    Panel3: TPanel;

    Panel4: TPanel;

    dbnPrihod: TDBNavigator;

    dbnSpisanie: TDBNavigator;

    dbgPrihod: TDBGrid;

    dbgSpisanie: TDBGrid;

    Panel5: TPanel;

    Bevel1: TBevel;

    Label1: TLabel;

    Panel6: TPanel;

    Bevel2: TBevel;

    Label2: TLabel;

    ActionExit: TFileExit;

    N1: TMenuItem;

    Exit1: TMenuItem;

    ActionSclad: TAction;

    ActionPodrazd: TAction;

    ActionNomGrup: TAction;

    ActionMat: TAction;

    ActionStatiya: TAction;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    ActionMatVed: TAction;

    N9: TMenuItem;

    procedure dbgPrihodDblClick(Sender: TObject);

    procedure dbnPrihodClick(Sender: TObject; Button: TNavigateBtn);

    procedure dbgSpisanieDblClick(Sender: TObject);

    procedure dbnSpisanieClick(Sender: TObject; Button: TNavigateBtn);

    procedure ActionMatExecute(Sender: TObject);

    procedure ActionScladExecute(Sender: TObject);

    procedure ActionPodrazdExecute(Sender: TObject);

    procedure ActionNomGrupExecute(Sender: TObject);

    procedure ActionStatiyaExecute(Sender: TObject);

    procedure ActionMatVedExecute(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  fmMain: TfmMain; 

implementation 

uses

  udmMain, ufmPrihod, ufmSpisanie, ufmNSI, ufmMatVed; 

{$R *.dfm} 

procedure TfmMain.ActionMatExecute(Sender: TObject);

begin

  ShowNSIForm('Материалы', 'Материалы');

end; 

procedure TfmMain.ActionMatVedExecute(Sender: TObject);

begin

  fmMatVed := TfmMatVed.Create(Application);

  fmMatVed.ShowModal;

  fmMatVed.Free;

end; 

procedure TfmMain.ActionNomGrupExecute(Sender: TObject);

begin

  ShowNSIForm('НоменклатурныеГруппы', 'Номенклатурные группы');

end; 

procedure TfmMain.ActionPodrazdExecute(Sender: TObject);

begin

  ShowNSIForm('Подразделения', 'Подразделения');

end; 

procedure TfmMain.ActionScladExecute(Sender: TObject);

begin

  ShowNSIForm('Склады', 'Склады');

end; 

procedure TfmMain.ActionStatiyaExecute(Sender: TObject);

begin

  ShowNSIForm('СтатьиЗатрат', 'Статьи затрат');

end; 

procedure TfmMain.dbgPrihodDblClick(Sender: TObject);

begin

  fmPrihod := TfmPrihod.Create(Application);

  fmPrihod.ShowModal;

  fmPrihod.Free;

end; 

procedure TfmMain.dbgSpisanieDblClick(Sender: TObject);

begin

  fmSpisanie := TfmSpisanie.Create(Application);

  fmSpisanie.ShowModal;

  fmSpisanie.Free;

end; 

procedure TfmMain.dbnSpisanieClick(Sender: TObject; Button: TNavigateBtn);

begin

  if Button in [nbEdit, nbInsert] then

    dbgSpisanieDblClick(Sender);

end; 

procedure TfmMain.dbnPrihodClick(Sender: TObject; Button: TNavigateBtn);

begin

  if Button in [nbEdit, nbInsert] then