Автор работы: Пользователь скрыл имя, 14 Мая 2013 в 14:19, курсовая работа
Актуальность темы обусловлена тем, что в настоящее время, в условиях продолжающегося перехода к рыночной экономике, многие предприятия испытывают значительные трудности в организации и ведении экономической деятельности, своевременной выработкой оперативных управленческих решений и разработкой перспектив развития.
Целью создания такого программного обеспечения является автоматизация процесса анализа затрат, производства, себестоимости и реализации продукции в агропромышленном комплексе, что позволит существенно уменьшить временные и трудовые затраты на решение поставленных задач анализа, улучшить качество и достоверность получаемой информации за счет объективности полученных результатов и повысить оперативность ее обработки.
Приложения
Приложение 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(
Application.CreateForm(TDM, DM);
Application.CreateForm(
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;
tbNaim39id: TAutoIncField;
tbNaim39naim: TWideStringField;
tbNaim39kod: TIntegerField;
tbNaim39n: TBooleanField;
procedure qT32CalcFields(DataSet: TDataSet);
procedure tb37CalcFields(DataSet: TDataSet);
procedure tb38CalcFields(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DM: TDM;
implementation
{$R *.dfm}
procedure TDM.qT32CalcFields(DataSet: TDataSet);
begin
if not (qT32Vsego.AsInteger = 0) then
qT32prOplata.AsFloat := qT32oplata.AsFloat / qT32Vsego.AsFloat * 100;
if not (qT32Vsego.AsInteger = 0) then
<p class="dash