Geum.ru

Автоматизация прогнозирования банкротства предприятия

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование



иятия.

ПРИЛОЖЕНИЯ

Приложение 1

Текс программы:, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids;= class(TForm): TDBGrid;: TDBNavigator;: TLabel;: TLabel;: TButton;: TButton;: TDBNavigator;: TDBGrid;: TDataSource;: TADOTable;DSDesigner: TBCDField;DSDesigner2: TBCDField;DSDesigner3: TDateTimeField;: TADOTable;: TDataSource;Z: TBCDField;DSDesigner1: TBCDField;DSDesigner2: TBCDField;DSDesigner3: TBCDField;DSDesigner4: TBCDField;DSDesigner5: TBCDField;DSDesigner: TDateTimeField;Button2Click(Sender: TObject);Button1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm3;Unit1, Unit2;

{$R *.dfm}TForm3.Button2Click(Sender: TObject);;TForm3.Button1Click(Sender: TObject);.Edit;.FieldByName('К1').Asfloat:=ADOTable1.FieldByName('Пбал').Asfloat/Form1.ADOTable1.FieldByName('Аобщ').Asfloat;.FieldByName('К2').Asfloat:=Form1.ADOTable2.FieldByName('Виручка').Asfloat/Form1.ADOTable1.FieldByName('Аобщ').Asfloat;.FieldByName('К3').Asfloat:=(Form1.ADOTable1.FieldByName('Аосн').Asfloat+Form1.ADOTable1.FieldByName('Ан').Asfloat)/Form2.ADOTable1.FieldByName('Ки').Asfloat;.FieldByName('К4').Asfloat:=Form3.ADOTable1.FieldByName('Пчист').Asfloat/Form1.ADOTable1.FieldByName('Аобщ').Asfloat;.FieldByName('К5').Asfloat:=(Form1.ADOTable1.FieldByName('Аоборот').Asfloat- Form2.ADOTable1.FieldByName('Окр').Asfloat )/Form1.ADOTable1.FieldByName('Аобщ').Asfloat;.FieldByName('Z').Asfloat:=3.3* Form3.ADOTable2.FieldByName('К1').Asfloat+ 0.99*Form3.ADOTable2.FieldByName('К2').Asfloat+0.6* Form3.ADOTable2.FieldByName('К3').Asfloat+1.4* Form3.ADOTable2.FieldByName('К4').Asfloat+1.2* Form3.ADOTable2.FieldByName('К5').Asfloat;

ADOTable2.Post;;.