inate;; TMainFormSek. N4Click (Sender: TObject);. Visible: = True;; TMainFormSek. Button1Click (Sender: TObject);. Edit2. Text: = DateTimeToStr (Now);. ADOQuery1. Close;. ADOQuery1. SQL. Clear;. ADOQuery1. SQL. Add ('Select * From Users Where Status = "Керівник"');. ADOQuery1. Open; not (frmNewDoc. ADOQuery1. Eof) do. CheckListBox1. Items. Add (frmNewDoc. ADOQuery1 ['Login']);. ADOQuery1. Next;;. showmodal;; TMainFormSek. Timer1Timer (Sender: TObject);. Caption: = TimeToStr (Time);;. FormCreate (Sender: TObject);, n, k: integer;. Close;. SQL. Clear;. Prepared;. Parameters. Add;. Parameters [0]. Name: = 'p1';. Parameters [0]. Value: = AuthForm. KeyUser;. SQL. Add ('Select *' +
'From Documents' +
'Where ID_Sek =: p1');. Open;: = 0; k: = 0; m: = 0;. Close;. SQL. Clear;. Prepared;. Parameters. Add;. Parameters [0]. Name: = 'p1';. Parameters [0]. Value: = AuthForm. KeyUser;. SQL. Add ('Select *' +
'From Documents' +
'Where ID_Sek =: p1');. Open; not ADOQuery1. Eof do. Close;. SQL. Clear;. Parameters. Add;. Parameters [0]. Name: = 'p';. Parameters [0]. Value: = ADOQuery1 ['Key'];. SQL. Add ('Select * From DocUsers Where id_document =: p');. Open; not ADOQuery2. Eof doADOQuery2 ['Status'] = '0 'then (m); ADOQuery2 [' Status '] = '1' then (n); ADOQuery2 ['Status'] = '2 'then (k);. Next;;. Edit; (n + k) = 0 then ['Stat']: = 'Затверджено' ['Stat']: = 'Неутверждено';. Post;. Next;;. Active: = false;. Active: = true;. Fields [0]. Visible: = false;. Fields [6]. Visible: = false;. Fields [7]. Visible: = false;. Fields [1]. DisplayWidth: = 20;. Fields [2]. DisplayWidth: = 20;. Fields [3]. visible: = false;. Fields [4]. DisplayWidth: = 20;. Fields [5]. DisplayWidth: = 20;. Fields [8]. DisplayWidth: = 20;; TMainFormSek. N5Click (Sender: TObject);. Memo1. Clear;. Memo1. Lines. Add ('Заметкиоставленныеруководителями');. ADOQuery1. Close;. ADOQuery1. SQL. Clear;. ADOQuery1. Prepared;. ADOQuery1. Parameters. Add;. ADOQuery1. Parameters [0]. Name: = 'p1';. ADOQuery1. Parameters [0]. Value: = AuthForm. KeyUser;. ADOQuery1. SQL. Add ('Select *' +
'From Documents' +
'Where ID_Sek =: p1');. ADOQuery1. Open; not Form3. ADOQuery1. Eof do. ADOQuery2. Close;. ADOQuery2. SQL. Clear;. ADOQuery2. Parameters. Add;. ADOQuery2. Parameters [0]. Name: = 'p';. ADOQuery2. Parameters [0]. Value: = Form3. ADOQuery1 ['Key'];. ADOQuery2. SQL. Add ('Select * From DocUsers Where id_document =: p');. ADOQuery2. Open; not Form3. ADOQuery2. Eof do. Memo1. Lines. ...
