Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, DB, DBTables, StdCtrls, Buttons, ComCtrls, ExtCtrls ,, DateUtils, jpeg;=class (TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TTimer;: TPanel;: TOpenDialog;: TMenuItem; : TDataSource;: TStringField;: TPanel;: TEdit;: TLabel;: TTimer;: TBitBtn;: TImage;: TImage;: TAutoIncField;: TTable;: TSaveDialog;: TBitBtn;: TBitBtn;: TGraphicField;: TMemoField;: TIntegerField ;: TIntegerField;: TIntegerField;: TStringField; Exit1Click (Sender: TObject); About1Click (Sender: TObject); NewTable; CreateTab1Click (Sender: TObject); EditTab1Click (Sender: TObject); QueryTab1Click (Sender: TObject); Timer1Timer (Sender : TObject); N1Click (Sender: TObject); Timer2Timer (Sender: TObject); BitBtn1Click (Sender: TObject); FormCreate (Sender: TObject); BitBtnOpenClick (Sender: TObject); Edit2Enter (Sender: TObject); BitBtnCreateClick (Sender: TObject); Button1Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1;: Boolean; Unit2, Unit3, Unit4;
{$ R *. dfm} TForm1.Exit1Click (Sender: TObject);;; TForm1.About1Click (Sender: TObject);
begin («Курсовий проект за темою« Серіали »створений 23.10.12.» + # 13 +
«Автор: Горбіч Дмитро»);;
procedure TForm1.NewTable;// Створити нову таблицю
SaveDialog1.FileName:=«*. db»;// Маска пошуку за замовчуванням
if SaveDialog1.Execute thenTableMy do
begin:=False;
/ / Визначення основних властивостей таблиці
DatabaseName:=ExtractFilePath(SaveDialog1.FileName);:=ExtractFileName(SaveDialog1.FileName);:=ttParadox;
/ / Визначення полей.Clear;. Add («ID», ftAutoInc, 0, True);. Add («Name», ftString, 25, False);. Add (« NameOrig », ftString, 25, False);. Add (« Country », ftString, 20, False);. Add (« CreatedBy », ftString, 20, False);. Add (« Chanel », ftString, 20, False);. Add («SezNum», ftInteger, 0, False);. Add («SerNum», ftInteger, 0, False);. Add («SerTime», ftInteger, 0, False); . Add («Status», ftString, 10, False);. Add («Memo», ftMemo, 20, False);. Add («Picture», ftGraphic, 20, False);
/ / Визначення индексов.Clear;.Add(«»,«ID»,[ixPrimary,ixUnique]);.Add(«indName»,«Name»,[ixCaseInsensitive]);.Add(«indNameOrig»,«NameOrig»,[ixCaseInsensitive]);.Add(«indCountry»,«Country»,[ixCaseInsensitive]);.Add(«indCreatedBy»,«CreatedBy»,[ixCaseInsensitive]);.Add(«indChanel»,«Chanel»,[ixCaseInsensitive]);
/ / Визначення зворотних индексов.Add(«rindName»,«Name»,[ixCaseInsensitive,ixDescending]);.Add(«rindNameOrig»,«NameOrig»,[ixCaseInsensitive,ixDescending]);.Add(«rindCountry»,«Country»,[ixCaseInsensitive,ixDescending]);.Add(«rindCreatedBy»,«CreatedBy»,[ixCaseInsensitive,ixDescending]);.Add(«rindChane...
