procedure Button3Click (Sender: TObject);

procedure Button8Click (Sender: TObject);

procedure N6Click (Sender: TObject);

procedure N7Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form1: TForm1;

implementation

uses Unit3, Unit4;

{$R *.dfm}

 // ===================

procedure TForm1. Button6Click (Sender: TObject);

begin

 // Остановка программы:

Halt;

end;

 // ===================

procedure TForm1. FormCreate (Sender: TObject);

begin

 // Инициализация формы и чтение из файла в стринг грид - из класса

CheckBox1Click(Sender);

Kp. ReadXD(StringGrid1);

Kp. Free;

end;

 // ===================

procedure TForm1. RadioButton1Click (Sender: TObject);

begin

 // Дублир XD

FormCreate(Sender);

Button8Click(Sender);

end;

 // ===================

procedure TForm1. RadioButton2Click (Sender: TObject);

begin

 // Открытие WTK автоматом из файла

Kp. Clear(StringGrid1); // Очистка грида

 // инициал формы WTK

Kp.WTKGr(StringGrid1);

Kp. RowC(StringGrid1);

Kp. ReadWTK(StringGrid1);

Kp. Free;

Button8Click(Sender);

end;

procedure TForm1. RadioButton3Click (Sender: TObject);

begin

 // Открытие файла BANK

Kp. Clear(StringGrid1); // Очистка грида

 // Инициал формы Bank

Kp.BANGr(StringGrid1);

Kp. RowC(StringGrid1);

Kp. ReadBAN(StringGrid1);

Kp. Free;

Button8Click(Sender);

end;

 // ===================

procedure TForm1. CheckBox1Click (Sender: TObject);

begin

 // запрет на редактир снять - поставить

If CheckBox1. Checked Then

StringGrid1. Options:=[goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing]

else

StringGrid1. Options:=[goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing, goEditing]

end;

 // ===================

procedure TForm1. Button4Click (Sender: TObject);

begin

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

Form3. Top:=Trunc (Form1. Top + Form1. Height/2 - Form3. Height/2);

Form3. Left:=Trunc (Form1. Left +Form1. Width/2 - Form3. Width/2);

Form3. ShowModal;

end;

 // ===================

procedure TForm1. Button1Click (Sender: TObject);

begin

 // процедура очистки грида по выбору радио кнопы

Kp. Clear(StringGrid1); // Вызов процедуры из класса

If RadioButton1. Checked Then //

begin //

Kp.XDGr(StringGrid1); // -

Kp. RowC(StringGrid1);

end

else if RadioButton2. Checked Then

begin

Kp.WTKGr(StringGrid1);

Kp. RowC(StringGrid1);

end

else if RadioButton3. Checked Then

begin

Kp.BANGr(StringGrid1);

Kp. RowC(StringGrid1);

end;

Kp. Free;

end;

 // = О ПРОГРАММЕ

=====

procedure TForm1.N2Click (Sender: TObject);

begin

ShowMessage

('КУРСОВОЙ ПРОЕКТ'+#13+#13+'Разработал Каменев А.И. гр 417 318 / 10 вариант'

+#13+'МИДО БНТУ 2010 г.'+#13+#13+'Структуры и алгоритмы обработки данных.');

end;

 // ===================

procedure TForm1.N10Click (Sender: TObject);

begin

 // Меню дубл выход

Button6Click(Sender);

end;

 // ===================

procedure TForm1.N8Click (Sender: TObject);

begin

 // Сброс дубл меню

Button1Click(Sender);

end;

 // ===================

procedure TForm1. Button5Click (Sender: TObject);

 // сортировка грида в польз. сообщений

begin

Form4. Top:=Trunc (Form1. Top + Form1. Height/2 - Form4. Height/2);

Form4. Left:=Trunc (Form1. Left +Form1. Width/2 - Form4. Width/2);

Form4. ShowModal;

end;

 // ===================

procedure TForm1. Button2Click (Sender: TObject);

 // Запись в файл

begin

If RadioButton1. Checked Then

Kp. WriteXD(StringGrid1)

else if RadioButton2. Checked Then

Kp. WriteWTK(StringGrid1)

else if RadioButton3. Checked Then

Kp. WriteBAN(StringGrid1);

ShowMessage ('Данные записаны в файл!');

Kp. Free;

end;

 // ===================

procedure TForm1.N3Click (Sender: TObject);

begin

 // меню дублир

Button2Click(Sender);

end;

 // ===================

 // Удаление строки из грида

procedure TForm1. Button7Click (Sender: TObject);

begin

Form2. Top:=Trunc (Form1. Top + Form1. Height/2 - Form2. Height/2);

Form2. Left:=Trunc (Form1. Left +Form1. Width/2 - Form2. Width/2);

Form2. ShowModal;

 // Элемент пользовательского интерфейса

 // очистка cells'ов

 // в StringGrid1

end;

 // ===================

procedure TForm1.N4Click (Sender: TObject);

begin

 // Меню - дублирование - удаление строки

Button7Click(Sender);

end;

 // ===================

procedure TForm1. FormActivate (Sender: TObject);

begin

 // Очистка головы списка №1 №2 №3

Kp.null;

end;

 // ===================

procedure TForm1. Button3Click (Sender: TObject);

begin

 // процедура показа

If RadioButton1. Checked Then

Kp.XDShow

else if RadioButton2. Checked Then

Kp.WTKShow

else if RadioButton3. Checked Then

Kp.BANKShow;

Kp. Free;

end;

 // ===================

procedure TForm1. Button8Click (Sender: TObject);

begin

FormActivate(Sender);

 // процедура внесения содержимого StrigGrid в список

If RadioButton1. Checked Then

Kp.XD(StringGrid1)

else if RadioButton2. Checked Then

Kp.WTK(StringGrid1)

else if RadioButton3. Checked Then

Kp.BANK(StringGrid1);

Kp. Free;

end;

 // ===================

procedure TForm1.N6Click (Sender: TObject);

begin

 // Поиск-меню-дублирующее

Button4Click(Sender);

end;

 // ===================

procedure TForm1.N7Click (Sender: TObject);

begin

 // Сортировка-меню-дублирующее

Button5Click(Sender);

end;

 // ===================

end.

Текст модуля класса UnitCl.pas

 // ************

 // Created by Kamenev A.I. 417 318 10 var.

 // Minsk MIDO BNTU.

 // САОД - КУРСОВОЙ

 // ************

unit UnitCl;

interface

uses

SysUtils, Forms, StdCtrls, Grids, Classes, Dialogs;

type

TKp = class (TObject)

Private

{Private data}

Public

procedure RowC (AStringGrid:TStringGrid);

procedure XDGr (AStringGrid:TStringGrid);

procedure WTKGr (AStringGrid:TStringGrid);

procedure BANGr (AStringGrid:TStringGrid);

procedure Clear (AStringGrid:TStringGrid);

procedure WriteXD (AStringGrid:TStringGrid);

procedure WriteWTK (AStringGrid:TStringGrid);

procedure WriteBAN (AStringGrid:TStringGrid);

procedure ReadXD (AStringGrid:TStringGrid);

procedure ReadWTK (AStringGrid:TStringGrid);

procedure ReadBAN (AStringGrid:TStringGrid);

procedure BANK (AStringGrid:TStringGrid);

procedure WTK (AStringGrid:TStringGrid);

procedure XD (AStringGrid:TStringGrid);

procedure XDShow;

procedure WTKShow;

procedure BANKShow;

procedure null;

procedure FindXD (AEdit1:TEdit; AStringGrid:TStringGrid);

procedure FindWTK (AEdit1:TEdit; AStringGrid:TStringGrid);

procedure FindBANK (AEdit1:TEdit; AStringGrid:TStringGrid);

procedure MoySort1 (AStringGrid:TStringGrid);

procedure MoySort2 (AStringGrid:TStringGrid);

procedure MoySort5 (AStringGrid:TStringGrid);

procedure MoySort7 (AStringGrid:TStringGrid);

Страницы: 1, 2, 3, 4