ip ). AsString;
//Уточнюємо команду про удаленііMessageDlg ( Видалити + DM. Query. FieldByName ( Shifr ). AsString + laquo ;? , mtConfirmation, [mbYes, mbNo], 0 )=mrNo then Exit;
{- Перший файл - -}
//Перевіряємо файл ізвещеніяFileExists (Tip + + A + raquo ;. cdw ) then begin
//Видаляємо файл сповіщення ( Видаляється файл + # 13 + Tip + + A + raquo ;. cdw ); (Tip + + A + raquo ;. cdw ); FileExists (Tip + + A + raquo ;. cdw ) then begin ( Не вдається видалити! , mtError, [mbOk], 0) ;;;
Робота кнопки Анулювати : TForm_chert. BitBtn_anulClick (Sender: TObject) ;,//На якому шифрі відкриваємо: String;// Файл
//УточняемMessageDlg ( Анулювати? , mtWarning, [mbYes, mbNo], 0)=mrNo thenelse begin
{- - Для журналу - -}
//Визначаємо для журналу Na:=DM. Query. GetBookmark;// Закладка:=DM. Query. FieldbyName ( Shifr ). AsString ;:=DM. Query. FieldbyName ( NameFile ). AsString ;:=S ;. Query. First; not DM. Query. Eof do beginDM. Query. FieldByName ( NameFile ). AsString=F then beginDM. Query. FieldByName ( Shifr ). AsString lt; gt; S then:=Na + laquo ;; + DM. Query. FieldByName ( Shifr ). AsString ;;. Query. Next;.
Виклик програми перегляду: TForm_chert. BitBtn_kompasClick (Sender: TObject); (DM. Query) ;; TForm_chert. BitBtn_k5viewClick (Sender: TObject); View (DM. Query) ;;
Виклик програми перегляду звітів по класах: TForm_chert. BitBtn_scaneriiClick (Sender: TObject) ;, SN, Y: String ;: Integer ;:=DM. Query. FieldByName ( Number ). AsString; Pos ( laquo ;. , S) lt; gt; 0 do begin (S, 1, Pos ( laquo ;. , S)) ;;:=Copy (S, Pos ( - , S) +1,4);// Рік (S, Pos ( - , S), 5);// Номер класу
{=== Один лист ===} DM. Query. FieldByName ( NameFile_pr ). AsString= then begin
//Перевіряємо наявність рісункаnot FileExists (Scaner + + Y + Izm + S + raquo ;. jpg ) then begin ( Ні класу! laquo ;, mtInformation, [mbOk], 0) ;;; (PChar (Viewjpg + + Scaner + + Y + Izm + S + raquo ;. jpg ), SW_SHOW) ;;;
Робота кнопки створити : TForm_chert. BitBtn_kartClick (Sender: TObject) ;: integer;
//Перевіряємо шіфрEdit_kart. Text= then begin ( Вкажіть шифр! , mtWarning, [mbOk], 0); _ kart. SetFocus ;;;
//Виправляємо по СТПCB_stp. Checked=True then_kart. Text:=ShifrPoStp (Edit_kart. Text) ;. Cursor:=crHourGlass;
//Підготовляємо запит. Query_info. Close ;. Query_info. Prepare ;. Query_info. SQL. Clear ;. Query_info. SQL. Text:= Select * from detal where Shifr= + Edit_kart. Text + raquo ;;. Query_info. Open;
//Картка
{DBGrid_kart. Visible:=false; }
//Очищаємо стару картку. Table_kart. Active:=False ;. Table_kart. EmptyTable ;. Table_kart. Active:=True;
//Підготовляємо запит. Query_kart. Close ;. Query_kart. Prepare ;. Query_kart. SQL. Clear ;. Query_kart. SQL. Text:= Select * from Izvchert where Shifr= + + Edit_kart. Text + raquo ;;. Query_kart. DatabaseName:= IzvesenNet raquo ;;. Query_kart. Open;
//Копіюємо результат запиту в картку. Query_kart. First; not DM. Query_kart. Eof do begin. Table_kart. Append ;. Table_kart. Edit; i:=0 to 9 do. Table_kart. Fields [i]. Value:=DM. Query_kart. Fields [i]. Value ;. Table_kart. Post ;. Query_kart. Next ;;
Робота кнопки пошук : TForm_chert. BitBtn_poisk_zakClick (Sender: TObject) ;:=DBGrid_perep ;. CreateForm (TForm_find, Form_find); _ find. ShowModal; TextZap lt; gt; then begin
//Підготовляємо запит. Query_perep. Close ;. Query_perep. Prepare ;. Query_perep. SQL. Clear; TabSheet_perep. Caption= Учень then. Query_perep. SQL. Text:= Select * from sprav_z where + TextZap ;. Query_perep. Open;.
Кнопка всі учні скасовує всі запити на пошук.
Робота кнопки весь список TForm_chert. BitBtn_all_zakClick (Sender: TObject) ;. Query_perep. Active:=False ;. Query_perep. Prepare ;. Query_perep. SQL. Clear; TabSheet_perep. Caption= Учні then. Query_perep. SQL. Text:= Select * from sprav_z raquo ;;. Query_perep. Open;.
Робота кнопки Відправити звіт на пошту : TForm_chert. BitBtn_perepClick (Sender: TObject) ;: String ;: Integer ;:=DM. Query_perep. FieldByName ( Naimen_pr ). AsString ;:=1; {Видаляємо лапки} K lt;=Length (A) do (A [K]=" ) or (A [K]= ) or (A [K]= laquo ;. ) then (A, K, 1); else begin (K) ;;;:=A + laquo ;. doc raquo ;;:=Pisma + '' + A; not File...
