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

l»,«Chanel»,[ixCaseInsensitive,ixDescending]);;:=True;.DBGrid1.Columns.Items[0].Visible:=False;.DBGrid1.Columns.Items[6].Visible:=False;.DBGrid1.Columns.Items[7].Visible:=False;.DBGrid1.Columns.Items[8].Visible:=False;.DBGrid1.Columns.Items[9].Visible:=False;.DBGrid1.Columns.Items[10].Visible:=False;.DBGrid1.Columns.Items[11].Visible:=False;.Caption:=«Сериалы »+ SaveDialog1.FileName;;; TForm1.CreateTab1Click (Sender: TObject);;; TForm1.BitBtn1Click (Sender: TObject); Edit2.Text =« 321 » then:=True;; TForm1.EditTab1Click (Sender: TObject);. Hide;. Show;. DBGrid1.Enabled:=True;; TForm1.QueryTab1Click (Sender: TObject);. Hide;. Show;; TForm1.Timer1Timer ( Sender:  TObject);, u: Word;, v: string;:=MonthOfTheYear (Date); y of

1: x:=«січня»;

: x:=«Лютий»;

: x:=«Березня»;

: x:=«апреля»;

: x:=«травня»;

: x:=«Червень»;

: x:=«Липень»;

: x:=«Серпень»;

: x:=«сентября»;

: x:=«Жовтень»;

: x:=«Листопад»;

: x:=«Грудень»;

end;:=DayOfWeek (Date); u of

1: v:=«Неділя»;

: v:=«Понеділок»;

: v:=«вівторок»;

: v:=«середовище»;

: v:=«Четвер»;

: v:=«П'ятниця»;

7: v:=«Субота»;;. Caption:=TimeToStr (Time);. Caption:=IntToStr (DayOfTheMonth (Date)) +

« »+ X +« »+ IntToStr (YearOf (Date));. Hint: =« Сегодня »+ v;; TForm1.N1Click (Sender: TObject);. Hide;. Show;; TForm1.Timer2Timer (Sender: TObject); Pass then.Caption:=«Сериалы»;.Enabled:=True;.Enabled:=True;.Enabled:=True;.Enabled:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;.Enabled:=False;;;TForm1.FormCreate(Sender: TObject);.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;;TForm1.BitBtnOpenClick(Sender: TObject);. FileName:=«*. Db»; {Маска пошуку за замовчуванням} OpenDialog1.Execute then.TableMy.Active:=False;. TableName:=ExtractFileName (OpenDialog1.FileName);. Caption:=«Таблиця властивостей серіалів »+OpenDialog1.FileName;.TableMy.Active:=True;.DBGrid1.Columns.Items[0].Visible:=False;.DBGrid1.Columns.Items[6].Visible:=False;.DBGrid1.Columns.Items[7].Visible:=False;.DBGrid1.Columns.Items[8].Visible:=False;.DBGrid1.Columns.Items[9].Visible:=False;.DBGrid1.Columns.Items[10].Visible:=False;.DBGrid1.Columns.Items[11].Visible:=False;;TForm1.Edit2Enter(Sender: TObject); Edit2.Text=«321» then:=True;; TForm1.BitBtnCreateClick (Sender: TObject);;; TForm1.Button1Click (Sender: TObject);. Hide;. Show;;.

B.2 . Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, Grids, DBGrids, DB, DBTables, ExtCtrls ,;=class (TForm): TDBGrid;: TBitBtn;: TDBNavigator;: TBitBtn;: TLabel;: TBitBtn; BitBtnMenuClick (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); DBGrid1TitleClick (Column: TColumn) ; BitBtnUnsortClick (Sender: TObject);

{Private declarations}

{Public declarations} FillingColums (GridName: TDBGri...