nuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TActionList;: TWindowClose;: TWindowCascade;: TWindowTileHorizontal; : TWindowTileVertical;: TWindowMinimizeAll;: TWindowArrange;: TStatusBar;: TToolBar;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TImageList;: TToolButton;: TToolButton;: TToolButton;: TfrReport;: TMenuItem;: TMenuItem;: TMenuItem ;: TfrReport;: TfrDBDataSet;: TfrDBDataSet; N2Click (Sender: TObject); N9Click (Sender: TObject); FormCreate (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); N3Click (Sender: TObject); ToolButton3Click (Sender: TObject); N5Click (Sender: TObject); C1Click (Sender: TObject);
{Private declarations}
{Public declarations};: TMainForm;
DataModule, Math, DB, SpisPacint, Da teUtils, BistrVvod, Dostup, DateF,, Spr, ADODB;
{$ R *. dfm} TMainForm.N2Click (Sender: TObject);: TSpisPacientForm;: = TSpisPacientForm.Create (Application); DM.Dostup.Fields.Fields [2]. AsInteger = 4 then.ToolButton7.Visible: = False;. ToolButton5.Visible: = False;; DM.Dostup.Fields.Fields [2]. AsInteger = 5 then.ToolButton1.Visible: = False;. ToolButton2.Visible: = False;. ToolButton3.Visible: = False;. ToolButton9.Visible: = False;. ToolButton6.Visible: = False;;. Show;; TMainForm.N9Click (Sender: TObject);;;
TMainForm.FormClose (Sender: TObject; var Action: TCloseAction);. Pacient.Cancel;; TMainForm.N3Click (Sender: TObject);. Pacient.Insert;. Create (Application);; TMainForm . ToolButton3Click (Sender: TObject);. Create (Application);; TMainForm.N5Click (Sender: TObject); DM.Dostup do;. Clear;. Add ('sel_Dost; 1');;;;. Create (Application) ;; TMainForm.C1Click (Sender: TObject);. Create (Application);;.
Admin;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGridEh, ComCtrls, ToolWin, ExtCtrls, DBLookupEh,, Mask, DBCtrlsEh; = class (TForm): TDBGridEh ;: TToolBar;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TPanel;: TToolBar;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TLabel;: TLabel;: TLabel;: TLabel;: TDBEditEh;: TDBEditEh;: TDBLookupComboboxEh;: TDBEditEh;: TPanel;: TToolBar;: TToolButton;: TToolButton;: TDBEditEh;: TLabel;: TLabel;: TDBEditEh; FormClose (Sender: TObject; var Action: TCloseAction); ToolButton4Click (Sender: TObject) ; ToolButton2Click (Sender: TObject); ToolButton1Click (Sender: TObject); ToolButton6Click (Sender: TObject); ToolButton5Click (Sender: TObject); ToolButton10Click (Sender: TObject); ToolButton9Click (Sender: TObject); ToolButton3Click (Sender: TObject);
{Private declarations}
{Public declarations};: TAdminForm; DataModule, Main, DataModuleSpr, DB, ADODB;
{$ R *. dfm} TAdminForm.FormClose (Sender: TObject; v...
