ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 13.04.2024
Просмотров: 22
Скачиваний: 0
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.