d);;: TForm2; Unit1;
{$ R *. dfm} TForm2.BitBtnMenuClick (Sender: TObject);. Hide;. Close;; TForm2.FormClose (Sender: TObject; var Action: TCloseAction);. Hide;. Show ;; TForm2.FillingColums (GridName: TDBGrid);// Заповнення назв колонок: Integer;, Caption: string; i:=0 to GridName.Columns.Count - 1 do:=GridName.Columns [i]. FieldName; FieldName=«Name» then:=«Назва» if FieldName=«NameOrig» then:=«Оригінальна назва» if FieldName=«Country» then:=«Країна» if FieldName=«CreatedBy» then:=«Автор ідеї» if FieldName=«Chanel» then:=«Телеканал»;.Columns[i].Title.Caption:=Caption;;;TForm2.DBGrid1TitleClick(Column: TColumn); FieldName, IndexName: string; (Form2.DBGrid1);
//Сортировка:=Column.FieldName;:=Form1.TableMy.IndexName;IndexName=«rind»+FieldName then.TableMy.IndexName:=«ind» + FieldName;. Title.Caption:=Column.Title.Caption + «/ «;;; IndexName =» ind «+ FieldName then.TableMy.IndexName: =» rind «+ FieldName;. Title.Caption:=Column.Title.Caption +» /«;;;.TableMy.IndexName:=»ind«+FieldName;.Title.Caption:=Column.Title.Caption+»/ «;; TForm2.BitBtnUnsortClick (Sender: TObject);. TableMy.IndexName: =» »; (Form2.DBGrid1);;.
B.3 . Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, DB, DBTables, StdCtrls, Buttons, ExtCtrls ;=class (TForm): TBitBtn;: TDataSource;: TDBGrid;: TLabel;: TQuery;: TEdit;: TLabel;: TBitBtn;: TCheckBox;: TCheckBox;: TCheckBox;: TCheckBox;: TCheckBox;: TShape;: TShape ; BitBtn3Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); DBGrid1TitleClick (Column: TColumn); FormCreate (Sender: TObject); ExecuteSQL; Edit1KeyUp (Sender: TObject; var Key: Word;: TShiftState) ; BitBtn1Click (Sender: TObject); FormShow (Sender: TObject); Button1Click (Sender: TObject); CheckBox1Click (Sender: TObject); CheckBox2Click (Sender: TObject); CheckBox3Click (Sender: TObject); CheckBox4Click (Sender: TObject); CheckBox5Click (Sender: TObject);
{Private declarations}: string;: Integer;: string;
{Public declarations};: TForm3; Unit1, Unit2;
{$ R *. dfm} TForm3.BitBtn3Click (Sender: TObject);. Hide;. Close;. Show;; TForm3.FormClose (Sender: TObject; var Action: TCloseAction);. Hide ;. Show;; TForm3.DBGrid1TitleClick (Column: TColumn); FieldName=Column.FieldName then (SortedAsc=0) or (SortedAsc=2) then:=1:=2; else SortedAsc:=1;:=Column.FieldName ;;;
/ / -------------------------------------------------------------
/ / Процедура виконує SQL запит до бази
/ / ------------------------------------------------------------- TForm3. ExecuteSQL;: integer;. Close;. SQL.Clear;
/ / Вибір полів:=«Name»; CheckBox5.Checked=true then:=(CheckString
+ «, NameOrig, Country, CreatedBy, Chanel»); else beginCheckBox1.Checked=true then CheckString:=(CheckString + «, NameOrig»); CheckBox2.Checked=true then CheckString :=(CheckString + «, Country»); CheckBox3.Checked=true then CheckString:=(CheckString + «, CreatedBy»); CheckBox4.Checked=true then CheckString:=(CheckString + «, Chanel»); ;. SQL.Add («SELECT» + CheckString + «from»
+ «« »+ Form1.TableMy.TableName +« »»);
/ /...