GESTIONNAIRE MULTIMEDIA , Source N°11934

Information sur la source

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é: 3 964 / 1 394

Auteur : malv

Ecrire un message privé

Note :
Aucune note

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

Pour les "Membres Club", vous pouvez 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

Toutes les sources de la catégorie Base de Donnees

Commentaires

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