Dbgrid

Discussioni sui linguaggio Delphi

Moderatore: Toki

Regole del forum
Leggi: IProgrammatori.it - Regolamento Forum
Jaguaro
New Entry
Messaggi: 1
Iscritto il: 27 nov 2016, 07:44

Dbgrid

Messaggioda Jaguaro » 27 nov 2016, 07:58

Salve a tutti,

ho una dbgrid dove sono elencati i materiali in magazzino, quello che vorei fare è che con il button "cbsEllipsis" aprire una finestra di dialogo e cliccando sul file pdf, questo deve essere salvato (in specifica cartella o non so nel sistema o in un database) e con un altro button tipo il precedente , quando selezione un specifica riga della dbgrid mi deve aprire il relativo file precedentemente salvato.
saluti
dnattack
New Entry
Messaggi: 2
Iscritto il: 08 feb 2017, 13:18

Re: Dbgrid

Messaggioda dnattack » 08 feb 2017, 14:03

Evento OnEditButtonClick della DbGrid

Codice: Seleziona tutto

procedure TFrmMci.DbGridFattureEditButtonClick(Sender: TObject);
Var
   SFilePath, SFileName, SDestFolder: String;
begin
   If (Not QFatture.Active) Or (QFatture.RecordCount < 1) Then Exit;

   // Questo evento è comune a tutte le colonne... quindi nel caso di più colonne
   // aventi ButtonStyle = cbsEllipsis bisogna identificare il campo selezionato...

   If (DbGridFatture.SelectedField = QFattureFILEPDF) Then
   Begin
      SFilePath := Trim(QFattureFILEPDF.AsString);   // se contiene anche il percorso...

      If (SFilePath = '') Then Exit;

      // FileExists - dichiarata in System.SysUtils
     
      If Not FileExists(SFilePath) Then
      Begin
         ShowMessage('Il file selezionato non esiste!' + #13#10 +
                     '("' + SFilePath + '")'           + #13#10 +
                     'Impossibile proseguire...');
         Exit;
      End;

      // ExtractFileName - dichiarata in System.SysUtils
     
      SFileName   := ExtractFileName(SFilePath);
      SDestFolder := 'C:\_Archivio\';

      // Application - Dichiarata in Vcl.Forms
     
      If FileExists(SDestFolder + SFileName) Then
         If Application.MessageBox(
               'Il file di destinazione risulta gia esistente:' + #13#10 +
               'Procedere comunque?',
               'Conferma sovrascrittura',
               MB_YESNO) <> IDYES
            Then Exit;

      // CopyFile è dichiarata in Winapi.Windows, il "false" finale consente la sovrascrittura
     
      If CopyFile(PChar(SFilePath), PChar(SDestFolder + SFileName), False) Then
         ShowMessage('File "' + SFileName + '"'            + #13#10 +
                     'copiato con successo nella cartella' + #13#10 +
                     '"' + SDestFolder + '"!')
      Else   
         ShowMessage('Non è stato possibile copiare il file nella cartella "' + SDestFolder + '"!');
   End;
end;

Torna a “Delphi”

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite