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

Ce site au démarrage

begin process at 2012 02 09 04:37:53

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é :5 417 / 1 559

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

STOCKEUR CODE SOURCE par PythonGreg

EXEMPLE UTILISATION DBGRID par HAFTARIFOUAD

EXPORTE TABLE VER EXCEL par apcmorsott

BAK_RESORT POUR SGBD INTERBASE par solitair

GESTION DES CODE POSTAUX AVEC UNE BASE ACCESS par AlexFr23

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

[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi

WORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBE par JeremyJeanson

TECHDAYS PARIS 2012 : NOUVELLES TENDANCES DU POSTE DE TRAVAIL - BRING YOUR OWN PC par ROMELARD Fabrice

TECHDAYS PARIS 2012 : SYSTEM CENTER SERVICE MANAGER 2012 VUE D'ENSEMBLE par ROMELARD Fabrice

TECHDAYS PARIS 2012 : PLEINIèRE SECOND JOUR par ROMELARD Fabrice

Forum

RE : BONJOUR A VOUS par cantador

RE : "APPEL" QUI PLANTE ET "FILTRAGE" QUI BLOQUE!!! par Caribensila

RE : OPEN / CLOSE SOUS FIREBIRD par cantador

RE : EVENEMENT SUR DATETIME par cantador

RE : "APPEL" QUI PLANTE ET "FILTRAGE" QUI BLOQUE!!! par pierrotk10d

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Fonctionnalites supplementaires sous Joomla
Budget : 800€
Animation interactive pour I phone
Budget : 2 000€
Site web pour projet Haiti
Budget : 10 000€

Logiciels

Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning
COLLECTOR PLUS (3.00B)
COLLECTOR PLUS (3.00B)

COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par : - L...

Cliquez pour télécharger COLLECTOR PLUS
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
LettresFaciles 2011 (8.0.0.1)
LETTRESFACILES 2011 (8.0.0.1)

LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types. Son inte...

Cliquez pour télécharger LettresFaciles 2011