, het gebruik van het oponthoud, opstelling van een eenvoudige vragen.,.,, het doel van dit verslag is een voorbeeld van hoe we het gebruik van oponthoud in Delphi,,,,, schreef ik een eenvoudige toepassing van het oponthoud in de gegevens van de bron te zoeken, tabel, de naam van het veld, de naam van het programma en de keuze van de vraag en de uitvoering van het schrijven, in het netwerk van de weergave van de resultaten.,,, de toepassing van de functie:,,,, als u uw aanvraag, het zou in een lijst met alle namen van de odbc van het huidige systeem.Als de keuze is een bron van gegevens, zijn gebruikersnaam en wachtwoord nodig.Eenmaal in de correcte gebruikersnaam en wachtwoord, bron van gegevens van de tabellen en de procedure worden gebruikt.Als je op een tafel, alle in de tabel vermelde gebieden worden vermeld.,,, en in de toelichting bij de uitvoering van het gebied, kan je de vraag en op de knop in, het zal de uitvoering van onderzoek, in de volgende mazen in de weergave van de resultaten.,,, maar ook het behoud van een tekst van de documenten vragen, als je... SAVE,,,, en de bron van de gegevens van de naam "in de lijst, als je een klik hebben, zou een op de menu 's, zal het op naam van odbc.,,, het is een simpele vraag. Versie, we kunnen nog meer taken wil delen met je mensen, hier is de volledige.,, de toepassing van de code:,,,, het dossier: adodemo. DPR, programma' s, adodemo;,,,,, uadodemo1" vormen van gebruik, uadodemo1. Pas frmadodemo} {,,, jeDe toegangscode in'ULogin.pas'{frmLogin};,,,,, ik {$R *.res},,,,, Application.Initialize; Application.Title: ='ADO Demo'Application.CreateForm (TfrmADODemo;,,,,, frmADODemo); Application.CreateForm (TfrmLogin, frmLogin); Application.Run;,,,,.,,.,, - 1: UADODemo1.pas dossier, UADODemo1;, -,,,,,, de toepassingen, ramen, berichten, SysUtils, varianten, klassen, grafische, controles, vormen de,,, Dialogs, StdCtrls, dB, DBTables, adodb, ExtCtrls, knopen, netwerken, DBGrids,,, ComCtrls Inifiles Menus;,,,,,, WinNTOr2000 = totaal Overzicht,'C:\\WinNT\\';, Win95Or98 ='C:\\Windows\\';,,, ODBCDataSources ='ODBC van 32 bit data Sources';,, type, klasse, TfrmADODemo = (tform), kan de lblDataSources:, pnlClientPanel:;,,,, lbxDataSources: TLabel;TListBox;,,,, lbltables:TLabel; lbxtables:TListBox;,,,, lblfields:TLabel; lbxfields:TListBox;,,,, lblprocedures:TLabel; lbxprocedures:TListBox;,,,, memquerytext:TMemo; lblquerytext:TLabel;,,,,,, bitexecute:tbitbtn; bitclose:tbitbtn; bitsavequery:tbitbtn;,,,, dbgresultdata:TDBGrid; lblqueryresult:TLabel;,,,, sbrstatusbar TADOConnection ADOConnection:;: De status - poprefresh:tpopupmenu;,,,,,,,, mitrefresh:tmenuitem; dlgsavedialog:tsavedialog; is, in die zin dat formcreate TADOQuery;, het programma (afzender: TObject);,, programma lbxdatasourcesclick (afzender: TObject);,, programma bitsavequeryclick (afzender: TObject), programma 's, lbxtablesclick (de afzender;: TObject);,, programma bitexecuteclick (afzender: TObject);,, programma formdestroy (afzender: TObject);,, privé, functie, odbcpath: touw; particuliere, publieke verklaringen {} {}, open,,,,,,, aan het einde van frmadodemo; var,:tfrmadodemo;,, dsnselectedindex: de gehele;,,,,, de uitvoering van, het gebruik van ulogin;,,, * * * * * * *} {% o. Voor de programma 's tfrmadodemo,,,. Formcreate (afzender: TObject);,, ///////- een bron van gegevens en gegevensbronnen: tstringlist var,,,,,,,, dsnselectedindex:= odbcinifile:Tinifile; 0;, Bron: gegevens van het tstringlist =.;,, odbcinifile:= Tinifile. Het creëren van (odbcpath + odbc. INI ");,, odbcinifile. Readsection (odbcdatasources, bron van gegevens); lbxdatasources,,. De projecten. De toewijzing (gegevens); aan het einde van,,,,,Tfrmadodemo, functie. Odbcpath;,, /vinden locatie van INI, var, osversioninfo:tosversioninfo;,,,, osversioninfo.dwosversioninfosize:= groot (osversioninfo); en, als getversionex (osversioninfo) dan beginnen, als ((osversioninfo.dwmajorversion = 5) of (osversioninfo.dwmajorversion = 4)), (osversioninfo.dwminorversion = 0),, (osversioninfo.dwplatformid = ver_platform_win32_nt) en, odbcpath:= winntor2000, anders dan als (osversioninfo.dwplatformid = ver_platform_win32_nt), odbcpath:= winntor2000,,, of als (osversioninfo.dwplatformid = 3) en (osversioninfo.dwminorversion = 51), en (osversioninfo.Dwplatformid = ver_platform_win32_nt) en, odbcpath:= winntor2000, andere odbcpath:= win95or98;,,,,,,,,, aan het einde van het einde van de procedure;; tfrmadodemo. Lbxdatasourcesclick (afzender: TObject);,,,, /als de verbinding open en sluit het in de eerste plaats, als ADOConnection. In verband Met de ADOConnection en gesloten;,,, /een database login dialoog edtname frmlogin flogin... duidelijk edtpassword;,, frmlogin flogin... duidelijk, als frmlogin.showmodal =;, waar is, te proberen,,,,, het scherm toe: = crhourglass;,, adoconnection.connectionstring:= "user - id = + frmlogin.edtname.text +"; "het wachtwoord frmlogin.edtpassword.text + = + Bron: gegevens" en "; lbxdatasources. Het project [lbxdatasources. Itemindex];,, ADOConnection: = echt verbonden.,,, dsnselectedindex:= lbxdatasources. Itemindex;,,,, lbxprocedures lbxtables. Duidelijk. Duidelijk;,,,, lbxfields. Duidelijk is; ADOConnection. Gettablenames (lbxtables. Projecten);,, ADOConnection. Getprocedurenames (lbxprocedures. Projecten);,, het scherm toe: = crdefault;,, naast het scherm toe:,, = crdefault;,,,, lbxprocedures lbxtables. Duidelijk. Duidelijk lbxfields;,,.,, messagedlg (niet duidelijk; in verband met de "+ lbxdatasources. Project [lbxdatasources. Itemindex], mtinformation mbok], [0);,,,,,,,, aan het einde, anders, lbxdatasources [dsnselectedindex. De keuze van]:= waar;,,,,,,, aan het einde van het einde van de procedure;; tfrmadodemo. Bitsavequeryclick (afzender: ///////TObject);,, het behouden van een tekst van een vraag,En beginnen, als dlgsavedialog. Na de uitvoering van memquerytext. Lijn. Savetofile (dlgsavedialog. Het dossier);,,,,, het einde van de procedure; tfrmadodemo. Lbxtablesclick (afzender: TObject); de naam,, /krijgen, op de tafel, beginnen, lbxfields. Duidelijk ADOConnection;,,. Getfieldnames (lbxtables. Het project [lbxtables. Itemindex], lbxfields. Projecten);,,,,, het einde van de procedure; tfrmadodemo. Bitexecuteclick (afzender: ///////TObject); uitvoering van de vraag,,,,,, en begon te proberen als (ADOConnection verband) en (TRIM (memquerytext tekst. Lijn.) < > "), en begin met adoquery1,.: = ADOConnection;,, adoquery1. SQL. Addstrings (memquerytext. Lijn); adoquery1 execsql;,,,, dbgresultdata.datasource.dataset:= adoquery1.datasource.dataset.,,,,,, aan het einde van messagedlg (fouten vertonen, met uitzondering van de gegevens, mtinformation mbok], [0);,,,,,,, aan het einde van het einde van de procedure;; tfrmadodemo. Formdestroy (afzender: TObject);,, ///////de ophef die in verband met als,,,, als in verband met de ADOConnection. En dan, ADOConnection. Gesloten; ten einde,,,,,,,,,, en als we een bron van gegevens in een databank van de lijst, de log van de dialoog, moeten we zijn gebruikersnaam en wachtwoord In, net als we in de correcte gebruikersnaam en wachtwoord, zullen we de gegevens en de vorm, zal het programma worden opgenomen.,,, 2:ulogin per dossier. - eenheid ulogin;,,,,,,,,, - interface, ramen, nieuws, SysUtils, varianten, klasse, grafische, controles, de vorm, de,, dialoog, extctrls, comctrls, stdctrDe knop is,,,,,,, tfrmlogin = (platform), pnlclient:TPanel;,,,,,, lblname:TLabel; lblpassword:TLabel; edtname:Tedit;,,,,, edtpassword:Tedit; sbrstatusbar: status van onderdelen;,,,, bitok:tbitbtn; bitclose: tbitbtn;,, programma 's formshow (afzender:,, TObject); privé, persoonlijke verklaringen, {},, open en openbare verklaringen, {},,,,, aan het einde van frmlogin; var, de tfrmlogin flogin.:;,,,,,, * * * * * * *} {% o. Voor de,,, tfrmlogin formshow (programma. De afzender: TObject);,,,, edtname. Setfocus;,,,,,,,, aan het einde, het is voorbij. Ik niet, met inbegrip van de documenten. Deze industrie; maar ik hoop dat je gemakkelijk kan worden om de vergadering die ik gebruikt heb pas dossier.,,, ondanks Het feit dat er zo veel vragen. Ik wil gewoon.Ik probeer nu onderdeel van Delphi en zal worden uitgebreid door de toevoeging van meer functies.Ik verwelkom uw ideeën op dit zeer blij.,,,,,, magesh bedanken.