myclass.pas

工廠採購管理系統

unit MYclass;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  StdCtrls, ComCtrls, ToolWin, ExtCtrls,ADODB;
const Mybuttonnormal = 0;
const Mybuttonmove = 1;
const Mybuttondown = 2;
type
  RCarkKindinfo = record
  Deposit:double;
  Rent:double;
  AllowNum:integer;
  TimeLong:integer;
end;
Howanalyse = (HAsell, HAlend, HAsave, HAAll);
type
  buttonInfo = record
  HowButton:integer;
  Status:integer;
end;

  type
    purview = record
    username:string;
    BaseManage:integer;
    InManage:integer;
    Lendandsell:integer;
    analyze:integer;
    system:integer;
    supervisor:integer;
  end;

type
  TbackupThread=class(TThread)
    sender:Tobject;
    command:TADOCOmmand;
    parent:Tform;
    backname,folder:string;
  procedure Backup;
  private
  protected
  procedure Execute;override;
end;

type
  TrestoreThread=class(TThread)
    sender:Tobject;
    parent:Tform;
    command:TADOCOmmand;
    Position,folder:string;
  procedure restore;
  private
  protected
  procedure Execute;override;
end;

implementation

procedure Tbackupthread.backup;
begin
  try
    if backname='' then
      command.CommandText:='backup database letwin to disk='+''''+folder+''''
    else
      command.CommandText:='backup database letwin to disk='+''''+folder+''''+' with name='+''''+backname+'''';
    command.Execute;
  except
    exit;
  end;
  self.Terminate;
end;


procedure TbackupThread.Execute;
var
  i:integer;
begin
  i:=0;
  synchronize(backup);
  while  i< Tprogressbar(sender).Max do
  begin
    inc(i);
    Tprogressbar(sender).Position:=i;
  end;
  Application.MessageBox('备份成功.','提示',64);
  parent.Close;
end;



procedure Trestorethread.restore;
begin
  try
    command.CommandText:='use master restore database letwin from disk='+''''+folder+''''+' with file='+position;
    command.Execute;
    Command.CommandText:='use letwin';
    Command.Execute;
    Application.MessageBox('还原结束.','提示',64);
  except
    Application.MessageBox('系统出错.','提示',64);
  end;
  self.Terminate;
end;


procedure TrestoreThread.Execute;
var
  i:integer;
begin
  i:=0;
  while  i< Tprogressbar(sender).Max do
  begin
    inc(i);
    Tprogressbar(sender).Position:=i;
  end;
  parent.Close;
  end;
end.