, hoe de toegang tot 2000 databanken met behulp van Delphi - opname?En, zie je in borland steun?,,, regio 's: de gegevensbank, nu, referentienummer: 72421, de huidige situatie: open, dagelijks: 11 /3 /99, de ernst van de gemeenschappelijke, fundamentele: type: nierfalen, vragen:,, op dit moment, pessimistische gegevens sluiten niet werkt, met het oponthoud, want van uitstel, niet voorziet in een methode. Sluit de opname buiten de huidige record,,.,,, met een goed slot mevrouw 2000 vorm te registreren, in de eerste plaats moet hebben. En je opdrachtgever versie, nu de gegevens van controles, Microsoft (eigen studio 6 projecten),,. Als je er bent, toen de invoer in Delphi gebruik te maken van de invoer van actieve componenten van de menu' s van de menu 's..Zie je, als,, een verhoging van de actieve controle kleuren.,,, het creëren van een vorm van veel van de controle, het onderdeel nodig, en het slot.Weet je nog: een controle kan worden opgesloten in een tabel in een opname, een tijd.Dus als je moet op verschillende tabellen, meerdere opnames, je moet meer onderdelen van de controle (, kun je de keuze gemaakt) en voor het creëren van de toegang tot en de naam van een nieuwe MdB, het laten zeggen "slot".Twee, en het gebied ("LOCKID" en "de string fldedt" vormen van gehele getal),,,, hier zijn twee functies.Een bel sluit, kan worden gebruikt voor de vergrendeling van gegevens, of te controleren of het slot.De andere is gevestigd, open, en je kan het aan unlock gebruik van de record.,,, function lock (ds:TAdoConnection; LckTable:TAdodc; een totaal s:string;,, REC, CurrentUserId:longint): de waarde var, fnd:boolean;,,,,,,,,, s1:string; beginnen, s1:=format (s, [trim (inttostr (REC))]); LckTable.ConnectionString:=ds.ConnectionString;,,,,,, LckTable.CursorLocation:=2; LckTable.LockType:=2;,,,,, LckTable.CommandType:=2; LckTable.RecordSource='Lock'; fnd:=false;,,,,,, LckTable.refresh proberen, als LckTable.Recordset.RecordCount> 0; dan, ik LckTable.Recordset.MoveFirst;,,,, LckTable.Recordset.Find ('lockid='''+s1+'''', 0,1,1);,,,,,, als LckTable.Recordset.RecordCou,Nt> 0 dan, als het niet (LckTable.Recordset.EOF), als LckTable.Recordset.Fields['lockid'].value=s1 dan, dan, fnd:=true;,, als het niet fnd dan, LckTable.Recordset.AddNew ('lockid', S1); LckTable.Recordset.Fields['fldEdt'].Value:=CurrentUserId;,,,,,,, result:=true; behalve result:=false;,,,,,,,,,, een open einde. (Totaal s:string; rec:longint; LckTable:TAdodc): de waarde var;,,,,,,, s1:string; beginnen, s1:=format (s, [trim (inttostr (REC)]);,,,,, ik LckTable.Recordset.Cancel; LckTable.Recordset.Find ('lockid='''+s1+'''', residuen som);,,,, LckTable.Recordset.Delete (1); result:=true;,, met uitzondering van result:=false;,,,,,,,,, je moet nu doen wat in je Whe -.,,Laat de gebruiker een verzoek tot opening van een record (waardoor een unieke id - 12), van uw klanten.Heb je een tadodc genoemd, is gelegen in de vorm van lckcustomers,, lckform genoemd.Het gebruik van deze code:,,, als slot (tcustomer. In verband met de lckform. Lckcustomers, 'customers, 12,1) en,,,, //gegevens zijn al met succes afgesloten, kun je verder gaan met je redacteur code,, /,, /...,,,,,,,, of voor de behandeling van de gegevens al ///////afgesloten door een andere gebruiker.,, ///////aan de boodschap en de opschorting van de bewerking, of blijf lezen,,,,,,,, aan het einde van; ///////... Als je het nu wil opnemen, in de redactie bellen:,,, open (' customers, 12, lckform. Lckcustomers);,,, - waarschuwing: Tabel zo groot is als de eerste gebruiker,, de procedures, de lege sluit door de vraag als een "slot" de tabel geschrapt.,, kun Je controleren of je door een eerste inspectie van vijf zijn, de gebruikers van Internet,Le in je MDB dossier.Als het er niet is, ben jij de eerste.Veel geluk.