unit Thd;

interface

uses
  Classes;

type
  TThd = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
    function exec(): boolean;virtual;abstract;
  public
    constructor create();
  end;

  TXueJiCL = class(TThd)
  protected
    function exec(): boolean;override;
  end;

  TChengJiCL = class(TThd)
  protected
    function exec(): boolean;override;
  end;

  TdyzhCLAuto = class(TThd)
  protected
    function exec(): boolean;override;
  end;

  TAddData = class(TThd)
  protected
    function exec(): boolean;override;
  end;

  TOutput = class(TThd)
  protected
    function exec(): boolean;override;
  end;

implementation

uses zhUnit, useDLL;

procedure TThd.Execute;
begin
  exec();
end;

constructor TThd.create();
begin
  freeonterminate:= true;
  inherited create(false);
end;

function TChengJiCL.exec(): boolean;
begin
  with mainform do begin
      label2.caption:= '成績信息錄入中';
      update;
    if ChengJiCL() then begin
      if terminated then
        exit;
      edit2.Enabled:= false;
      label2.caption:= '成績信息錄入完畢';
      update;
    end;
  end;
end;

function TXueJiCL.exec(): boolean;
begin
  XueJiCL();
  {
  with mainform do begin
    label2.caption:= '學籍信息錄入中';
    update;

    if XueJiCL() then begin
      if terminated then
        exit;
      label2.caption:= '學籍信息錄入完畢';
      update;
    end;
  end;
  }
end;

function TdyzhCLAuto.exec(): boolean;
begin
  with mainform do begin
      label2.caption:= '得分信息錄入中';
      update;
    if dyzhCLAuto() then begin
      if terminated then
        exit;
      label2.caption:= '得分信息錄入完畢';
      update;
    end;
  end;
end;

function TAddData.exec(): boolean;
begin
  with mainform do begin
      label2.caption:= '正在綜合處理成績';
      update;
    if AddData() then begin
      if terminated then
        exit;
      label2.caption:= '所有成績信息輸入完成';
      update;
    end;
  end;
end;

function TOutput.exec(): boolean;
begin
  with mainform do begin
      label2.caption:= '正在輸出成績';
      update;
    if Output() then begin
      label2.caption:= '成績信息輸出完成';
      update;
    end;
  end;
end;

end.