ery1 ['Login']);. next;;. ItemIndex: = 0;; TAuthForm. Button2Click (Sender: TObject); (LogCmB. Text ='') then ('Виберітепользователя!'). Visible: = True;. LogCmBChange (Sender: TObject);: = 0;. Close;. SQL. Clear;. Parameters. Add;. Parameters [0]. Name: = 'p';. Parameters [0]. Value: = Logcmb. Text;. SQL. Add ('Select id_user From Users Where login =: p');. Open;: = AdoQuery1 ['id_user'];;. p align="justify"> ------------------------------------------ -------------------------
------------------------------------------ -------------------------;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, Menus, StdCtrls, XPMan, DB, ADODB, Grids, DBGrids; = class (TForm): TPanel;: TTimer;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem; : TMenuItem;: TMenuItem;: TMenuItem;: TLabel;: TListBox;: TDBGrid;: TDataSource;: TADOQuery;: TButton;: TXPManifest;: TADOQuery;: TADOQuery; Timer1Timer (Sender: TObject); N2Click (Sender: TObject); F21Click (Sender: TObject); N4Click (Sender: TObject); Button1Click (Sender: TObject); ListBox1DblClick (Sender: TObject); DBGrid1DblClick (Sender: TObject); ListBoxLoad; (Sender: TObject); F11Click (Sender: TObject);
{Private declarations}
{Public declarations};: TMainFormRuk; Authorization, About, NewTask, Unit1, Help;
{$ R *. dfm} TMainFormRuk. ListBoxLoad;, str2: string;. Clear;. Close;. SQL. Clear;. Prepared;. Parameters. Add;. Parameters [0]. Name: = 'p1';. Parameters [0]. Value: = AuthForm. KeyUser;. SQL. Add ('Select (count (*)) as ct' +
'From DocUsers' +
'Where id_user =: p1 and Status = "0"');. Open;: = ADOQuery1 ['ct'];. Close;. SQL. Clear;. Prepared;. Parameters. Add;. Parameters [0]. Name: = 'p1';. Parameters [0]. Value: = AuthForm. KeyUser;. SQL. Add ('Select (count (*)) as ct' +
'From DocUsers' +
'Where id_user =: p1 and Status = "1"');. Open;: = ADOQuery1 ['ct'];. Items. Add ('Прийняті (' + str2 + ')');. Items. Add ('Затверджені (' + str + ')');; TMainFormRuk. Timer1Timer (Sender: TObject);. Caption: = TimeToStr (Time);; TMainFormRuk. N2Click (Sender: TObject);. Terminate; TMainFormRuk. F21Click (Sender: TObject);. Visible: = False;. Visible: = True;; TMainFormRuk. N4Click (Sender: TObject);. Visible: = True;; TMainFormRuk. Button1Click (Sender: TObject);. ADOQuery1. Close;. ADOQuery1. SQL. Clear;. ADOQuery1. SQL. Add ('Select * From Users Where Status = "Секретар"');. ADOQuery1. Open; not (NewTaskForm. ADOQuery1. Eof) do. KomuCmB. Items. Add (NewTaskForm. ADOQuery1 ['Login']);. ADOQuery1. Next;;. KomuCmB. ItemIndex: = 0;. Visible: ...
