CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2010 02 10 03:29:46

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

GESTIONNAIRE MULTIMEDIA

Information sur la source

Note :
Aucune note

Catégorie :Base de Donnees Niveau :Débutant Date de création :22/05/2002 Date de mise à jour :22/05/2002 18:36:10 Vu / téléchargé :4 521 / 1 482

Auteur : malv

Ecrire un message privé

Commentaire sur cette source (5)

Ajouter un commentaire et/ou une note

Description

Appli permettant de gérer vos CDs, K7 aidio, vidéo, DivX, mp3, DVDs...pas très évolué et assez moche, mais c'étit juste pour apprendre à me servir des bases de données et en faire qqch de (relativement) utile. De même je n'ai pas commenté le code.

Source

unit Main;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Menus, ComCtrls, Db,
DBTables, DBCtrls, Grids, DBGrids, Unit1;
type
TMainForm = class(TForm)
MainMenu: TMainMenu;
FilePrintItem: TMenuItem;
FilePrintSetupItem: TMenuItem;
FileExitItem: TMenuItem;
EditUndoItem: TMenuItem;
EditCutItem: TMenuItem;
EditCopyItem: TMenuItem;
EditPasteItem: TMenuItem;
HelpSearchItem: TMenuItem;
HelpAboutItem: TMenuItem;
StatusLine: TStatusBar;
OpenDialog: TOpenDialog;
SaveDialog: TSaveDialog;
PrintDialog: TPrintDialog;
PrintSetupDialog: TPrinterSetupDialog;
SpeedBar: TPanel; { &Enregistrer }
SpeedButton4: TSpeedButton; { &Imprimer... }
SpeedButton5: TSpeedButton; { &Défaire }
SpeedButton6: TSpeedButton; { &Couper }
SpeedButton7: TSpeedButton; { Co&pier }
SpeedButton8: TSpeedButton; { C&oller }
SpeedButton9: TSpeedButton;
DBGridCD: TDBGrid;
TableCD: TTable;
DataSourceCD: TDataSource;
DBNavigator1: TDBNavigator;
Basededonnes1: TMenuItem;
Label1: TLabel;
FindDialog1: TFindDialog;
Rechercher1: TMenuItem;
N1: TMenuItem;
ButtonCD: TButton;
ButtonLogiciels: TButton;
ButtonK7Video: TButton;
ButtonDivX: TButton;
ButtonLivres: TButton;
ButtonMP3: TButton;
ButtonK7Audio: TButton;
DBGridK7Audio: TDBGrid;
DBGridMP3: TDBGrid;
DBGridLogiciels: TDBGrid;
DBGridLivres: TDBGrid;
DBGridDivX: TDBGrid;
DBGridK7Video: TDBGrid;
TableK7Audio: TTable;
DataSourceK7Audio: TDataSource;
DataSourceLogiciels: TDataSource;
TableLogiciels: TTable;
TableMP3: TTable;
DataSourceMP3: TDataSource;
DataSourceLivres: TDataSource;
TableLivres: TTable;
DataSourceDivX: TDataSource;
TableDivX: TTable;
DataSourceK7Video: TDataSource;
TableK7Video: TTable;
Clear1: TMenuItem; { &Rubriques d'aide }
procedure FormCreate(Sender: TObject);
procedure ShowHint(Sender: TObject);
procedure FileNew(Sender: TObject);
procedure FileOpen(Sender: TObject);
procedure FileSave(Sender: TObject);
procedure FileSaveAs(Sender: TObject);
procedure FilePrint(Sender: TObject);
procedure FilePrintSetup(Sender: TObject);
procedure FileExit(Sender: TObject);
procedure EditUndo(Sender: TObject);
procedure EditCut(Sender: TObject);
procedure EditCopy(Sender: TObject);
procedure EditPaste(Sender: TObject);
procedure WindowTile(Sender: TObject);
procedure WindowCascade(Sender: TObject);
procedure WindowArrange(Sender: TObject);
procedure HelpContents(Sender: TObject);
procedure HelpSearch(Sender: TObject);
procedure HelpHowToUse(Sender: TObject);
procedure HelpAbout(Sender: TObject);
procedure ButtonCDClick(Sender: TObject);
procedure ButtonK7AudioClick(Sender: TObject);
procedure ButtonMP3Click(Sender: TObject);
procedure ButtonLogicielsClick(Sender: TObject);
procedure ButtonLivresClick(Sender: TObject);
procedure ButtonDivXClick(Sender: TObject);
procedure ButtonK7VideoClick(Sender: TObject);
{ procedure CreateSX(TableX: TTable; cFieldname: string);
procedure DeleteSX(TableX: TTable);
procedure DBGrid1TitleClick(Column :TColumn);}
end;
var
MainForm: TMainForm;
implementation
{$R *.DFM}
procedure TMainForm.FormCreate(Sender: TObject);
begin
{CreateSX(table1, 'Nom du Groupe');
CreateSX(table1, 'Titre du CD');
CreateSX(table1, 'Remarques');
CreateSX(table1, 'Gravé ?');}
TableCD.open;
ButtonCD.Enabled := False;
ButtonK7Audio.Enabled := True;
ButtonMP3.Enabled := True;
ButtonLogiciels.Enabled := True;
ButtonLivres.Enabled := True;
ButtonDivX.Enabled := True;
ButtonK7Video.Enabled := True;
DBGridCD.Visible := True;
DBGridK7AUdio.Visible := False;
DBGridMP3.Visible := False;
DBGridLogiciels.Visible := False;
DBGridLivres.Visible := False;
DBGridDivX.Visible := False;
DBGridK7Video.Visible := False;
Application.OnHint := ShowHint;
end;
{Procedure TMainForm.CreateSX(TableX: TTable; cFieldname: string);
begin
with tableX do begin
Active := False;
Exclusive := True;
IndexDefs.Update;
Active := True;
if indexdefs.indexof(cFieldname) = -1 then begin
addindex(cFieldname, cFieldname, []);
end;
Active := False;
exclusive := False;
end;
end;}
{Procedure TMainForm.DeleteSX(TableX: TTable);
var I: Integer;
begin
TableX.Active := False;
TableX.IndexDefs.update;
For i := TableX.IndexDefs.Count - 1 downto 0 do begin
if (tableX.Indexdefs.Items[I].options * [ixPrimary]) <> ([ixPrimary]) then begin
TableX.DeleteIndex(TableX.IndexDefs.Items[I].fields);
end;
end;
end; }
{rocedure TMainForm.DBGrid1TitleClick(Column :TColumn);
var I: Integer;
begin
Table1.IndexDefs.Update;
if Table1.indexdefs.indexof(column.Fieldname) > 0 then begin
Table1.IndexFieldNames := Column.FieldName;
with TDBGrid(Column.Grid) do begin
for I := 0 to columns.Count -1 do begin
if Columns[I] = Column then
Columns[I].Title.Font.Style := Columns[I].Title.Font.Style + [fsBold]
else
Columns[I].Title.Font.Style := Columns[I].Title.Font.Style - [fsBold];
end;
end;
end;
end;}
procedure TMainForm.ShowHint(Sender: TObject);
begin
StatusLine.SimpleText := Application.Hint;
end;
procedure TMainForm.FileNew(Sender: TObject);
begin
{ Ajoute le code pour créer un nouveau fichier }
end;
procedure TMainForm.FileOpen(Sender: TObject);
begin
if OpenDialog.Execute then
begin
{ Ajouter le code pour ouvrir OpenDialog.FileName }
end;
end;
procedure TMainForm.FileSave(Sender: TObject);
begin
{ Ajoute le code pour enregistrer le fichier avec le nom en cours }
end;
procedure TMainForm.FileSaveAs(Sender: TObject);
begin
if SaveDialog.Execute then
begin
{ Ajoute le code pour enregistrer le fichier avec SaveDialog.FileName }
end;
end;
procedure TMainForm.FilePrint(Sender: TObject);
begin
if PrintDialog.Execute then
begin
{ Ajoute le code pour imprimer le fichier en cours }
end;
end;
procedure TMainForm.FilePrintSetup(Sender: TObject);
begin
PrintSetupDialog.Execute;
end;
procedure TMainForm.FileExit(Sender: TObject);
begin
TableCD.Close;
TableK7Audio.Close;
TableMP3.Close;
TableLogiciels.Close;
TableLivres.Close;
TableDivX.Close;
TableK7Video.Close;
{eleteSX(Table1);}
Close;
end;
procedure TMainForm.EditUndo(Sender: TObject);
begin
{ Ajoute le code pour effectuer Edition Défaire }
end;
procedure TMainForm.EditCut(Sender: TObject);
begin
{ Ajoute le code pour effectuer Edition Couper }
end;
procedure TMainForm.EditCopy(Sender: TObject);
begin
{ Ajoute le code pour effectuer Edition Copier }
end;
procedure TMainForm.EditPaste(Sender: TObject);
begin
{ Ajoute le code pour effectuer Edition Coller }
end;
procedure TMainForm.WindowTile(Sender: TObject);
begin
Tile;
end;
procedure TMainForm.WindowCascade(Sender: TObject);
begin
Cascade;
end;
procedure TMainForm.WindowArrange(Sender: TObject);
begin
ArrangeIcons;
end;
procedure TMainForm.HelpContents(Sender: TObject);
begin
Application.HelpCommand(HELP_CONTENTS, 0);
end;
procedure TMainForm.HelpSearch(Sender: TObject);
const
EmptyString: PChar = '';
begin
Application.HelpCommand(HELP_PARTIALKEY, Longint(EmptyString));
end;
procedure TMainForm.HelpHowToUse(Sender: TObject);
begin
Application.HelpCommand(HELP_HELPONHELP, 0);
end;
procedure TMainForm.HelpAbout(Sender: TObject);
begin
Form1.Show;
end;
procedure TMainForm.ButtonCDClick(Sender: TObject);
begin
DBGridCD.Visible := True;
DBGridK7Audio.Visible := False;
DBGridMP3.Visible := False;
DBGridLogiciels.Visible := False;
DBGridLivres.Visible := False;
DBGridDivX.Visible := False;
DBGridK7Video.Visible := False;
ButtonCD.Enabled := False;
ButtonK7Audio.Enabled := True;
ButtonMP3.Enabled := True;
ButtonLogiciels.Enabled := True;
ButtonLivres.Enabled := True;
ButtonDivX.Enabled := True;
ButtonK7Video.Enabled := True;
end;
procedure TMainForm.ButtonK7AudioClick(Sender: TObject);
begin
DBGridCD.Visible := false;
DBGridK7Audio.Visible := true;
DBGridMP3.Visible := False;
DBGridLogiciels.Visible := False;
DBGridLivres.Visible := False;
DBGridDivX.Visible := False;
DBGridK7Video.Visible := False;
ButtonCD.Enabled := true;
ButtonK7Audio.Enabled := false;
ButtonMP3.Enabled := True;
ButtonLogiciels.Enabled := True;
ButtonLivres.Enabled := True;
ButtonDivX.Enabled := True;
ButtonK7Video.Enabled := True;
end;
procedure TMainForm.ButtonMP3Click(Sender: TObject);
begin
DBGridCD.Visible := false;
DBGridK7Audio.Visible := False;
DBGridMP3.Visible := true;
DBGridLogiciels.Visible := False;
DBGridLivres.Visible := False;
DBGridDivX.Visible := False;
DBGridK7Video.Visible := False;
ButtonCD.Enabled := true;
ButtonK7Audio.Enabled := True;
ButtonMP3.Enabled := false;
ButtonLogiciels.Enabled := True;
ButtonLivres.Enabled := True;
ButtonDivX.Enabled := True;
ButtonK7Video.Enabled := True;
end;
procedure TMainForm.ButtonLogicielsClick(Sender: TObject);
begin
DBGridCD.Visible := false;
DBGridK7Audio.Visible := False;
DBGridMP3.Visible := False;
DBGridLogiciels.Visible := True;
DBGridLivres.Visible := False;
DBGridDivX.Visible := False;
DBGridK7Video.Visible := False;
ButtonCD.Enabled := true;
ButtonK7Audio.Enabled := True;
ButtonMP3.Enabled := True;
ButtonLogiciels.Enabled := false;
ButtonLivres.Enabled := True;
ButtonDivX.Enabled := True;
ButtonK7Video.Enabled := True;
end;
procedure TMainForm.ButtonLivresClick(Sender: TObject);
begin
DBGridCD.Visible := false;
DBGridK7Audio.Visible := False;
DBGridMP3.Visible := False;
DBGridLogiciels.Visible := False;
DBGridLivres.Visible := true;
DBGridDivX.Visible := False;
DBGridK7Video.Visible := False;
ButtonCD.Enabled := true;
ButtonK7Audio.Enabled := True;
ButtonMP3.Enabled := True;
ButtonLogiciels.Enabled := True;
ButtonLivres.Enabled := false;
ButtonDivX.Enabled := True;
ButtonK7Video.Enabled := True;
end;
procedure TMainForm.ButtonDivXClick(Sender: TObject);
begin
DBGridCD.Visible := false;
DBGridK7Audio.Visible := False;
DBGridMP3.Visible := False;
DBGridLogiciels.Visible := False;
DBGridLivres.Visible := False;
DBGridDivX.Visible := true;
DBGridK7Video.Visible := False;
ButtonCD.Enabled := true;
ButtonK7Audio.Enabled := True;
ButtonMP3.Enabled := True;
ButtonLogiciels.Enabled := True;
ButtonLivres.Enabled := True;
ButtonDivX.Enabled := false;
ButtonK7Video.Enabled := True;
end;
procedure TMainForm.ButtonK7VideoClick(Sender: TObject);
begin
DBGridCD.Visible := false;
DBGridK7Audio.Visible := False;
DBGridMP3.Visible := False;
DBGridLogiciels.Visible := False;
DBGridLivres.Visible := False;
DBGridDivX.Visible := False;
DBGridK7Video.Visible := true;
ButtonCD.Enabled := true;
ButtonK7Audio.Enabled := True;
ButtonMP3.Enabled := True;
ButtonLogiciels.Enabled := True;
ButtonLivres.Enabled := True;
ButtonDivX.Enabled := True;
ButtonK7Video.Enabled := false;
end;
end.

unit Main;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Menus, ComCtrls, Db,
  DBTables, DBCtrls, Grids, DBGrids, Unit1;

type
  TMainForm = class(TForm)
    MainMenu: TMainMenu;
    FilePrintItem: TMenuItem;
    FilePrintSetupItem: TMenuItem;
    FileExitItem: TMenuItem;
    EditUndoItem: TMenuItem;
    EditCutItem: TMenuItem;
    EditCopyItem: TMenuItem;
    EditPasteItem: TMenuItem;
    HelpSearchItem: TMenuItem;
    HelpAboutItem: TMenuItem;
    StatusLine: TStatusBar;
    OpenDialog: TOpenDialog;
    SaveDialog: TSaveDialog;
    PrintDialog: TPrintDialog;
    PrintSetupDialog: TPrinterSetupDialog;
    SpeedBar: TPanel;  { &Enregistrer }
    SpeedButton4: TSpeedButton;  { &Imprimer... }
    SpeedButton5: TSpeedButton;  { &Défaire }
    SpeedButton6: TSpeedButton;  { &Couper }
    SpeedButton7: TSpeedButton;  { Co&pier }
    SpeedButton8: TSpeedButton;  { C&oller }
    SpeedButton9: TSpeedButton;
    DBGridCD: TDBGrid;
    TableCD: TTable;
    DataSourceCD: TDataSource;
    DBNavigator1: TDBNavigator;
    Basededonnes1: TMenuItem;
    Label1: TLabel;
    FindDialog1: TFindDialog;
    Rechercher1: TMenuItem;
    N1: TMenuItem;
    ButtonCD: TButton;
    ButtonLogiciels: TButton;
    ButtonK7Video: TButton;
    ButtonDivX: TButton;
    ButtonLivres: TButton;
    ButtonMP3: TButton;
    ButtonK7Audio: TButton;
    DBGridK7Audio: TDBGrid;
    DBGridMP3: TDBGrid;
    DBGridLogiciels: TDBGrid;
    DBGridLivres: TDBGrid;
    DBGridDivX: TDBGrid;
    DBGridK7Video: TDBGrid;
    TableK7Audio: TTable;
    DataSourceK7Audio: TDataSource;
    DataSourceLogiciels: TDataSource;
    TableLogiciels: TTable;
    TableMP3: TTable;
    DataSourceMP3: TDataSource;
    DataSourceLivres: TDataSource;
    TableLivres: TTable;
    DataSourceDivX: TDataSource;
    TableDivX: TTable;
    DataSourceK7Video: TDataSource;
    TableK7Video: TTable;
    Clear1: TMenuItem;  { &Rubriques d'aide }
    procedure FormCreate(Sender: TObject);
    procedure ShowHint(Sender: TObject);
    procedure FileNew(Sender: TObject);
    procedure FileOpen(Sender: TObject);
    procedure FileSave(Sender: TObject);
    procedure FileSaveAs(Sender: TObject);
    procedure FilePrint(Sender: TObject);
    procedure FilePrintSetup(Sender: TObject);
    procedure FileExit(Sender: TObject);
    procedure EditUndo(Sender: TObject);
    procedure EditCut(Sender: TObject);
    procedure EditCopy(Sender: TObject);
    procedure EditPaste(Sender: TObject);
    procedure WindowTile(Sender: TObject);
    procedure WindowCascade(Sender: TObject);
    procedure WindowArrange(Sender: TObject);
    procedure HelpContents(Sender: TObject);
    procedure HelpSearch(Sender: TObject);
    procedure HelpHowToUse(Sender: TObject);
    procedure HelpAbout(Sender: TObject);
    procedure ButtonCDClick(Sender: TObject);
    procedure ButtonK7AudioClick(Sender: TObject);
    procedure ButtonMP3Click(Sender: TObject);
    procedure ButtonLogicielsClick(Sender: TObject);
    procedure ButtonLivresClick(Sender: TObject);
    procedure ButtonDivXClick(Sender: TObject);
    procedure ButtonK7VideoClick(Sender: TObject);
{    procedure CreateSX(TableX: TTable; cFieldname: string);
    procedure DeleteSX(TableX: TTable);
    procedure DBGrid1TitleClick(Column :TColumn);}
  end;

var
  MainForm: TMainForm;

implementation


{$R *.DFM}

procedure TMainForm.FormCreate(Sender: TObject);
begin
{CreateSX(table1, 'Nom du Groupe');
CreateSX(table1, 'Titre du CD');
CreateSX(table1, 'Remarques');
CreateSX(table1, 'Gravé ?');}
TableCD.open;
ButtonCD.Enabled := False;
ButtonK7Audio.Enabled := True;
ButtonMP3.Enabled := True;
ButtonLogiciels.Enabled := True;
ButtonLivres.Enabled := True;
ButtonDivX.Enabled := True;
ButtonK7Video.Enabled := True;
DBGridCD.Visible := True;
DBGridK7AUdio.Visible := False;
DBGridMP3.Visible := False;
DBGridLogiciels.Visible := False;
DBGridLivres.Visible := False;
DBGridDivX.Visible := False;
DBGridK7Video.Visible := False;
Application.OnHint := ShowHint;
end;

{Procedure TMainForm.CreateSX(TableX: TTable; cFieldname: string);
begin
with tableX do begin
     Active := False;
     Exclusive := True;
     IndexDefs.Update;
     Active := True;
     if indexdefs.indexof(cFieldname) = -1 then begin
        addindex(cFieldname, cFieldname, []);
     end;
     Active := False;
     exclusive := False;
     end;
end;}

{Procedure TMainForm.DeleteSX(TableX: TTable);
var I: Integer;
begin
TableX.Active := False;
TableX.IndexDefs.update;
For i := TableX.IndexDefs.Count - 1 downto 0 do begin
    if (tableX.Indexdefs.Items[I].options * [ixPrimary]) <> ([ixPrimary]) then begin
        TableX.DeleteIndex(TableX.IndexDefs.Items[I].fields);
        end;
    end;
end; }

{rocedure TMainForm.DBGrid1TitleClick(Column :TColumn);
var I: Integer;
begin
Table1.IndexDefs.Update;
if Table1.indexdefs.indexof(column.Fieldname) > 0 then begin
   Table1.IndexFieldNames := Column.FieldName;
   with TDBGrid(Column.Grid) do begin
        for I := 0 to columns.Count -1 do begin
            if Columns[I] = Column then
              Columns[I].Title.Font.Style := Columns[I].Title.Font.Style + [fsBold]
            else
              Columns[I].Title.Font.Style := Columns[I].Title.Font.Style - [fsBold];
            end;
        end;
   end;
end;}

procedure TMainForm.ShowHint(Sender: TObject);
begin
  StatusLine.SimpleText := Application.Hint;
end;

procedure TMainForm.FileNew(Sender: TObject);
begin
  { Ajoute le code pour créer un nouveau fichier }
end;

procedure TMainForm.FileOpen(Sender: TObject);
begin
  if OpenDialog.Execute then
  begin
    { Ajouter le code pour ouvrir OpenDialog.FileName }
  end;
end;

procedure TMainForm.FileSave(Sender: TObject);
begin
   { Ajoute le code pour enregistrer le fichier avec le nom en cours }
end;

procedure TMainForm.FileSaveAs(Sender: TObject);
begin
  if SaveDialog.Execute then
  begin
    { Ajoute le code pour enregistrer le fichier avec SaveDialog.FileName }
  end;
end;

procedure TMainForm.FilePrint(Sender: TObject);
begin
  if PrintDialog.Execute then
  begin
    { Ajoute le code pour imprimer le fichier en cours }
  end;
end;

procedure TMainForm.FilePrintSetup(Sender: TObject);
begin
  PrintSetupDialog.Execute;
end;

procedure TMainForm.FileExit(Sender: TObject);
begin
TableCD.Close;
TableK7Audio.Close;
TableMP3.Close;
TableLogiciels.Close;
TableLivres.Close;
TableDivX.Close;
TableK7Video.Close;
{eleteSX(Table1);}
Close;
end;

procedure TMainForm.EditUndo(Sender: TObject);
begin
  { Ajoute le code pour effectuer Edition Défaire }
end;

procedure TMainForm.EditCut(Sender: TObject);
begin
  { Ajoute le code pour effectuer Edition Couper }
end;

procedure TMainForm.EditCopy(Sender: TObject);
begin
  { Ajoute le code pour effectuer Edition Copier }
end;

procedure TMainForm.EditPaste(Sender: TObject);
begin
  { Ajoute le code pour effectuer Edition Coller }
end;

procedure TMainForm.WindowTile(Sender: TObject);
begin
  Tile;
end;

procedure TMainForm.WindowCascade(Sender: TObject);
begin
  Cascade;
end;

procedure TMainForm.WindowArrange(Sender: TObject);
begin
  ArrangeIcons;
end;

procedure TMainForm.HelpContents(Sender: TObject);
begin
  Application.HelpCommand(HELP_CONTENTS, 0);
end;

procedure TMainForm.HelpSearch(Sender: TObject);
const
  EmptyString: PChar = '';
begin
  Application.HelpCommand(HELP_PARTIALKEY, Longint(EmptyString));
end;

procedure TMainForm.HelpHowToUse(Sender: TObject);
begin
  Application.HelpCommand(HELP_HELPONHELP, 0);
end;

procedure TMainForm.HelpAbout(Sender: TObject);
begin
Form1.Show;
end;

procedure TMainForm.ButtonCDClick(Sender: TObject);
begin
DBGridCD.Visible := True;
DBGridK7Audio.Visible := False;
DBGridMP3.Visible := False;
DBGridLogiciels.Visible := False;
DBGridLivres.Visible := False;
DBGridDivX.Visible := False;
DBGridK7Video.Visible := False;
ButtonCD.Enabled := False;
ButtonK7Audio.Enabled := True;
ButtonMP3.Enabled := True;
ButtonLogiciels.Enabled := True;
ButtonLivres.Enabled := True;
ButtonDivX.Enabled := True;
ButtonK7Video.Enabled := True;
end;

procedure TMainForm.ButtonK7AudioClick(Sender: TObject);
begin
DBGridCD.Visible := false;
DBGridK7Audio.Visible := true;
DBGridMP3.Visible := False;
DBGridLogiciels.Visible := False;
DBGridLivres.Visible := False;
DBGridDivX.Visible := False;
DBGridK7Video.Visible := False;
ButtonCD.Enabled := true;
ButtonK7Audio.Enabled := false;
ButtonMP3.Enabled := True;
ButtonLogiciels.Enabled := True;
ButtonLivres.Enabled := True;
ButtonDivX.Enabled := True;
ButtonK7Video.Enabled := True;
end;

procedure TMainForm.ButtonMP3Click(Sender: TObject);
begin
DBGridCD.Visible := false;
DBGridK7Audio.Visible := False;
DBGridMP3.Visible := true;
DBGridLogiciels.Visible := False;
DBGridLivres.Visible := False;
DBGridDivX.Visible := False;
DBGridK7Video.Visible := False;
ButtonCD.Enabled := true;
ButtonK7Audio.Enabled := True;
ButtonMP3.Enabled := false;
ButtonLogiciels.Enabled := True;
ButtonLivres.Enabled := True;
ButtonDivX.Enabled := True;
ButtonK7Video.Enabled := True;
end;

procedure TMainForm.ButtonLogicielsClick(Sender: TObject);
begin
DBGridCD.Visible := false;
DBGridK7Audio.Visible := False;
DBGridMP3.Visible := False;
DBGridLogiciels.Visible := True;
DBGridLivres.Visible := False;
DBGridDivX.Visible := False;
DBGridK7Video.Visible := False;
ButtonCD.Enabled := true;
ButtonK7Audio.Enabled := True;
ButtonMP3.Enabled := True;
ButtonLogiciels.Enabled := false;
ButtonLivres.Enabled := True;
ButtonDivX.Enabled := True;
ButtonK7Video.Enabled := True;
end;

procedure TMainForm.ButtonLivresClick(Sender: TObject);
begin
DBGridCD.Visible := false;
DBGridK7Audio.Visible := False;
DBGridMP3.Visible := False;
DBGridLogiciels.Visible := False;
DBGridLivres.Visible := true;
DBGridDivX.Visible := False;
DBGridK7Video.Visible := False;
ButtonCD.Enabled := true;
ButtonK7Audio.Enabled := True;
ButtonMP3.Enabled := True;
ButtonLogiciels.Enabled := True;
ButtonLivres.Enabled := false;
ButtonDivX.Enabled := True;
ButtonK7Video.Enabled := True;
end;

procedure TMainForm.ButtonDivXClick(Sender: TObject);
begin
DBGridCD.Visible := false;
DBGridK7Audio.Visible := False;
DBGridMP3.Visible := False;
DBGridLogiciels.Visible := False;
DBGridLivres.Visible := False;
DBGridDivX.Visible := true;
DBGridK7Video.Visible := False;
ButtonCD.Enabled := true;
ButtonK7Audio.Enabled := True;
ButtonMP3.Enabled := True;
ButtonLogiciels.Enabled := True;
ButtonLivres.Enabled := True;
ButtonDivX.Enabled := false;
ButtonK7Video.Enabled := True;
end;

procedure TMainForm.ButtonK7VideoClick(Sender: TObject);
begin
DBGridCD.Visible := false;
DBGridK7Audio.Visible := False;
DBGridMP3.Visible := False;
DBGridLogiciels.Visible := False;
DBGridLivres.Visible := False;
DBGridDivX.Visible := False;
DBGridK7Video.Visible := true;
ButtonCD.Enabled := true;
ButtonK7Audio.Enabled := True;
ButtonMP3.Enabled := True;
ButtonLogiciels.Enabled := True;
ButtonLivres.Enabled := True;
ButtonDivX.Enabled := True;
ButtonK7Video.Enabled := false;
end;

end.

Conclusion

l'appli n'est pas vraiment fini: il faudrait que j'ajoute une fonction de tri alphabétique dans la base de données pour que ça puisse être un minimum utile. mais je savais pas le faire à ce moment, je suis en train de chercher.

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

database_cd.db6 144 octets
database_divx.db2 048 octets
database_k7audio.db2 048 octets
database_k7video.db2 048 octets
database_livres.db2 048 octets
database_logiciels.db2 048 octets
database_mp3.DB2 048 octets
GMedia.cfg 386 octets
GMedia.dof 1 331 octets
GMedia.DPR 302 octets
GMedia.exe773 120 octets
GMedia.RES1 536 octets
IDAPI.CFG 3 240 octets
MAIN.dcu13 170 octets
MAIN.dfm18 603 octets
MAIN.PAS 11 420 octets
MAIN.TXT 37 341 octets
Unit1.dcu4 024 octets
Unit1.dfm3 688 octets
Unit1.pas 869 octets

Télécharger le zip

Sources de la même categorie

INTERBASE FIREBIRD IBEXPERT par opgiat

CREE ALIAS AUTOMATIQUEMENT CREATION REPERTOIRE ET TABLE AUSI par opgiat

CRÉE UN RÉPERTOIRE ET CRÉE CES TABLES PAR PROGRAMME par opgiat

CONNEXION MYSQL ET RECUPERATION DANS BASE ACCESS par eli42

LIER DEUX TDBGRID par cantador

Toutes les sources de la catégorie Base de Donnees

Commentaires et avis

Commentaire de malv le 22/05/2002 18:41:10

ah euh, faites pas agffe aux commentaires dans ma source, c du code que j'avais récupéré pour effectuer les tris mais ça foirait, et je l'avais mis en commentaire en atendant de voir si je continuais en ce sens ou si je trouvais moi-même quelque chose. le code en commentaire a été récupéré sur delphi3000.com

Commentaire de DelphiCool le 23/05/2002 08:26:21 administrateur CS

sympa ton source

ya une petite erreur dans la localisation de la BD, tu as mis le dossier, mais
ya juste à modifier

pourrais tu mettre ce source sur UPS, stp

http://u.p.s.free.fr

Merci

Commentaire de malv le 27/05/2002 17:43:00

une erreur ds la localisation de la base?
je vois pas ce que tu veux dire, explique stp

Commentaire de Dreus le 05/07/2002 17:38:04

Delphicool parlait de ça "C:programmationmesprogsDelphiGestionnairemultimedia"

a++ Sympa le code

Commentaire de malv le 05/07/2002 19:16:04

ah ok
merci

Ajouter un commentaire

Nos sponsors

Derniers Blogs

UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante

TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice

[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion

TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice

TECHDAYS PARIS 2010 : DéPLOIEMENT DE NOUVELLES TECHNOLOGIES - RETOUR D'EXPéRIENCE PAR L'INFORMATIQUE DE MICROSOFT par ROMELARD Fabrice

Forum

RE : DELPHI + LANGUE ARABE = IMPOSSIBLE D'ININTIALISé BDE par Caribensila

RE : HELP ME :-) BASE DE DONNéE - GESTION CLIENT STYLE CRM par JulioDelphi

RE : HELP ME :-) BASE DE DONNéE - GESTION CLIENT STYLE CRM par beckerich

RE : RESEAU AD HOC PAR RS232 par Francky23012301

RE : DéSACTIVER UN BOUTON D'UNE APPLICATION EXTéRIEURE par Francky23012301

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

PLATEFORME SUR L ESOTERISME VOYANCE - sans charte graphique
Budget : 3 500€
Joomla 15 module paiement adaptation composant cuisine
Budget : 250€
Integrateur web dans template
Budget : 500€

Logiciels

DB-MAIN (9.1.0)
DB-MAIN (9.1.0)

DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal...

Cliquez pour télécharger DB-MAIN
Xilisoft DPG Convertisseur (5.1.37.0120)
XILISOFT DPG CONVERTISSEUR (5.1.37.0120)

Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé...

Cliquez pour télécharger Xilisoft DPG Convertisseur
GraphicsGale (2.01.01)
GRAPHICSGALE (2.01.01)

GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ...

Cliquez pour télécharger GraphicsGale
Architecte 3D (Platinum 2010)
ARCHITECTE 3D (PLATINUM 2010)

Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é...

Cliquez pour télécharger Architecte 3D
TeamViewer 5 (TeamViewer 5)
TEAMVIEWER 5 (TEAMVIEWER 5)

Dépanner un ami,expliquer une manipulation devient un jeu d'enfant. Prise en main d'un autre ord...

Cliquez pour télécharger TeamViewer 5