monthfeethread.pas

来自「县级供电企业电费核算源码, 在客户处正常运行8年以上, Delphi 5开发,数」· PAS 代码 · 共 42 行

unit MonthFeeThread;

interface

uses
  Classes;

type
  TMonthFeeThread = class(TThread)
  private
    { Private declarations }
//  protected
  public
    procedure Execute; override;
  end;

implementation

uses CommSmdljf;
{ Important: Methods and properties of objects in VCL can only be used in a
  method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure TMonthFeeThread.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ TMonthFeeThread }

procedure TMonthFeeThread.Execute;
begin
  { Place thread code here }
//  Synchronize(MonthFee);
	P_MonthFee();//计算本月电费
end;

end.