begin process at 2012 02 09 04:37:53
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Base de Donnees

 > GESTIONNAIRE MULTIMEDIA

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.dbTélécharger ce fichier [Réservé aux membres club]6 144 octets
  • database_divx.dbTélécharger ce fichier [Réservé aux membres club]2 048 octets
  • database_k7audio.dbTélécharger ce fichier [Réservé aux membres club]2 048 octets
  • database_k7video.dbTélécharger ce fichier [Réservé aux membres club]2 048 octets
  • database_livres.dbTélécharger ce fichier [Réservé aux membres club]2 048 octets
  • database_logiciels.dbTélécharger ce fichier [Réservé aux membres club]2 048 octets
  • database_mp3.DBTélécharger ce fichier [Réservé aux membres club]2 048 octets
  • GMedia.cfgTélécharger ce fichier [Réservé aux membres club]Voir ce fichier386 octets
  • GMedia.dofTélécharger ce fichier [Réservé aux membres club]Voir ce fichier1 331 octets
  • GMedia.DPRTélécharger ce fichier [Réservé aux membres club]Voir ce fichier302 octets
  • GMedia.exeTélécharger ce fichier [Réservé aux membres club]773 120 octets
  • GMedia.RESTélécharger ce fichier [Réservé aux membres club]1 536 octets
  • IDAPI.CFGTélécharger ce fichier [Réservé aux membres club]Voir ce fichier3 240 octets
  • MAIN.dcuTélécharger ce fichier [Réservé aux membres club]13 170 octets
  • MAIN.dfmTélécharger ce fichier [Réservé aux membres club]18 603 octets
  • MAIN.PASTélécharger ce fichier [Réservé aux membres club]Voir ce fichier11 420 octets
  • MAIN.TXTTélécharger ce fichier [Réservé aux membres club]Voir ce fichier37 341 octets
  • Unit1.dcuTélécharger ce fichier [Réservé aux membres club]4 024 octets
  • Unit1.dfmTélécharger ce fichier [Réservé aux membres club]3 688 octets
  • Unit1.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier869 octets

Télécharger le zip


 Sources de la même categorie

Source avec Zip Source avec une capture STOCKEUR CODE SOURCE par PythonGreg
Source avec Zip Source avec une capture EXEMPLE UTILISATION DBGRID par HAFTARIFOUAD
Source avec Zip EXPORTE TABLE VER EXCEL par apcmorsott
Source avec Zip Source avec une capture BAK_RESORT POUR SGBD INTERBASE par solitair
Source avec Zip Source avec une capture GESTION DES CODE POSTAUX AVEC UNE BASE ACCESS par AlexFr23

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


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,546 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales