сурс]. Режим доступу: # "justify"> 10. Конноллі. Т.Л. Бази даних: проектування, реалізація і супровід, Т.Л. Конноллі. - Теорія і практика, 2-е вид. - М.: Видавничий дім «³льямсВ», 2001. - 405 с.
Додаток А
Код програми
unit Unit1;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, XPMan; = class (TForm): TButton;: TButton;: TButton;: TButton;: TButton;: TXPManifest; Button4Click (Sender: TObject); Button3Click (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject); FormShow (Sender: TObject); Button5Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction);
{Private declarations}
{Public declarations};: TForm1; Unit4, Unit2, Unit3, Unit8;
{$ R *. dfm} TForm1. Button4Click (Sender: TObject);;; TForm1. Button3Click (Sender: TObject);
// вибірка в таблицю roomlist.ADOQuery1.SQL. Clear;. ADOQuery1.SQL. Text: = ('select * from roomlist');. ADOQuery1. Active: = true;. ADOQuery1. Active: = true;. DBGrid1. DataSource: = form4. DataSource1;. Show;. Hide;; TForm1. Button1Click (Sender: TObject);
// вибірка в таблицю hardlist mВІ . ADOQuery1.SQL. Clear; mВІ . ADOQuery1.SQL. Text: = ('SELECT hardlist.id, hardtype.name, hardlist.serial, hardlist.invent, roomlist.number, Polzovateli.FIO'); mВІ < span align = "justify">. ADOQuery1.SQL.add ('FROM hardtype INNER JOIN (roomlist INNER JOIN (Polzovateli INNER JOIN hardlist ON Polzovateli.id = hardlist.FIO) ON roomlist.id = hardlist.room) ON hardtype.id = hardlist.tupe; '); mВІ . ADOQuery1. Active: = true; mВІ . ADOQuery1. Active: = true; mВІ . DBGrid1. DataSource: = for mВІ . DataSource1; mВІ < span align = "justify">. Show;. Hide;; TForm1. Button2Click (Sender: TObject);
//// вибірка в таблицю hardtype mВі . ADOQuery1.SQL. Clear; mВі . ADOQuery1.SQL. Text: = ('select * from hardtype'); mВі . ADOQuery1. Active: = true; mВі . ADOQuery1. Active: = true; mВі ...