Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
VP_LAB_BD_DELPHI.doc
Скачиваний:
0
Добавлен:
01.05.2025
Размер:
10.19 Mб
Скачать

6.2.3. Екі кестедегі мәліметтерді біріктіру әдісі

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

- Өрістердің мәні және құрылған мәліметтердің жолдары берілген DBGrid1компонентінің тақырыбы ретінде анықталған, типтелген С тұрақты массивін анықтау;

- Query1 компонентін келесі оператор көмегімен активтау:

Query1.ACTIVE := TRUE

- Query1 –ді DataSource1 компонентіне меншіктейміз:

DataSource1.DataSet := Query1;

- С массивінен бағандардың атауы мәтіндерін шағару:

DBGrid1.Columns[i].Title.Caption := C[i].

Форманың бетіне компоненттерді орнатып, баптауларын орындап және кестелерді жазбалармен толтырғаннан кейінгі бейнесі 6.10. суретінде көрсетілген.

Форманың екі кесте біріктірілгеннен кейінгі бейнесі 6.11 суретте көрсетілген.

Жоғарғы таблица-компоненте (DBGrid1) әрбір жолда фамилиясы 1-ші де, 2-ші де кестеде бар әрбір студент жайлы мәлімет көрсетілген.

6.10.Сурет. Форманың компоненттері бапталғаннан кейінгі және кестелер толтырылғаннан кейінгі бейнесі.

6.11.Сурет. Форманың екі кесте біріктірілгеннен кейінгі бейнесі

Листинг 6.5. Екі кесте мәліметтерін біріктіруге арналған негізгі форма модулінің мәтіні

unit Unit1;

interface

uses

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

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

XPMan, Buttons;

type

TForm1 = class(TForm)

DataSource1: TDataSource;

DataSource2: TDataSource;

Table1: TTable;

Table2: TTable;

Query1: TQuery;

XPManifest1: TXPManifest;

Panel1: TPanel;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBNavigator1: TDBNavigator;

DBNavigator2: TDBNavigator;

Button1: TButton;

BitBtn1: TBitBtn;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

Const C: Array[0..7] of string[10] =

('Фио', 'Адрес', 'Год Рожд', 'Телефон', '' , 'Матем', 'Физика', 'Прогр' );

Var i:byte;

begin

if Query1.Active = false then Query1.Active := true;

DataSource1.DataSet:=Query1;

DBGrid1.Columns[4].Visible:=False;

for i:=0 To 7 do

DBGrid1.Columns[i].Title.Caption:=C[i];

end; end.

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

1) Екі байланыспаған кестенің мәндерін сұрыптау үшін SQL қасиетінің мәтінін анықтаңыз.

2) Қосымшаны орындау барысындағы кестенің тақырыбы орнатылған әдістің мәтінін анықтаңыз.

3) Нәтижелік кестенің таңдалған бағандарын қалай көрінбейтін етіп орнатуға болады?

6.3. Бір типті мәліметтер базасының кестелерінің қосу, ажырату және жасау қосымшасын құру

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]