status.pas

基于OOP设计的一套较好的ERP系统

unit Status;
(*
 This sample unit is part of Table Scanner package
 Copyright 1997-1999 by Demian [[e-mail]]
*)

{$X+}

interface

uses
  Classes,SysUtils,Forms,StdCtrls,Buttons,ExtCtrls,Dialogs,Controls,
  {$IFDEF WIN32}Windows,{$ELSE}WinProcs,WinTypes,{$ENDIF}euro2000_db;

type
  TFormStatus = class(TForm)
    LabelTitle: TLabel;
    LabelTablesT: TLabel;
    LabelTables: TLabel;
    LabelCurrentT: TLabel;
    LabelCurrent: TLabel;
    LabelOperationT: TLabel;
    LabelOperation: TLabel;
    LabelActionT: TLabel;
    LabelAction: TLabel;
    BitBtnCancel: TBitBtn;
    ImageIcon: TImage;
    BevelMain: TBevel;
    ShapeProgress: TShape;
    procedure BitBtnCancelClick(Sender: TObject);
  end;

var
  FormStatus: TFormStatus;

function DoOnCheckTable(const Sender: TScanInfo): boolean; export;

implementation

uses main;


{$R *.DFM}

{______________________________________________________________________________}
function DoOnCheckTable(const Sender: TScanInfo): boolean;
(*
 This function is called by TBLSCN.DLL and must return a boolean value:
 True, to continue table checking, or False, to abort table checking.
*)

  procedure ConfirmFix;
  var
    szWarning: array[0..255] of char;
  begin
    {'saFix' occurs before any repair is attempted on a corrupted data file (.DB,.DBF).
     As the repair is not guaranteed to work in all cases, 'saFix' should be used
     to back the data file up, before procceeding (it's up to your application to
     supply backup/restore routines).}
    FormStatus.LabelOperation.Caption := 'Fix';
    StrPCopy(szWarning,format('La tabella %s sembra essere danneggiata. %s verr