nuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TPanel;: TEdit; N6Click (Sender: TObject); N3Click ( Sender: TObject); N7Click (Sender: TObject); N8Click (Sender: TObject); FindEditChange (Sender: TObject); N10Click (Sender: TObject); N11Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1; DataModuleUnit, TownBookUnit1, EditFormUnit1;
{$ R *. dfm} TForm1.N6Click (Sender: TObject);. ShowModal;; TForm1.N3Click (Sender: TObject);. BookTable.Insert;. ShowModal;; TForm1.N7Click ( Sender: TObject);. ShowModal;; TForm1.N8Click (Sender: TObject);.MessageBox(PChar(«Вы_действительно_хотите_удалить»+DataModule2.BookTableDSDesigner.AsString), «Увага!», MB_OkCancel)=id_Ok then DataModule2.BookTable.Delete;; TForm1.FindEditChange (Sender: TObject); Length (FindEdit.Text)> 0 then.BookTable.Filtered:=true DataModule2.BookTable.Filtered:=false;.BookTable.Filter:=«Фамилия>»«»+FindEdit.Text+«»«»;;TForm1.N10Click(Sender: TObject);. BookTable.IndexFieldNames:=«Телефон»;; TForm1.N11Click (Sender: TObject);. BookTable.IndexFieldNames:=«Прізвище»;
end;.
