|
begin process at 2008 08 29 21:06:26
Derniers logiciels
|
Trouver une ressource (Nouvelle version du moteur, plus rapide & pertinent, essayez le !)
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
GESTIONNAIRE MULTIMEDIA
Information sur la source
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 !
Télécharger le zip
Sources de la même categorie
Commentaires
|
|
|