Работа фильтра поиск неуспевающих учеников

procedure TForm_chert. BitBtn_notregClick (Sender: TObject);

begin

// Подготавливаем запрос

Screen. Cursor: =crHourGlass;

DM. Query. Close;

DM. Query. Prepare;

DM. Query. SQL. Clear;

DM. Query. SQL. Text: ='Select * from '+Vid+' where Number='+'""';

DM. Query. Open;

Screen. Cursor: =crDefault;

end;

Работа кнопки "Удалить":

procedure TForm_chert. BitBtn_delClick (Sender: TObject);

var

A, T: String;

Kolich: integer;

begin

A: =DM. Query. FieldByName ('NameFile'). AsString;

T: =DM. Query. FieldByName ('Tip'). AsString;

// Уточняем команду об удалении

if MessageDlg ('Удалить '+DM. Query. FieldByName ('Shifr'). AsString+'? ',mtConfirmation, [mbYes, mbNo],0) =mrNo then Exit;

{ - Первый файл - -}

// Проверяем файл извещения

if FileExists (Tip+'\'+A+'. cdw') then begin

// Удаляем файл извещения

ShowMessage ('Удаляется файл'+#13+Tip+'\'+A+'. cdw');

DeleteFile (Tip+'\'+A+'. cdw');

if FileExists (Tip+'\'+A+'. cdw') then begin

MessageDlg ('Не удалось удалить! ',mtError, [mbOk],0);

Exit;

end;

Работа кнопки "Аннулировать":

procedure TForm_chert. BitBtn_anulClick (Sender: TObject);

var

S, // На каком шифре открываем

F: String; // Имя файла

begin

// Уточняем

if MessageDlg ('Аннулировать? ',mtWarning, [mbYes, mbNo],0) = mrNo then

Exit else begin

{- - Для журнала - --}

// Определяем для журнала Na

SavePlace: = DM. Query. GetBookmark; // Закладка

S: =DM. Query. FieldbyName ('Shifr'). AsString;

F: =DM. Query. FieldbyName ('NameFile'). AsString;

Na: =S;

DM. Query. First;

while not DM. Query. Eof do begin

if DM. Query. FieldByName ('NameFile'). AsString=F then begin

if DM. Query. FieldByName ('Shifr'). AsString<>S then

Na: =Na+'; '+DM. Query. FieldByName ('Shifr'). AsString;

end;

DM. Query. Next;

End.

Вызов программы просмотра:

procedure TForm_chert. BitBtn_kompasClick (Sender: TObject);

begin

OpenKompas (DM. Query);

end;

procedure TForm_chert. BitBtn_k5viewClick (Sender: TObject);

begin

OpenK5View (DM. Query);

end;

Вызов программы просмотра отчетов по классам:

procedure TForm_chert. BitBtn_scaneriiClick (Sender: TObject);

var

S, SN, Y: String;

NumberList: Integer;

begin

S: =DM. Query. FieldByName ('Number'). AsString;

while Pos ('. ',S) <>0 do begin

Delete (S,1,Pos ('. ',S));

end;

Y: =Copy (S,Pos ('-',S) +1,4); // Год

Delete (S,Pos ('-',S),5); // Номер класса

{=== Один лист ===}

if DM. Query. FieldByName ('NameFile_pr'). AsString='' then begin

// Проверяем наличие рисунка

if not FileExists (Scaner+'\'+Y+'\Izm\'+S+'. jpg') then begin

MessageDlg ('Нет класса! ',mtInformation, [mbOk],0);

Exit;

end;

WinExec (PChar (Viewjpg+' '+Scaner+'\'+Y+'\Izm\'+S+'. jpg'),SW_SHOW);

end;

end;

Работа кнопки "создать":

procedure TForm_chert. BitBtn_kartClick (Sender: TObject);

var

i: integer;

begin

// Проверяем шифр

if Edit_kart. Text='' then begin

MessageDlg ('Укажите шифр! ',mtWarning, [mbOk],0);

Edit_kart. SetFocus;

Exit;

end;

// Исправляем по СТП

if CB_stp. Checked=True then

Edit_kart. Text: =ShifrPoStp (Edit_kart. Text);

Screen. Cursor: =crHourGlass;

// Подготавливаем запрос

DM. Query_info. Close;

DM. Query_info. Prepare;

DM. Query_info. SQL. Clear;

DM. Query_info. SQL. Text: ='Select * from detal where Shifr="'+Edit_kart. Text+'"';

DM. Query_info. Open;

// Карточка

{DBGrid_kart. Visible: =false; }

// Очищаем старую карточку

DM. Table_kart. Active: =False;

DM. Table_kart. EmptyTable;

DM. Table_kart. Active: =True;

// Подготавливаем запрос

DM. Query_kart. Close;

DM. Query_kart. Prepare;

DM. Query_kart. SQL. Clear;

DM. Query_kart. SQL. Text: ='Select * from Izvchert where Shifr='+'"'+Edit_kart. Text+'"';

DM. Query_kart. DatabaseName: ='IzvesenNet';

DM. Query_kart. Open;

// Копируем результат запроса в карточку

DM. Query_kart. First;

While not DM. Query_kart. Eof do begin

DM. Table_kart. Append;

DM. Table_kart. Edit;

for i: =0 to 9 do

DM. Table_kart. Fields [i]. Value: =DM. Query_kart. Fields [i]. Value;

DM. Table_kart. Post;

DM. Query_kart. Next;

end;

Работа кнопки "поиск":

procedure TForm_chert. BitBtn_poisk_zakClick (Sender: TObject);

begin

GridName: =DBGrid_perep;

Application. CreateForm (TForm_find,Form_find);

Form_find. ShowModal;

if TextZap<>'' then begin

// Подготавливаем запрос

DM. Query_perep. Close;

DM. Query_perep. Prepare;

DM. Query_perep. SQL. Clear;

if TabSheet_perep. Caption='Ученик' then

DM. Query_perep. SQL. Text: ='Select * from sprav_z where '+TextZap;

DM. Query_perep. Open;

end.

Кнопка "все ученики" отменяет все запросы на поиск.

Работа кнопки "весь список"

procedure TForm_chert. BitBtn_all_zakClick (Sender: TObject);

begin

DM. Query_perep. Active: =False;

DM. Query_perep. Prepare;

DM. Query_perep. SQL. Clear;

if TabSheet_perep. Caption='Ученики' then

DM. Query_perep. SQL. Text: ='Select * from sprav_z';

DM. Query_perep. Open;

End.

Работа кнопки "Отправить отчет на почту":

procedure TForm_chert. BitBtn_perepClick (Sender: TObject);

var

A: String;

K: Integer;

begin

A: =DM. Query_perep. FieldByName ('Naimen_pr'). AsString;

K: =1; {Удаляем кавычки}

while K<=Length (A) do

begin

if (A [K] ='"') or (A [K] =' ') or (A [K] ='. ') then

begin

Delete (A,K,1);

end else begin

Inc (K);

end;

end;

A: =A+'. doc';

A: =Pisma+'\'+A;

if not FileExists (A) then begin

// Нет файла

if Application. MessageBox (PChar ('Не указан электронный адрес '+DM. Query_perep. FieldByName ('Naimen_pr'). AsString'),

'Опрос пользователя',

MB_YesNo) = IDYes then begin

// Если 'Да'

CopyFile (PChar (PismaForm),PChar (A),True);

// Заполняем журнал

DM. Query_magazin. Active: =False;

DM. Query_magazin. Prepare;

DM. Query_magazin. SQL. Clear;

DM. Query_magazin. SQL. Text: ='INSERT INTO Magazin (Datev, Fam, Tip, Na, Deystv) VALUES ('+''''+FormatDateTime ('dd. mm. yy hhчnnмин',Now) +''''+','+''''+user1+''''+','+''''+'Переписка'+''''+','+

''''+DM. Query_perep. FieldByName ('NAIMEN_PR'). AsString+''''+','+''''+'Созд'+''''+') ';

DM. Query_magazin. ExecSQL;

// Запускаем WinWord и открываем переписку

WinExec (PChar (Winword+' '+A),SW_SHOW);

end else Exit;

end else begin

// Заполняем журнал

DM. Query_magazin. Active: =False;

DM. Query_magazin. Prepare;

DM. Query_magazin. SQL. Clear;

DM. Query_magazin. SQL. Text: ='INSERT INTO Magazin (Datev, Fam, Tip, Na, Deystv) VALUES ('+''''+FormatDateTime ('dd. mm. yy hhчnnмин',Now) +''''+','+''''+user1+''''+','+''''+'Переписка'+''''+','+''''+DM. Query_perep. FieldByName ('NAIMEN_PR'). AsString+''''+','+''''+'Откр'+''''+') ';

DM. Query_magazin. ExecSQL;

// Запускаем WinWord и открываем переписку

if WinExec (PChar (Winword+' '+A),SW_SHOW) <=31 then begin

MessageDlg ('Ошибка при запуске Winword. ',mtError, [mbOk],0);

Exit;

end;

Редактирование записи об учителе

procedure TForm_chert. EditExecute (Sender: TObject);

begin

EditDB: =DM. Query_perep;

DataSourceDB: =DM. DataSource_perep;

Application. CreateForm (TForm_editdb,Form_editdb);

Form_editdb. ShowModal;

end;

procedure TForm_chert. BitBtn_regiiClick (Sender: TObject);

begin

DM. Query_magazin. Active: =False;

DM. Query_magazin. Prepare;

DM. Query_magazin. SQL. Clear;

DM. Query_magazin. SQL. Text: ='Select * from Magazin where Deystv = '+'"'+'Зарег'+'"'+' AND Number like '+'"'+'%ИИ%'+'"';

{ShowMessage (DM. Query_magazin. SQL. Text); }

DM. Query_magazin. Open;

DM. Query_magazin. Last;

End.

procedure TForm_chert. BitBtn_reginClick (Sender: TObject);

begin

session. AddPassword ('270451');

DM. Query_magazin. Active: =False;

DM. Query_magazin. Prepare;

DM. Query_magazin. SQL. Clear;

DM. Query_magazin. SQL. Text: ='Select * from Magazin where Deystv = '+'"'+'Зарег'+'"'+' AND Number like '+'"'+'%ИН%'+'"';

{ShowMessage (DM. Query_magazin. SQL. Text); }

DM. Query_magazin. Open;

DM. Query_magazin. Last;

End.

procedure TForm_chert. N_usersClick (Sender: TObject);

var

S: String;

begin

S: =''+#13;

// Записываемся

DM. Query_Users. Close;

DM. Query_Users. Prepare;

DM. Query_Users. SQL. Clear;

DM. Query_Users. SQL. Text: ='Select UserName from Users where Close is null';

DM. Query_Users. Open;

session. RemovePassword ('270451');

DM. Query_Users. First;

while not DM. Query_Users. Eof do begin

S: =S+#13+' - '+DM. Query_Users. FieldByName ('UserName'). AsString;

DM. Query_Users. Next;

end;

MessageDlg (S,mtInformation, [mbOk],0);

End.

Размещено на Allbest.ru