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

ar Action: TCloseAction);: = caFree;; TAdminForm.ToolButton4Click (Sender: TObject);;; TAdminForm.ToolButton2Click (Sender : TObject); DM.Query do;. Clear;. Add ('delete from dostup');. Add ('where id_dostup =' + TObject);. Text: ='';. Text: ='';. Text: ='';. Dost.Insert;. Visible: = True;. Enabled: = False;. Enabled: = False;. Enabled: = False;; TAdminForm.ToolButton6Click (Sender: TObject);. Dost.Cancel;. Enabled: = True;. Enabled: = True;. Enabled: = True;. Visible: = False;; TAdminForm.ToolButton5Click (Sender: TObject ); Trim (DBEditEh2.Text) <> Trim (DBEditEh3.Text) then

begin (`Неправильна користувач або пароль`);

DBEditEh2.Text: ='';. Text: ='';. Nam.Insert;. Nam.Fields.Fields [1]. AsString: = DBEditEh1.Text;. Nam.Post; . Dost.Fields.Fields [1]. AsInteger: = DMSpr.Nam.Fields.Fields [0]. AsInteger;. Dost.Fields.Fields [3]. AsString: = trim (DBEditEh2.Text);. Dost.Post ;. Dostup.Requery ([]);. Visible: = False;. Enabled: = True;. Enabled: = True;. Enabled: = True;;; TAdminForm.ToolButton10Click (Sender: TObject);. Dost.Cancel; . Visible: = False;. Enabled: = True;. Enabled: = True;. Enabled: = True;; TAdminForm.ToolButton9Click (Sender: TObject); Trim (DBEditEh2.Text) <> Trim (DBEditEh3.Text) then ('Помилка підключення);. Text: ='';. Text: ='';. Dostup.Fields.Fields [3]. AsString: = trim (DBEditEh5.Text);. Dostup.Post;. Dostup.Requery ([]);. Visible: = False;. Enabled: = True;. Enabled: = True;. Enabled: = True;;; TAdminForm.ToolButton3Click (Sender: TObject);. Text: ='';. Text: ='';. Dostup.Edit;. Enabled: = False;. Enabled: = False;. Enabled: = False;. Visible: = True;;. AmnB;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DBCtrls, ComCtrls, ToolWin; = class (TForm): TToolBar;: TToolButton;: TToolButton;: TToolButton;: TDBMemo; ToolButton11Click (Sender: TObject); ToolButton1Click (Sender: TObject); FormClose (Sender: TObject ; var Action: TCloseAction);

{Private declarations}

{Public declarations};: TAmnBForm; DataModule;

{$ R *. dfm} TAmnBForm.ToolButton11Click (Sender: TObject);. AnmB.Cancel;;; TAmnBForm.ToolButton1Click (Sender: TObject);. AnmB.Fields.Fields [1]. AsInteger: = DM.PacAll.Fields.Fields [0]. AsInteger;. AnmB.Post;; TAmnBForm.FormClose (Sender: TObject; var Action: TCloseAction);: = caFree;;. AmnZ;, Messages, SysUtils, Variants , Classes, Graphics, Controls, Forms,, ComCtrls, ToolWin, StdCtrls, DBCtrls; = class (TForm): TToolBar;: TToolButton;: TToolButton;: TToolButton;: TDBMemo; FormClose (Sender: TObject; var Action: TCloseAction); ToolButton11Click (Sender: TObject); ToolButton1Click (Sender: TObject);

{Private declarations}

{Public declarations};: TAmnZForm;

Main, DataModule;