, perpetual nybegynder - loggen.2, denne artikel først dukkede op på http: //www.undu. kom,,, en tidligere version af denne artikel blev offentliggjort i begyndelsen af februar 00.nogle rettelser, lidt velovervejet redigering og en bedre organisation vil forhåbentlig resultere i noget bedre til dig, læseren,.,,, for nylig, fandt jeg mig selv uden en ansøgning login komponent.tvunget af omstændighederne til at skabe en til i det mindste midlertidig anvendelse, jeg fandt den erfaring, interessant nok, at jeg troede, at jeg ville tage en tur til at skrive en artikel for min kollega omnibus nybegyndere.pas på en midlertidig segue lidt længere ned!,,, en login form er ikke altid et tegn på programmering paranoid.helt ærligt, jeg bruger adgangskode form for at finde ud af, hvem der er under anvendelse af, så jeg kan mærke angivelser og redigerer et id.hvis du har brug for en stærk komponent eller sikkerhed på menuen, gå og se ægte systemer som uil sikkerhedssystem.men hvis du stikker en enkelt app med nogle brugere, du ønsker at skelne, eller hvis du vil have en lille sikkerheds, læst om.,,, der kan huske, at jeg har en tendens til at købe min løsninger snarere end at opfinde dem.for sikkerhed og en helt fin login form, foretrak jeg kalliopi er securityguard system.samtidig anvendelse af delphi 3, fandt jeg, at det er hurtig til at installere, nemt og meget stærk.der er desværre ingen delphi, 5. udgave af det.selv om jeg ville have været der i første række, da det kom ud, mine seneste oplysninger er, at det aldrig vil ske.sooooo, jeg var nødt til at have et login system, der benyttede sig af de store ting, jeg var kommet til at forvente fra securityguard.det var et login skærm og et middel til at få oplysninger om brugerens sikkerhed og diverse andre oplysninger, såsom præferencer (jeg kan gøre dette gennem ini /register filer, - - men det er bare så meget lettere at få den i sikkerhed. tabel, idet nogle brugere migrere fra computer til computer)., på min midlertidige behov for en adgangskode, har jeg besluttet at begrænse mine ambitioner og arbejde på at få navn og sikkerhedsniveauet info i ansøgningen.jeg startede med udformningen af den sikkerhed, som jeg kalder pazwordz.denne tabel bør omfatte et område for brugerens navn (højde), kodeord, og alle andre oplysninger, der måtte finde passende.,,, spørgsmål: at områder, til at skabe deres egen version af en sikkerhed, men uanset hvad, overveje en advarsel.ikke misbruger deres ret til navn områder, hvad du vil.for mange år siden, var jeg en del af den første operation for at kombinere paradoks for to interbase og - netværk.borland sagde, det ikke kunne lade sig gøre i sin tid, men vi har...efter vi har fastsat en række navne spørgsmål.,,, jeg opdagede, at områder, der understreger og tegnsætning er onde, onde, onde i felt navne.som alle andre i den tid, jeg var glad for at kaste åget af begrænset dbase navne og elskede paradoks er evne til at bruge de navne, der løb og om og om og om.det svarede til en ny desktop publishing bruger for at finde ud af, om skrifttyper og deres overflod.eller, når de nye 1995 brugere fundet udgangen af 8.3 filnavn tyranni.de tog bananer.for mig var det område navne.min store forbrydelse var område navne som telefon&#eller kundens grunde.interbase hadede de navne.så vi har struktur i det paradoks, databaser og derefter om programmet kode (tusindvis af linjer) at finde og erstatte de navne.aldrig igen.,,, men aldrig er lang tid.da jeg begyndte på mit sikkerheds - tabeller, jeg brugte simpelt navne for felter.uden nogen troede, jeg lavede brugerens navn område navn.startdato blev dato.der var et par andre lovovertrædelser, men du kommer med.disse områder navne ikke bide mig, indtil jeg har brug for nogle sql.så de navne blev genstand for en ekstra indsats.hvis området navn ligner en sandsynlig ejendom navn, eller endog kan være som en ejendom navn, ændre det!gør det nu, i den kreative scene, og du vil blive meget gladere senere.gøre det brugernavn og startdate.hvis du ikke vil have sagen følsomme områder, så sørg for at auto fælles landbrugspolitik navn og adgangskode områder.endelig, glem ikke at password, beskyttelse af det endelige produkt, og registrere kodeordet.det er en fejl, jeg har begået.,,, segue.,,, ved at gøre mig et login form.jeg begyndte med delphi kodeord form.jeg kopierede etiketten og redigere kasse for kodeordet for at skabe en etiket til brugerens navn og redigere kasse.nogle kappes af etiketter, kasser og knapper gav mig den traditionelle login form med brugernavnet edit kasse over kodeordet edit kasse, overtop ok og aflyse knapper.de var begge sat til store klippe kasser, som jeg brugte alle øvre for navne og kodeord i sikkerhed.hvis du ønsker at gå den ekstra skridt for at have fortrolige identifikatorer, så gør det ikke.jeg satte en datasource og tabel komponenter, som er tilsluttet pazwordz om form.som en sidste detalje, jeg besluttede at medtage et billede med mit logo i det og mærket "en idé mekaniker app." du kan omfatte en generisk image, en virksomhedsspecifik image eller slet ingenting.,,, keypreview blev til virkelighed, et vigtigt skridt.og jeg var nødt til at tilføje de dialoger enhed til den anvender erklæring.så, har jeg tilføjet følgende kode:,,, var, dlglogin2: tdlglogin2;,, attemptsleft: heltal,,, gennemførelse,,, {navn og adgangskode passede ikke fortsætte eller stoppe?den procedure tdlglogin2. duer ikke, begynder (et forsøg, hvor mange?), attemptsleft: = attemptsleft - 1), hvis attemptsleft > = 1, så begynder {udrydde dårlige forsøg på og gå tilbage til begyndelsen},, eusername. tekst: = ",,, epassword.text: =",,, eusername. setfocus,,, jeg kunne være mere forståelige, her, men hvorfor?), showmessage (ikke korrekt, prøv igen! ")og jeg kunne være mere forklarende),,,, andre dlglogin2.modalresult: = mrabort; (for mange forsøg, farvel!},,,,,,,,, (klare træde tastetryk i brugernavnet edit æske}, procedure tdlglogin2. eusernamekeypress (afsender: tobject; var centrale: char), begynder, hvis centrale = (var det enter?},,, så begynder {konvertere ind til en regning), selectnext (activecontrol som twincontrol, sandt), central: =� (udslette træde tastetryk},,,,,,,,, (klare enter i kodeordet edit kasse og klik okay.}, procedure tdlglogin2. epasswordkeypress (afsender: tobject; var centrale: char), begynder, hvis centrale = , så begynder, selectnext (activecontrol som twincontrol, sandt), central: =�,, okbtnclick (afsender); (svarende til at trykke på okbtn},,,,,,,,, {aflyse i navn og adgangskode.programmet vil ikke løbe}, procedure tdlglogin2. cancelbtnclick (afsender: tobject), begynder, dlglogin2.modalresult: = mrcancel,,,,,,, (vi har et forsøg, var det godt?ja!hov, nej!den procedure tdlglogin2. okbtnclick (afsender: tobject), begynder, okbtn.setfocus; (dette sikrer edit rubrik indhold er læst}, hvis eusername.text = ", så eusername.setfocus (intet navn, ingen forsøg), andre, hvis epassword.text =", så epassword.setfocus (nr. password. ingen forsøg på), andre, hvis tblpw. findkey ([eusername. (]) (er det navn der?},, hvis store (tblpw. fieldbyname ('password '). asstring) = epassword.text {er kodeordet samme?}, så dlglogin2.modalresult: = mrok {lade programmet løbe}, ellers duer ikke {ethvert forsøg på venstre?}, ellers duer ikke. {ethvert forsøg på venstre?},,,,,, initialization,, attemptsleft: = 3;,,, en del af koden er forsynet med ekstra kommentarer.den keypress procedurer for to edit kasser er det samme, bortset fra den efterfølgende grin med et tryk på den knap, efter at slå ind på det kodeordet område.og der er en manglende fejl dem med dette projekt.selvfølgelig er der flere steder for prøve /undtagen blokke og fejl, der håndterer.det er op til dem at afgøre, hvor meget længere at køre sikkert kodning praksis på dette job.,,, projektet fil er vist nedenfor:,,, anvender, er dbtables,,,,,,,,,,, finputinv dialoger, i finputinv. - (frmmaininput},,, udlglogin2 i e: \\ v5. udlglogin2. - (dlglogin2};,,, ($r *. res}, begynder, anvendelse. påbegynd;,, s. addpassword ('itsreallynotmyfault), dlglogin2: = tdlglogin2. skabe (nul), med dlglogin2 begynder, tblpw.databasename: = project1;,, tblpw.tablename: = pazwordz;,, tblpw. aktive: = sandt,,, showmodal;,, hvis modalresult = 1, så begynder, anvendelse. createform (tfrmmaininput, frmmaininput);,, frmmaininput.username: = dlglogin2. eusername. tekst;,, frmmaininput.deb: =,, dlglogin2. tblpw. fieldbyname ('miniid '). asstring;,, hvis frmmaininput.deb = ", så frmmaininput.deb: =, eksemplar (store (dlglogin2. eusername. tekst), 1,3);,, frmmaininput.seclevel: =,, dlglogin2. tblpw. fieldbyname ('seclevel'). asinteger,,, frmmaininput.pgmdir: = extractfilepath (ansøgning. exename);,, dlglogin2. gratis;,, anvendelse. løb,,,,, andre dlglogin2. fri,,,,,,.,,, en gang mere, er der nogle finagling med anvender erklæring i dpr fil.jeg tilføjede, dbtables og dialoger for at klare login dialog og databasen komponenter i denne form.jeg kunne have givet afkald på at benytte den del, hvor jeg satte sikkerheds tabel alias, tabel navn og aktivere den.men jeg ville gøre det i form af en universel form, jeg kunne bruge med mange ansøgninger.jeg reddede den dialog form til en central placering, og sætte de budgetposter, vist her til at fungere.,,, der har problemer.oprindeligt, "hvis modalresult = 1" var ", hvis modalresult = mrok." de blev kvalt i det, og hævdede, at det ikke kunne finde ud af, mrok.jeg var ret sikker på, mrok blev defineret i dialoger, men jeg gav op og i stedet anvendes de enkelte værdien 1 til mrok.,,, det er klart, at det er vigtigt at holde fast i login dialog, så længe du kan, for at krydse over sikkerhedsniveauet, bruger navn og andre miscellanea, som du har i sikkerhed.jeg bruger deb område til mini - mærkning af identitet.det står for oplysninger, der er optaget af, og det er normalt det første tre typer af navn.men i tilfælde af ang, kunne det være angelo eller angie, så indholdet af sikkerheden, tabel er miniid område skelnes mellem to som alo og ang.,,, - jeg håber, du kan bruge denne idé at iværksætte deres egne login form, hvad enten det er af sikkerhedsgrunde eller til at finde ud af, hvem der bruger anvendelse nu.,,, gary mugford, tanke, mekaniker, bramalea i canada, mugford @ aztekisk net. kom.