Принципы создания база данных "Художники ВКО"

W.Selection.TypeParagraph;

W.Selection.Paragraphs.Alignment:=1;

W.Selection.Font.Size:=20;

W.Selection.Font.Bold:=true;

W.Selection.TypeText('Ведомость "Данные о провиденных выставках"'+#13+#10);

// Изменяем стиль текущего абзаца,

// потому что он будет в таблице

W.Selection.Font.Size:=12;

W.Selection.Paragraphs.Alignment:=3;

W.Selection.Font.Bold:=false;

// Создание таблицы

W.ActiveDocument.Tables.Add(Range:=W.Selection.Range,

NumRows:=2, NumColumns:=7,

DefaultTableBehavior:=1,

AutoFitBehavior:= 0);

// Заполнение таблицы

W.Selection.Font.Bold:=true;

W.Selection.TypeText('ФИО_худ');

W.Selection.MoveRight(12.1);

W.Selection.Font.Bold:=true;

W.Selection.TypeText('Ном_выст');

W.Selection.MoveRight(12.1);

W.Selection.Font.Bold:=true;

W.Selection.TypeText('Назв_выст');

W.Selection.MoveRight(12.1);

W.Selection.Font.Bold:=true;

W.Selection.TypeText('Дата_пров');

W.Selection.MoveRight(12.1);

W.Selection.Font.Bold:=true;

W.Selection.TypeText('Кол_карт');

W.Selection.MoveRight(12.1);

W.Selection.Font.Bold:=true;

W.Selection.TypeText('Город');

W.Selection.MoveRight(12.1);

W.Selection.Font.Bold:=true;

W.Selection.TypeText('Посвящена');

W.Selection.MoveRight(12.1);

W.Selection.Font.Bold:=true;

DataModule2.vistavka.First;

while not DataModule2.vistavka.eof do begin

W.Selection.TypeText (DataModule2.vistavka.FieldByName('ФИО_худ').asstring);

W.Selection.MoveRight(12.1);

W.Selection.TypeText(DataModule2.vistavka.FieldByName('Ном_выст').asstring);

W.Selection.MoveRight(12.1);

W.Selection.TypeText(DataModule2.vistavka.FieldByName('Назв_выст').asstring);

W.Selection.MoveRight(12.1);

W.Selection.TypeText(DataModule2.vistavka.FieldByName('Дата_пров').asstring);

W.Selection.MoveRight(12.1);

W.Selection.TypeText(DataModule2.vistavka.FieldByName('Кол_карт').asstring);

W.Selection.MoveRight(12.1);

W.Selection.TypeText (DataModule2.vistavka.FieldByName('Город').asstring);

W.Selection.MoveRight(12.1);

W.Selection.TypeText(DataModule2.vistavka.FieldByName('Посвящена').asstring);

W.Selection.MoveRight(12.1);

DataModule2.vistavka.Next;

end;

end;

procedure TForm1.SpeedButton9Click(Sender: TObject);

begin

form4.QuickRep4.Preview;

end;

procedure TForm1.SpeedButton10Click(Sender: TObject);

begin

form4.QuickRep3.Preview;

end;

end.

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, ComCtrls, DBCtrls, Mask, Buttons, jpeg, ExtCtrls;

type

TForm3 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

DBEdit21: TDBEdit;

DBEdit17: TDBEdit;

DBEdit20: TDBEdit;

DBEdit16: TDBEdit;

DBEdit15: TDBEdit;

DBEdit14: TDBEdit;

DBComboBox3: TDBComboBox;

DBEdit19: TDBEdit;

DBEdit18: TDBEdit;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn1: TBitBtn;

BitBtn6: TBitBtn;

Image1: TImage;

Label11: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label10: TLabel;

Label9: TLabel;

Label1: TLabel;

BitBtn2: TBitBtn;

DBEdit7: TDBEdit;

DBEdit6: TDBEdit;

DBCheckBox1: TDBCheckBox;

DBComboBox1: TDBComboBox;

DBEdit5: TDBEdit;

DBEdit4: TDBEdit;

DBEdit3: TDBEdit;

DBEdit2: TDBEdit;

DBEdit1: TDBEdit;

Image2: TImage;

Label19: TLabel;

Label18: TLabel;

Label12: TLabel;

Label14: TLabel;

Label13: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

DBEdit13: TDBEdit;

DBEdit12: TDBEdit;

DBEdit11: TDBEdit;

DBEdit10: TDBEdit;

DBEdit9: TDBEdit;

DBComboBox2: TDBComboBox;

DBEdit8: TDBEdit;

Image3: TImage;

Label24: TLabel;

Label20: TLabel;

Label8: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label28: TLabel;

Label29: TLabel;

Label30: TLabel;

Image4: TImage;

Label27: TLabel;

Label25: TLabel;

Label26: TLabel;

Label31: TLabel;

Label32: TLabel;

DBEdit22: TDBEdit;

Label33: TLabel;

SpeedButton1: TSpeedButton;

OpenDialog1: TOpenDialog;

BitBtn7: TBitBtn;

BitBtn8: TBitBtn;

BitBtn9: TBitBtn;

BitBtn10: TBitBtn;

procedure TabSheet1Show(Sender: TObject);

procedure TabSheet2Show(Sender: TObject);

procedure TabSheet3Show(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure TabSheet4Show(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure BitBtn8Click(Sender: TObject);

procedure BitBtn9Click(Sender: TObject);

procedure BitBtn10Click(Sender: TObject);

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

s:string;

implementation

uses Unit2, Unit1, Unit0;

{$R *.dfm}

procedure TForm3.TabSheet1Show(Sender: TObject);

begin

DBComboBox1.Items.clear;

DataModule2.premii.Open;

DataModule2.xydozhniki.Append;

DataModule2.premii.First;

while not DataModule2.premii.EOF do begin DBComboBox1.Items.Add(DataModule2.premii.Fields[0].value);

DataModule2.premii.Next;

end;

end;

procedure TForm3.TabSheet2Show(Sender: TObject);

begin

DBComboBox2.Items.clear;

DataModule2.xydozhniki.Open;

DataModule2.kartini.Append;

DataModule2.xydozhniki.First;

while not DataModule2.xydozhniki.EOF do begin DBComboBox2.Items.Add(DataModule2.xydozhniki.Fields[0].value);

DataModule2.xydozhniki.Next;

end;

end;

procedure TForm3.TabSheet3Show(Sender: TObject);

begin

DBComboBox3.Items.clear;

DataModule2.xydozhniki.open;

DataModule2.vistavka.Append;

DataModule2.xydozhniki.First;

while not DataModule2.xydozhniki.Eof do Begin DBComboBox3.Items.Add(DataModule2.xydozhniki.Fields[0].Value);

DataModule2.xydozhniki.Next;

end;

end;

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

dataModule2.xydozhniki.Post;

end;

procedure TForm3.BitBtn3Click(Sender: TObject);

begin

DataModule2.kartini.fields[8].Value:=OpenDialog1.FileName;

OpenDialog1.FileName:=s;

dataModule2.kartini.Post;

end;

procedure TForm3.BitBtn4Click(Sender: TObject);

begin

dataModule2.vistavka.Post;

end;

procedure TForm3.BitBtn5Click(Sender: TObject);

begin

dataModule2.premii.Post;

end;

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

close;

form0.show;

end;

procedure TForm3.BitBtn6Click(Sender: TObject);

begin

close;

form1.show;

end;

procedure TForm3.TabSheet4Show(Sender: TObject);

begin

DataModule2.premii.Append;

end;

procedure TForm3.SpeedButton1Click(Sender: TObject);

begin

getdir(0,s);

OpenDialog1.Execute;

end;

procedure TForm3.BitBtn7Click(Sender: TObject);

begin

DataModule2.kartini.Append;

end;

procedure TForm3.BitBtn8Click(Sender: TObject);

begin

DataModule2.xydozhniki.Append;

end;

procedure TForm3.BitBtn9Click(Sender: TObject);

begin

DataModule2.vistavka.Append;

end;

procedure TForm3.BitBtn10Click(Sender: TObject);

begin

DataModule2.premii.Append;

end;

end.

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids, ComCtrls,

Mask, ActnList, Gauges, OleServer, ExcelXP, jpeg;

type

TForm5 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

Image1: TImage;

Label4: TLabel;

Label5: TLabel;

Label10: TLabel;

Label7: TLabel;

Label8: TLabel;

DBGrid1: TDBGrid;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit7: TEdit;

Edit8: TEdit;

TabSheet3: TTabSheet;

Image2: TImage;

Label1: TLabel;

DBGrid2: TDBGrid;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn6: TBitBtn;

DBGrid3: TDBGrid;

TabSheet2: TTabSheet;

Image3: TImage;

DBGrid4: TDBGrid;

TabSheet4: TTabSheet;

Image4: TImage;

Label2: TLabel;

DBGrid5: TDBGrid;

Edit4: TEdit;

DBComboBox1: TDBComboBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton7: TSpeedButton;

SpeedButton8: TSpeedButton;

Edit5: TEdit;

Edit6: TEdit;

Edit9: TEdit;

Edit10: TEdit;

Edit11: TEdit;

Label3: TLabel;

Label6: TLabel;

Label9: TLabel;

Label11: TLabel;

Label12: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Edit2Change(Sender: TObject);

procedure Edit3Change(Sender: TObject);

procedure Edit7Change(Sender: TObject);

procedure Edit8Change(Sender: TObject);

procedure TabSheet4Show(Sender: TObject);

procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure DBGrid5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure Edit5Change(Sender: TObject);

procedure Edit6Change(Sender: TObject);

procedure Edit9Change(Sender: TObject);

procedure Edit10Change(Sender: TObject);

procedure Edit11Change(Sender: TObject);

procedure DBComboBox1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

s:string;

implementation

uses Unit0, Unit2, ComObj, Unit4;

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

close;

form0.show;

end;

procedure TForm5.BitBtn2Click(Sender: TObject);

begin

DBGrid2.DataSource:=DataModule2.DataSource5;

DataModule2.ADOQuery1.Close;

DataModule2.ADOQuery1.Open;

Label1.Visible:=false;

DBGrid3.Visible:=false;

SpeedButton6.Visible:=false;

SpeedButton8.Visible:=false;

SpeedButton7.Visible:=true;

end;

procedure TForm5.BitBtn3Click(Sender: TObject);

begin

DBGrid2.DataSource:=DataModule2.DataSource6;

DataModule2.ADOQuery2.Close;

DataModule2.ADOQuery2.Open;

Label1.Visible:=false;

DBGrid3.Visible:=false;

SpeedButton6.Visible:=false;

SpeedButton8.Visible:=true;

SpeedButton7.Visible:=false;

end;

procedure TForm5.BitBtn6Click(Sender: TObject);

begin

DBGrid2.DataSource:=DataModule2.DataSource7;

DataModule2.ADOQuery3.Close;

DataModule2.ADOQuery3.Open;

Label1.Visible:=True;

DBGrid3.Visible:=True;

SpeedButton6.Visible:=true;

SpeedButton8.Visible:=false;

SpeedButton7.Visible:=false;

DBGrid3.DataSource:=DataModule2.DataSource8;

DataModule2.ADOQuery4.Close;

DataModule2.ADOQuery4.Open;

end;

procedure TForm5.Edit1Change(Sender: TObject);

begin

DBGrid1.DataSource:=DataModule2.DataSource11;

DataModule2.ADOQuery7.Close;

DataModule2.ADOQuery7.sql.Clear;

s:='SELECT Spisok_xydozhnikov.Фио_худ, Spisok_xydozhnikov.Год_рож, Spisok_xydozhnikov.Место_прож, Spisok_xydozhnikov.образование, Spisok_xydozhnikov.Место_раб, Spisok_xydozhnikov.членство';

s:=s+' from Spisok_xydozhnikov';

s:=s+' WHERE Spisok_xydozhnikov.Фио_худ LIKE'+'"'+edit1.text+'%"';

DataModule2.ADOQuery7.sql.Add(s);

DataModule2.ADOQuery7.Open;

end;

procedure TForm5.Edit2Change(Sender: TObject);

begin

DBGrid1.DataSource:=DataModule2.DataSource11;

DataModule2.ADOQuery7.Close;

DataModule2.ADOQuery7.sql.Clear;

s:='SELECT Spisok_xydozhnikov.Фио_худ, Spisok_xydozhnikov.Год_рож, Spisok_xydozhnikov.Место_прож, Spisok_xydozhnikov.образование, Spisok_xydozhnikov.Место_раб, Spisok_xydozhnikov.членство';

s:=s+' from Spisok_xydozhnikov';

s:=s+' WHERE Spisok_xydozhnikov.место_прож LIKE'+'"'+edit2.text+'%"';

DataModule2.ADOQuery7.sql.Add(s);

DataModule2.ADOQuery7.Open;

end;

procedure TForm5.Edit3Change(Sender: TObject);

begin

DBGrid1.DataSource:=DataModule2.DataSource11;

DataModule2.ADOQuery7.Close;

DataModule2.ADOQuery7.sql.Clear;

s:='SELECT Spisok_xydozhnikov.Фио_худ, Spisok_xydozhnikov.Год_рож, Spisok_xydozhnikov.Место_прож, Spisok_xydozhnikov.образование, Spisok_xydozhnikov.Место_раб, Spisok_xydozhnikov.членство';

s:=s+' from Spisok_xydozhnikov';

s:=s+' WHERE Spisok_xydozhnikov.Год_рож LIKE'+'"'+edit3.text+'%"';

DataModule2.ADOQuery7.sql.Add(s);

DataModule2.ADOQuery7.Open;

end;

procedure TForm5.Edit7Change(Sender: TObject);

begin

DBGrid1.DataSource:=DataModule2.DataSource11;

DataModule2.ADOQuery7.Close;

DataModule2.ADOQuery7.sql.Clear;

s:='SELECT Spisok_xydozhnikov.Фио_худ, Spisok_xydozhnikov.Год_рож, Spisok_xydozhnikov.Место_прож, Spisok_xydozhnikov.образование, Spisok_xydozhnikov.Место_раб, Spisok_xydozhnikov.членство';

s:=s+' from Spisok_xydozhnikov';

s:=s+' WHERE Spisok_xydozhnikov.образование LIKE'+'"'+edit7.text+'%"';

DataModule2.ADOQuery7.sql.Add(s);

DataModule2.ADOQuery7.Open;

end;

procedure TForm5.Edit8Change(Sender: TObject);

begin

DBGrid1.DataSource:=DataModule2.DataSource11;

DataModule2.ADOQuery7.Close;

DataModule2.ADOQuery7.sql.Clear;

s:='SELECT Spisok_xydozhnikov.Фио_худ, Spisok_xydozhnikov.Год_рож, Spisok_xydozhnikov.Место_прож, Spisok_xydozhnikov.образование, Spisok_xydozhnikov.Место_раб, Spisok_xydozhnikov.членство';

s:=s+' from Spisok_xydozhnikov';

s:=s+' WHERE Spisok_xydozhnikov.Место_раб LIKE'+'"'+edit8.text+'%"';

DataModule2.ADOQuery7.sql.Add(s);

DataModule2.ADOQuery7.Open;

end;

procedure TForm5.TabSheet4Show(Sender: TObject);

begin

DBComboBox1.Items.clear;

DataModule2.xydozhniki.open;

DataModule2.xydozhniki.First;

while not DataModule2.xydozhniki.Eof do Begin DBComboBox1.Items.Add(DataModule2.xydozhniki.Fields[0].Value);

DataModule2.xydozhniki.Next;

end;

end;

procedure TForm5.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Edit4.Text:=DBComboBox1.Text;

DataModule2.ADOQuery10.Close;

DataModule2.ADOQuery10.sql.Clear;

s:='SELECT Kartini.Назв_карт, Kartini.Размеры, Kartini.Стоимость';

s:=s+' FROM Kartini';

s:=s+' WHERE Kartini.Фио_худ LIKE'+'"'+edit4.text+'%"';

DataModule2.ADOQuery10.sql.Add(s);

DataModule2.ADOQuery10.Open;

{ SELECT Kartini.Назв_карт, Kartini.Размеры, Kartini.Стоимость

FROM Kartini

WHERE Фио_худ LIKE :par

DataModule2.ADOQuery10.Close;

DataModule2.ADOQuery10.Parameters[0].Value:=edit4.Text+'%';

DataModule2.ADOQuery10.Open; }

end;

procedure TForm5.DBGrid5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Edit4.Text:=DBComboBox1.Text;

DataModule2.ADOQuery10.Close;

DataModule2.ADOQuery10.sql.Clear;

s:='SELECT Kartini.Назв_карт, Kartini.Размеры, Kartini.Стоимость';

s:=s+' FROM Kartini';

s:=s+' WHERE Kartini.Фио_худ LIKE'+'"'+edit4.text+'%"';

DataModule2.ADOQuery10.sql.Add(s);

DataModule2.ADOQuery10.Open;

end;

procedure TForm5.Button1Click(Sender: TObject);

begin

form0.Show;

form5.Hide;

end;

procedure TForm5.Button3Click(Sender: TObject);

begin

form0.Show;

form5.Hide;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

form0.Show;

form5.Hide;

end;

procedure TForm5.Button4Click(Sender: TObject);

begin

form0.Show;

form5.Hide;

end;

procedure TForm5.Button5Click(Sender: TObject);

begin

form0.Show;

form5.Hide;

end;

procedure TForm5.SpeedButton1Click(Sender: TObject);

begin

DBGrid5.DataSource:=DataModule2.DataSource14;

end;

procedure TForm5.SpeedButton2Click(Sender: TObject);

begin

DBGrid5.DataSource:=DataModule2.DataSource17;

end;

procedure TForm5.SpeedButton3Click(Sender: TObject);

begin

form4.QRLabel47.Caption:=form5.edit4.text;

form4.QuickRep6.Preview;

end;

procedure TForm5.SpeedButton4Click(Sender: TObject);

begin

form4.QRLabel49.Caption:=form5.edit4.text;

form4.QuickRep7.Preview;

end;

procedure TForm5.SpeedButton5Click(Sender: TObject);

begin

form4.QuickRep5.Preview;

end;

procedure TForm5.SpeedButton6Click(Sender: TObject);

begin

form4.QuickRep8.Preview;

end;

procedure TForm5.SpeedButton7Click(Sender: TObject);

begin

form4.QuickRep9.Preview;

end;

procedure TForm5.SpeedButton8Click(Sender: TObject);

begin

form4.QuickRep10.Preview;

end;

procedure TForm5.Edit5Change(Sender: TObject);

begin

DBGrid4.DataSource:=DataModule2.DataSource9;

DataModule2.ADOQuery5.Close;

DataModule2.ADOQuery5.sql.Clear;

s:='SELECT vistavka.Фио_худ, vistavka.Назв_выст, vistavka.Дата_пров, vistavka.кол_карт, vistavka.Город, vistavka.Посвящена';

s:=s+' from vistavka';

s:=s+' WHERE vistavka.Фио_худ LIKE'+'"'+edit5.text+'%"';

DataModule2.ADOQuery5.sql.Add(s);

DataModule2.ADOQuery5.Open;

end;

procedure TForm5.Edit6Change(Sender: TObject);

begin

DBGrid4.DataSource:=DataModule2.DataSource9;

DataModule2.ADOQuery5.Close;

DataModule2.ADOQuery5.sql.Clear;

s:='SELECT vistavka.Фио_худ, vistavka.Назв_выст, vistavka.Дата_пров, vistavka.кол_карт, vistavka.Город, vistavka.Посвящена';

s:=s+' from vistavka';

s:=s+' WHERE vistavka.Назв_выст LIKE'+'"'+edit6.text+'%"';

DataModule2.ADOQuery5.sql.Add(s);

DataModule2.ADOQuery5.Open;

end;

procedure TForm5.Edit9Change(Sender: TObject);

begin

DBGrid4.DataSource:=DataModule2.DataSource9;

DataModule2.ADOQuery5.Close;

DataModule2.ADOQuery5.sql.Clear;

s:='SELECT vistavka.Фио_худ, vistavka.Назв_выст, vistavka.Дата_пров, vistavka.кол_карт, vistavka.Город, vistavka.Посвящена';

s:=s+' from vistavka';

s:=s+' WHERE vistavka.Дата_пров LIKE'+'"'+edit9.text+'%"';

DataModule2.ADOQuery5.sql.Add(s);

DataModule2.ADOQuery5.Open;

end;

procedure TForm5.Edit10Change(Sender: TObject);

begin

DBGrid4.DataSource:=DataModule2.DataSource9;

DataModule2.ADOQuery5.Close;

DataModule2.ADOQuery5.sql.Clear;

s:='SELECT vistavka.Фио_худ, vistavka.Назв_выст, vistavka.Дата_пров, vistavka.кол_карт, vistavka.Город, vistavka.Посвящена';

s:=s+' from vistavka';

s:=s+' WHERE vistavka.Город LIKE'+'"'+edit10.text+'%"';

DataModule2.ADOQuery5.sql.Add(s);

DataModule2.ADOQuery5.Open;

end;

procedure TForm5.Edit11Change(Sender: TObject);

begin

DBGrid4.DataSource:=DataModule2.DataSource9;

DataModule2.ADOQuery5.Close;

DataModule2.ADOQuery5.sql.Clear;

s:='SELECT vistavka.Фио_худ, vistavka.Назв_выст, vistavka.Дата_пров, vistavka.кол_карт, vistavka.Город, vistavka.Посвящена';

s:=s+' from vistavka';

s:=s+' WHERE vistavka.Посвящена LIKE'+'"'+edit11.text+'%"';

DataModule2.ADOQuery5.sql.Add(s);

DataModule2.ADOQuery5.Open;

end;

procedure TForm5.DBComboBox1Change(Sender: TObject);

begin

Edit4.Text:=DBComboBox1.Text;

DataModule2.ADOQuery13.Close;

DataModule2.ADOQuery13.sql.Clear;

s:='SELECT vistavka.Назв_выст, vistavka.дата_пров, vistavka.кол_карт, vistavka.Город, vistavka.Посвящена';

s:=s+' FROM vistavka';

s:=s+' WHERE vistavka.Фио_худ LIKE'+'"'+edit4.text+'%"';

DataModule2.ADOQuery13.sql.Add(s);

DataModule2.ADOQuery13.Open;

end;

end.