99
frmMDI.mnuStat.Visible:=false;
frmMDI.mnuLog.Visible:=true;
frmMDI.mnuExit.Visible:=true;
end;
frmMDI.Caption:='АИС Аттестация - '+sFIOSotr+' '+'('+sLogin+')'+' '+'-'+'
'+sStatus;
}
end;
procedure TfrmMDI.mnuSotrClick(Sender: TObject);
begin
Application.CreateForm(TfrmSotr,frmSotr);
end;
procedure TfrmMDI.mnuExitClick(Sender: TObject);
begin
Close;
end;
procedure TfrmMDI.mnuLogClick(Sender: TObject);
begin
//FreeAndNil(frmMDI);
Application.CreateForm(TfrmLog,frmLog);
end;
procedure TfrmMDI.mnuLKklientClick(Sender: TObject);
begin
Application.CreateForm(TfrmOperat,frmOperat);
100
end;
procedure TfrmMDI.mnuLKtehsupportClick(Sender: TObject);
begin
Application.CreateForm(TfrmSupport,frmSupport);
end;
procedure TfrmMDI.mnuOrgClick(Sender: TObject);
begin
//Application.CreateForm(TfrmPosition,frmPosition);
end;
end.
Описание модуля sotr
unit sotr;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DBCtrls, Mask, Buttons, DB, ADODB;
type
TfrmSotr = class(TForm)
Panel1: TPanel;
Label1: TLabel;
txtNameOtdela: TDBEdit;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
101
cmdFirst: TBitBtn;
cmdPrior: TBitBtn;
cmdNext: TBitBtn;
cmdLast: TBitBtn;
cmdAppend: TBitBtn;
cmdDelete: TBitBtn;
cmdSave: TBitBtn;
Label_Kol_Zap: TLabel;
Panel2: TPanel;
Label3: TLabel;
Label2: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
txtFIO: TDBEdit;
txtDolgnost: TDBEdit;
txtTelefon: TDBEdit;
txtEmail: TDBEdit;
txtLogin: TDBEdit;
txtPassword: TDBEdit;
Label12: TLabel;
cbStatusSotr: TDBComboBox;
cmdAppend2: TBitBtn;
cmdDelete2: TBitBtn;
cmdNext2: TBitBtn;
cmdPrior2: TBitBtn;
cmdFirst2: TBitBtn;
cmdLast2: TBitBtn;
102
cmdSave2: TBitBtn;
DataSource2: TDataSource;
ADOQuery2: TADOQuery;
Label_Kol_Zap_2: TLabel;
Panel3: TPanel;
Label_Find: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
txtFind: TEdit;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Label4: TLabel;
procedure Label_FindMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Label_FindClick(Sender: TObject);
procedure ADOQuery1AfterEdit(DataSet: TDataSet);
procedure cmdFirstClick(Sender: TObject);
procedure cmdPriorClick(Sender: TObject);
procedure cmdNextClick(Sender: TObject);
procedure cmdLastClick(Sender: TObject);
procedure cmdAppendClick(Sender: TObject);
procedure DataSource1DataChange(Sender: TObject; Field: TField);
procedure DataSource1StateChange(Sender: TObject);
103
procedure ADOQuery1AfterDelete(DataSet: TDataSet);
procedure ADOQuery1AfterOpen(DataSet: TDataSet);
procedure ADOQuery1AfterPost(DataSet: TDataSet);
procedure cmdSaveClick(Sender: TObject);
procedure cmdDeleteClick(Sender: TObject);
procedure ADOQuery1AfterCancel(DataSet: TDataSet);
procedure cmdFirst2Click(Sender: TObject);
procedure cmdPrior2Click(Sender: TObject);
procedure cmdNext2Click(Sender: TObject);
procedure cmdLast2Click(Sender: TObject);
procedure cmdAppend2Click(Sender: TObject);
procedure cmdSave2Click(Sender: TObject);
procedure cmdDelete2Click(Sender: TObject);
procedure DataSource2DataChange(Sender: TObject; Field: TField);
procedure DataSource2StateChange(Sender: TObject);
procedure ADOQuery2AfterCancel(DataSet: TDataSet);
procedure ADOQuery2AfterDelete(DataSet: TDataSet);
procedure ADOQuery2AfterEdit(DataSet: TDataSet);
procedure ADOQuery2AfterOpen(DataSet: TDataSet);
procedure ADOQuery2AfterPost(DataSet: TDataSet);
procedure Label9Click(Sender: TObject);
procedure Label10Click(Sender: TObject);
procedure Label11Click(Sender: TObject);
procedure Panel3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
104
end;
var
frmSotr: TfrmSotr;
procedure deactive_navig();
procedure active_navig();
procedure deactive_navig_2();
procedure active_navig_2();
procedure if_empty_adoQuery1(); //Процедура проверяет, есть ли значения в
наборе1. если нет, то блокируем доступ к набору 2
implementation
uses mdi, message_, delete;
{$R *.dfm}
procedure if_empty_adoQuery1();
begin
//Если в наборе 1 нет отделов, то нельзя ввести сотрудников (блокируем всю
панель с эл. управления)
if frmSotr.ADOQuery1.RecordCount=0 then frmSotr.Panel2.Enabled:=false else
frmSotr.Panel2.Enabled:=true;
end;
Procedure deactive_navig();
begin
frmSotr.cmdFirst.Enabled:=false;
frmSotr.cmdPrior.Enabled:=false;
frmSotr.cmdNext.Enabled:=false;
frmSotr.cmdLast.Enabled:=false;
105
frmSotr.cmdAppend.Enabled:=false;
end;
Procedure active_navig();
begin
frmSotr.cmdFirst.Enabled:=true;
frmSotr.cmdPrior.Enabled:=true;
frmSotr.cmdNext.Enabled:=true;
frmSotr.cmdLast.Enabled:=true;
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;
106
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);
107
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);
108
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