Private

Public

end;

Var

Form2: TForm2;

Implementation

uses main, Small_Business, Enterprise, Programm, ShellAPI;

{**** Закрытие формы *****}

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

Begin

Form1.Close;

end;

{**** Кнопка - ОК ****}

procedure TForm2.BitBtn1Click(Sender: TObject);

Begin

if RadioButton1.Checked then

Begin

Form3.Show; // Малый бизнес

Form2.Hide;

end;

if RadioButton2.Checked then

Begin

Form4.Show; // Предприятие

Form2.Hide;

end;

end;

{**** Панель - Помощь ****}

procedure TForm2.Action1Execute(Sender: TObject);

Begin

ShellExecute(handle, 'open', 'helpfile.pdf', nil, nil, SW_SHOWNORMAL);

end;

{**** Панель - О программе ****}

procedure TForm2.Action2Execute(Sender: TObject);

Begin

Form22.Show;

end;

end.

2.1 UNIT SMALL_BUSINESS

unit Small_Business;

Interface

Uses

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

Dialogs, Menus, Grids, ExtCtrls, StdCtrls, Shellapi, XPStyleActnCtrls,

ActnList, ActnMan, ToolWin, ActnCtrls, ActnMenus, StdActns, ImgList;

Type

TForm3 = class (TForm)

SaveDialog1: TSaveDialog;

OpenDialog1: TOpenDialog;

ActionManager1: TActionManager;

Action1: TAction;

Action2: TAction;

Action3: TAction;

Action4: TAction;

Action5: TAction;

Action6: TAction;

ActionMainMenuBar2: TActionMainMenuBar;

Action7: TAction;

Action8: TAction;

Action9: TAction;

lbCaption: TLabel;

ActionMainMenuBar1: TActionMainMenuBar;

ImageList1: TImageList;

Action10: TAction;

Edit1: TEdit;

Label1: TLabel;

Panel1: TPanel;

StringGrid1: TStringGrid;

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

procedure FormShow(Sender: TObject);

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 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 Shapka;

procedure Proverka;

Private

Public

end;

Type

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

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

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

T_bukvy1 = (SA, SVA, OA, LA, NLOA, KDZ, SS, OD, TKO, Vpr, Vsr,

CHPr, D, POAV, PKZ, DZ, NPr, SOS);

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

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

T_znach1 = (vI, vII, v1, v2, v2_1, v2_2, v2_3, {v2_4,}

v3, v4, v5, v7, v8, v9);

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

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

Var

Form3: TForm3;

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

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

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

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

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

// проверку в зависимости от алгоритма)

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

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