Трёхуровневый иерархический список

(Исходные тексты всех модулей)

МодульUnitMain.

unit UnitMain;

interface

uses

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

Dialogs, Grids, ComCtrls, Menus, Organizations, StdCtrls, XPMan,

UnitSearch, UnitCorrect;

type

TMain = class(TForm)

PageControl1: TPageControl;

MainMenu1: TMainMenu;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

StringGrid1: TStringGrid;

StringGrid2: TStringGrid;

StringGrid3: TStringGrid;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N9: TMenuItem;

OpenDialog1: TOpenDialog;

TabSheet4: TTabSheet;

StringGrid4: TStringGrid;

XPManifest1: TXPManifest;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

procedure FormCreate(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

public

NPO: TNPO;

end;

var Main: TMain;

implementation

{$R *.dfm}

//ЗаполняемшапкитаблицисоздаёмНПО

procedure TMain.FormCreate(Sender: TObject);

begin

with StringGrid1 do

begin

Cells[0,0] := ' № дог.';

Cells[1,0] := ' Дата закл.';

Cells[2,0] := ' Дата зав.';

Cells[3,0] := ' Тема';

Cells[4,0] := ' Организация';

Cells[5,0] := ' Признак';

Cells[6,0] := ' Стоимость'

end;

with StringGrid2 do

begin

Cells[0,0] := ' Фамилия';

Cells[1,0] := ' Имя';

Cells[2,0] := ' Отчество';

Cells[3,0] := ' Год рожд';

Cells[4,0] := ' Код XD';

Cells[5,0] := ' Признак';

Cells[6,0] := ' Сумма';

Cells[7,0] := ' Адрес';

Cells[8,0] := ' Банк';

Cells[9,0] := ' Счет'

end;

with StringGrid3 do

begin

Cells[0,0] := ' № отделения';

Cells[1,0] := ' Город';

Cells[2,0] := ' Адрес отделения';

Cells[3,0] := ' Наимен. отделения';

Cells[4,0] := ' Код отделения'

end;

with StringGrid4 do

begin

Cells[0,0] := ' Номер';

Cells[1,0] := ' Дата закл.';

Cells[2,0] := ' Признак';

Cells[3,0] := ' Стоимость';

Cells[4,0] := ' Города';

Cells[5,0] := ' Счета'

end;

NPO := TNPO.Create(StringGrid1, StringGrid2, StringGrid3)

end;

//Пункт меню "Выход"

procedure TMain.N4Click(Sender: TObject);

begin

Close

end;

//Пункт меню "О программе"

procedure TMain.N9Click(Sender: TObject);

begin

MessageBox(Handle, PChar('Курсовой проект' + #13 + 'ст. гр. 107218 Горбачёв П. И.'),

'Информация', MB_ICONINFORMATION)

end;

//Пункт меню "Открыть файл ХозДоговоры"

procedure TMain.N5Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

NPO.LoadXD(OpenDialog1.FileName);

NPO.ShowXD

end

end;

//Пункт меню "Открыть файл Исполнители"

procedure TMain.N6Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

NPO.LoadWTK(OpenDialog1.FileName);

NPO.ShowWTK

end

end;

//Пункт меню "Открыть файл Отделения Банков"

procedure TMain.N7Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

NPO.LoadBank(OpenDialog1.FileName);

NPO.ShowBank

end

end;

//Сформировать список

procedure TMain.Button1Click(Sender: TObject);

begin

if ((NPO.CountXD = 0) or (NPO.CountWTK = 0) or (NPO.CountBank = 0)) then

begin

MessageBox(Handle, 'Не хватате данных', 'Ошибка', MB_ICONERROR);

Exit

end;

//Создём список и выводим его

NPO.CreateList;

NPO.Struct.Show(StringGrid4);

Button1.Enabled := False;

Button2.Enabled := True;

Button3.Enabled := True;

Button4.Enabled := True;

Button5.Enabled := True;

end;

//Кнопка "Сортировать по возрастанию"

procedure TMain.Button3Click(Sender: TObject);

begin

NPO.Struct.SortingUp; //Сортируем иерархический список

NPO.Struct.Show(StringGrid4) //и выводим

end;

//Кнопка "Сортировать по убыванию"

procedure TMain.Button4Click(Sender: TObject);

begin

NPO.Struct.SortingDown; //Сортируем иерархический список

NPO.Struct.Show(StringGrid4) //и выводим

end;

//Кнопка "Поиск"

procedure TMain.Button2Click(Sender: TObject);

begin

Search.ShowModal

end;

//Кнопка "Корректировать"

procedure TMain.Button5Click(Sender: TObject);

begin

Correct.ShowModal;

NPO.Struct.Show(StringGrid4)

end;

end.

МодульUnitSearch.

unit UnitSearch;

interface

uses

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

Dialogs, StdCtrls, Grids, Structures;

type

TSearch = class(TForm)

StringGrid1: TStringGrid;

Label1: TLabel;

Edit1: TEdit;

procedure FormCreate(Sender: TObject);

procedure Edit1Change(Sender: TObject);

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

end;

var Search: TSearch;

implementation

{$R *.dfm}

uses UnitMain;

procedure TSearch.FormCreate(Sender: TObject);

begin

with StringGrid1 do

begin

Cells[0,0] := ' Номер';

Cells[1,0] := ' Дата закл.';

Cells[2,0] := ' Признак';

Cells[3,0] := ' Стоимость';

end;

end;

//Поиск договоров

procedure TSearch.Edit1Change(Sender: TObject);

var

M: TLevel1;

begin

M := Main.NPO.Struct.SearchByNumber(StrToInt(Edit1.Text));//Ищем договор

withStringGrid1 do

begin //И выводим информацию о найденном договоре

Cells[0,1] := IntToStr(M.Number);

Cells[1,1] := M.StartDate;

if (M.Done)

then Cells[2,1] := 'Завершён'

else Cells[2,1] := 'Не завершён';

Cells[3,1] := IntToStr(M.Price)

end;

end;

//Ограничение на ввод букв

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

begin

if Not(Key in ['0'..'9', #8]) then Key := #0

end;

end.

МодульUnitCorrect.

unit UnitCorrect;

interface

uses

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

Dialogs, StdCtrls, Structures;

type

TCorrect = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Label5: TLabel;

Edit5: TEdit;

Button1: TButton;

Button2: TButton;

procedure Button2Click(Sender: TObject);

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

procedure Edit1Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

end;

var Correct: TCorrect;

implementation

{$R *.dfm}

uses UnitMain;

Var P: PLevel1;

//Кнопка "Отмена"

procedure TCorrect.Button2Click(Sender: TObject);

begin

Close

end;

//Ограничение на ввод букв

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

begin

if Not(Key in ['0'..'9', #8]) then Key := #0

end;

//Получаем договор по его номеру в списке

procedure TCorrect.Edit1Change(Sender: TObject);

begin

if (Edit1.Text = '') then Exit;

if (StrToInt(Edit1.Text) > Main.NPO.Struct.Counter) then

Exit;

P := Main.NPO.Struct.GetByNumber(StrToInt(Edit1.Text));

Edit2.Text := IntToStr(P^.Number);

Edit3.Text := P^.StartDate;

if (P^.Done)

then Edit4.Text := 'Завершён'

else Edit4.Text := 'Не завершён';

Edit5.Text := IntToStr(P^.Price)

end;

//Кнопка "Применить"

procedure TCorrect.Button1Click(Sender: TObject);

begin

P^.Number := StrToInt(Edit2.Text);

P^.StartDate := Edit3.Text;

if (Edit4.Text = 'Завершён')

then P^.Done := True

else P^.Done := False;

P^.Price := StrToInt(Edit5.Text);

Close

end;

procedure TCorrect.FormShow(Sender: TObject);

begin

Edit1.Text := '1';

Edit1Change(Sender);

end;

end.

МодульStructures.

unit Structures;

interface

uses

Grids, //Модуль для работы с TStringGrid

SysUtils; //Модуль с функциями StrToInt и т.д.

type

//Типы массивов для передачи информации о втором и первом уровнях иерархии

TCities = Array[1..20] of String[20];

TAccounts = Array[1..20, 1..6] of LongWord;

//Тип - указатель на элемент третьего уровня иерархии

PLevel3 = ^TLevel3;

//Запись - элемент третьего уровня иерархии

TLevel3 = Record

Account: LongWord; //Номер расчётного счёта

Next : PLevel3 //Указатель на следующий элемент в третьем уровне структуры

end;

//Тип - указатель на элемент второго уровня иерархии

PLevel2 = ^TLevel2;

//Запись - элемент второго уровня иерархии

TLevel2 = Record

City : String[20]; //Название города

Accounts: PLevel3; //Указатель на третий уровень иерархии (список номеров отделений банка в городе)

Next : PLevel2 //Указатель на следующий элемент во втором уровне структуры

end;

//Тип - указатель на элемент первого уровня иерархии

PLevel1 = ^TLevel1;

//Запись - элемент первого уровня иерархии

TLevel1 = Record

Number : Word; //Номер хоздоговора

StartDate: String[10]; //Дата заключения

Done : Boolean; //Признак завершения

Price : Word; //Цена работ по договору

Cities : PLevel2; //Указатель на второй уровень иерархии

Next : PLevel1 //Указатель на следующий элемент в первом уровне структуры

end;

//Класс 3-ёх уровневой иерархической структуры

THierarchList = class

private

Head: PLevel1; //Указатель на голову списка (первый уровень)

Current: PLevel1; //Текущий указатель в списке (первый уровень)

Count: Word; //Количество элементов в списке на первом уровне

procedureSwap(P1, P2: PLevel1); //Процедура менят местами два узла первого уровня иерархии (для сортировки)

public

property Counter: Word read Count;

//Добавление члена ВТК в иерархический список (параметры - это все нужные поля в структуре)

procedure Add(S: String; D: Boolean; N, P: Word;

var City: TCities; Cnt: Byte; var Accounts: TAccounts);

procedureShow(SG: TStringGrid); //Вывод структуры на форму

procedureSortingUp; //Сортировка по возрастанию

procedureSortingDown; //Сортировка по убыванию

function SearchByNumber(N: Word): TLevel1; //Поиск договора по номеру

functionGetByNumber(N: Word): PLevel1; //Получение договора по номеру в списке (для корректировки)

end;

implementation

//Добавление члена ВТК в иерархический список

procedure THierarchList.Add(S: String; D: Boolean; N, P: Word;

var City: TCities; Cnt: Byte; var Accounts: TAccounts);

var

NewNode: PLevel1;

CurC, NewL2: PLevel2;

CurN, NewL3: PLevel3;

I, J: Byte;

begin

New(NewNode); //Выделяем память под узел первого уровня

with NewNode^ do

begin

Next := NIL; //Заполняем поля первого уровня

StartDate := S;

Number := N;

Price := P;

Done := D;

Cities := NIL;

For I := 1 To Cnt do //Начинаем заполнять второй уровень

begin

New(NewL2); //Выделяем память под узел второго уровня

if (Cities = NIL) //Вставляем его во второй уровень

then Cities := NewL2

else CurC^.Next := NewL2;

NewL2^.City := City[I]; //Заполняем поле (город)

NewL2^.Next := NIL; //Указатель на следущий - NIL

NewL2^.Accounts := NIL; //Начинаем заполнять третий уровень

For J := 2 to Accounts[I, 1] do

begin

New(NewL3); //Выделяем память под узел третьего уровня

NewL3^.Account := Accounts[I, J]; //Заполняем поле (номер отделения банка)

NewL3^.Next := NIL; //Указатель на следущий - NIL

if (NewL2^.Accounts = NIL) //Вставляем его на третий уровень

then NewL2^.Accounts := NewL3

else CurN^.Next := NewL3;

CurN := NewL3

end;

CurC := NewL2

end

end;

if (Current = NIL) //Помещаем узел первого уровня в наш список

then Head := NewNode

else Current^.Next := NewNode;

Current := NewNode;

Inc(Count) //Увеличиваем количество элементов в списке

end;

//Возвращает указатель на исполнителя по номеру в списке

function THierarchList.GetByNumber(N: Word): PLevel1;

var

I: Word;

begin

Current := Head;

For I := 2 to N do

Current := Current^.Next;

Result := Current

end;

//Поиск по фамилии

function THierarchList.SearchByNumber(N: Word): TLevel1;

begin

Result.Number := 0;

Result.StartDate := '';

Result.Done := False;

Result.Price := 0;

//Начинаем двигаться по списку

Current := Head;

While (Current<>NIL) do

begin //Сравниваем текущую фамилию с заданной

if (Current^.Number = N) then

begin //Если совпадает, то запоминаем результат и выходим

Result := Current^;

Break

end;

Current := Current^.Next //Иначе двигаемся по списку дальше

end

end;

//Вывод структуры на форму в StringGrid

procedure THierarchList.Show(SG: TStringGrid);

var

I, J, L: Byte;

CurC: PLevel2;

CurN: PLevel3;

begin

For I := 1 to 30 do //Чистим StringGrid

For J := 0 to 10 do

SG.Cells[J,I] := '';

L := 1;

Current := Head;

For I := 1 to Count do //Проход по первому уровню

begin

SG.Cells[0, L] := IntToStr(Current^.Number); //Выводим поля узла первого уровня

SG.Cells[1, L] := Current^.StartDate;

if (Current^.Done)

then SG.Cells[2, L] := 'Завершён'

elseSG.Cells[2, L] := 'Не завершён';

SG.Cells[3,L] := IntToStr(Current^.Price);

CurC := Current^.Cities; //Начинаем просматривать второй уровень структуры

While (CurC<>NIL) do

begin

SG.Cells[4,L] := CurC^.City; //Выводим поле узла второго уровня (город)

CurN := CurC^.Accounts; //И начинаем просматривать третий уровень

While (CurN<>NIL) do

Begin//Выводим поле третьего уровня (счёт)

SG.Cells[5,L] := SG.Cells[5,L] + IntToStr(CurN^.Account) + ', ';

CurN := CurN^.Next //И движемся дальше по птрьему уровню

end;

Inc(L);

CurC := CurC^.Next //Здесь движемся дальше по второму уровню

end;

Current := Current^.Next //А здесь по первому...

end

end;

//Cортировка прямым выбором по убыванию

procedure THierarchList.SortingDown;

var

I, J: Word;

Max: PLevel1;

begin

Max := Head;

For I := 1 to Count-1 do

begin

Current := Max^.Next;

For J := 1 to Count - I do

begin //Сравниваем текущий элемент с первым неупорядоченным

if (Max^.Price < Current^.Price) then

Swap(Max, Current); //Меняем их местами если надо

Current := Current^.Next //И движемся дальше по списку

end;

Max := Max^.Next

end

end;

//Cортировка прямым выбором по возрастанию

procedureTHierarchList.SortingUp;

var

I, J: Word;

Min: PLevel1;

begin

Min := Head;

For I := 1 to Count-1 do

begin

Current := Min^.Next;

For J := 1 to Count - I do

begin //Сравниваем текущий элемент с первым неупорядоченным

if (Min^.Price > Current^.Price) then

Swap(Min, Current); //Меняем их местами если надо

Current := Current^.Next //И движемся дальше по списку

end;

Min := Min^.Next

end

end;

//Обмен местами в списке первого уровня

procedure THierarchList.Swap(P1, P2: PLevel1);

var

TempStartDate: String[10];

TempDone: Boolean;

TempNumber: Word;

TempPrice: Word;

TempCities: PLevel2;

begin

//Запомнили первый договор

TempStartDate := P1^.StartDate;

TempDone := P1^.Done;

TempNumber := P1^.Number;

TempPrice := P1^.Price;

TempCities := P1^.Cities;

//Записали в него второй

P1^.StartDate := P2^.StartDate;

P1^.Done := P2^.Done;

P1^.Number := P2^.Number;

P1^.Price := P2^.Price;

P1^.Cities := P2^.Cities;

//А во второй записали сохранённый первый

P2^.StartDate := TempStartDate;

P2^.Done := TempDone;

P2^.Number := TempNumber;

P2^.Price := TempPrice;

P2^.Cities := TempCities;

//В итоге договоры поменялись местами

end;

end.

МодульOrganizations.

unit Organizations;

interface

uses

Grids, //Модуль для работы с TStringGrid

SysUtils, //Модуль с функциями StrToInt и т.д.

Structures; //Модуль с классом 3-ёх уровневой иерархической структуры

type

//Запись - ХозДоговор

TXDogovor = Record

Number : Word; //Номер договора

StartDate : String[10]; //Дата заключения договора

FinishDate : String[10]; //Дата завершения договора

Theme : String[25]; //Тема договора,

Organization: String[25]; //Наименование организации - заказчика работ

Done : Boolean; //Признак завершения

Price : Word //Стоимость договора в тыс. рублей

end;

//Запись - Исполнитель ХД и член ВТК

TMemeberWTK = Record

Surname : String[20]; //Фамилия

Name : String[20]; //Имя

Patronymic: String[20]; //Отчество

BirthYear : String[10]; //Год рождения

CodeXD : String[10]; //Код ХД

IsDirector: Boolean; //Признак руководитель/рядовой член ВТК

Premium : Word; //Причитающаяся по договору сумма вознаграждения

Address : String[20]; //Домашний адрес

BankNumber: Word; //Номер отделения сбербанка

Account : LongWord //Расчетный счет исполнителя

end;

//Запись - Атрибуты отделения сбербанка

TBank = Record

Number : Word; //Номер отделения

City : String[20]; //Город, в котором находится отделение

Address : String[20]; //Адрес без указания города

Partition: String[20]; //Наименование отделения

Code : Word //3-хзначный банковский код отделения

end;

TNPO = class //Класс НПО - научно-производственная организация

private

XD: Array[1..50] ofTXDogovor; //Массив с договорами

WTK: Array[1..30] ofTMemeberWTK; //Массив и исполнителями

Bank: Array[1..20] ofTBank; //Массив с отделениями банков

XDCount: Integer; //Количество договоров

WTKCount: Integer; //Количество исполнителей

BankCount: Integer; //Количество отделений банка

XDTable: TStringGrid; //StringGrid для ХозДоговоров

WTKTable: TStringGrid; //StringGrid для исполнителей договоров

BankTable: TStringGrid; //StringGrid для отделений банков

functionGetCityByNumber(N: Word): String; //ПОлучение города по номеру отделения банка

public

Struct: THierarchList; //Иерархический список

propertyCountXD: IntegerreadXDCount; //Свойство: Количество договоров

propertyCountWTK: IntegerreadWTKCount; //Свойство: Количество исполнителей

propertyCountBank: IntegerreadBankCount; //Свойство: Количество отделений банка

constructorCreate(SG1, SG2, SG3: TStringGrid); //Конструктор

procedure LoadXD(FileName: String); //Открытие файла хоздоговоров

procedure LoadWTK(FileName: String); //Открытие файла исполнителей

procedure LoadBank(FileName: String); //Открытие файла отделений банка

procedure ShowXD; //Вывод списка хоздоговоров на форму

procedureShowWTK; //Вывод списка исполнителей на форму

procedureShowBank; //Вывод списка отделений банков на форму

procedureCreateList; //Формирование иерархического списка

end;

implementation

//Сохраняем StringGrid'ы для всех таблиц

constructor TNPO.Create(SG1, SG2, SG3: TStringGrid);

begin

XDTable := SG1;

WTKTable := SG2;

BankTable := SG3

end;

//Формирование иерархического списка (по условию задания)

procedure TNPO.CreateList;

var

I, J, K: Byte;

P: Boolean;

Cities: TCities; //Массив с городами для 2-ого уровня иерархии

Accounts: TAccounts; //Массив со счетами для 3-его уровня иерархии

CountC: Byte; //Количество городов

begin

Struct := THierarchList.Create; //Создаём структуру

ForI := 1 toXDCountdo //Просматриваем всех договоров

withXD[I] do

begin //Начинаем формировать для него иерархию

FillChar(Accounts, sizeof(Accounts), 0);

CountC := 0; //Сначала количество городов = 0

ForJ := 1 toWTKCountdo //Просматриваем всех исполнителей

if (Number = StrToInt(Copy(WTK[J].CodeXD, 1, 2))) then//И если совпал номер договора

begin

P := False; //То добавляем в структуру город и/или счёт

For K := 1 to CountC do

if (Cities[K] = GetCityByNumber(WTK[J].BankNumber)) then

begin

P := True;

Inc(Accounts[K, 1]);

Accounts[K, Accounts[K, 1]] := WTK[J].Account;

Break

end;

if Not(P) then

begin

Inc(CountC);

Cities[CountC] := GetCityByNumber(WTK[J].BankNumber);

Accounts[CountC, 1] := 2;

Accounts[CountC, 2] := WTK[J].Account

end

end;

Struct.Add(StartDate, Done, Number, Price, Cities, CountC, Accounts) //Добавляем получившуюся информацию в структуру

end

end;

//Возвращает название города по номеру отделения банка

function TNPO.GetCityByNumber(N: Word): String;

var

I: Byte;

begin

Result := '';

For I := 1 to BankCount do

if (Bank[I].Number = N) then

begin

Result := Bank[I].City;

Exit

end

end;

//Открытие файла отделений банка

procedure TNPO.LoadBank(FileName: String);

var

F: File of TBank;

begin

AssignFile(F, FileName);

Reset(F);

BankCount := 0;

While Not(EoF(F)) do

begin

Inc(BankCount);

Read(F, Bank[BankCount])

end;

CloseFile(F)

end;

//Открытие файла исполнителей

procedure TNPO.LoadWTK(FileName: String);

var

F: File of TMemeberWTK;

begin

AssignFile(F, FileName);

Reset(F);

WTKCount := 0;

While Not(EoF(F)) do

begin

Inc(WTKCount);

Read(F, WTK[WTKCount])

end;

CloseFile(F)

end;

//Открытие файла хоздоговоров

procedure TNPO.LoadXD(FileName: String);

var

F: File of TXDogovor;

begin

AssignFile(F, FileName);

Reset(F);

XDCount := 0;

While Not(EoF(F)) do

begin

Inc(XDCount);

Read(F, XD[XDCount])

end;

CloseFile(F)

end;

//Вывод списка отделений банков на форму

procedure TNPO.ShowBank;

var

I: Byte;

begin

For I := 1 to BankCount do

begin

With Bank[I] do

begin

BankTable.Cells[0,I] := IntToStr(Number);

BankTable.Cells[1,I] := City;

BankTable.Cells[2,I] := Address;

BankTable.Cells[3,I] := Partition;

BankTable.Cells[4,I] := IntToStr(Code)

end;

end;

end;

//Вывод списка исполнителей на форму

procedure TNPO.ShowWTK;

var

I: Byte;

begin

For I := 1 to WTKCount do

begin

With WTK[I] do

begin

WTKTable.Cells[0,I] := Surname;

WTKTable.Cells[1,I] := Name;

WTKTable.Cells[2,I] := Patronymic;

WTKTable.Cells[3,I] := BirthYear;

WTKTable.Cells[4,I] := CodeXD;

if (IsDirector)

then WTKTable.Cells[5,I] := 'Руководитель'

else WTKTable.Cells[5,I] := 'Рядовой член';

WTKTable.Cells[6,I] := IntToStr(Premium);

WTKTable.Cells[7,I] := Address;

WTKTable.Cells[8,I] := IntToStr(BankNumber);

WTKTable.Cells[9,I] := IntToStr(Account)

end

end

end;

//Вывод списка договоров на форму

procedure TNPO.ShowXD;

var

I: Byte;

begin

For I := 1 to XDCount do

begin

With XD[I] do

begin

XDTable.Cells[0,I] := IntToStr(Number);

XDTable.Cells[1,I] := StartDate;

XDTable.Cells[2,I] := FinishDate;

XDTable.Cells[3,I] := Theme;

XDTable.Cells[4,I] := Organization;

if (Done)

then XDTable.Cells[5,I] := 'Завершён'

else XDTable.Cells[5,I] := 'Не завершён';

XDTable.Cells[6,I] := IntToStr(Price)

end

end

end;

end.

Размещено на Allbest.ru