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

Uses

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

Dialogs, Menus, Grids, StdCtrls, ExtCtrls, Buttons, ActnList, ToolWin,

ActnMan, ActnCtrls, ActnMenus, XPStyleActnCtrls, ImgList, Mask;

Type

TForm4 = class (TForm)

Edit1: TEdit;

SaveDialog1: TSaveDialog;

OpenDialog1: TOpenDialog;

Label6: TLabel;

ActionManager1: TActionManager;

ActionMainMenuBar1: TActionMainMenuBar;

Action1: TAction;

Action2: TAction;

Action3: TAction;

Action4: TAction;

Action5: TAction;

Action6: TAction;

Action7: TAction;

Action8: TAction;

Action9: TAction;

Action10: TAction;

Action11: TAction;

Action12: TAction;

Action13: TAction;

Action14: TAction;

ActionMainMenuBar2: TActionMainMenuBar;

ImageList1: TImageList;

Action15: TAction;

lbCaption: TLabel;

Panel1: TPanel;

StringGrid1: TStringGrid;

procedure FormResize(Sender: TObject);

procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;

Rect: TRect; State: TGridDrawState);

procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;

var CanSelect: Boolean);

procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);

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

procedure FormCreate(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure Action1Execute(Sender: TObject);

procedure Action2Execute(Sender: TObject);

procedure Action3Execute(Sender: TObject);

procedure Action4Execute(Sender: TObject);

procedure Action5Execute(Sender: TObject);

procedure Action6Execute(Sender: TObject);

procedure Action7Execute(Sender: TObject);

procedure Action8Execute(Sender: TObject);

procedure Action9Execute(Sender: TObject);

procedure Action10Execute(Sender: TObject);

procedure Action11Execute(Sender: TObject);

procedure Action12Execute(Sender: TObject);

procedure Action13Execute(Sender: TObject);

procedure Action14Execute(Sender: TObject);

procedure Action15Execute(Sender: TObject);

procedure Shapka;

procedure Proverka;

Private

Public

end;

Type

// массив всех заполняемых переменных (1 - конец отч.пер., 2 - начало, 3 - нач. аналог.)

T_value = Array [1..69, 1..3] of Double;

// массив из названий букв-переменных (этот массив нужен для массива T_bukvy2)

T_bukvy1 = (SA, NLOA, TKO, LA, SS, VOA, DZ, Ppr, Vpr,

R, Kpr, OA, KDZ, SOS, ZZ, FKo, DOO, WI,

KZiK, kiR, OD, FK, Ri, CHPr, CHP, SRT, GP,

SVA, VN, Vsr, D, POAV, PKZ, NPr);

// массив переменных (1 - конец отч.пер., 2 - начало, 3 - нач. аналог.)

T_bukvy2 = Array [T_bukvy1, 1..3] of Double;

// массив из названий рассчитываемых переменных (этот массив нужен для массива T_znach2)

T_znach1 = (v1, v1_1, v1_2, v1_3, v1_4,

v2, v2_1, v2_3, v2_3_1, v2_4, v2_5,

vI, vII,

v3, v3_3, v3_4,

v4, v4_1,

v5, v5_1, v5_2,

v9, v12, v18, v20);

// массив всех рассчитываемых переменных (1 - конец отч.пер., 2 - начало, 3 - нач. аналог.)

T_znach2 = Array [T_znach1, 1..3] of Double;

Var

Form4: TForm4;

v: T_value; // переменные, которые сразу читаются из таблицы

z: T_znach2; // переменные, которые опираются на "v"

b: T_bukvy2; // переменные-буквы, которые опираются на "v" и "z"

prov: Boolean; // разрешаем или не разрешаем выполнять тот или иной алгоритм

knop: Byte; // номер нажатой кнопки (определяем, какую выполнять проверку в зависимости от алгоритма)

v0: Double; // кол-во месяцев в отчётном периоде

_OA, _ZZ, _DZ, _OS, _SA, _VOA, _MZ, _KZ, _KiR, _FK, _Z: Double; // дополнительные переменные-буквы

Дата добавления: 2015-10-13