orm1.FormStyle:=fsNormal;
end;
end.
/ / Текст файлу вставки записів
unit InsRec;
interface, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, Db, DBTables, Mask, DBCtrls;=class (TForm): TGroupBox;: TLabel;: TLabel;: TLabel; : TLabel;: TButton;: TButton;: TButton;: TLabel;: TDataSource;: TTable;: TDBEdit;: TDBEdit;: TDBEdit;: TDBMemo;: TDataSource;: TTable;: TDBLookupComboBox; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations};: TInsertRec; Unit1, URazdel;
{$ R *. DFM}
procedure TInsertRec.Button1Click (Sender: TObject);Adres:String;((DBEdit1.Text<>«»)and(DBLookupComboBox1.Text<>«»)) then begin.Active:=true;.Active:=true;.FieldByName(«Название»).asString:=DBedit1.Text;.FieldByName(«Автор»).asString:=DBedit2.Text;.FieldByName(«Раздел»).asString:=DBLookupComboBox1.Text;.FieldByName(«Описание»).asString:=DBMemo1.Text;.Post;.Active:=false;.Active:=false;;;
ShowMessage («Возмлжно вже існує запис з такими полями.»);
DBEdit1.Text:=«»;. Text:=«»;. Text:=«»;; end else begin
showmessage («Обов'язковий введення« Назва »та« Розділ »»);
table1.cancel;;
end; TInsertRec.Button2Click (Sender: TObject);. cancel;;
end; TInsertRec.Button3Click (Sender: TObject);. ShowModal;
end; TInsertRec.FormCreate (Sender: TObject);.table1.dataBaseName:=extractFilePath(application.exeName)+«Base»;.table2.dataBaseName:=extractFilePath(application.exeName)+«Base»;
end;
end.
/ / Текст файлу редагування розділів
unit URazdel;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, DBGrids, StdCtrls, Mask, DBCtrls, Db, DBTables;=class (TForm): TTable;: TDataSource; : TButton;: TButton;: TDBGrid;: TButton;: TEdit; Button3Click (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject); FormActivate (Sender: TObject); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations};: TRazdel;
{$ R *. DFM}
procedure TRazdel.Button3Click (Sender: TObject);;
end; TRazdel.Button1Click (Sender: TObject);.table1.Active:=true;.table1.Append;.table1.FieldByName(«Раздел»).asString:=edit1.Text;.table1.Refresh;
end; TRazdel.Button2Click (Sender: TObject);. table1.Delete;
end; TRazdel.FormActivate (Sender: TObject); edit1.CanFocus then edit1.SetFocus;
end; TRazdel.FormCreate (Sender: TObject);
begin.table1.dataBaseName:=extrac...
