?? thd.~pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -