Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

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

Читайте также:
  1. Interface
  2. Interface
  3. Interface
  4. Interface
  5. Interface

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; просмотров: 62 | Нарушение авторских прав


Читайте в этой же книге: Исследовательский раздел | Модель TO-BE | Обоснование выбора языка и среды программирования | Описание главной формы | СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ | Private | Implementation | Interface | Implementation 2 страница | Implementation 3 страница |
<== предыдущая страница | следующая страница ==>
Interface| Implementation 1 страница

mybiblioteka.su - 2015-2024 год. (0.007 сек.)