Поіскnot (Edit1.Text="") then.SQL.Add («WHERE Name like"%" + Edit1.Text +"% »») ;. SQL.Add («OR NameOrig like"%" + Edit1.Text +"% »»);. SQL.Add («OR Country like"%" + Edit1.Text + «%» »);. SQL.Add (« OR CreatedBy like" %" + Edit1.Text +" %» »);. SQL.Add (« OR Chanel like « % »+ Edit1.Text +"% »»);;
/ / Сортіровкаnot (FieldName="") and (Pos (FieldName, CheckString)> 0) then.SQL.Add («ORDER BY» + FieldName); (SortedAsc= 1) then Query1.SQL.Add («ASC») if (SortedAsc=2) then Query1.SQL.Add («DESC»);;. Prepare;. Open;. FillingColums (Form3.DBGrid1); i:=0 to DBGrid1.Columns.Count - 1 doFieldName=DBGrid1.Columns [i]. FieldName thenSortedAsc=1 then.Columns [i]. Title.Caption:=DBGrid1.Columns [i]. Title.Caption + «/ «; SortedAsc=2 then.Columns [i]. Title.Caption:=DBGrid1.Columns [i]. Title.Caption +» / «;;;; TForm3.FormCreate (Sender: TObject);:=0;: =» »;
/ / ExecuteSQL;; TForm3.Edit1KeyUp (Sender: TObject; var Key: Word;: TShiftState);;; TForm3.BitBtn1Click (Sender: TObject);:=«»;:= 0;;; TForm3.FormShow (Sender: TObject);. TableMy.Active:=False;. TableMy.Active:=True;;; TForm3.Button1Click (Sender: TObject);. Checked:=true;. Checked:= true;. Checked:=true;. Checked:=true;;; TForm3.CheckBox1Click (Sender: TObject);;; TForm3.CheckBox2Click (Sender: TObject);;; TForm3.CheckBox3Click (Sender: TObject);;; TForm3 . CheckBox4Click (Sender: TObject);;; TForm3.CheckBox5Click (Sender: TObject);. Enabled:=not CheckBox5.Checked;. Enabled:=not CheckBox5.Checked;. Enabled:=not CheckBox5.Checked;. Enabled:= not CheckBox5.Checked;;;.
В.4.
unit Unit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, MPlayer, StdCtrls, DBCtrls, ExtDlgs, ComCtrls, Buttons,;=class (TForm): TDBImage; : TOpenPictureDialog;: TDBNavigator;: TDBText;: TLabel;: TDBRichEdit;: TBitBtn;: TBitBtn;: TFontDialog;: TLabel;: TLabel;: TLabel;: TLabel;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TLabel ;: TBitBtn;: TLabel; FormClose (Sender: TObject; var Action: TCloseAction); BitBtn1Click (Sender: TObject); BitBtn2Click (Sender: TObject); BitBtn3Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm5; Unit1;
{$ R *. dfm} TForm5.FormClose (Sender: TObject; var Action: TCloseAction);. Hide;. Show;; TForm5.BitBtn1Click (Sender: TObject); OpenPictureDialog1.Execute then.TableMy.Edit;.Picture.LoadFromFile(OpenPictureDialog1.FileName);.TableMy.Post;;;TForm5.BitBtn2Click(Sender: TObject); FontDialog1.Execute then.SelAttributes.Assign (FontDialog1.Font);. SetFocus;; TForm5.BitBtn3Click (Sender: TObject);. Hide;. Show;
end;.