= True;; TMainFormRuk. ListBox1DblClick (Sender: TObject); ListBox1. Selected [0] then. Button1. enabled: = true;. Button3. enabled: = true;. Close;. SQL. Clear;. Parameters. Add;. Parameters [0]. Name: = 'p';. Parameters [0]. Value: = AuthForm. KeyUser;. SQL. Add ('Select * From Documents Where Key in (Select id_document' +
'From DocUsers' +
'Where id_User =: p and Status = "1")');. open;. Fields [0]. Visible: = false;. Fields [1]. DisplayWidth: = 20;. Fields [2]. DisplayWidth: = 20;. Fields [3]. visible: = false;. Fields [4]. DisplayWidth: = 20;. Fields [5]. DisplayWidth: = 20;. Fields [6]. Visible: = false;; ListBox1. Selected [1] then. Button1. enabled: = false;. Button3. enabled: = false;. Close;. SQL. Clear;. Parameters. Add;. Parameters [0]. Name: = 'p';. Parameters [0]. Value: = AuthForm. KeyUser;. SQL. Add ('Select * From Documents Where Key in (Select id_document' +
'From DocUsers' +
'Where id_User =: p and Status = "0")');. open;. Fields [0]. Visible: = false;. Fields [1]. DisplayWidth: = 20;. Fields [2]. DisplayWidth: = 20;. Fields [3]. visible: = false;. Fields [4]. DisplayWidth: = 20;. Fields [5]. DisplayWidth: = 20;. Fields [6]. Visible: = false;;; TMainFormRuk. DBGrid1DblClick (Sender: TObject);. Edit1. text: = MainFormRuk. ADOQuery3 ['Name_Doc'];. Edit2. text: = MainFormRuk. ADOQuery3 ['Type_Doc'];. Edit3. text: = MainFormRuk. ADOQuery3 ['Date_Create'];. Edit4. text: = MainFormRuk. ADOQuery3 ['Srok'];. memo1. text: = MainFormRuk. ADOQuery3 ['Primechanie'];. ShowModal;;. FormCreate (Sender: TObject);;; TMainFormRuk. F11Click (Sender: TObject);. Visible: = True;;. p align="justify"> ------------------------------------------ ----------------
------------------------------------------ ----------------;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, Menus, StdCtrls, DB, ADODB, Grids, DBGrids, ShellApi,, ComCtrls; = class (TForm): TPanel;: TTimer;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TLabel;: TDataSource;: TADOQuery;: TButton;: TXPManifest;: TADOQuery;: TADOQuery;: TADOTable;: TDBGrid;: TPopupMenu;: TMenuItem; F21Click (Sender: TObject); N2Click (Sender: TObject); N4Click (Sender: TObject); Button1Click (Sender: TObject); Timer1Timer (Sender: TObject ); (Sender: TObject); N5Click (Sender: TObject); F11Click (Sender: TObject);
{Private declarations}
{Public declarations};: TMainFormSek; Authorization, About, NewDoc, Unit3, Help;
{$ R *. dfm} TMainFormSek. F21Click (Sender: TObject);. Visible: = False;. Visible: = True;; TMainFormSek. N2Click (Sender: TObject);. Term...
