object=ModuleFolder { ParentID=$868F9EA7 ObjectID=$86D6F3F9 Name=Addons } object=Module { ParentID=$86D6F3F9 ObjectID=$06959BA3 Name=Network Alias=modAutoLoadNetwork Comment=Modul s funkcijami za potrebe nadzora in informiranja administratorja o uporabnikih v sistemu. Module=/*##Omrežni modul####Avtor, datum:## Mirko Žveplan, Softdata d.o.o., 28.9.00##Opis:## V tem modulu se nahajajo potrebne rutine za nadzor SDMS Serverja. Z njimi se## lahko preverja, kdo trenutno uporablja SDMS, se pošilja sporocila uporabnikom## in pa odkljaplja posameznega uporabnika.##Namestitev:## Prenesite datoteko network.sif in jo v SDMS uvozite z opcijo Uvoz SIF## datoteke. Modul se bo avtomatsko naložil v aplikacijo.##Uporaba:## V aplikaciji pritisnete presledek, da dobite ukazno okno. V njem napišete## ukaz InfoNet. Le ta prikaže dialog, kjer izberemo željeno operacijo. Ta ukaz## se lahko tudi vkljuci v menije oz. orodne vrstice.##*/####Sub InfoNet## Dim F As TCustomForm, I As Long## F = CreateCustomForm## F.Caption = 'Informacije o uporabnikih v sistemu'## F.CellWidth = 300## F.CellSplit = 0## F.AddRadioBox ('R1', '', 'Prikaži seznam uporabnikov v sistemu' + Line +## 'Pošlji sporočilo uporabniku' + Line +## 'Izključi uporabnika iz sistema' )## If F.Execute Then## Select Case F.ListIndex ( 'R1' )## Case 0 VsiNet## Case 1 ObvestiloNet## Case 2 OdklopNet## EndSelect## EndIf## F.Destroy##EndSub####Sub VsiNet## Dim S As String## S = NetInfo## Message ( 'Informacije o sistemu' , S )##EndSub####Sub ObvestiloNet## Dim Komu As TUser## Komu = Users.SelectObject ('Izberi prejemnika obvestila')## If Assigned ( Komu ) Then## Dim Dlg As TcustomForm## Dlg = CreateCustomForm## Dlg.AddLabel ( 'L1', 'Pošiljatelj: ' + User.Name)## Dlg.AddLabel ( 'L2', 'Prejemnik: ' + Komu.Name)## Dlg.AddEditBox ( "E1", "Tema:" )## Dlg.AddEditBox ( "E2", "Sporočilo:" )## Dlg.Caption = 'Sporočilo'## If Dlg.Execute Then## NetMessage ( User.Name, Komu.Name, Dlg.EditBoxValue ( 'E1' ), Dlg.EditBoxValue ( 'E2' ) )## EndIf## Dlg.Destroy## EndIf##EndSub####Sub OdklopNet## Dim Uporabnik As TUser, B As Boolean## B = False## Uporabnik = Users.SelectObject ('Izberi uporabnika')## If Assigned ( Uporabnik ) Then## If InputYesNo ( 'Pozor', 'Res želite odklopiti ' + Uporabnik.Name + ' iz sistema?', B ) Then## If B Then## NetDisconnect ( Uporabnik.Name )## EndIf## EndIf## EndIf##EndSub## }