Дипломная работа: Исследование и разработка информационной системы приема и анализа заявок технической поддержки на примере Администрации г. Новый Уренгой
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
94
95
Ниже приводится описание основных программных модулей.
Описание модуля главной формы mdi:
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;
type
TfrmMDI = class(TForm)
MainMenu1: TMainMenu;
mnuLKtehsupport: TMenuItem;
mnuExit: TMenuItem;
mnuLog: TMenuItem;
mnuAdmin: TMenuItem;
mnuSotr: TMenuItem;
ADOConnection1: TADOConnection;
StatusBar1: TStatusBar;
mnuLKklient: TMenuItem;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure mnuExitClick(Sender: TObject);
procedure mnuSotrClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure mnuOrgClick(Sender: TObject);
96
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);
97
begin
ADOConnection1.Close;
action:=caFree;
end;
procedure TfrmMDI.FormCreate(Sender: TObject);
begin
TekPapka:=getcurrentdir;
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=tehsupport;PO
RT=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;
98
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;
Источник: https://baza.diplomsite.ru/previewfile/8703