untmainstatusthread.pas

车辆管理系统

unit untMainStatusThread;

interface

Uses
  sysutils, Classes;

type
  TstatusThread = class(TThread)
  private
    FUsername:String;
    Ftablename:string;
    FoperaStatus:string;
    Foperatcontents:string;
    {Private declarations}
  Protected
    procedure Execute;override;
  Public
    constructor Create(Username,Tablename,operastatus,operatcontents:String);
  end;

implementation

uses untServerMain;

{ TstatusThread }

constructor TstatusThread.Create(Username, Tablename, operastatus,
  operatcontents: String);
begin
  FUsername:=UserName;
  Ftablename:=Tablename;
  FoperaStatus:=operastatus;
  Foperatcontents:=operatcontents;
  FreeonTerminate:=True;
  inherited create(False);
end;

procedure TstatusThread.Execute;
begin
  inherited;
  frmServerMain.LblUsername.Caption:=FUsername;
  frmServerMain.lbltablename.Caption:=Ftablename;
  frmServerMain.lbloperatestatus.Caption:=FoperaStatus;
  frmServerMain.lblopeartecontents.Caption:=Foperatcontents;
end;

end.