lick (Sender: TObject);. Create (Application);; TBistrVvodForm.Button3Click (Sender: TObject);. Create (Application);;.
DateF;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, ToolWin, StdCtrls, ExtCtrls, Mask, DBCtrlsEh; = class (TForm): TToolBar;: TToolButton;: TToolButton;: TPanel;: TLabel;: TDBDateTimeEditEh; FormClose (Sender: TObject; var Action: TCloseAction); ToolButton2Click (Sender: TObject); ToolButton1Click (Sender: TObject);
{Private declarations}
{Public declarations};: TDateForm; Main, Vipisk, DataModule, ADODB, DB, ConvUtils;
{$ R *. dfm} TDateForm.FormClose (Sender: TObject; var Action: TCloseAction);: = caFree;; TDateForm.ToolButton2Click (Sender: TObject);;; TDateForm.ToolButton1Click (Sender : TObject);. Create (Application). Label1.Caption: = 'Планується до виписки на:' + DBDateTimeEditEh1.Text; DM.vipis do;. Clear;. Add ('sel_pacient; 2');. Add ('' '' + DBDateTimeEditEh1.Text +'''');;;;;;.
Diagnoz;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DBCtrlsEh, StdCtrls, Mask, ExtCtrls, DBCtrls, Grids, DBGridEh,, ToolWin; = class (TForm): TDBGridEh ;: TPanel;: TLabel;: TDBCheckBoxEh;: TDBRadioGroup;: TLabel;: TDBDateTimeEditEh;: TLabel;: TDBEditEh;: TToolBar;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TPanel;: TDBMemo;: TToolButton;: TToolButton; DBGridEh1GetCellParams (Sender: TObject; Column: TColumnEh;: TFont; var Background: TColor; State: TGridDrawState); FormClose (Sender: TObject; var Action: TCloseAction); ToolButton5Click (Sender: TObject); ToolButton1Click (Sender: TObject) ; ToolButton2Click (Sender: TObject); ToolButton4Click (Sender: TObject);
{Private declarations}
{Public declarations};: TDiagnozForm; DataModule, Main, DataModuleSpr;
{$ R *. dfm} TDiagnozForm.DBGridEh1GetCellParams (Sender: TObject;: TColumnEh; AFont: TFont; var Background: TColor;: TGridDrawState); DBGridEh1.SumList.RecNo mod 2 = 1 then: = $ 00ddbbff: = clSkyBlue;; TDiagnozForm.FormClose (Sender: TObject; Action: TCloseAction);: = caFree;; TDiagnozForm.ToolButton5Click (Sender: TObject);. Clear;; TDiagnozForm.ToolButton1Click (Sender: TObject);. Text : = DBGridEh1.Fields [1]. AsString;; TDiagnozForm.ToolButton2Click (Sender: TObject);;; TDiagnozForm.ToolButton4Click (Sender: TObject);. Diagn.FieldByName ('Id_Pac'). AsInteger: =. PacAll.Fields. Fields [0]. AsInteger;. Diagn.FieldByName ('Diag'). AsString: = DBMemo1.Text;;;.
DataModule;, Classes, DB, ADODB; = class (TDataModule): TADOConnection;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TStringField;: TStringField;: TStringField;: TSmallintField;: TSmallintField; _Vrach: TStringField;: TADOQuery;: TDataSource; _Pacient: TAutoIncField...
