Simple générateur de requêtes à l'aide de composants ado?

Simple generateur de requetes a l'aide de composants ado?

Simple generateur de requetes a l'aide de composants ado? : Plusieurs milliers de conseils pour vous faciliter la vie.

l'Ecriture d'un simple generateur de requetes a l'aide de Composants ADO.
Cet article vise a demontrer comment pouvons-nous utiliser les composants ADO disponible en Delphi.
j'ai ecrit une application simple a l'aide de composants ADO pour recuperer les Noms de Source de Donnees, les tables, les Noms de Domaine les Noms, les Noms de Procedure et une option pour ecrire la requete et de l'executer et d'afficher le resultat dans une grille.
La fonction de l'application:
Lorsque vous executez l'application, il va recuperer tous les Noms de Source de Donnees ODBC a partir du systeme actuel et de la liste dans une liste deroulante. Si vous selectionnez un Nom de Source de Donnees, vous serez invite a entrer le nom d'utilisateur et mot de passe. Une fois que vous entrez le nom d'utilisateur et mot de passe, les tables et les procedures disponibles dans la source de donnees. Et si vous cliquez sur un nom de table, tous les champs de la table sera repertorie.
Et dans le champ memo, vous pouvez entrer une requete SQL et cliquez sur le bouton Executer, il va executer la requete et afficher le resultat dans la grille ci-dessous.
vous pouvez Aussi enregistrer la requete dans un fichier texte si vous cliquez sur le bouton Enregistrer.
Et dans la Source de Donnees zone de liste de Noms, si vous faites un clic droit, il y aura un menu Actualiser et il va vous rafraichir la Source de Donnees ODBC Noms.
C'est vraiment une simple version du Generateur de Requetes et l'on peut ajouter autant de fonctionnalites que possible et je voulais juste partager avec vous les gens.
voici le code complet de l'application:
le Fichier de Projet: ADODemo.rmr
programme de ADODemo

& nbsp & nbsp Formes,
& nbsp & nbsp UADODemo1 dans 'UADODemo1.pas' {frmADODemo},
& nbsp & nbsp ULogin dans 'ULogin.pas' {frmLogin}
{$R *.res}
begin
& nbsp & nbsp Application.Initialiser
& nbsp & nbsp Application.Titre := 'ADO Demo'
& nbsp & nbsp Application.CreateForm(TfrmADODemo, frmADODemo)
& nbsp & nbsp Application.CreateForm(TfrmLogin, frmLogin)
& nbsp & nbsp Application.Run
a la fin.
Unite de Fichier 1: UADODemo1.pas
unite de UADODemo1
interface

& nbsp & nbsp Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
& nbsp & nbsp Dialogs, StdCtrls, DB, DBTables, ADODB, ExtCtrls, des Boutons, des Grilles, des DBGrids,
& nbsp & nbsp ComCtrls,Inifiles, Menus
Const
& nbsp & nbsp WinNTOr2000 = 'C:\WinNT\'
& nbsp & nbsp Win95Or98 = 'C:\Windows\'
& nbsp & nbsp ODBCDataSources = 'ODBC 32 bits Sources de Donnees'
type
& nbsp & nbsp TfrmADODemo = class(TForm)
& ! & ! & ! & nbsp pnlClientPanel: TPanel
& ! & ! & ! & nbsp lblDataSources: TLabel
& ! & ! & ! & nbsp lbxDataSources: TListBox
& ! & ! & ! & nbsp lblTables: TLabel
& ! & ! & ! & nbsp lbxTables: TListBox
& ! & ! & ! & nbsp lblFields: TLabel
& ! & ! & ! & nbsp lbxFields: TListBox
& ! & ! & ! & nbsp lblProcedures: TLabel
& ! & ! & ! & nbsp lbxProcedures: TListBox
& ! & ! & ! & nbsp memQueryText: TMemo
& ! & ! & ! & nbsp lblQueryText: TLabel
& ! & ! & ! & nbsp bitExecute: TBitBtn
& ! & ! & ! & nbsp bitClose: TBitBtn
& ! & ! & ! & nbsp bitSaveQuery: TBitBtn
& ! & ! & ! & nbsp dbgResultData: TDBGrid
& ! & ! & ! & nbsp lblQueryResult: TLabel
& ! & ! & ! & nbsp ADOConnection: TADOConnection
& ! & ! & ! & nbsp sbrStatusBar: TStatusBar
& ! & ! & ! & nbsp popRefresh: TPopupMenu
& ! & ! & ! & nbsp mitRefresh: TMenuItem
& ! & ! & ! & nbsp DlgSaveDialog: TSaveDialog
& ! & ! & ! & nbsp ADOQuery1: TADOQuery
& ! & ! & ! & nbsp procedure FormCreate(Sender: TObject)
& ! & ! & ! & nbsp procedure lbxDataSourcesClick(Sender: TObject)
& ! & ! & ! & nbsp procedure bitSaveQueryClick(Sender: TObject)
& ! & ! & ! & nbsp procedure lbxTablesClick(Sender: TObject)
& ! & ! & ! & nbsp procedure bitExecuteClick(Sender: TObject)
& ! & ! & ! & nbsp procedure FormDestroy(Sender: TObject)
& nbsp & nbsp prive
& ! & ! & ! & nbsp fonction ODBCPath : String
& ! & ! & ! & nbsp { Private declarations }
& nbsp & nbsp public
& ! & ! & ! & nbsp { declarations Publiques }
& nbsp & nbsp fin
var
& nbsp & nbsp frmADODemo: TfrmADODemo
& nbsp & nbsp DSNSelectedIndex : Integer
application
utilise ULogin
{$R *.dfm}
procedure TfrmADODemo.FormCreate(Sender: TObject)
//Chargement des noms de source de Donnees
var
& nbsp & nbsp Sources de donnees : TStringList
& nbsp & nbsp ODBCIniFile : TIniFile
begin
& nbsp & nbsp DSNSelectedIndex := 0
& nbsp & nbsp Sources de donnees := TStringList.Creer
& nbsp & nbsp ODBCIniFile := TIniFile.Creer(ODBCPath 'ODBC.INI')
& nbsp & nbsp ODBCIniFile.ReadSection(ODBCDataSources,les Sources de donnees)
& nbsp & nbsp lbxDataSources.Elements.Attribuer(Sources de donnees)
fin
fonction de TfrmADODemo.ODBCPath
//recherche de l'emplacement de ODBC.Fichier INI
var
& nbsp & nbsp OSVersionInfo : TOSVersionInfo
begin
& nbsp & nbsp OSVersionInfo.dwOSVersionInfoSize := SizeOf(OSVersionInfo)
& nbsp & nbsp si GetVersionEx(OSVersionInfo)
& nbsp & nbsp commencer
& ! & ! & ! & nbsp si ((OSVersionInfo.dwMajorVersion = 5) ou (OSVersionInfo.dwMajorVersion = 4)) et
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp (OSVersionInfo.dwMinorVersion = 0) et
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp (OSVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT)
& ! & ! & ! & ! & ! & ! & nbsp ODBCPath := WinNTOr2000
& ! & ! & ! & nbsp else if (OSVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT)
& ! & ! & ! & ! & ! & ! & nbsp ODBCPath := WinNTOr2000

& ! & ! & ! & nbsp else if (OSVersionInfo.dwPlatformId = 3) et (OSVersionInfo.dwMinorVersion = 51)
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp et (OSVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT)
& ! & ! & ! & ! & ! & ! & nbsp ODBCPath := WinNTOr2000
& ! & ! & ! & nbsp else
& ! & ! & ! & ! & ! & ! & nbsp ODBCPath := Win95Or98
& nbsp & nbsp fin
fin
procedure TfrmADODemo.lbxDataSourcesClick(Sender: TObject)
begin
& nbsp & nbsp //Si une connexion est ouverte, puis fermez-le premier
& nbsp & nbsp si ADOConnection.Connecte, alors
& ! & ! & ! & nbsp ADOConnection.Fermer
& nbsp & nbsp //Affichage de la Base de donnees de la boîte de Dialogue de Connexion
& nbsp & nbsp frmLogin.edtName.Clair
& nbsp & nbsp frmLogin.edtPassword.Clair
& nbsp & nbsp si frmLogin.ShowModal = mrOk puis
& nbsp & nbsp commencer
& ! & ! & ! & nbsp essayer
& ! & ! & ! & ! & ! & nbsp Ecran.Curseur := crHourGlass
& ! & ! & ! & ! & ! & nbsp ADOConnection.ConnectionString := 'User ID=' frmLogin.edtName.Le texte ' Mot de passe=' frmLogin.edtPassword.Le texte ' Source de Donnees=' lbxDataSources.Les articles[lbxDataSources.ItemIndex]
& ! & ! & ! & ! & ! & nbsp ADOConnection.Connecte := True
& ! & ! & ! & ! & ! & nbsp DSNSelectedIndex := lbxDataSources.ItemIndex
& ! & ! & ! & ! & ! & nbsp lbxTables.Clair
& ! & ! & ! & ! & ! & nbsp lbxProcedures.Clair
& ! & ! & ! & ! & ! & nbsp lbxFields.Clair
& ! & ! & ! & ! & ! & nbsp ADOConnection.GetTableNames(lbxTables.Les elements)
& ! & ! & ! & ! & ! & nbsp ADOConnection.GetProcedureNames(lbxProcedures.Les elements)
& ! & ! & ! & ! & ! & nbsp Ecran.Curseur := crDefault
& ! & ! & ! & nbsp a l'exception de
& ! & ! & ! & ! & ! & nbsp Ecran.Curseur := crDefault
& ! & ! & ! & ! & ! & nbsp lbxTables.Clair
& ! & ! & ! & ! & ! & nbsp lbxProcedures.Clair
& ! & ! & ! & ! & ! & nbsp lbxFields.Clair
& ! & ! & ! & ! & ! & nbsp MessageDlg('Impossible de se Connecter a' lbxDataSources.Les articles[lbxDataSources.ItemIndex],mtInformation,[bakang],0)
& ! & ! & ! & nbsp fin
& nbsp & nbsp fin
& nbsp & nbsp else
& nbsp & nbsp commencer
& ! & ! & ! & nbsp lbxDataSources.Selectionne[DSNSelectedIndex] := True
& nbsp & nbsp fin
fin
procedure TfrmADODemo.bitSaveQueryClick(Sender: TObject)
//Enregistrement de la tape la requete dans un fichier texte
begin
& nbsp & nbsp si DlgSaveDialog.Executer ensuite
& ! & ! & ! & nbsp memQueryText.Les lignes.SaveToFile(DlgSaveDialog.Nom de fichier)
fin
procedure TfrmADODemo.lbxTablesClick(Sender: TObject)
//pour Obtenir les noms des champs en cliquant sur les noms de table
begin
& nbsp & nbsp lbxFields.Clair
& nbsp & nbsp ADOConnection.GetFieldNames(lbxTables.Les articles[lbxTables.ItemIndex],lbxFields.Les elements)
fin
procedure TfrmADODemo.bitExecuteClick(Sender: TObject)
//Execution de la requete
begin
& nbsp & nbsp essayer
& ! & ! & ! & nbsp si (ADOConnection.Connecte) et (Trim(memQueryText.Les lignes.Texte) <> ')
& ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & nbsp ADOQuery1.Connexion := ADOConnection
& ! & ! & ! & ! & ! & nbsp ADOQuery1.SQL.AddStrings(memQueryText.Lignes)
& ! & ! & ! & ! & ! & nbsp ADOQuery1.ExecSQL
& ! & ! & ! & ! & ! & nbsp dbgResultData.Source de donnees.DataSet := ADOQuery1.Source de donnees.DataSet
& ! & ! & ! & nbsp fin
& nbsp & nbsp a l'exception de
& ! & ! & ! & nbsp MessageDlg('Erreur de l'affichage de Donnees',mtInformation,[bakang],0)
& nbsp & nbsp fin
fin
procedure TfrmADODemo.FormDestroy(Sender: TObject)
//Fermeture de la Connexion ADO si il est connecte
begin
& nbsp & nbsp si ADOConnection.Connecte, alors
& ! & ! & ! & nbsp ADOConnection.Fermer
fin
a la fin.
Chaque fois que nous choisissons un Nom de Source de Donnees dans la zone de liste, une connexion de base de donnees boîte de dialogue vous demandant de nous permettre d'entrer le nom d'utilisateur et le mot de passe pour que la DSN et une fois que nous entrez le nom d'utilisateur correct et le mot de passe, nous allons etre enregistre dans et le des tables,des procedures seront repertories.
Unite de Fichier 2: Ulogin.pas
unite de ULogin
interface

& nbsp & nbsp Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
& nbsp & nbsp Dialogues, ExtCtrls, ComCtrls, StdCtrls, Boutons
type
& nbsp & nbsp TfrmLogin = class(TForm)
& ! & ! & ! & nbsp pnlClient: TPanel
& ! & ! & ! & nbsp lblName: TLabel
& ! & ! & ! & nbsp lblPassword: TLabel
& ! & ! & ! & nbsp edtName: TEdit
& ! & ! & ! & nbsp edtPassword: TEdit
& ! & ! & ! & nbsp sbrStatusBar: TStatusBar
& ! & ! & ! & nbsp bitOK: TBitBtn
& ! & ! & ! & nbsp bitClose: TBitBtn
& ! & ! & ! & nbsp procedure FormShow(Sender: TObject)
& nbsp & nbsp prive
& ! & ! & ! & nbsp { Private declarations }
& nbsp & nbsp public
& ! & ! & ! & nbsp { declarations Publiques }
& nbsp & nbsp fin
var
& nbsp & nbsp frmLogin: TfrmLogin
application
{$R *.dfm}
procedure TfrmLogin.FormShow(Sender: TObject)
begin
& nbsp & nbsp edtName.SetFocus
fin
a la fin.
je n'ai pas inclus le .dfm fichiers avec cela, mais j'espere que vous pourrez facilement trouver les composants que j'ai utilise a l'aide de l' .pas fichiers.
Meme si il ya tellement de nombreux generateurs de requetes disponibles, j'ai juste voulu essayer avec ADO composants de Delphi et va etendre en ajoutant plus de fonctionnalites. Je suis tres heureux d'accueillir vos idees sur ce point.
Merci.
Magesh.