Разработка БД и ПО для анализа производства, затрат, себестоимости и реализации продукции растениеводства в агропромышленном комплексе (п

     Посредством удобного и интуитивно понятного  интерфейса можно извлекать и редактировать данные, которые хранятся в базе данных.

 

Заключение

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

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

   В практической части курсовой работы мы рассмотрели основные экономические  и производственные показатели деятельности предприятия. И разработали программный  комплекс позволяющий автоматизировать процесс анализа таких показателей, как:

• себестоимость продукции;
• средняя урожайность;
• прибыль и рентабельность.

   В процессе выполнения анализа проводится расчёт затрат, доходов, прибыли и рентабельности. Изучается их динамика, определяется влияние факторов на результаты деятельности предприятия. Выходная информация приводится в виде аналитических таблиц с использованием графического процессора.

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

 

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

1. Бобровский С.И. Delphi7. Учебный курс. Издательство: СПБ.: Питер 2004г.
2. Культин Н. Основы программирования в Delphi7. Издательство: БХВ: Петербург 2003г.
3. Вендоров А.М. Практикум по проектированию ПО экономических и информационных систем. М.: «Финансы и статистика», 2007г.
4. Диго С.М. проектирование и использование БД.- М.: «Финансы и статистика», 2002г.
5. Титов В.И. Экономика предприятия. - М.: Учебник «Эксмо», 2008г.
6. Ковалев В.В., Волкова О.Н.  Анализ хозяйственной деятельности предприятия. Анализ расходов, затрат и себестоимости продукции. Издательство: ТК Велби 2002г.
7. Журавлев В. В., Савруков Н. Т. Анализ хозяйственно-финансовой деятельности предприятий. Издательство: СПБ: Политехника 2001г.
8. Гринченко Н.Н., Гусев Е.В., Макаров Н.П. Проектирование Базы данных. СУБД Microsoft Acces. Учебное пособие. Издательство: Горячая линия - Телеком 2004г.
9. А.Д.Хомоненко, В.М.Цыганков, М.Г.Мальцев - Базы данных. Учебник для вузов. Издательство: Корона-Принт 2004г.
10. Савицкая Г.В. Анализ хозяйственной деятельности предприятия. М.: ИНФРА-М,2008.
11. Глазов В.С. Анализ финансово-хозяйственной деятельности предприятия. М.: Финансы и статистика, 2006.
12. Ковалева В.Д, Хисамудинов В.В.  Автоматизированное рабочее место экономиста. – М.: «Финансы и статистика», 2009.
13. Минаков И.А. Экономика отраслей АПК. Издательство: «КолосС», 2004.
14. Савицкая Г.В. Анализ хозяйственной деятельности предприятий АПК. Издательство: «Новое знание», 2006.
15. Стефанова С.Н., Ткаченко И.Ю. АПК: Бухгалтерский учет на сельскохозяйственных и перерабатывающих предприятиях. Издательство: «Феникс», 2008.
16. Лещиловский П.В. Экономика предприятий и отраслей АПК. Издательство: «БГЭУ», 2007.
17. Синиченко З. И., Грищенко О. В. Учебная программа и методические указания по дисциплине «Комплексный экономический анализ хозяйственной деятельности». Таганрог: Изд-во ТИУиЭ, 2003.
18. Соколова Г.Н.Информационные технологии экономического анализа. - М: Экзамен , 2002. - 230 с.
19. Шадрина Г.В., Озорнина Е.Г. Теория экономического анализа. – М.: «ММИЭИФП», 2003. – 103с.
20. Шеремет А.Д. , Сайфулин Р.С. Методика финансового анализа. М.: ИНФРА-М, 2006.
21. Шпак А. Организационно-экономические факторы повышения эффективности производства продукции земледелия. // Агроэкономика. №11. 2002. с.6.

 

Приложения

Приложение 1

Блок-схема  программы

Продолжение блок-схемы

Продолжение блок-схемы

 

Продолжение блок-схемы

Продолжение блок-схемы

Продолжение блок-схемы 

Продолжение блок-схемы

 
 
 
 

Листинг программы

program prK;

uses

  Forms,

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

  uAbout in 'uAbout.pas' {AboutBox},

  Unit2 in 'Unit2.pas' {fmMain},

  Unit11 in 'Unit11.pas' {fm38},

  Unit7 in 'Unit7.pas' {fm37},

  Unit8 in 'Unit8.pas' {fm39};

{$R *.res}

begin

  Application.Initialize;

  Application.CreateForm(TfmMain, fmMain);

  Application.CreateForm(TDM, DM);

  Application.CreateForm(TAboutBox, AboutBox);

  Application.CreateForm(Tfm38, fm38);

  Application.CreateForm(Tfm37, fm37);

  Application.CreateForm(Tfm39, fm39);

  Application.Run;

end. 

unit uDM;

interface

uses

  SysUtils, Classes, DB, ADODB;

type

  TDM = class(TDataModule)

    Connection: TADOConnection;

    tb35: TADOTable;

    ds35: TDataSource;

    tb35id: TAutoIncField;

    tb35Naim: TWideStringField;

    tb35Kod: TIntegerField;

    tb35plPos: TIntegerField;

    tb35plUb: TIntegerField;

    tb35zatrVs: TIntegerField;

    tb35oplata: TIntegerField;

    tb35semena: TIntegerField;

    tb35udobr: TIntegerField;

    tb35osVs: TIntegerField;

    tb35osZatr: TIntegerField;

    ds37: TDataSource;

    qT32: TADOQuery;

    dsT32: TDataSource;

    qT32God: TIntegerField;

    qT32Naim: TWideStringField;

    qT32Kod: TIntegerField;

    qT32plPos: TIntegerField;

    qT32plUb: TIntegerField;

    qt32summ: TADOQuery;

    dst32summ: TDataSource;

    tbTm32: TADOQuery;

    dsTm32: TDataSource;

    tbTm32id: TAutoIncField;

    tbTm32Naim: TWideStringField;

    tbTm32Kod: TIntegerField;

    tbTm32plPos: TIntegerField;

    tbTm32plUb: TIntegerField;

    tbTm32oplata: TIntegerField;

    tbTm32semena: TIntegerField;

    tbTm32udobr: TIntegerField;

    tbTm32osVs: TIntegerField;

    tbTm32osZatr: TIntegerField;

    tbTm32God: TIntegerField;

    tbTm32Vsego: TIntegerField;

    qT33: TADOQuery;

    dsT33: TDataSource;

    qT33ID: TAutoIncField;

    qT33Sbor: TWideStringField;

    qT33Kod: TIntegerField;

    qT33VsegoC: TIntegerField;

    qT33VsegoTs: TIntegerField;

    qT33Zatrat: TIntegerField;

    qT33Data: TWideStringField;

    qT33EdP: TFloatField;

    tb32p: TADOQuery;

    qt33p: TADOQuery;

    qt33pID: TAutoIncField;

    qt33pSbor: TWideStringField;

    qt33pKod: TIntegerField;

    qt33pVsegoC: TIntegerField;

    qt33pS1ga: TIntegerField;

    qt33pVsegoTs: TIntegerField;

    qt33pZatrat: TIntegerField;

    qt33pData: TWideStringField;

    tb32pid: TAutoIncField;

    tb32pNaim: TWideStringField;

    tb32pKod: TIntegerField;

    tb32pplPos: TIntegerField;

    tb32pplUb: TIntegerField;

    tb32poplata: TIntegerField;

    tb32psemena: TIntegerField;

    tb32pudobr: TIntegerField;

    tb32posVs: TIntegerField;

    tb32posZatr: TIntegerField;

    tb32pGod: TIntegerField;

    qT331: TADOQuery;

    dsT331: TDataSource;

    qT331ID: TAutoIncField;

    qT331Sbor: TWideStringField;

    qT331Kod: TIntegerField;

    qT331VsegoC: TIntegerField;

    qT331VsegoTs: TIntegerField;

    qT331Zatrat: TIntegerField;

    qT331Data: TWideStringField;

    qT331EdP: TFloatField;

    qT331znaed: TFloatField;

    qT331S1ga: TIntegerField;

    qT33S1ga: TIntegerField;

    tbPRSum: TADOTable;

    dsPrSum: TDataSource;

    qT32prOplata: TFloatField;

    qT32prSemena: TFloatField;

    qT32prUdobr: TFloatField;

    qT32prOsVs: TFloatField;

    qT32prVsego: TFloatField;

    qT32id: TAutoIncField;

    qT32oplata: TIntegerField;

    qT32semena: TIntegerField;

    qT32udobr: TIntegerField;

    qT32osVs: TIntegerField;

    qT32osZatr: TIntegerField;

    qT32Vsego: TIntegerField;

    tbPRSumprOplata: TFloatField;

    tbPRSumprSemena: TFloatField;

    tbPRSumprUdobr: TFloatField;

    tbPRSumprOsVs: TFloatField;

    tbPRSumprOsZatr: TFloatField;

    tbPRSumprVsego: TFloatField;

    tby1: TADOQuery;

    dsy1: TDataSource;

    tb37: TADOQuery;

    tb37id: TAutoIncField;

    tb37naim: TWideStringField;

    tb37kod: TIntegerField;

    tb37kol: TIntegerField;

    tb37sebest: TIntegerField;

    tb37vir: TIntegerField;

    tb37dYear: TIntegerField;

    tby37: TADOQuery;

    dsy37: TDataSource;

    tby37dyear: TIntegerField;

    dsTemp37: TDataSource;

    tbTemp37: TADOQuery;

    tbTemp37ID: TAutoIncField;

    tbTemp37naim: TWideStringField;

    tbTemp37y1: TFloatField;

    tbTemp37y2: TFloatField;

    tbTemp37y3: TFloatField;

    tbTemp37y4: TFloatField;

    tbTemp37y5: TFloatField;

    tbTemp37y6: TFloatField;

    tbTemp37y7: TFloatField;

    tbTemp37y8: TFloatField;

    tbTemp37y9: TFloatField;

    tbTemp37y10: TFloatField;

    tbTemp37y11: TFloatField;

    tbTemp37y12: TFloatField;

    tbYear37: TADOQuery;

    dsYear37: TDataSource;

    tbYear37id: TAutoIncField;

    tbYear37dYear: TIntegerField;

    tbYear37tf: TBooleanField;

    dsNaim37: TDataSource;

    tbNaim37: TADOQuery;

    tbNaim37id: TAutoIncField;

    tbNaim37Naim: TWideStringField;

    tbNaim37tf: TBooleanField;

    tb37s: TFloatField;

    tb37v: TFloatField;

    tb37p: TFloatField;

    tbYCH37: TADOQuery;

    dsYCH37: TDataSource;

    tbYCH37id: TAutoIncField;

    tbYCH37dYear: TIntegerField;

    tbYCH37tf: TBooleanField;

    dsNaimch37: TDataSource;

    tbNaimCH37: TADOQuery;

    tbNaimCH37id: TAutoIncField;

    tbNaimCH37Naim: TWideStringField;

    tbNaimCH37tf: TBooleanField;

    tbNaim37kod: TIntegerField;

    tbTemp37Kod: TIntegerField;

    tb38: TADOQuery;

    ds38: TDataSource;

    tb38id: TAutoIncField;

    tb38naim: TWideStringField;

    tb38kod: TIntegerField;

    tb38posnov: TFloatField;

    tb38plVS: TFloatField;

    tb38plPL: TFloatField;

    tb38sbor: TFloatField;

    tb38valSbor: TFloatField;

    tb38zatr: TFloatField;

    tb38dYear: TIntegerField;

    tb38s1ga: TFloatField;

    tb38sebest: TFloatField;

    tbNaim38: TADOQuery;

    dsNaim38: TDataSource;

    tb38n: TBooleanField;

    tb39: TADOQuery;

    ds39: TDataSource;

    tbNaim38id: TAutoIncField;

    tbNaim38naim: TWideStringField;

    tbNaim38kod: TIntegerField;

    tbNaim38n: TBooleanField;

    tbNaim39: TADOQuery;

    dsNaim39: TDataSource;

    tb39ID: TAutoIncField;

    tb39naim: TWideStringField;

    tb39kod: TIntegerField;

    tb39vsego: TIntegerField;

    tb39meg: TIntegerField;

    tb39isp: TIntegerField;

    tb39per: TIntegerField;

    tb39nisp: TIntegerField;

    tb39n: TBooleanField;

    tb39dYear: TIntegerField;