Файл: Звіт Костенко Л С .doc

SQL.Add ('Semeynoe= "не женат"');

Open;

End;

if Query1.RecordCount <>0 then

DataSource1.DataSet := Query1

else begin

ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');

DataSource1.DataSet:=Table1;

End;

End;

procedure TForm1.N10Click(Sender: TObject);

var albom: string [30];

begin

albom:=inputbox ('Поиск информации в БД',

'укажите альбом и нажмите ОК', '');

if albom<> ''

then begin

with Form1.Query1 do begin

close;

SQL.Clear;

SQL.Add ('SELECT Nazvanie,Sozdanie,Stil');

SQL.Add ('FROM "практика: gryppu.db"') ;

SQL.Add ('WHERE');

SQL.Add ('Albom = "+albom"');

Open;

End;

if Query1.RecordCount <>0 then

DataSource1.DataSet := Query1

else begin

ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');

DataSource1.DataSet:=Table1;

End;

End; end;

procedure TForm1.N11Click(Sender: TObject);

var data: string [30];

begin

data:=inputbox ('Поиск информации в БД',

'укажите дату и нажмите ОК', '');

if data<> ''

then begin

with Form1.Query1 do begin

close;

SQL.Clear;

SQL.Add ('SELECT Nazvanie,Stil,Albom');

SQL.Add ('FROM "практика: gryppu.db"') ;

SQL.Add ('WHERE');

SQL.Add ('Data = "+data"');

Open;

End;

if Query1.RecordCount <>0 then

DataSource1.DataSet := Query1

else begin

ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');

DataSource1.DataSet:=Table1;

End;

End; end;

procedure TForm1.pop1Click(Sender: TObject);

begin

with Form1.Query1 do begin

close;

SQL.Clear;

SQL.Add ('SELECT Nazvanie,Sozdanie');

SQL.Add ('FROM "практика: gryppu.db"') ;

SQL.Add ('WHERE');

SQL.Add ('Stil= "pop"');

Open;

End;

if Query1.RecordCount <>0 then

DataSource1.DataSet := Query1

else begin

ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');

DataSource1.DataSet:=Table1;

End;

End;

procedure TForm1.N12Click(Sender: TObject);

var fam: string [30];

begin

fam:=inputbox ('Поиск информации в БД',

'укажите фамилию и нажмите ОК', '');

if fam<> ''

then begin

with Form1.Query1 do begin

close;

SQL.Clear;

---

SQL.Add ('SELECT Nazvanie,Stil,Sozdanie');

SQL.Add ('FROM "практика: gryppu.db"') ;

SQL.Add ('WHERE');

SQL.Add ('Fam = "+fam"');

Open;

End;

if Query1.RecordCount <>0 then

DataSource1.DataSet := Query1

else begin

ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');

DataSource1.DataSet:=Table1;

End;

End; end;

procedure TForm1.l1Click(Sender: TObject);

begin

with Form1.Query1 do begin

close;

SQL.Clear;

SQL.Add ('SELECT Nazvanie,Sozdanie,Stil,Fam');

SQL.Add ('FROM "практика: gryppu.db"') ;

SQL.Add ('WHERE');

SQL.Add ('Nazvanie like "%l"');

Open;

End;

if Query1.RecordCount <>0 then

DataSource1.DataSet := Query1

else begin

ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');

DataSource1.DataSet:=Table1;

End;

End;

procedure TForm1.Button1Click(Sender: TObject);

var

Q: TQuery;

begin

Q := TQuery.Create(Application) ;

try

Q.DatabaseName := 'практика';

with Q.SQL do begin

Add('Create Table Funcionarios');

Add('( Sozdanie,');

Add(' Nazvanie(30),');

Add(' Primary Key ( Sozdanie ) )');

end;

Q.ExecSQL;

finally

Q.Free;

end;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

rvProject1.Execute;

end;

procedure TForm1.N51Click(Sender: TObject);

begin

with Form1.Query1 do begin

close;

SQL.Clear;

SQL.Add ('SELECT Nazvanie,Stil,Albom');

SQL.Add ('FROM "практика: gryppu.db"') ;

SQL.Add ('WHERE');

SQL.Add ('Data > "2006"');

Open;

End;

if Query1.RecordCount <>0 then

DataSource1.DataSet := Query1

else begin

ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');

DataSource1.DataSet:=Table1;End;End;end.

---

Додаток б Лістинг модуля Unit2

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ExtCtrls;

type

TAboutBox = class(TForm)

Panel1: TPanel;

ProgramIcon: TImage;

ProductName: TLabel;

Version: TLabel;

Copyright: TLabel;

Comments: TLabel;

OKButton: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox: TAboutBox;

implementation

uses Unit1;

{$R *.dfm}

end.

---