Postare de Andrei Protasovitski
Sănătate bună!
Post de Serguey Potapov
Postare de Andrei Protasovitski
De asemenea, puteți dezactiva comenzile rapide de la tastatură și apoi utilizatorul
în general, nimic inutil nu poate face. Inclusiv o fereastră
DB pe F11.
Poți, bineînțeles, bine, cum voi intra dacă? ;)
A fost așa - convenabil și frumos.
Există un formular "Despre program" - acolo. Ei bine, spuneți o fotografie, pentru un clic dbl
Noi interzicem Shft și F11, etc.
și pe ce fir de control controlați îndepărtarea protecției.
Este necesar să se dea un clic programat, protecția a funcționat și a dat calm,
sigur. că nici un utilizator avizat nu va urca și nu va face lucruri în baza de date.
biruitor
Mai jos este codul de protecție și protecție.
Este posibil să nu funcționeze dacă nu conectați un fir la o bibliotecă importantă. Am făcut-o
acestea sunt conectate> 10 bucăți și care unul este responsabil pentru codul de mai jos - nu-mi amintesc deja,
Scuze. Ei bine, Doamne ferește, va funcționa
„------------------------------------------------- --------------------------
-----
Public Sub SetStartupProperties_Disabled ()
„BAN
ChangeProperty "StartUpForm", dbText, "Zastava" 'Start
formă
ChangeProperty "StartUpMenuBar", dbText, "Tt_MainMenu" "Numele panoului
meniul de utilizat în mod implicit
ChangeProperty "StartupShortcutMenuBar", dbText, "SortFilterExport"
"Numele meniului contextual care va fi utilizat în mod implicit
ChangeProperty "StartupShowDBWindow", fereastra dbBoolean, False "Database
Schimbarea proprietății "StartupShowStatusBar", dbBoolean, True "String
stat - permiteți-l
ChangeProperty "AllowBuiltinToolbars", dbBoolean, "Fals"
built-in bare de instrumente
Schimbarea proprietății "AllowFullMenus", dbBoolean, False "Full
sistem de meniu încorporat la pornire
Schimbarea proprietății "AllowBreakIntoCode", butonul dbBoolean, False "
depanare
Schimbarea proprietății "AllowSpecialKeys", dbBoolean, False "Special
chei
ChangeProperty "AllowBypassKey", modul dbBoolean, False "
lansați aplicația cu SHIFT apăsată
Schimbarea proprietății "AllowShortcutMenus", dbBoolean, False 'Output
meniuri context
'ChangeProperty' AutoCompact ', dbBoolean, True' Compress
la închidere
MsgBox "Data viitoare când veți începe, protecția va fi activată!", VbExclamation
End Sub
„------------------------------------------------- --------------------------
-----
Public Sub SetStartupProperties_Enabled ()
„Rezoluția
Șterge proprietatea "StartupForm" 'Start
formă
DeleteProperty "StartUpMenuBar" 'Numele panoului
meniul de utilizat în mod implicit
Șterge proprietatea "StartupShortcutMenuBar" "Nume
meniul contextual pentru a fi utilizat în mod implicit
ChangeProperty "StartupShowDBWindow", fereastra dbBoolean, False "Database
(False - Nu imprimați)
Schimbarea proprietății "StartupShowStatusBar", dbBoolean, True "String
statul de
Schimbarea proprietății "AllowBuiltinToolbars", dbBoolean, True "Built-in
Bara de instrumente
Schimbarea proprietății "AllowFullMenus", dbBoolean, True "Full
sistem de meniu încorporat la pornire
Schimbarea proprietății "AllowBreakIntoCode", butonul dbBoolean, True "
Debugging.
Schimbarea proprietății "AllowSpecialKeys", dbBoolean, True 'Special
cheie.
ModificareProprietate "AllowBypassKey", dbBoolean, True "Mod
lansați aplicația cu SHIFT apăsată
ChangeProperty "AllowShortcutMenus", dbBoolean, True 'Output
meniuri context
'ChangeProperty' AutoCompact ', dbBoolean, False' Compress
la închidere
MsgBox "Data viitoare când porniți protecția va fi dezactivată!", VbExclamation
End Sub
DeleteProperty = False
Setați dbs = CurrentDb
Pe eroare GoTo Change_Err
dbs.Properties.Delete (strPropName)
DeleteProperty = Adevărat
Setați dbs = Nimic
Change_Bye:
Ieșire Funcție
Change_Err:
Reluați Change_Bye
Terminați funcția
„------------------------------------------------- --------------------------
-----
Funcția de verificare a funcției publice (strPropName As String) ca variantă
Dim dbs ca bază de date, prp Ca proprietate
La eroare GoTo Check_Err
Setați dbs = CurrentDb
CheckProperty = dbs.Properties (strPropName)
Setați dbs = Nimic
Check_Bye:
Ieșire Funcție
Check_Err:
CheckProperty = False
Reluați Check_Bye
Terminați funcția
„------------------------------------------------- --------------------------
-----
Funcția de schimbare a funcției publice (strPropName As String, varPropType As
Varianta, varPropValue ca variantă) Ca boolean
Dim dbs ca bază de date, prp Ca proprietate
Const conPropNotFoundError = 3270
Setați dbs = CurrentDb
Pe eroare GoTo Change_Err
dbs.Properties (strPropName) = varPropValue
ChangeProperty = Adevărat
Setați dbs = Nimic
Change_Err:
Dacă Err = conPropNotFoundError Apoi "Nu a fost găsită nicio proprietate.
Setați prp = dbs.CreateProperty (strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Reluați Următorul
altfel
'A apărut o eroare necunoscută.
ChangeProperty = False
"MsgBoxErr" ChangeProperty "
Reluați Change_Bye
Sfârșit Dacă
Terminați funcția
„------------------------------------------------- --------------------------
-----
SP> Dacă am înțeles corect - în parametrii de pornire este necesar să eliminați meniul și
SP> panouri standard de control al accesului.
Vaascheto nea. Am avut în vedere să înlătur plierea,
închiderea ferestrei principale. Și asta știm așa :)))
SP> De asemenea, ascund o fereastră a unei baze de date și o autostart de orice formă
SP> (de exemplu, formularele de conectare). Apoi, utilizatorul (dacă el nu știe despre el
buton
SP> Shift) este dificil să folosiți comenzile standard
SP> bază. Și ce am permis.
SP Și cine știe despre butonul Shift - pe mâini, pe mâini. )))
Post de Vitaly Tkachenko
Vaascheto nea. Am avut în vedere să înlătur plierea,
închiderea ferestrei principale. Și asta știm așa :)))
Hopa. Scuze. Și aici nu știu. (
Și vă puteți întreba de ce o astfel de nevoie? Pot și este necesar pentru mine.
Post de Vitaly Tkachenko
Vaascheto nea. Vroiam sa scot butoanele pliabile,
Extinderea, închiderea ferestrei principale. Și asta știm atât de bine
:)))
SP> Oops. Scuze. Și aici nu știu. (
SP> Și este posibil să ne întrebăm ce este necesar? Pot și este necesar pentru mine.
Canesha este posibil - aceasta este pentru consiliul de informare al clienților. Iată un om
în birou. Și aici, în hol, se află o tablă de informare. Numai tabloul de bord (adică ecranul
cu "sub" mouse-ul;) Cu Claudia, el încă nu face nimic, ci pentru
cruce, și să urcăm pe computer, să conducem programul? Va fi numai
ce-arcade thread pentru a investi acolo;)))) Va fi un mini-joc club :))
Atât de serios: mă maximizez forma, elimină toate panourile și meniurile, fereastra principală
De asemenea, mă maximizez, panoul de sarcini în Windows poate fi podkotsnut, și aici sabzhevye
butoanele nu sunt șterse :))). mai degrabă: (((
La idee, într-un sistem profund de Windows este posibil să se schimbe tipul unei ferestre sau evenimente
interceptați și anulați. În fereastra principală devine - înseamnă că poți.
Da, încă pot să blochez și să anulez, dar plierea,
maximiza fereastra principală.
Post de Vitaly Tkachenko
Da, încă pot să blochez și să anulez, dar plierea,
maximiza fereastra principală.
Da. clare. Nu, încă nu mă confrunt cu asta. )
Vă doresc norocul la fel.
Post de Vitaly Tkachenko
Vaascheto nea. Am avut în vedere să înlătur plierea,
închiderea ferestrei principale. Și asta știm așa :)))
Ideea este asta.
Primul formular este un pop-
formularul nu are un antet (în formele formularului tipul de limită este o poreclă)
desfășurați formularul pe ecran complet
se pare că așa ceva.
Am încercat mult timp, pare destul de bine pentru o aplicație completă.
Și, în general, este concret cu privire la butonul rucsacului - pare să fi văzut în carte
"Acces - aplicații pentru întreprinderi". Dar nu-mi amintesc, din păcate.
Cartea este vândută și mi sa recomandat să o folosesc.
Cartea Prenaimegapolezneyshaya (2 volume) a fost pentru mine, în timpul studierii.
Trimiteți-le prietenilor: