RetourForum Delphi
Nouveau compte - Se connecter - Perdu votre mot de passe?Recherche: Utilisateur - Message

Index > Forum général > Base de données : ajout modificationNouveau post - Répondre
Dudu31
membre
13 messages
Message Base de données : ajout modification message: éditerle 13/01/16 à 16h12

Bonjour,
J'ai une base de données avec plusieurs tables qui fonctionnent pour afficher du texte et des images *.bmp monochrome et *.jpeg (RVB).
Pour choisir l'identité de l'objet à rechercher, j'utilise un DBLookupListBox ou un DBEdit où j'écris le nom de l'objet. A l'exécution, le DBLookupListBox se déClin d'oeil langue lace tout seul où l'élément recherché se positionne en milieu vertical de sa fenêtre.
Je voudrais donc ouvrir une nouvelle fiche d'un format plus petit que l'application principale de façon  à pouvoir modifier (corriger) une erreur d'écriture, d'autre part ajouter un nouvel élément.
Comment faut-il s'y prendre?
Faut-il opérer directement sur les Tedit existants.
Faut-il ajouter un DBnavigator et le rendre visible pour ces opérations?
Merci pour vos suggestions.
Comment joindre une copie d'écran dans ce message?
Dudu31

Dudu31
membre
13 messages
Message Re: Base de données : ajout modification message: éditerle 25/10/16 à 00h17

Affaire résolue : j'ai fini par créer une fiche contenant autant de DBNavigator qu'il y avait de table avec un ajout d'un bouton permettant par une procédure "OnClick.." l'autorisation de son accès, et d'effectuer soit un ajout, soit une modification mais aussi en neutralisant l'accès de toutes les autres. Sur l'écran principal de l'application, la recherche s'effectue soit par un Tedit ou soit par un DBLookUpListBox (scroll vertical ou sélection d'un nom dans la liste déroulante). Il s'ensuit que tous les dbnagigators se positionnent tous sur la même sélection.
Ci-après, le code source ajout_modif:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DBCtrls, Mask, ExtCtrls, Unit1, Grids, DBGrids;

type
  TForm2 = class(TForm)
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    DBGrid3: TDBGrid;
    Button3: TButton;
    Label1: TLabel;
    StaticText1: TStaticText;
    Label2: TLabel;
    DBGrid4: TDBGrid;
    Button4: TButton;
    DBGrid5: TDBGrid;
    Button5: TButton;
    DBGrid6: TDBGrid;
    Button6: TButton;
    DBGrid7: TDBGrid;
    Button7: TButton;
    DBGrid8: TDBGrid;
    Button8: TButton;
    Button9: TButton;
    DBGrid9: TDBGrid;
    Image1: TImage;
    DBText1: TDBText;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);

  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form2: TForm2;

implementation

{$R *.DFM}



procedure TForm2.Button1Click(Sender: TObject);
//Table1 = TableInit;
begin
  DBNavigator1.DataSource := Form1.DataSource1;
  Label2.Caption := 'Table1';
 
  With Form1 do begin
  Table1.Active := true;
  Table2.Active := false;
  Table3.Active := false;
  Table4.Active := false;
  Table5.Active := false;
  Table6.Active := false;
  Table7.Active := false;
  Table8.Active := false;
  Table9.Active := false;
  Table10.Active := false;
  end;
end;

procedure TForm2.Button2Click(Sender: TObject);
//TableBase=Table2
begin
  DBNavigator1.DataSource := Form1.Datasource2;
  Label2.Caption := 'Table2';
  With Form1 do
  begin
  Table2.Active := true;
  Table1.Active := false;
  Table3.Active := false;
  Table4.Active := false;
  Table5.Active := false;
  Table6.Active := false;
  Table7.Active := false;
  Table8.Active := false;
  Table9.Active := false;
  Table10.Active := false;
  end;
end;

procedure TForm2.Button3Click(Sender: TObject);
//Table3 = TableCode
begin
  DBNavigator1.DataSource := Form1.Datasource3;
  Label2.Caption := 'Table3';
  With Form1 do
    begin
      Table3.Active := true;
      Table1.Active := false;
      Table2.Active := false;
      Table4.Active := false;
      Table5.Active := false;
      Table6.Active := false;
      Table7.Active := false;
      Table8.Active := false;
      Table9.Active := false;
      Table10.Active := false;
    end;
end;

procedure TForm2.Button4Click(Sender: TObject);
// Table4..Diag
var Image1 : TBitmap;
begin

  DBNavigator1.DataSource := Form1.Datasource4;
  Label2.Caption := 'Table4';
  With Form1 do
  begin
    Table1.Active := false;
    Table2.Active := false;
    Table4.Active := True;
    Table3.Active := false;
    Table5.Active := false;
    Table6.Active := false;
    Table7.Active := false;
    Table8.Active := false;
    Table9.Active := false;
    Table10.Active := false;
  end;
  // affichage image diag form1
  Image1 := TBitmap.Create;
    Try
      Image1.Assign(Form1.Image2.Picture.Graphic);
      Image1.Dormant;
      Image1.FreeImage;
      Canvas.Draw(1050,150,Image1);
      Image1.Monochrome := true;
      Canvas.Draw(1050,150,Image1);
      Image1.ReleaseHandle;
    Finally
      Image1.Free;
    end;
end;
procedure TForm2.Button5Click(Sender: TObject);
//Table5 = TableDoc
begin
  DBNavigator1.DataSource := Form1.Datasource5;
  Label2.Caption := 'Table5';
  With Form1 do
  begin
  Table5.Active := True;
  Table1.Active := false;
  Table2.Active := false;
  Table3.Active := false;
  Table4.Active := false;
  Table6.Active := false;
  Table7.Active := false;
  Table8.Active := false;
  Table9.Active := false;
  Table10.Active := false;
  end;
end;
procedure TForm2.Button6Click(Sender: TObject);
//Table7 = TablePhoto
begin
  DBNavigator1.DataSource := Form1.Datasource7;
  Label2.Caption := 'Table7';
  With Form1 do
  begin
    Table7.Active := true;
    Table1.Active := false;
    Table2.Active := false;
    Table3.Active := false;
    Table4.Active := false;
    Table5.Active := false;
    Table6.Active := false;
    Table8.Active := false;
    Table9.Active := false;
    Table10.Active := false;
  end;
end;

procedure TForm2.Button7Click(Sender: TObject);
//Table8 = TablePin
var Image1 : TBitMap;
begin
  DBNavigator1.DataSource := Form1.Datasource8;
  Label2.Caption := 'Table8';
  With Form1 do
  begin
    Table1.Active := false;
    Table2.Active := false;
    Table3.Active := false;
    Table4.Active := false;
    Table5.Active := false;
    Table6.Active := false;
    Table7.Active := false;
    Table8.Active := true;
    Table9.Active := false;
    Table10.Active := false;
  end;
  Image1 := TBitmap.Create;
    Try
      Image1.Assign(Form1.Image2.Picture.Graphic);
      Image1.Dormant;
      Image1.FreeImage;
      Canvas.Draw(1050,150,Image1);
      Image1.Monochrome := true;
      Canvas.Draw(1050,150,Image1);
      Image1.ReleaseHandle;
    Finally
      Image1.Free;
    end;
end;

procedure TForm2.Button8Click(Sender: TObject);
//Table9 = TableSymb
begin

  DBNavigator1.DataSource := Form1.Datasource9;
  Label2.Caption := 'Table9';
  With Form1 do
  begin
    Table1.Active := false;
    Table2.Active := false;
    Table3.Active := false;
    Table4.Active := false;
    Table5.Active := false;
    Table6.Active := false;
    Table7.Active := false;
    Table8.Active := false;
    Table9.Active := true;
    Table10.Active := false;
  end;
end;

procedure TForm2.Button9Click(Sender: TObject);
//Table10 = TableVolt
begin
  DBNavigator1.DataSource := Form1.Datasource10;
  Label2.Caption := 'Table10';
  With Form1 do
  begin
    Table1.Active := false;
    Table2.Active := false;
    Table3.Active := false;
    Table4.Active := false;
    Table5.Active := false;
    Table6.Active := false;
    Table7.Active := false;
    Table7.Active := false;
    Table9.Active := false;
    Table10.Active := true;
  end;
  end;


end.

Index > Forum général > Base de données : ajout modificationNouveau post - Répondre
 page 1 sur 1