ign="justify"> {$ R *. dfm} TAmnZForm.FormClose (Sender: TObject; var Action: TCloseAction);: = caFree;; TAmnZForm.ToolButton11Click (Sender: TObject);. AnmZ.Cancel;;; TAmnZForm.ToolButton1Click (Sender: TObject);. AnmZ.Fields.Fields [1]. AsInteger: =. PacAll.Fields.Fields [0]. AsInteger;. AnmZ.Post;;.
Antrop;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, ToolWin, ExtCtrls, StdCtrls, Mask, DBCtrlsEh; = class (TForm): TToolBar;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TPanel;: TPanel;: TPanel;: TPanel;: TPanel;: TPanel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel; : TLabel;: TLabel;: TLabel;: TLabel;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh ;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh; ToolButton11Click (Sender: TObject); ToolButton2Click (Sender: TObject); ToolButton1Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction);
{Private declarations}
{Public declarations};: TAntropForm; Main, DataModule;
{$ R *. dfm} TAntropForm.ToolButton11Click (Sender: TObject);;; TAntropForm.ToolButton2Click (Sender: TObject);. Antrop.Cancel;;; TAntropForm.ToolButton1Click (Sender: TObject) ;. Antrop.Fields.Fields [1]. AsInteger: = DM.PacAll.Fields.Fields [0]. AsInteger;. Antrop.Post;; TAntropForm.FormClose (Sender: TObject; var Action: TCloseAction);: = caFree ;;.
BistrVvod;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DBCtrlsEh, DBLookupEh, StdCtrls, ExtCtrls, DBCtrls, Mask,, ToolWin, ImgList; = class (TForm): TToolBar ;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TPanel;: TLabel;: TLabel;: TDBEditEh;: TDBEditEh;: TDBEditEh;: TDBEditEh;: TDBRadioGroup;: TButton;: TDBLookupComboboxEh;: TDBLookupComboboxEh;: TButton;: TLabel;: TDBDateTimeEditEh;: TImageList; FormClose (Sender: TObject; var Action: TCloseAction); ToolButton2Click (Sender: TObject); ToolButton3Click (Sender: TObject); ToolButton1Click (Sender: TObject); Button4Click (Sender: TObject); Button3Click ( Sender: TObject);
{Private declarations}
{Public declarations};: TBistrVvodForm; DataModule, DataModuleSpr, VibVrach, Palat;
{$ R *. dfm} TBistrVvodForm.FormClose (Sender: TObject; Action: TCloseAction);. Pacient.Cancel;: = caFree;; TBistrVvodForm.ToolButton2Click (Sender: TObject);. Pacient. Cancel;;; TBistrVvodForm.ToolButton3Click (Sender: TObject);. Pacient.Insert;; TBistrVvodForm.ToolButton1Click (Sender: TObject);. Pacient.Post;. PacAll.Requery ([]);. Pacient.Edit;; TBistrVvodForm. Button4C...
