status.pas

来自「大型企业管理源码,JAVA类,包括销售,采购,财务,OA辅助办公处理,有学习JA」· PAS 代码 · 共 61 行

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