Exists (A) then begin
//Нет файлаApplication. MessageBox (PChar ( Не вказаний електронну адресу + DM. Query_perep. FieldByName ( Naimen_pr ). AsString '),
Опитування користувача , _ YesNo)=IDYes then begin
//Якщо Так (PChar (PismaForm), PChar (A), True);
//Заповнюємо журнал. Query_magazin. Active:=False ;. Query_magazin. Prepare ;. Query_magazin. SQL. Clear ;. Query_magazin. SQL. Text:= INSERT INTO Magazin (Datev, Fam, Tip, Na, Deystv) VALUES ( + + FormatDateTime ( dd. Mm. Yy hhчnnмін , Now) +laquo;raquo;laquo;raquo;+laquo;,raquo;+laquo;raquo;laquo;raquo;+user1+laquo;raquo;laquo;raquo;+laquo;,raquo;+laquo;raquo;laquo;raquo;+laquo;Перепискаraquo;+laquo;raquo;laquo;raquo;+laquo;,raquo;+
+ DM. Query_perep. FieldByName ( NAIMEN_PR ). AsString+laquo;raquo;laquo;raquo;+laquo;,raquo;+laquo;raquo;laquo;raquo;+laquo;Создraquo;+laquo;raquo;laquo;raquo;+laquo;) raquo ;;. Query_magazin. ExecSQL;
//Запускаємо WinWord і відкриваємо переписку (PChar (Winword + + A), SW_SHOW); else Exit; else begin
//Заповнюємо журнал. Query_magazin. Active:=False ;. Query_magazin. Prepare ;. Query_magazin. SQL. Clear ;. Query_magazin. SQL. Text:= INSERT INTO Magazin (Datev, Fam, Tip, Na, Deystv) VALUES ( + + FormatDateTime ( dd. Mm. Yy hhчnnмін , Now) +laquo;raquo;laquo;raquo;+laquo;,raquo;+laquo;raquo;laquo;raquo;+user1+laquo;raquo;laquo;raquo;+laquo;,raquo;+laquo;raquo;laquo;raquo;+laquo;Перепискаraquo;+laquo;raquo;laquo;raquo;+laquo;,raquo;+laquo;raquo;laquo;raquo;+DM. Query_perep. FieldByName ( NAIMEN_PR ). AsString+laquo;raquo;laquo;raquo;+laquo;,raquo;+laquo;raquo;laquo;raquo;+laquo;Открraquo;+laquo;raquo;laquo;raquo;+laquo;) raquo ;;. Query_magazin. ExecSQL;
//Запускаємо WinWord і відкриваємо перепіскуWinExec (PChar (Winword + + A), SW_SHOW) lt;=31 then begin ( Помилка при запуску Winword. , mtError, [ mbOk], 0) ;;;
Редагування запису про учітелеTForm_chert. EditExecute (Sender: TObject) ;:=DM. Query_perep ;:=DM. DataSource_perep ;. CreateForm (TForm_editdb, Form_editdb); _ editdb. ShowModal ;; TForm_chert. BitBtn_regiiClick (Sender: TObject) ;. Query_magazin. Active:=False ;. Query_magazin. Prepare ;. Query_magazin. SQL. Clear ;. Query_magazin. SQL. Text:= Select * from Magazin where Deystv= + + Зарег + + AND Number like + + % ІІ% + raquo ;;
{ShowMessage (DM. Query_magazin. SQL. Text); }. Query_magazin. Open ;. Query_magazin. Last; .TForm_chert. BitBtn_reginClick (Sender: TObject) ;. AddPassword ( 270451 ) ;. Query_magazin. Active:=False ;. Query_magazin. Prepare ;. Query_magazin. SQL. Clear ;. Query_magazin. SQL. Text:= Select * from Magazin where Deystv= + + Зарег + + AND Number like + + % ІН% + raquo ;;
{ShowMessage (DM. Query_magazin. SQL. Text); }. Query_magazin. Open ;. Query_magazin. Last; .TForm_chert. N_usersClick (Sender: TObject) ;: String ;:= + # 13;
//Записуємось. Query_Users. Close ;. Query_Users. Prepare ;. Query_Users. SQL. Clear ;. Query_Users. SQL. Text:= Select UserName from Users where Close is null raquo ;;. Query_Users. Open ;. RemovePassword ( 270451 ) ;. Query_Users. First; not DM. Query_Users. Eof do begin:=S + # 13 + - Raquo; + DM. Query_Users. FieldByName ( UserName ). AsString ;. Query_Users. Next ;; (S, mtInformation, [mbOk], 0);.
