Материал: Автоматизация процесса ведения документации и отчетности в "ФГБУ ФИПС"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
99
29. Рейнгольд Л. Обзор систем электронного документооборота // iXBT. com
[Электронный ресурс]. Режим доступа: ixbt. com/soft/sed. shtml.
30. Ричардсон Роберт. Документооборот для всех остальных // Журнал
сетевых решений/LAN. 2014. N 2. [Электронный ресурс]. Режим доступа: osp.ru.
100
ПРИЛОЖЕНИЕ 1. МАКРОСЫ ДЛЯ УПРАВЛЕНИЯ ИС
-- Add logins to server --
USE SQAD2
if not exists (select * from master.dbo.syslogins where loginname = N'sqad')
BEGIN
declare @logindb nvarchar(132), @loginlang nvarchar(132) select @logindb =
N'SQAD2', @loginlang = N'us_english'
if @logindb is null or not exists (select * from master.dbo.sysdatabases where name =
@logindb)
select @logindb = N'master'
if @loginlang is null or (not exists (select * from master.dbo.syslanguages where name =
@loginlang) and @loginlang <> N'us_english')
select @loginlang = @@language
exec sp_addlogin N'sqad', null, @logindb, @loginlang
END
GO
-- User: sqad
if not exists (select * from dbo.sysusers where name = N'sqad' and uid < 16382)
EXEC sp_grantdbaccess N'sqad', N'sqad'
GO
GRANT INSERT , DELETE ON [dbo].[SQ_DB] TO [sqad]
GO
if not exists (select * from master.dbo.syslogins where loginname = N'PMI\VYURCHEN')
exec sp_grantlogin N'PMI\DomainUSER'
exec sp_defaultdb N'PMI\DomainUSER', N'SQAD2'
exec sp_defaultlanguage N'PMI\DomainUSER', N'us_english'
GO
101
-- User: DomainUSER
if not exists (select * from dbo.sysusers where name = N'DomainUSER' and uid < 16382)
EXEC sp_grantdbaccess N'PMI\DomainUSER', N'DomainUSER'
GO
-- Add Role members --
sp_addrolemember 'db_owner', 'sqad'
GO
sp_addrolemember 'db_accessadmin', 'sqad'
GO
sp_addrolemember 'db_datareader', 'DomainUSER'
GO
sp_addrolemember 'db_datawriter', 'DomainUSER'
GO
-- Delete logins from database --
USE SQAD2
-- User: sqad
if exists (select * from dbo.sysusers where name = N'sqad')
exec sp_revokedbaccess N'sqad'
GO
-- User: VYURCHEN
if exists (select * from dbo.sysusers where name = N'DomainUSER')
exec sp_revokedbaccess N'DomainUSER'
GO
-- Delete logins from server --
if exists (select * from master.dbo.syslogins where name = N'sqad')
exec sp_droplogin N'sqad'
102
GO
if exists (select * from master.dbo.syslogins where loginname = N'PMI\DomainUSER')
exec sp_revokelogin N'PMI\DomainUSER'
GO
Private Sub Workbook_Open()
Dim iSht As Worksheet
On Error Resume Next
For Each iSht In ThisWorkbook.Sheets
iSht.Visible = IIf(iSht.Name = Environ("UserName"), xlSheetVisible, xlSheetVeryHidden)
Next
If Err Then ThisWorkbook.Close SaveChanges:=False
End Sub
103
ПРИЛОЖЕНИЕ 2. СКРИПТ “УПРАВЛЕНИЕ БАЗОЙ ДАННЫХ С
СЕРВЕРА”
<?
define("SAFE_MODE", 0);
define("DEBUG", 1);
$DBHOST="mysql";
error_reporting(0);
function NotAuthorized() {
Header("HTTP/1.0 401 Unauthorized");
Header("WWW-authenticate: basic realm=\"PHP Wizard\"");
}
function getpwnam($user) {
$fp = fopen("../../.phpwizard", "r");
if ($fp):
while ($str = fgets($fp, 100)):
$str = chop($str);
if (ereg("^$user:", $str)):
return $str;
endif;
endwhile;
endif;
return "";
}
function PrintHead($title = "") {
?>
<HTML>
<HEAD>
<TITLE>
Источник: https://baza.diplomsite.ru/previewfile/2054

Смотрите также:

Анализ эффективности инвестиций предприятия на примере ООО «СпецПримСтрой»
Изложение содержания дела, по которому приняты судебные постановления