larations}
{Public declarations};: TInfoForm;
DataModule, DataModuleSpr;
{$ R *. dfm} TInfoForm.ToolButton13Click (Sender: TObject);;; TInfoForm.FormClose (Sender: TObject; var Action: TCloseAction);: = caFree;;.
Osm;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, ToolWin, Grids, DBGridEh, StdCtrls, Mask, DBCtrlsEh; = class (TForm): TDBGridEh;: TToolBar ;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TDBEditEh;: TDBEditEh;: TDBEditEh;: TDBEditEh;: TDBEditEh; FormClose (Sender: TObject; var Action: TCloseAction); ToolButton11Click (Sender: TObject); ToolButton3Click (Sender: TObject); ToolButton1Click (Sender: TObject); ToolButton5Click (Sender: TObject); ToolButton2Click ( Sender: TObject);
{Private declarations}
{Public declarations};: TOsmForm; Main, DataModule;
{$ R *. dfm} TOsmForm.FormClose (Sender: TObject; var Action: TCloseAction);: = caFree;; TOsmForm.ToolButton11Click (Sender: TObject);;; TOsmForm.ToolButton3Click (Sender : TObject);. Osm.Cancel;; TOsmForm.ToolButton1Click (Sender: TObject);. Osm.Fields.Fields [1]. AsInteger: =. PacAll.Fields.Fields [0]. AsInteger;. Osm.Post;; TOsmForm.ToolButton5Click (Sender: TObject);. Osm.Edit;; TOsmForm.ToolButton2Click (Sender: TObject);. Osm.Insert;;.