Lié 2 selections à une impressionRésolu

Question

Bonjour à tous et merci d'accorder de l'importance à ma demande ,

Je suis debutant dans delphi 2006 et j'essai de faire un programme pour ma propre utilisation mais je bloque sur un problème j'ai déja suivi pas mal de tutos pour developper ma formation mais aucune ne parle de celle ci . 

Je souhaiterais qu'à partir d'une liste -> je choisis 2 séléctions différentes et que ces 2 selections soient imprimables d'une manière très précises . Je m'explique : 

Vous prenez 1 tables dans laquelles on tire 2 noms du type : Paul et Luc .  Ces 2 informations finalement prises j'aimerais qu'elles soient imprimables sur une feuille au centre écrit en gros ' Paul / Luc ' . 

J'espère avoir été explicite dans mon explication . Si quelqu'un peux m'aider à résoudre mon problème , je le remercie d'avance .

Bonne journée à tous et à toutes .

cs_cantador · Accepted Answer

Printer.Orientation := poLandscape;


Voilà un lien qui te donnera d'autres méthodes :
http://alphomega.developpez.com/imprimer/?page=page_3

clic sur réponse acceptée si le tout te convient.

cantador

cs_cantador · Answer

bonsoir, 
A mon avis, tu n'as bien formulé ta question car pour l'instant on ne retient
que tu connais déjà l'information que tu recheches...
Ce n'est donc pas l'impression au centre d'une feuille qui pose problème.

cantador

Flash11 · Answer

Tout simplement sur mon application je ne sais pas créé le bouton + codes qui s'en suit permetant d'imprimer mes 2 selections =) 

Je ne sais tout simplement pas imprimer mes selection donc bouton + codes permettant de les imprimer au milieu d'une feuille de papier =) 

Merci à toi =)

cs_cantador · Answer

Quels sont les composants dans lesquels tu sélectionnes les informations ?

cantador

Flash11 · Answer

Nous allons dire dans 2 TComboBox =)

cs_cantador · Answer

uses printers;
--- 
procedure Impression;
var
ResX, ResY : integer;
begin
   ResX := GetSystemMetrics(SM_CXSCREEN);
   ResY := GetSystemMetrics(SM_CYSCREEN);
    Printer.Orientation := poPortrait;
    with Printer do
    begin
      BeginDoc;
      Canvas.font.Size := 50;
      Canvas.TextOut(ResX div 2, ResY div 2, ComboBox1.Text + '  /  ' + ComboBox2.Text);
      EndDoc;
    end;
end;

A toi d'ajuster div 2 et la taille de la fonte en fonction de tes souhaits.

cantador

Flash11 · Answer

J'ai essayer d'integrer le code mais la je m'y perd un peu ou faut t'il que l'applique ce code ci ?

cs_cantador · Answer

Voilà tatout :

unit Unit1;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Printers;


type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
    procedure Imprimer;
  public
    { Déclarations publiques }
  end;


var
  Form1: TForm1;
  ResX, ResY: integer;
implementation


{$R *.dfm}


procedure GetScreenResolution;
begin
  ResX := GetSystemMetrics(SM_CXSCREEN);
  ResY := GetSystemMetrics(SM_CYSCREEN);
end;


procedure TForm1.Imprimer;
var
  ResX, ResY: integer;
  Conca: string;
begin
  Conca := '';
  ResX := GetSystemMetrics(SM_CXSCREEN);
  ResY := GetSystemMetrics(SM_CYSCREEN);
  Printer.Orientation := poPortrait;
  with Printer do
  begin
    BeginDoc;
    Canvas.font.Size := 50;
    Conca := ComboBox1.Text + '  /  ' + ComboBox2.Text;
    Canvas.TextOut((ResX div 2) - (length(Conca) - 2), ResY div 2, Conca);
    EndDoc;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Imprimer;
end;


initialization
  GetScreenResolution;
end.

Tu n'a plus que la fonte à ajuster.

cantador

Flash11 · Answer

Salut et déja merci pour toute l'attention que tu me portes j'ai insérer ton code que tu m'as fraichement fait et je te remercie mais une fois rentré j'execute je clique sur le bouton et rien ne se produit est ce normal ? 

Encore merci à toi

cs_cantador · Answer

Le clic envoie directement une impression sur ton imprimante par défaut (allumée..)
il y une petite erreur dans le TextOut c'est pas -2 mais div 2.

Chez moi ca marche mais il doit y avoir encore une boulette car le texte n'est pas centré?


Mais il suffit de faire varier X et Y dans Canvas.TextOut(X,Y,Conca) pour trouver la bonne carburation !

cantador

Flash11 · Answer

Merci beaucoup ca marche quelque application si je veux mettre en portrait ce texte , centré et combobox1 et 2 sur 2 lignes différentes ? 

Désolé je suis chiant ^^ Je suis nouveau et j'apprécie beaucoup ton aide cantador merci beaucoup =)

cs_cantador · Answer

portrait c'est déjà fait:
Printer.Orientation := poPortrait;

centré ->> faire bouger X et Y (ex : résolution 1024/768)

combo sur 2 lignes->>> utilises 2 Canvas.TextOut

canvas.textout(X, Y,ComboBox1.Text);
canvas.textout(X, Y,ComboBox2.Text);

Une fois le premier calé, tu trouveras facilement le 2E !

cantador

Flash11 · Answer

J'ai imprimé une page et le texte est en portrait exact mais je me suis trompé je voulais dire paysage merci pour les autres indications ce sera ma dernière question merci encore à toi =)

cs_cantador · Answer

avec Printers, mieux :
utiliser les proprités PageWidth et PageHeight qui donnent directement la largeur et la hauteur en PIXELS de la page à imprimer.

cantador

Flash11 · Answer

Dans le cas ou il faut que je mette sur 2 lignes certes j'utilise 2 canvas mais avec un Conca juste avant je doute que ca passe :s 

Je viens d'essayer d'insérer ton code : 

canvas.textout(X, Y,ComboBox1.Text);
canvas.textout(X, Y,ComboBox2.Text);

mais il n'accepte pas ton X et Y

cs_cantador · Answer

ah ben oui, il faut virer le conca si tu écris sur deux lignes..
et les X et Y, il faut les adapter..


Je n'ai pas tout fait, je t'en ai laissé un peu !
faut bien que tu bosses un peu !

sers toi des propriétés PageWidth et PageHeight.

cantador

cs_cantador · Answer

X := PageWidth div 2;
Y := PageHeight div 2;

cantador

Flash11 · Answer

A chaque test que je fais il ne m'imprime qu'un seul des 2 combo box je refais des test mais étonnant :s 

Flash

Flash11 · Answer

X := PageWidth div 2;
Y := PageHeight div 2;

Je dois l'insérer dans les balises précedentes du type :

canvas.textout(X := PageWidth div 2;, Y := PageHeight div 2;,ComboBox1.Text);

??? car mettre un point virgule au beau milieu d'une parenthèse ^^

Flash11 · Answer

J'ai trouvé !

Canvas.textout(PageWidth div 2, PageHeight div 2,ComboBox1.Text);
 Canvas.textout(PageWidth div 4, PageHeight div 4,ComboBox2.Text);

maintenant je test ;p

cs_cantador · Answer

ça sent bon !

cantador

Flash11 · Answer

Premier inconvenient passé je me demande maintenant si il serait possible que j'écrive avec une police différente ceci je m'explique : j'ai ma feuille avec lesquel j'ai mes 2 prénoms en milieu de page espacé les uns des autres du type :

                                                Truc

                                               Muche

J'aimerais maintenant que il y ai exactement les mêmes inscriptions avec un texte entre du genre 

                                              Truc

                                  12 havre du marécher paris 92000

                                               Muche
                  
14 orleans tour bidule truc

 
J'explique mieux dans ma barre ComboBox1 j'ai choisi    Truc  
<
12 havre du marécher paris 92000>
donc Truc est imprimé en gros et ce qui est entre crocher est imprimé en dessous en plus petit j'aimerais savoir si c'est possible ? Je te remercie encore une fois =)

cs_cantador · Answer

Oui, je pense :

Canvas.Font.Size := 36;
Canvas.textout(PageWidth div 2, PageHeight div 2,ComboBox1.Text);

Canvas.Font.Size := 12;
Canvas.textout(PageWidth div 4, PageHeight div 4,ComboBox2.Text);

etc etc..
a toi d'adapter

cantador

Flash11 · Answer

Non je veux dire du style je met une ligne dans ma ComboBox1 appelé : Boy < 3 rue blablabla du champ > J'aimerais que ca imprime : Boy < 3 rue blablabla du champ >

cs_cantador · Answer

Boy
 < 3 rue blablabla du champ >

Il te faut introduire un autre Canvas.textOut pour l'adresse.

Attention, si ça se complique tu peux aussi créer un état de sortie avec
QuickReport ou RaveReport.

cantador

Flash11 · Answer

Salut cantador =) 

Que font quick et ravereport ? 

Sinon oui je peux faire un autre Canvas pour l'adresse.

cs_cantador · Answer

Oui si c'est simple tu peux faire un autre canvas..
Mais si tu te lances dans une composition avec des formes des images, des bordures, des couleurs etc etc..
alors, il vaut mieux faire un état :

Voilà deux liens mais il y en a d'autres:
http://delphipage.free.fr/ravereport.html
http://nono40.developpez.com/tutoriel/delphi/quickreport/

il faut beaucoup lire et faire de nomnbreux tests.
..et ensuite faire son choix.

cantador

Flash11 · Answer

Je test ca ce soir je te dis ce que ca donne dans la soirée merci encore a toi =)

Flasheur

Flash11 · Answer

Bonjour cela fait très longtemps que je ne suis pas revenu car j'avais beaucoup de choses à faire. Pourrais tu me renseigner sur une dernière chose ? 
J'ai créé avec rave report tout une présentation ... le problème c'est que j'ai suivi un tutorial qui dit à un moment : "Nous allons imprimer le contenu de CUSTOMER.DB, qui est une Table Paradox fournie dans la base DBDEMOS avec Delphi", j'ai en fait utilisé une base de données de démo pour tester et maintenant j'aimerais créé la mienne comment faire ? Je recherche des informations un peu partout mais ca parait très complexe .

Merci de m'aider , bonne soirée :)

cs_cantador · Answer

bonsoir,

Tu peux créer très simplement une table .db avec le module de  base de données (Dbd32.exe) avec des champs de différents type etc.

cantador

Flash11 · Answer

Salut =)

Vraiment incroyable je reviens depuis si longtemps et tu me répond presque instantanément avec la meilleur des réponses :p je recherchais ce module toute la soirée :p il ma suffit de faire une recherche sur disque de Dbd32.exe 
Merci t'assures je te dis ce que ca donne :)

cs_cantador · Answer

Ici, c'est magique !

cantador

Flash11 · Answer

Alors ca avance ca avance j'ai créé ma base de données tout ca tout ca
je sais comment imprimer désormais mais ce que j'aimerais faire c'est
pouvoir sélectionner 2 ligne de ma base de données et ensuite les envoyer vers une impression .

Je m'exprime plus clairement j'ai une base de données qui fait :    NOM / ADRESSE / VILLE , celle ci est rempli de données. J'aimerais grâce à Delphi séléctionner 2 lignes ou 3 pour les envoyer vers une impression je vous remercie d'avance je m'approche du but :)

Flash11 · Answer

Je vais m'expliquer plus clairement via une image :

http://img9.imageshack.us/my.php?image=test5jw3.png

Comme vous pouvez l'observer j'ai 2 tableaux un tableau plein de données en haut et un tableau vide en bas j'aimerais pouvoir faire glisser 3 selections du tableau d'en haut vers le tableau du bas pour ensuite imprimer via RaveReport les données du tableau 2 mais ca n'est pas le problème. Il faut que j'arrive à faire glisser 3 lignes de ma table vers le tableau du bas . 

(Le module des flèches entre les 2 tableaux est juste la pour vous faire comprendre mon problème) 

Merci à tous

cs_cantador · Answer

plusieurs solutions sont possibles :

soit tu sélectionnes les lignes dans le premier et tu imprimes uniquement celles sélectionnées

soit tu mets en place un DragAndDrop entre le 1er et le 2e dans une table Temporaire (qu'il faudra vider..)
et ensuire tu immrimes la table Tempo

cantador

Flash11 · Answer

J'aimerais utilisé le DragAndDrop mais quel module ou code utiliser ?

Merci encore cantador.

Flash11 · Answer

J'ai réussi pour le drag je te dis ce que tout ca donne dans 1 h :)

Flash11 · Answer

Bon je suis rebloqué tu m'as dit d'utiliser le DragAndDrop j'ai cherché 4h une manière de drag une ligne d'une table de données rempli sur une table de données vide :

TDBGrid1(rempli avec une base données) --> TDBGrid2(base de données vide))

Si tu as un code ou un tutorial je t''en serais reconnaissant :)

Merci

cs_cantador · Answer

Voilà un début mais qui mérite encore d'être amélioré :

unit Unit1;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, DBTables, Grids, DBGrids;


type
  TForm1 = class(TForm)
    Query1: TQuery;
    DataSource1: TDataSource;
    Query2: TQuery;
    DBGrid2: TDBGrid;
    DataSource2: TDataSource;
    Query2Name: TStringField;
    Query2Capital: TStringField;
    Query2Continent: TStringField;
    Query2Area: TFloatField;
    Query2Population: TFloatField;
    DBGrid1: TDBGrid;
    procedure DBGrid2DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid2StartDrag(Sender: TObject;
      var DragObject: TDragObject);
    procedure DBGrid2DragDrop(Sender, Source: TObject; X, Y: Integer);
//    procedure DBGrid2DragDrop(Sender, Source: TObject; X, Y: Integer);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;


var
  Form1: TForm1;
  DragRecords: array of variant;
  ASource, DestSource: TDataSource;
implementation


{$R *.dfm}




procedure TForm1.DBGrid2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := (Source is TDBGrid) and (TDBgrid(sender).DataSource <> nil);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  Query1.Open;
  Query2.Open;
end;


procedure TForm1.DBGrid2StartDrag(Sender: TObject;
  var DragObject: TDragObject);
var
  I: Integer;
begin
  ASource := TDBGrid(sender).DataSource;
  SetLength(DragRecords, TDBGrid(sender).FieldCount);
  for I := 0 to TDBGrid(sender).FieldCount - 1 do
    DragRecords[I] := TDBGrid(sender).Fields[i].Value;
end;


procedure TForm1.DBGrid2DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  I: integer;
begin
  DestSource := TDBGrid(sender).DataSource;
  if ASource = DestSource then exit;
  try
    TDBGrid(sender).ReadOnly := false;
    TDBGrid(sender).DataSource.DataSet.Insert;
    for I := 0 to TDBGrid(sender).FieldCount - 1 do
      TDBGrid(sender).Fields[I].Value := DragRecords[I];
    TDBGrid(sender).DataSource.DataSet.Post;
  finally
    TDBGrid(sender).ReadOnly := true;
    TDBGrid(sender).DragMode := dmManual;
  end;
end;


end.

cantador

Flash11 · Answer

J'ai réutilisé ton code mais 2 problèmes s'offrent à moi :

je n'utilise pas de TQuery mais des TTable

J'ai tout de même essayer de remanier le code mais le drag ne se réalise toujours pas ? 
Dans ton code tu n'aurais pas oublié le cellclick sur le 1st dbgrid ?

Amicalement , Flash

cs_cantador · Answer

Je te conseille d'utiliser les TQuery au lieu des TTable.
Le clic est inutile puisque le startdrag se déclenche mais il y a peut-être encore des choses à revoir..

cantador

Flash11 · Answer

Je n'ai jamais utilisé les TQuery et il n'y a pas l'air d'avoir la possibilité d'appeler une Table dans celui ci :s
Je test ca ce soir

cs_cantador · Answer

Il n'y a pas l'air d'avoir la possibilité d'appeler une Table dans celui ci


propriété SQL : 

select * from MaTable

cantador

cs_cantador · Answer

N'oublie pas de mettre les propriétés 
dradmode à dmAutomatic..

cantador

Flash11 · Answer

Le drag s'active j'avais oublié le dmAutomatic mais ne va pas dans la 2ème table :s

cs_cantador · Answer

chez moi ça marche..
n'oublie pas non plus le requestlive à true dans le query2.

cantador

Flash11 · Answer

En fait je m'y perd la je crois que dans ton code que tu m'as fourni tu as appelé TDBGrid2 le grid qui a la base de données rempli ?

Pourait tu me ziper le projet delphi que tu as fait pour avoir ce code ? Merci beaucoup à toi

cs_cantador · Answer

c'est très simple, il suffit de sélectionner 
DatabaseName : DBDEMOS
pour le grid1, j'ai chois la table contry (select * from country)
et pour le grid2, j'ai dupliqué la même table (pour avoir les mêmes champs bien sûr..) et créer country2.

cantador

Flash11 · Answer

Quand j'ouvre mon TQuery pour recopier les champs de ma table il me trouve donc bien les 3 colonnes et me créé donc 3 TStringField . Je n'arrive pas à glisser ceux ci dans mon tableau TDBGrid merci cantador encore :)

cs_cantador · Answer

Je n'arrive pas à glisser ceux ci dans mon tableau TDBGrid


il faut brancher le grid sur le datasource et activer la table.

cantador

cs_cantador · Answer

ah oui, il y a un souci  avec le drag and drop, ça marche mais uniquement avec le premier enregistrement..
J'ai pas trouvé le moyen de pouvoir le choisir..


Il existe une méthode ancienne mais elle ne fonctionne pas bien non plus :



http://www.delphi3000.com/articles/article_2077.asp?SK



En revanche avec le TcxGrid, ma méthode fonctionne..

cantador

cs_cantador · Answer

ah ? un truc qui semble marcher :


Tu repasses le dragmode en manual et


lances le start par :



PROCEDURE TForm1.DBGrid1CellClick(Column: TColumn);
BEGIN
  DBGrid1.BeginDrag(true);
END;

Moins pratique mais pour l'instant ça à l'air de gazer car là tu peux choisir ton enregistrement :
tu cliques tu relaches la souris et tu drag and drop..

cantador

Flash11 · Answer

Avant de m'interesser au drop j'essaye de config mon tquery ^^ :p 

Je te jure qu'il commence a m'enerver :p   

Mon TDBGrid est placé , son datasource pointe sur datasource1.
Le Datasource1 est rempli de la sorte  : http://img5.imageshack.us/my.php?image=dbgridfh9.png
Enfin mon TQuery est configuré de la sorte : http://img25.imageshack.us/my.php?image=tqueryaf7.png
avec comme code SQL : "SELECT * FROM tb1.db"

Alors ou est l'erreur ?

cs_cantador · Answer

hé hé..
il te manque le dataset dans le datasource !
et en plus, il est bizarre ton datasource, il a deux datasets 
(avec deux liaisons différentes néanmoins)

Quelle version de delphi utilises-tu ?

cantador

Flash11 · Answer

Salut et toujours et encore merci j'utilise la version Borland Developper Studio 2006 de Delphi :)

Oui mais je fais pointer quoi à mon dataset ? il ne me propose que mon Query2 qui n'a en l'occurance rien à voir avec le Query1 sachant que pour le moment je voudrais déja faire marcher mon TDBGrid 1. Si je fais pointer dataset sur Query1 il me dis que je créé une boucle :s 

Merci à toi ;)

cs_cantador · Answer

de rien..
en tout cas sur l'image transmise il manque un dataset 
lequel ?
sinon, c'est clair ça ne peut pas fonctionner..
il en faut un absolument !
teste les deux

cantador

Flash11 · Answer

Salut cantador :s

Oui mais tester les deux quoi ? normalement quesque je devrais pouvoir selectionner dans le dataset pour que cela fonctionne ?

Flash11 · Answer

Alors j'ai très fortement avancé tout d'un coup !

Mes 2 tquery marche mes 2 tableaux sont alors créé l'un plein l'autre vide .

Le drag marche mais la une erreur intervient ( dommage on y était presque :'( ) :

Query2 : Impossible de modifier un ensemble de données en lecture seule .

Merci de m'aider à comprendre ^^ :p 

Flash ;p

Flash11 · Answer

J'ai lu sur un de test post que pour ne pas avoir ce message il falait utiliser le composant IBUpdateSQL1  mais je ne sais pas quoi mettre en code SQL. 

Ma table pleine est tb1.db et ma table vide est blanco.db . Merci à toi

cs_cantador · Answer

on avance on avance..

l'un plein l'autre vide .
pas normal, l'autre soit le sql n'est pas bon, soit la table n'est pas ouverte.
pas besoin du TUpdateSQL pour l'instant..
RequestLive à true sur le Query2, et
dbRowSelect à true pour le Grid1.

cantador

Flash11 · Answer

Non non tu ne me comprends pas tu sais que nous avons 2 dbgrid qui a une base de données rempli soit le TDBGrid1 et un autre grid qui a une base de données identique mais vide permettant ainsi de glisser une selection du premier dans celle du 2ème .

J'ai mis RequestLive à true sur le query2 et j'ai trouvé dgRowSelect pour le Grid1 que j'ai mis aussi a true mais il m'affiche désormais une erreur au drag : 

Violation d'accès à l'adresse 004175C5 dans le module 'Project1.exe'.Lecture de l'adresse 000000000.

Merci de m'aider :)

cs_cantador · Answer

un autre grid qui a une base de données identique mais vide

Attention au vocabulaire, ce n'est pas la base qui est vide mais la TABLE..

Pour que cela fonctionne, il faut la même base et deux tables possédant 
la même structure.., peu importe si la table2 est vide ou pas.

L'auto-incrémention de la table2 fait que le programme se débrouille avec le compteur !
Il ne faut surtout pas s'en occuper :

Voilà ce que ça donne, dans le grid2, j'ai passé Argentina et Canada et 
ça marche !

cantador

Flash11 · Answer

J'ai essayé de tout bien reprendre mais il me confronte toujours a une 'Violation d'accès' ... 
je comprend pas :s

Flash11 · Answer

Je te renvoie mon code : 

unit projetgarde;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, RpDefine, RpRave,
  RpCon, RpConDS, StdCtrls, Menus, Mask, IBCustomDataSet, IBUpdateSQL;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label4: TLabel;
    DBGrid2: TDBGrid;
    Query1: TQuery;
    Query2: TQuery;
    DataSource2: TDataSource;
    Query1Nom: TStringField;
    Query1Adressedelapharmacie: TStringField;
    Query1Ville: TStringField;
    Query2Nom: TStringField;
    Query2Adressedelapharmacie: TStringField;
    Query2Ville: TStringField;
    procedure DBGrid2DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure DBGrid2StartDrag(Sender: TObject; var DragObject: TDragObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid2DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure DBGrid1CellClick(Column: TColumn);

  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;
  DragRecords: array of variant;
  ASource, DestSource: TDataSource;

implementation

{$R *.dfm}

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
DBGrid1.BeginDrag(true);
end;

procedure TForm1.DBGrid2DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  I: integer;
begin
  DestSource := TDBGrid(sender).DataSource;
  if ASource = DestSource then exit;
  try
    TDBGrid(sender).ReadOnly := false;
    TDBGrid(sender).DataSource.DataSet.Insert;
    for I := 0 to TDBGrid(sender).FieldCount - 1 do
      TDBGrid(sender).Fields[I].Value := DragRecords[I];
    TDBGrid(sender).DataSource.DataSet.Post;
  finally
    TDBGrid(sender).ReadOnly := true;
    TDBGrid(sender).DragMode := dmManual;
  end;
end;

procedure TForm1.DBGrid2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := (Source is TDBGrid) and (TDBgrid(sender).DataSource <> nil);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Query1.Open;
  Query2.Open;
end;

procedure TForm1.DBGrid2StartDrag(Sender: TObject;
  var DragObject: TDragObject);
var
  I: Integer;
begin
  ASource := TDBGrid(sender).DataSource;
  SetLength(DragRecords, TDBGrid(sender).FieldCount);
  for I := 0 to TDBGrid(sender).FieldCount - 1 do
    DragRecords[I] := TDBGrid(sender).Fields[i].Value;
end;

end.

Merci encore à toi

Flash11 · Answer

Dans une compilation pas à pas il bug après la ligne rouge :

  finally
    TDBGrid(sender).ReadOnly := true;
    TDBGrid(sender).DragMode := dmManual;

cs_cantador · Answer

Dans cet exercice, les deux grids sont en DragMode : dmManual

Si l'erreur persiste cela veut dire que les composants réagissent différemment sous Delphi2006.

cantador

Flash11 · Answer

La question c'est comment réglé le problème :p ?

Flash11 · Answer

Tu pourais m'envoyer ton code pour que je vois si il marche avec moi ?

cs_cantador · Answer

Donne moi par MP une adresse Email.

cantador

Flash11 · Answer

Très bien j'ai comparé les 2 projets et tu vas être très étonné du résultat. Tout est exactement identique j'avais juste appelé activé Tquery -Divers active mais la je l'ai désactiver.

Donc voila le problème après constatation : 

Tu as créé des ajouter les colonnes a ton DBGrid1 en faisant ajouter tous les champs ... 
Le problème c'est que lorsque tu as fait ça , tu charges le programme et ta table est directement chargé dans le DBGrid contrairement à moi. Par contre j'ai essayé de changer ta table country par ma table tb1 et j'ai rechangé les champs du tquery ainsi que celle de ton DBGRid1 et comme par magie c'est ma table qui s'affiche et le programme marche nikel ...

Alors faut m'expliquer ? Je fais exactement la même chose que toi sauf que ma table tb1 ne s'affiche pas dans mon DBGrid.

Merci à toi

cs_cantador · Answer

oui, mais la table country2 que je t'ai passée n'est pas dans DBDEMOS
il faut la mettre..et les autres aussi


ou alors il faut créer un autre alia..

cantador

Flash11 · Answer

Salut Cantador désolé pour mon très très très long temps de réponse en réalité j'ai désormais fini le projet la fin s'est très bien déroulé et j'ai une superbe page :)

Phase finale :

Je voudrais créé quelque chose qui pourait installer le logiciel sur un autre pc . Le problème c'est que lorsque le programme se lance il charge DBDEMOS et il va aussi chercher des table tb1 et blanco dans des fichiers bien précis de Delphi .

Comment puis-je faire et quel logiciel utiliser pour créé une archive qui permettrait d'installer ce logiciel sur un autre ordinateur?

Merci à toi , mon projet touche à sa fin grace à toi :)

cs_cantador · Answer

Il te faudra installer le BDE sur les autres postes..


Jette un eil sur ces liens qui vont t'aider dans ta démarche :



http://delphipage.free.fr/deployerbde.html


http://delphi.developpez.com/faq/index.php?rechercher=bde


bien content que ton projet touche à sa fin..

cantador

Flash11 · Answer

Merci de ta réponse , ou trouver InstallShield version Delphi sur le pc ? Dans quel dossier car je ne suis pas sur de l'avoir :s

cs_cantador · Answer

InstallShieldExpress est fourni avec le CD delphi 7
Sinon, je ne sais plus..car il y a bien longtemps que j'ai abandonné
DBE + machin !

Cherche sur google

cantador

Flash11 · Answer

J'ai installer l'installshield qui était livré avec le cd de delphi 6 mais malheuresement ce n'est pas du tout la meme interface que sur le tutorial et je me suis cassé la tête à essayer de comprendre comment installer cette satané DBE et j'ai pas trouvé . J'ai cherché avec installshield 11 et installshield express v4 et je trouve pas -_-

Si tu as une solution a me proposer , je prend !

Flash :)

cs_cantador · Answer

Oui, c'est vrai que ce n'est pas évident...
Tu peux aussi trouver l'installation directe du BDE avec un exécutable

cantador

Flash11 · Answer

Quel executable ?

cs_cantador · Answer

à télécharger...

cantador

Lié 2 selections à une impression

79 réponses

Votre réponse

Discussions similaires