s.ParamByName(laquo;konraquo;).value:=strtodate(laquo;31.12.raquo;+god);
Adoquery1.open;
ADOQuery1.Active:=True;
end;
if Edit2.text lt; gt; lt; Nazvanie_spektaklya gt; then
begin
ks:=edit2.text + % raquo ;;
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add ( SELECT * FROM Репертуар WHERE Nazvanie_spektaklya like + QuotedStr (ks));
ADOQuery1.Active:=True;
end;
if Edit3.text lt; gt; lt; Rejisser gt; then
begin
ks:=edit3.text + % raquo ;;
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add ( SELECT * FROM Репертуар WHERE Rejisser like + QuotedStr (ks));
ADOQuery1.Active:=True;
end;
if Edit4.text lt; gt; lt; Janr gt; then
begin
ks:=edit4.text + % raquo ;;
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add ( SELECT * FROM Репертуар WHERE Janr like + QuotedStr (ks));
ADOQuery1.Active:=True;
end ;; Trepertory.Edit1Click (Sender: TObject);.Text:=laquo;raquo;;.Text:=laquo;lt;Nazvanie_spektaklyagt;raquo;;.Text:=laquo;lt;Rejissergt;raquo;;.Text:=laquo;lt;Janrgt;raquo;;;Trepertory.Edit2Click(Sender: TObject);.Text:=laquo;lt;Data_premyerigt;raquo;;.Text:=laquo;raquo;;.Text:=laquo;lt;Rejissergt;raquo;;.Text:=laquo;lt;Janrgt;raquo;;;Trepertory.Edit3Click(Sender: TObject);.Text:=laquo;lt;Data_premyerigt;raquo;;.Text:=laquo;lt;Nazvanie_spektaklyagt;raquo;;.Text:=laquo;raquo;;.Text:=laquo;lt;Janrgt;raquo;;;Trepertory.Edit4Click(Sender: TObject);.Text:=laquo;lt;Data_premyerigt;raquo;;.Text:=laquo;lt;Nazvanie_spektaklyagt;raquo;;.Text:=laquo;lt;Rejissergt;raquo;;.Text:=laquo;raquo;;;Trepertory.Button3Click(Sender: TObject);.Text:=laquo;lt;Data_premyerigt;raquo;;.Text:=laquo;lt;Nazvanie_spektaklyagt;raquo;;.Text:=laquo;lt;Rejissergt;raquo;;.Text:=laquo;lt;Janrgt;raquo;;.SQL.Clear;.SQL.Add(laquo;SELECT * FROM Репертуарraquo;);.Active:=True;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;;.troupe;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Grids, DBGrids, ADODB, jpeg, ExtCtrls, StdCtrls, DBCtrls,
GridsEh, DBGridEh;
Ttroupe=class (TForm)
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
Button1: TButton;
dbnvgr1: TDBNavigator;
image2: TImage;
DBGridEh1: TDBGridEh;
ADOQuery1: TADOQuery;
grp1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
label2: TLabel;
Edit1: TEdit;
Button2: TButton;
Edit2: TEdit;
Button3: TButton;
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
procedure RadioButton1Click (Sender: TObject);
procedure RadioButton2Click (Sender: TObject);
procedure Edit1Click (Sender: TObject);
procedure Edit2Click (Sender: TObject);
procedure Button3Click (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
troupe: Ttroupe; main;
{$ R * .dfm} Ttroupe.Button1Click (Sender: TObject) ;. Close ;; Ttroupe.Button2Click (Sender: TObject); ks: string;
if Edit1.text lt; gt; lt; Status gt; then
begin
ks:=edit1.text + % raquo ;;
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add ( SELECT * FROM Трупа WHERE Status like + QuotedStr (ks));
ADOQuery1.Active:=True;
end;
if Edit2.text lt; gt; lt; FIO gt; then
begin
ks:=edit2.text + % raquo ;;
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add ( SELECT * FROM Трупа WHERE FIO like + QuotedStr (ks));
ADOQuery1.Active:=True;
end ;; Ttroupe.FormCreate (Sender: TObject) ;. Active:=false; .SQL.Clear; .SQL.Add ( SELECT * FROM трупа ) ;. Active:=True ;; Ttroupe. RadioButton1Click (Sender: TObject) ;. Active:=false; .SQL.Clear; .SQL.Add ( SELECT * FROM трупа order by FIO ) ;. Active:=True ;; Ttroupe.RadioButton2Click (Sender: TObject) ; .Active:=false; .SQL.Clear; .SQL.Add ( SELECT * FROM трупа order by FIO desc ) ;. Active:=True ;; Ttroupe.Edit1Click (Sender: TObject) ;. Text:= raquo ;;. Text:= lt; FIO gt; raquo ;;; Ttroupe.Edit2Click (Sender: TObject) ;. Text:= raquo ;;. Text:= lt; Status gt; raquo ;; ; Ttroupe.Button3Click (Sender: TObject);.Text:=laquo;lt;FIOgt;raquo;;.Text:=laquo;lt;Statusgt;raquo;;.SQL.Clear;.SQL.Add(laquo;SELECT * FROM трупа ) ;. Active:=True; .Checked:=False; .Checked:=False ;;. Ttoday;
Windows, Messages,...
