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

h;: TDBLookupComboboxEh;: TDBEditEh;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem; ToolButton2Click (Sender: TObject); ToolButton1Click (Sender: TObject ); FormCreate (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction);

{Private declarations}

{Public declarations};: TDostupForm; DataModuleSpr, DataModule, DB, ADODB, Main, SpisPacint;

{$ R *. dfm} TDostupForm.ToolButton2Click (Sender: TObject);. Close;; TDostupForm.ToolButton1Click (Sender: TObject);, w: String;: = IntToStr (DBLookupComboboxEh1.KeyValue) ;: = IntToStr (DBLookupComboboxEh2.KeyValue); DM.Dostup do;. Clear;. Add ('select * from Dostup');. Add ('where Id_Name =''' + q +'''');. Add ('and id_Prior =''' + w +'''');;;; Trim (DM.Dostup.Fields.Fields [3]. AsString) = Trim (DBEditEh1.Text) thenTrim (DBLookupComboboxEh2.Text) = ' Реєстратор 'then.N4.Visible: = False;. C1.Visible: = False;; Trim (DBLookupComboboxEh2.Text) =' Лікар 'then.N4.Visible: = False;. N3.Visible: = False;. C1. Visible: = False;. ToolButton2.Visible: = False;. ToolButton3.Visible: = False;. ToolButton4.Visible: = False;. ToolButton7.Visible: = False;;. Show;;

ShowMessage ('Не вірний пароль або користувач');

end; TDostupForm.FormCreate (Sender: TObject);. Text: ='';. ShowModal;; TDostupForm.FormClose (Sender: TObject; var Action: TCloseAction);. Close;;. Epid ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, ToolWin, StdCtrls, Mask, DBCtrlsEh; = class (TForm): TToolBar;: TToolButton;: TToolButton;: TToolButton;: TLabel;: TLabel; : TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TDBEditEh;: TDBEditEh;: TDBEditEh;: TDBEditEh;: TDBEditEh;: TDBEditEh;: TDBEditEh; FormClose (Sender: TObject; var Action: TCloseAction); ToolButton11Click ( Sender: TObject); ToolButton1Click (Sender: TObject);

{Private declarations}

{Public declarations};: TEpidForm; Main, DataModule;

{$ R *. dfm} TEpidForm.FormClose (Sender: TObject; var Action: TCloseAction);: = caFree;; TEpidForm.ToolButton11Click (Sender: TObject);. Epid.Cancel;;; TEpidForm.ToolButton1Click (Sender: TObject);. Epid.Fields.Fields [1]. AsInteger: =. PacAll.Fields.Fields [0]. AsInteger;. Epid.Post;;.

History;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGridEh; = class (TForm): TDBGridEh; FormClose (Sender: TObject; var Action: TCloseAction); DBGridEh1CellClick (Column: TColumnEh);

{Private declarations}

{Public declarations};: THistoryForm;

DataModuleSpr, Info, PacDiag, DataModule, Antrop, DB, AmnZ, Osm, Vip,, Zam, AmnB, Epid;

{$ R *. dfm} THistoryForm.FormClose (Sen...