Ir para conteúdo
Fórum Script Brasil
  • 0

Sistema De Locadora


fernando_vip

Pergunta

Boa tarde,

um amigo me enviou um sistema p locadora bem filé, contudo ~ele faz referência a uma classe que não veio no prj e eu não ond encontrar, será que alguém tem alguma aí que eu possa substituir???

Link para o comentário
Compartilhar em outros sites

16 respostass a esta questão

Posts Recomendados

  • 0

Eu coloquei ela na pasta do prj, mas não funciona, eis o código do form de backup:

unit UnBackup;

interface

uses

{ Directivas de compilação }

{$ifdef win32}

BDE, { BDE 32 BITS }

{$else}

DBIProcs, DBITypes, DbiErrs, { IDAPI 16 BITS}

{$endif}

WinProcs, WinTypes, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls, ComCtrls, StdCtrls, {backup1,} Buttons, DB, DBTables, backup,

Gauges, backup1;

type

TFBackup = class(TForm)

Panelbackup: TPanel;

StaticText1: TStaticText;

FileListBox: TListBox;

SaveDialog: TSaveDialog;

Gauge1: TGauge;

BitBtn1: TSpeedButton;

procedure BackupFile1Progress(Sender: TObject; Filename: String;

Percent: TPercentage; var Continue: Boolean);

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

function GetAliasPath( sAlias : String) : String; //retorna o caminho do alias

end;

var

fBackup: TfBackup;

implementation

{$R *.DFM}

function TfBackup.GetAliasPath( sAlias : String) : String;

var

oDataBase : TDatabase;

pszDir : Pchar;

sDir : String;

begin

try

oDataBase := TDatabase.Create(nil);

With oDatabase do

begin

try

pszDir := StrAlloc( 255 );

AliasName := sAlias;

DataBaseName := 'dblocadora';

Connected := true;

DbiGetDirectory( Handle, true, pszDir );

sDir := StrPas( pszDir );

{$Ifdef Win32}

Result := sDir;

{$else}

Result := sDir + '\';

{$endif}

Connected := false;

except

on E:EOutOfMemory do

MessageDlg('Problemas de memória ' + E.Message, MtError,[MBOK],0);

end;

end;

finally

StrDispose( pszDir );

oDataBase.Free;

end;

end;

procedure TFBackup.BackupFile1Progress(Sender: TObject; Filename: String;

Percent: TPercentage; var Continue: Boolean);

begin

with Gauge1 do

begin

visible := Percent < 100;

if visible then Progress := Percent;

end;

end;

procedure TFBackup.SpeedButton1Click(Sender: TObject);

var vFileName, fAlias : String;

Result : Integer;

SearchRec : TSearchRec;

vPath : String;

begin

MessageBeep(MB_ICONEXCLAMATION);

BitBtn1.Enabled := False;

vPath := GetAliasPath('dblocadora');

FileListBox.Items.Add(vPath+'*.*');

if Application.MessageBox('Deseja continuar com o backup?','Atenção',MB_ICONINFORMATION + mb_YesNo) = IdNo then

Abort;

if Filelistbox.items.count = 0 then

Showmessage('Arquivos não adcionados')

else

with SaveDialog do

if execute then

begin

if (uppercase(copy(filename, 1, 1)) = 'A') or (uppercase(copy(filename, 1, 1)) = 'D')or (uppercase(copy(filename, 1, 1)) = 'E') then

begin

Showmessage('Drive indicado - por favor verifique se o disco está inserido e clique em OK');

BackupFile1.maxSize := 1400000; //backup to floppy

end

else BackupFile1.maxSize := 0;

backupfile1.backuptitle := 'dblocadora';

backupfile1.backupmode := bmAll;

backupfile1.compressionLevel := clDefault;

backupfile1.SaveFileID := False;

if backupfile1.backup(filelistbox.items, filename) then

Showmessage('Backup Completo. Taxa de Compressão = '+inttostr(BackupFile1.compressionrate)+' %')

else

Showmessage('Backup falhou ou foi abortado'); //failed or aborted');

end;

BitBtn1.Enabled := True;

end;

end.

Link para o comentário
Compartilhar em outros sites

  • 0

como assim???

Como se fosse um componente da palheta do delphi?????

pode me explicar que erro é este:

Project SCVC.exe raised exception class EAccessViolation with message 'Access violation at address

004d338f in module 'SCVC.exe. Read af andress 00000000'. Process stopped. Use Step or Run to continue

falow

vbaleu pela ajuda

Link para o comentário
Compartilhar em outros sites

  • 0

Opa

Neste post logo acima eu passei o que deve ser

o componente TBackupFile você precisa baixá-lo

e instalá-lo como se fosse não rs, como um componente

do Delphi, ele vai estar na palheta sim... ai depois você

abre o Form de Backup pra testar se realmente é este

componente...

Quanto ao erro, pode ser inúmeras coisas esse erro não

da pra saber assim... em que situação você tava quando

aconteceu este erro...

abraço

Link para o comentário
Compartilhar em outros sites

  • 0

esse erro ocorre qd eu compilo o prj, ele abre o menu mas qd cliko, por exemplo, em cadaastro de cartões, ele gera este erro.

Se você quiser posso mandar o codigo fonte para seu email p você olhar

o pacote TBackupFile 5.1 é só p delphi 5 e eu uso o 6

Link para o comentário
Compartilhar em outros sites

  • 0

Ok!

Só que eu só vou poder dar uma olhada quando estiver

em casa, aqui no serviço não vo poder eheh

Mas eu não recebi ainda não...

Detalhe, se no projeto tiver qualquer .exe, .bat, etc

o gmail vai bloquear e eu não vou receber mesmo, acho

legal você postar no Rapidshare talvez, ai você pode me

enviar o link por email ou até mesmo postar aqui!

abs

Link para o comentário
Compartilhar em outros sites

  • 0

Opa

Engraçado, neste que você enviou não tem nada relacionado

a Backup como você havia mencionado...

E também eu não tenho o QuickReport pra Delphi 2006 só vem

o Rave, ai não tem como eu compilar pra ver se está tudo ok...

Acho que não vou poder te ajudar, espero que outras pessoas

possam...

abraço

Link para o comentário
Compartilhar em outros sites

  • 0

Certo, faça o seguinte, eu dei umas ajustadas no componente

TBackupFile que você disse não estar compativel, e criei um

pacote...

Download aqui.

Instalação

Crie uma pasta chamada BackupFile na sua pasta Lib do Delphi,

onde normalmente fica em:

C:\Arquivos de Programas\Borland\Delphi 7\Lib

Ou qualquer pasta que esteja na sua Type Library ficando então:

C:\Arquivos de Programas\Borland\Delphi 7\Lib\Backupfile

Descompacte os arquivos do Zip na pasta Backupfile que você

criou, abra seu Delphi e clique no Menu File/Open, procure nesta

pasta por BackupFile.DPK, clique em Build All e Depois Install,

deve aparecer:

"The following components has been installed..."

Logo após feche a janelinha e se pedir pra salvar clique em No.

O componente eu mudei pra palheta Standard...

Ai depois você pode abrir o projeto normalmente...

abraço

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...