Приложение 3
Листинг программы
unit mdi;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Data.DB, Data.Win.ADODB,
Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.Imaging.pngimage;
type
TfrmMDI = class(TForm)
MainMenu1: TMainMenu;
mnuLKtehsupport: TMenuItem;
mnuExit: TMenuItem;
mnuLog: TMenuItem;
mnuAdmin: TMenuItem;
mnuSotr: TMenuItem;
ADOConnection1: TADOConnection;
StatusBar1: TStatusBar;
mnuLKklient: TMenuItem;
Image1: TImage;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure mnuExitClick(Sender: TObject);
procedure mnuSotrClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure mnuOrgClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure mnuLogClick(Sender: TObject);
procedure mnuLKklientClick(Sender: TObject);
procedure mnuLKtehsupportClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmMDI: TfrmMDI;
PathBD: string; //Глобальная переменная, содержащая путь к базе данных
TekPapka: string; // Путь к текущей папке
BooleanModal: boolean;
//BooleanFind: boolean;
sLogin: String; //Логин сотрудника, зашедшего в систему
sFIOSotr: String; //ФИО сотрудника, вошедшего в систему
iKodSotr: Integer; //Код сотрудника, вошедшего в систему
sDolgnost: String; //Должность сотрудника, вошедшего в систему
sStatussotr: String; //Уровень доступа, вошедшего в систему (статус
сотрудника)
implementation
{$R *.dfm}
uses sotr, operat, log, support_;
procedure TfrmMDI.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ADOConnection1.Close;
action:=caFree;
end;
procedure TfrmMDI.FormCreate(Sender: TObject);
begin
TekPapka:=getcurrentdir;
Image1.Align:=alClient;
ADOConnection1.Close;// Закрываем соединение с БД
ADOConnection1.ConnectionString:='Provider=MSDASQL.1;Persist Security
Info=False;Extended Properties="Driver=MySQL ODBC 5.1
Driver;SERVER=127.0.0.1;UID=root;password=123;DATABASE=tehsupportzer
obit;PORT=3306;charset=cp1251;COLUMN_SIZE_S32=1"'; // Прописываем
строку соединения
ADOConnection1.Open; // Открываем соединение
//Изначально, при создании формы прячем все строки меню
frmMDI.mnuAdmin.Visible:=false;
frmMDI.mnuLKklient.Visible:=false;
frmMDI.mnuLKtehsupport.Visible:=false;
frmMDI.mnuLog.Visible:=false;
frmMDI.mnuExit.Visible:=false;
end;
procedure TfrmMDI.FormShow(Sender: TObject);
begin
Application.CreateForm(TfrmLog,frmLog);
{frmMDI.mnuAdmin.Visible:=false;
frmMDI.mnuMaterial.Visible:=false;
frmMDI.mnuTesting.Visible:=false;
frmMDI.mnuStat.Visible:=false;
frmMDI.mnuLog.Visible:=false;
frmMDI.mnuExit.Visible:=false;
if sStatus='Администратор' then //Если найденный логин является
администратором, то
begin
frmMDI.mnuAdmin.Visible:=true;
frmMDI.mnuMaterial.Visible:=true;
frmMDI.mnuTesting.Visible:=true;
frmMDI.mnuStat.Visible:=true;
frmMDI.mnuLog.Visible:=true;
frmMDI.mnuExit.Visible:=true;
end;
if sStatus='Управляющий' then //Если найденный логин является
управляющий, то
begin
frmMDI.mnuAdmin.Visible:=false;
frmMDI.mnuMaterial.Visible:=false;
frmMDI.mnuTesting.Visible:=false;
frmMDI.mnuStat.Visible:=true;
frmMDI.mnuLog.Visible:=true;
frmMDI.mnuExit.Visible:=true;
end;
if sStatus='Рабочий' then //Если найденный логин является рабочий, то
begin
frmMDI.mnuAdmin.Visible:=false;
frmMDI.mnuMaterial.Visible:=true;
frmMDI.mnuTesting.Visible:=true;
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);
end;
procedure TfrmMDI.mnuLKtehsupportClick(Sender: TObject);
begin
Application.CreateForm(TfrmSupport,frmSupport);
end;
procedure TfrmMDI.mnuOrgClick(Sender: TObject);
begin
//Application.CreateForm(TfrmPosition,frmPosition);
end;
end.
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;
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;
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);
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 }
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;
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;