frmSotr.cmdAppend.Enabled:=true;
end;
Procedure deactive_navig_2();
begin
frmSotr.cmdFirst2.Enabled:=false;
frmSotr.cmdPrior2.Enabled:=false;
frmSotr.cmdNext2.Enabled:=false;
frmSotr.cmdLast2.Enabled:=false;
frmSotr.cmdAppend2.Enabled:=false;
end;
Procedure active_navig_2();
begin
frmSotr.cmdFirst2.Enabled:=true;
frmSotr.cmdPrior2.Enabled:=true;
frmSotr.cmdNext2.Enabled:=true;
frmSotr.cmdLast2.Enabled:=true;
frmSotr.cmdAppend2.Enabled:=true;
end;
procedure TfrmSotr.Label_FindMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
Label_Find.Font.Color:=clAqua;
end;
procedure TfrmSotr.Panel3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label_Find.Font.Color:=clBlue;
end;
procedure TfrmSotr.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label_Find.Font.Color:=clBlue;
end;
procedure TfrmSotr.FormCreate(Sender: TObject);
begin
frmMDI.mnuSotr.Enabled:=false;
txtFind.Text:='';
ADOQuery1.Open;//Открываем набор данных
ADOQuery2.Open;
if_empty_adoQuery1();
end;
procedure TfrmSotr.cmdAppend2Click(Sender: TObject);
begin
ADOQuery2.Append;
txtFio.SetFocus;
end;
procedure TfrmSotr.cmdAppendClick(Sender: TObject);
begin
ADOQuery1.Append;
txtNameOtdela.SetFocus;
end;
procedure TfrmSotr.cmdDelete2Click(Sender: TObject);
begin
Application.CreateForm(TfrmDelete,frmDelete);
frmDelete.Visible:=false;
frmDelete.Left:=Round(frmSotr.Left +(frmSotr.Width-frmDelete.Width)/2);
frmDelete.Top:=Round(frmSotr.Top +(frmSotr.height-frmDelete.height)/2+20);
frmDelete.ShowModal();
if BooleanModal=true then
begin
if ADOQuery2.RecordCount>0 then ADOQuery2.Delete;
BooleanModal:=false;
end else
begin
;
end;
end;
procedure TfrmSotr.cmdDeleteClick(Sender: TObject);
begin
Application.CreateForm(TfrmDelete,frmDelete);
frmDelete.Visible:=false;
frmDelete.Left:=Round(frmSotr.Left +(frmSotr.Width-frmDelete.Width)/2);
frmDelete.Top:=Round(frmSotr.Top +(frmSotr.height-frmDelete.height)/2+20);
frmDelete.ShowModal();
if BooleanModal=true then
begin
if ADOQuery1.RecordCount>0 then ADOQuery1.Delete;
BooleanModal:=false;
if_empty_adoQuery1();
end else
begin
;
end;
end;
procedure TfrmSotr.cmdFirst2Click(Sender: TObject);
begin
ADOQuery2.First;
end;
procedure TfrmSotr.cmdFirstClick(Sender: TObject);
begin
ADOQuery1.First;
end;
procedure TfrmSotr.cmdLast2Click(Sender: TObject);
begin
ADOQuery2.Last;
end;
procedure TfrmSotr.cmdLastClick(Sender: TObject);
begin
ADOQuery1.Last;
end;
procedure TfrmSotr.cmdNext2Click(Sender: TObject);
begin
ADOQuery2.Next;
end;
procedure TfrmSotr.cmdNextClick(Sender: TObject);
begin
ADOQuery1.Next;
end;
procedure TfrmSotr.cmdPrior2Click(Sender: TObject);
begin
ADOQuery2.Prior;
end;
procedure TfrmSotr.cmdPriorClick(Sender: TObject);
begin
ADOQuery1.Prior;
end;
procedure TfrmSotr.cmdSave2Click(Sender: TObject);
begin
if (ADOQuery2.State=dsinsert) or (ADOQuery2.State=dsEdit) then //Если
набор в режиме вставки или редактирования,
begin
if (txtFIO.text<>'') and (txtDolgnost.text<>'') and (txtLogin.text<>'') and
(cbStatusSotr.text<>'') then //То делаем проверку, если обязательное поле не
пустое,
ADOQuery2.post //то сохраняем данные
else // Иначе вызываем окно и говорим, что нужно заполнить
обязательные поля
begin
Application.CreateForm(TfrmMessage,frmMessage);
frmMessage.Visible:=false;
frmMessage.Left:=Round(frmSotr.Left +(frmSotr.Width-
frmMessage.Width)/2);
frmMessage.Top:=Round(frmSotr.Top +(frmSotr.height-
frmMessage.height)/2+20);
frmMessage.lblMessage.Caption:='Необходимо заполнить
обязательные поля!';
frmMessage.ShowModal;
end;
end;
end;
procedure TfrmSotr.cmdSaveClick(Sender: TObject);
begin
if (ADOQuery1.State=dsinsert) or (ADOQuery1.State=dsEdit) then //Если
набор в режиме вставки или редактирования,
begin
if txtNameOtdela.text<>'' then //То делаем проверку, если обязательное
поле не пустое,
ADOQuery1.post //то сохраняем данные
else // Иначе вызываем окно и говорим, что нужно заполнить
обязательные поля
begin
Application.CreateForm(TfrmMessage,frmMessage);
frmMessage.Visible:=false;
frmMessage.Left:=Round(frmSotr.Left +(frmSotr.Width-
frmMessage.Width)/2);
frmMessage.Top:=Round(frmSotr.Top +(frmSotr.height-
frmMessage.height)/2+20);
frmMessage.lblMessage.Caption:='Необходимо заполнить поле с
наименованием отдела!';
frmMessage.ShowModal;
end;
end;
end;
procedure TfrmSotr.DataSource1DataChange(Sender: TObject; Field: TField);
begin
Label_Kol_Zap.Caption:='Запись '+inttostr(adoQuery1.Recno)+' из
'+inttostr(adoQuery1.RecordCount);
end;
procedure TfrmSotr.DataSource1StateChange(Sender: TObject);
begin
deactive_navig;
end;
procedure TfrmSotr.DataSource2DataChange(Sender: TObject; Field: TField);
begin
Label_Kol_Zap_2.Caption:='Запись '+inttostr(adoQuery2.Recno)+' из
'+inttostr(adoQuery2.RecordCount);
end;
procedure TfrmSotr.DataSource2StateChange(Sender: TObject);
begin
deactive_navig_2;
end;
procedure TfrmSotr.FormClose(Sender: TObject; var Action: TCloseAction);
begin
frmMDI.mnuSotr.Enabled:=true;
ADOQuery2.Close;
ADOQuery1.Close;
action:=caFree;
end;
procedure TfrmSotr.Label10Click(Sender: TObject);
begin
RadioButton2.Checked:=true;
end;
procedure TfrmSotr.Label11Click(Sender: TObject);
begin
RadioButton3.Checked:=true;
end;
procedure TfrmSotr.Label9Click(Sender: TObject);
begin
RadioButton1.Checked:=true;
end;
procedure TfrmSotr.Label_FindClick(Sender: TObject);
begin
if Label_Find.Caption='Найти' then
begin
if RadioButton1.Checked then
if txtFind.Text<>'' then
begin
adoQuery1.Filtered:=false;
adoQuery1.Filter:='name_otdela '+ ' LIKE ' + #39 + '%' + txtFind.Text +
'%' + #39;
adoQuery1.Filtered:=true;
Label_Find.Caption:='Отключить фильтр';
end;
if RadioButton2.Checked then
if txtFind.Text<>'' then
begin
adoQuery2.Filtered:=false;
adoQuery2.Close;
adoQuery2.DataSource:=nil;
adoQuery2.SQL.Clear;
adoQuery2.SQL.Add('SELECT * from sotr where fio like
''%'+txtFind.Text+'%''');
adoQuery2.Open;
Label_Find.Caption:='Отключить фильтр';
end;
if RadioButton3.Checked then
if txtFind.Text<>'' then
begin
adoQuery2.Filtered:=false;
adoQuery2.Close;
adoQuery2.DataSource:=nil;
adoQuery2.SQL.Clear;
adoQuery2.SQL.Add('SELECT * from sotr where dolgnost like
''%'+txtFind.Text+'%''');
adoQuery2.Open;
Label_Find.Caption:='Отключить фильтр';
end;
end else
begin
adoQuery1.Filtered:=false;
adoQuery2.DataSource:=DataSource1;
adoQuery2.Close;
adoQuery2.SQL.Clear;
adoQuery2.SQL.Add('select * from sotr where kod_otdela=:kod_otdela');
adoQuery2.Open;
Label_Find.Caption:='Найти';;
end;
end;
procedure TfrmSotr.ADOQuery1AfterCancel(DataSet: TDataSet);
begin
active_navig;
end;
procedure TfrmSotr.ADOQuery1AfterDelete(DataSet: TDataSet);
begin
active_navig;
end;
procedure TfrmSotr.ADOQuery1AfterEdit(DataSet: TDataSet);
begin
deactive_navig;
end;
procedure TfrmSotr.ADOQuery1AfterOpen(DataSet: TDataSet);
begin
active_navig;
end;