Реферат Розробка автоматизованої системи обліку та аналізу виробничої діяльності будівельних підприємств Кубані

der: TObject; Action: TCloseAction);: = caFree;; THistoryForm.DBGridEh1CellClick (Column: TColumnEh); DMSpr.His.Fields.Fields [ 0]. AsInteger of

: TInfoForm.Create (Application);

: DM.Diagn do;. Clear;. Add ('select * from Diagn');. Add ('where Id_Pac =' + (DM.Pacient.Fields.Fields [0]. AsInteger ));;;;. Create (Application);;

: DM.AnmZ do;. Clear;. Add ('select * from AnZ');. Add ('where Id_Pac =' + (DM.PacAll.Fields.Fields [0]. AsInteger ));;; Fields.Fields [0]. AsString <>'' then;;. Create (Application);;

: DM.AnmB do;. Clear;. Add ('select * from AnB');. Add ('where Id_Pac =' + (DM.PacAll.Fields.Fields [0]. AsInteger ));;; Fields.Fields [0]. AsString <>'' then;;. Create (Application);;

: DM.Epid do;. Clear;. Add ('select * from Epid');. Add ('where Id_Pac =' + (DM.PacAll.Fields.Fields [0]. AsInteger ));;; Fields.Fields [0]. AsString <>'' then;;. Create (Application);;

: DM.Antrop do;. Clear;. Add ('select * from Antrop');. Add ('where Id_Pac =' + (DM.PacAll.Fields.Fields [0]. AsInteger ));;; Fields.Fields [0]. AsString <>'' then;;. Create (Application);;

: DM.Osm do;. Clear;. Add ('select * from Osm');. Add ('where Id_Pac =' + (DM.PacAll.Fields.Fields [0]. AsInteger ));;;;. Create (Application);;

: DM.Vip do;. Clear;. Add ('select * from Vipis');. Add ('where Id_Pac =' + (DM.PacAll.Fields.Fields [0]. AsInteger ));;; Fields.Fields [0]. AsString <>'' then;;. Create (Application);;

: DM.Zakl do;. Clear;. Add ('select * from ZAkl');. Add ('where Id_Pac =' + (DM.PacAll.Fields.Fields [0]. AsInteger ));;; Fields.Fields [0]. AsString <>'' then;;. Create (Application);;

: DM.Zam do;. Clear;. Add ('select * from Zam');. Add ('where Id_Pac =' + (DM.PacAll.Fields.Fields [0]. AsInteger ));;; Fields.Fields [0]. AsString <>'' then;;. Create (Application);;;;.

Info;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, ComCtrls, ToolWin, StdCtrls, Mask, DBCtrlsEh,; = class (TForm): TToolBar;: TToolButton; : TPanel;: TPanel;: TPanel;: TLabel;: TLabel;: TDBLookupComboboxEh;: TDBLookupComboboxEh;: TDBEditEh;: TDBEditEh;: TDBEditEh;: TLabel;: TLabel;: TLabel;: TLabel;: TDBDateTimeEditEh;: TLabel;: TDBLookupComboboxEh ;: TGroupBox;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TDBEditEh;: TDBEditEh;: TDBLookupComboboxEh;: TDBDateTimeEditEh;: TDBEditEh;: TLabel;: TLabel;: TLabel;: TDBLookupComboboxEh;: TDBLookupComboboxEh;: TDBLookupComboboxEh; ToolButton13Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction);

{Private dec...