, opgeslagen in de databank van eigendom van een klein voorbeeld, duurzame afgeleide eigenschap, moedig, dapper, afgeleide eigenschap altijd onthouden, waardoor het onmogelijk is de uitvoering van INPs (duurzame opslag) voor bepaalde gegevens te zoeken.Een zoektocht naar een eigenschap is die uitdrukking zal leiden tot een moedige - alle voorwerpen uit de database van de eerste evaluatie van het geheugen herinneringen, dat zal heel langzaam en het verbruik van hulpbronnen.,,, in het verleden heeft de discussie in de groep gevraagd hoe dat die eigenschap. Ook aan te dringen op de evaluatie van SQL dB.Ik heb vandaag dezelfde vraag, dit is mijn oplossing voorgesteld, het eerste wat we moeten doen om te voorkomen dat de in het model is mark eigenschap.Integendeel, de kenmerken van persistente eigenschappen, zoals de,,,, dit is. (128),,, dat de volgende stap is om ervoor te zorgen dat de waarde van de meest redelijke is nieuw, dus we moeten herschrijven receiveeventfromowned creëren we elke subcategorie,,,,,, de procedures, de receiveeventfromowned t ((oprichter.: TObject; originalevent:tboldevent);,,,,,,,,,, de opvolger van; als (originalevent = becompletemodify), en (m_name opdrachtgever =) en,,, volledige naam: = m_firstname.asstring + "+ m_lastname. Asstring;,,,,,,,,,, dat ervoor zal zorgen dat de eigenschap altijd maar hier is het laatste adres van de zwakke punten in ons nu kan veranderen, is dit met de hand.Om dit probleem op te lossen, we moeten het alleen laten zien, zoals dit,,,,,, T. Receivequeryfromowned (oprichter: TObject; originalevent:tboldevent; totaal parameters: - totaal; de gebruikers: tboldsubscriber): Bull.,,,,, de resultaten: =, erfenis, receivequeryfromowned (de opsteller van een gebruiker, originalevent);,,,,, en geen resultaat, of, boldobjectisdeleted dan verlaten;,,, als, (eerste = m_fullname), (originalevent = bqmaymodify), en dan,,,,,,,,, de resultaten: = vals; ///////per ongeluk fout, setboldlastfailurereason (tboldfailurereason creëren ('fullname. Ongewijzigd is gebleven sinds);,,,,,,,,,,,,,,,, dat kan nu niet meer worden gewijzigd, zijn wij helaas in de verkeerde is, kunnen we niet meerWe namen de code van de waarde van de groep.,,, dit laatste probleem op te lossen we een manier nodig om te identificeren gebruikers /normaal de code verandert en de interne veranderingen.Daarom heb ik altijd de verwezenlijking van een gemeenschappelijk model van mijn basis van objecten, zoals dit, en 1) het creëren van een van de eigenschappen van de gehele internalchangecount: Delphi, 2) de toevoeging van een beschermde methode, begininternalchange, 3) de toevoeging van een beschermde methode, endinternalchange, 4) de toevoeging van een beschermde methode isinternalchange: boolean,,,,, /noot: trootobject is mijn model wortel voorwerp, de procedures, de trootobject. Begininternalchange;,,,,,,,,,,, finternalchangecount);,,, programma 's, trootobject. Endinternalchange;,,,,,, als finternalchangecount = 0, En dan, de verbetering van de,,,, bij wijze van uitzondering. Het creëren van ('endinternalchange niet begininternalchange ");,, DEC (finternalchangecount);,,,,,,,,,, trootobject.isinternalchange: Bull. Begin van de,,T:= (internalchangecount > 0);,,,,,,,,,, tot slot, we moeten alleen updates van de oorspronkelijke bron,,, 1) de source code is voorzien in een "interne veranderingen" te herzien, 2), dit is als de veranderingen in de interne toegestaan.,,,,, programma 's, T. Receiveeventfromowned (oprichter: TObject; originalevent:tboldevent);,,,,,,,,,, die als originalevent = becompletemodify, en dan,,,,,,,,,, m_firstname als opdrachtgever =) of (m_lastname) en oprichter van =,,,,,,,,, begininternalchange; naam: = m_firstname.asstring + "+ m_lastname. Asstring;,,, tot slot,,,,,,,,,,, endinternalchange;,,,,,,,,,, receivequeryfromowned t (ORI.Ginator:TObject; originalevent:tboldevent; totaal parameters: - totaal; de gebruikers: tboldsubscriber): Bull.,,,,, de resultaten: =, erfenis, receivequeryfromowned (de opdrachtgever, de originalevent, de parameters, de gebruiker);,,, als er geen resultaten, of, boldobjectisdeleted dan verlaten;,,, als opsteller van = m_fullname), (originalevent = bqmaymodify) en,,,,,,,,,, en dan, als isinternalchange, resultaten: = echt anders,,,,,,, de resultaten: = vals; ///////onbedoelde fout,,, of niet, het creëren van tboldfailurereason setboldlastfailurereason (,, (.'fullname ongewijzigd is gebleven sinds);,,,,,,,,,,,,,,,, ik creëer structuur in de praktische toepassing is als volgt:,,,, roledobje rootobject (modelroot)CT (naam), (het = naam, achternaam, + +), (volledige naam = naam), de sector, de onderneming (het = naam),,,,, conclusies: de technologie slechts een kleine code voor elk van deze categorieën (recevieeventfromowned) bieden op een server in dB die eigenschap. De Uitvoering van het onderzoek.Ik denk dat deze voordelen aanzienlijk meer dan nodig is, een beetje werk om ze ten uitvoer te leggen.