Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Новые рефераты » База даних "Серіали"

Реферат База даних "Серіали"





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 +« »»);

/ /...


Назад | сторінка 8 з 9 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Прикладне додаток &Розробка проекту для створення нового класу Auto і елеме ...
  • Реферат на тему: Phraseological unit as a newspaper title
  • Реферат на тему: Ghandi and the myth of non-violent action
  • Реферат на тему: Розробка маркетингового забезпечення для нової колекції чорних суконь Chane ...
  • Реферат на тему: Australia: detail about the country