6.3.3. Екі кестенің мәліметтерімен жұмыс жасауға арналған әдіс

Button I Click әдісінің көмегімен:

1) RadioGroup1.ItemIndex қасиетінің мәнімен сәйкес мәліметтерді өңдеудің қажетті нұсқасын таңдау:

- RadioGroup1 .ItemIndex үшін = 0 – екі кесте мәліметтерінің біріктірілуі,

- RadioGroup1.ItemIndex үшін = 1 – кесте қабылдаушы (Table1) жазбаларынан кесте көзі жазбаларының кілттері сәйкес келетін элементтерді өшіру;

2) әр таңдалынған нұсқа үшін:

- BatchMove1 .Mode қасиетінің сәйкес мәнін орнату,

- BatchMove1 .Record Count кесте-қабылдаушысында жазбалардың санын анықтау;

3) анықталған санның мәнін көмекші сөзге шығару (Label) ;

4) программаны орындауға жіберіп, BatchMove1.Execute әдісімен кестелердің бірігу прцесін тексеру.

Листинг 6.6. Екі кесте мәліметтерімен жұмыс жасауға арналған негізгі форма модулінің мәтіні

unit Unit1;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, DB, DBTables, Grids, DBGrids, StdCtrls, XPMan;

type

TForm1 = class(TForm)

DataSource1: TDataSource;

DataSource2: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Table1: TTable;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

Table2: TTable;

Query1: TQuery;

BatchMove1: TBatchMove;

RadioGroup1: TRadioGroup;

Button1: TButton;

Label1: TLabel;

Label3: TLabel;

XPManifest1: TXPManifest;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

case RadioGroup1.ItemIndex of

0:begin

BatchMove1.Mode:=batAppend;

BatchMove1.RecordCount:=Table1.RecordCount+Table2.RecordCount;

end;

1:begin

BatchMove1.Mode:=batDelete;

BatchMove1.RecordCount:=Table1.RecordCount-Table2.RecordCount;

end;

end;

Label3.Caption:='Количество записей = ' +Inttostr(BatchMove1.RecordCount);

BatchMove1.Execute;

end; end.

6.3.4. Бақылау сұрақтары

1) RadioGroup1 компонентін нұсқаларды таңдау үшін қалай баптауға болады?

2) BatchMove компонентінің негізгі қасиеттерінің қызметін атаңыз.

3) Кесте қабылдағыштың жазбаларының нәтижелік санын қалай анықтаймыз?

4) Берілген нұсқа бойынша мәліметтерді өңдеу кестесі үшін BatchMove компонентін қалай іске қосамыз?

Әдебиеттер тізімі

1. Голицына О.Л., Попов И.И., Основы алгоритмизации и программирования, Учебное пособие. М.: ИНФРА-М, 2002.

2. Аляев Ю.А., Козлов О.А, Алгоритмизация и языки

программирования, Учебно-справочное пособие, М.: Финансы и статистика,2002.

3. Шпак Ю.А., Delphi 7 на примерах, Учебное издание, К.: Изд. Юниор, 2004.

4. Климова Л.М., Delphi Основы программирования. Решение типовых задач, Самоучитель, М.:КУДИЦ-ОБРАЗ,2004.

5. Зубов А., Программирование на Delphi. Трюки и эффекты, СПб.: Питер,2005.

Ремнев А.А., Федотов С.В., Курс Delphi для начинающих. Полигон нестандартных задач., М.: СОЛОН-ПРЕСС,2006.