UML类图

AplBaseControl

+aNetGCCallBack(paNetGCMsg : TaNetGCMsg; var pContinue : Boolean);+GetReplyMessageCount: Integer;+GetReplyMessage(Index : integer) : TStringList;+FMesReplyMsgClass: TMesReplyMsgClass;+OnaNetGCSendError(pCode : integer; pText: String);+OnaNetGCSendError(pCode : integer; pText: String);+OnaNetGCSendError(paNetGCMsg : TaNetGCMsg);+OnaNetGCSenceError(paNetGCMsg : TaNetGCMsg);+SendRequest(pRequestMsg : TMesRequestMsg;pDoReply : Boolean; pDoKeep: Boolean = True

TProductListQueryReqMsg

+FProdName: String;+FProdName一Next: String; 

TReworkReasonListQueryReqMsg

+FReworkReason : String;+FReworkReason_Next: String 

TMinorStepListQueryReqMsg

+FMinorStep :String; +FMinorStep_Next: String; 

TEquipmentListQueryRpIMsg

+CreateFromMsg(pMsg: TaNetGCMsg);

TfrmMESMonitor

+ptMouseLast : TPoint;+ptMouseCur : TPoint;+ptMaxMode : Boolean;+pUpdateFlg : Boolean;

+tmrMouse Timer (Sender : TObject);+procedure tmrUpdateTimer (Sender : TObject);+procedure imgCloseClick (Sender : TObject);

TMesReplyMsg

+ FNode : String+FAnalysisResult : Boolean

+ CreateFromMsg(pMsg: TaNetGCMsg)

TAlphaMesMenuBaseForm

+FSecDigOpenning : Boolean;+FOperatorCode : String;

+AppICloseQuery(var Message:TMessage);+AppIForceClose(var Message:TMessage);+DiscardDialog : Boolean;+IsClose : Boolean;+GetWindowManagerHandle : HWND;+SendEquipDefMsg : Boolean;+ValidateEquipDefFile : virtual;

TfrmMESClientMenu

+mParentForm:TForm;+mHight : integer;+FIconImgLst         : TList;+FIconImgStrLst      : TStringList;   

+StartNormalForm(pFuncNo :String);+getNormalFormFuncNo;

TMessagerListQueryReqMsg

TBaseControl

+FaNetGC              : TaNetGC;+FaNetGCCompressLevel : integer;+FInProcess        : Boolean;+FOnFinished       : TNotifyEvent;+FOnError          : TNotifyEvent;

+InProcess : Boolean;

TEquipGruopListQueryReqMsg

+ FEquipGrp     : String;   +FEquipGrp_Next: String;

TReworkReasonListQueryRplMsg

TEquipmentStatusListQryReqMsg

+FEquipmentGrp         : String;+FEquipmentCode        : string;+FEquipmentGrp_Next    : String;+FEquipmentCode_Next   : string;+FStageID_Next         : string;

TMesRequestMsg

+FNode : String+FOperator  : String;+FMesReplyMsgClass:TMesReplyMsgClass

TJmsg

+FMsgBoundle: TJmsgDataBoundle;

+MakeRcvedMsgBoundle(RcvData: Pointer; RcvLen: Integer)+FinRcvedMsgBoundle

aNetGCDllx

anetapix64.DLL

TEquipGroupListQueryRpIMsg

+FContinueFIg : Boolean;+FEquipGrp : String; 

+CreateFromMsg(pMsg: TaNetGCMsg):

TaNetGCMsg

+FaNetGC          : TaNetGC;+FaNetGCThread    : TaNetGCThread;+FRet          : Integer;+FPortNo       : Integer;+FPortName     : AnsiString;+FThreadNo     : Integer;+FThreadName   : AnsiString;+FNeedToFree   : Boolean;+FData         : PAnsiChar;+FDataLen      : Integer;+FOrgName      : AnsiString;+FEvent        : Integer;+FDescription  : Integer;+FCode         : Integer;+FDataNum      : Integer;+FRDesList     : PInteger;+FWDesList     : PInteger;+FUserPtr      : Pointer;+FRequestID    : AnsiString;+FRcvWellPort  : Boolean;+FQueuedTimerId: TQueuedTimerId;+FSentData     : PAnsiChar;

+SetaNetGC(paNetGC : TaNetGC);+SetaNetGCThread(paNetGCThread : TaNetGCThread);+GetAPH_Rev : AnsiString;+GetAPH_ToTask : AnsiString;+GetAPH_FromTask : AnsiString;+GetAPH_UserArea : AnsiString;+GetAPH_ErrFlag : Boolean;

TAlphaMesMenuForm

+FaNetGCCLass:TaNetGCClass;+FaNetGC: TaNetGC;+FMsgControl: TApIControl;+FMenuFrm_MsgControl: TApIcontrol;

+aNetGCCallBack(paNetGCMsg : TaNetGCMsg ;var pContinue : Boolean)

TMinorStepListQueryRpIMsg

+FContinueRg : Boolean;+FMinorStep : String;+FCdsMinorStepList ;TwwClientDataSet;

TfrmMESClient

+FEqpStsLstReq:TEquipmentStatusListQryReqMsg+FEqpStsLstRpl:TEquipmentStatusListQryRplMsg+frmMesClientMenu:TfrmMESClientMenu

+char GetEqpAndStaOnlineOfflineStatus(pEqpStatus: Integer)+Byte GetEqpAndStaAlarmStatus(pEqpStatus: Integer) +GetEquipStatusListInformation (pShowErr : Boolean)+SetGeneralLineStateByEqpInforMsgAndDisplay  (pMonApp : TLineMonApp)

TMessageListQueryRpIMsg

+FContinueFlg : Byte;+FMsgCode : String;+FCdsMsgList : TwwClientDataSet;+FMsgText_First : String;

mes_message_qryMES信号格式映射

JmsgLib

jmsglib.DLL

TAlphaMesCoreBaseForm

TProductListQueryRpIMsg

+FContinueRg : Boolean;+FProductName : String;+FCdsProdList : TwwClientDataSet;

TAlphaMesBaseForm

AlphaUtils(工具类)

+SendRequestAndGetReply(pMsgControl: TAplControl; pRequestMsg : TMesRequestMsg;var pReplyMsg:TMesReplyMsg; pDoReply : Boolean; pShowErr: Boolean = true): boolean+CdsInfoToComBox(pCds:TClientDataSet; pField: String;  pComb:TControl; pClearFlg: Boolean)+CdsInfoToComBoxDoubleField(pCds:TClientDataSet; pField1: String; pField2: String;pComb:TControl; pClear: Boolean = true)+GetZeroDateTime():TDateTime

TaNetGC

+FaNetGCRetCode : Integer;+FErrorCode  : Integer;+FErrorMsg   : AnsiString;+FaNetGCThreadControl   : TStringList;+FPortInfoList       : TList;+FMyNodeName         : AnsiString;+FProcessName        : AnsiString;+FProcessNo          : Integer;+FServiceGroupNumber : Byte;+FServiceGroupList   : TServiceGroupList;+FaNetGCThreadControl : TStringList;+FPortInfoList : TList;

TEquipmentListQueryReqMsg

+FEquipGrp String;+FEquipGrp _Next : String; // 次检索用+FEquipCode_Next: String

TMesMsg

TEquipmentStatusListQryRplMsg

+FContinueFlg            : Boolean;+FEquipmentGrp           : String;+FEquipmentCode          : string;+FStageID                : string;

TNameMasterClass

+FaNetGC             : TaNetGC;+FMsgControl         : TAplControl;+FStrLstCodeName : TStringList;

TaNetGCThread

+FaNetGC            : TaNetGC;+FName           : AnsiString;+FThreadNo       : Integer;+FTransCodeList  : TStringList;+FOption1        : Byte;+FUserPointer    : Pointer;+FForm           : TfrmaNetGC;+FIsOpen         : Boolean;

+CallBack( paNetGCMsg : TaNetGCMsg; var pContinue : Boolean );+ReadIniFile : Boolean;+CallErrorEvent;+SetTimer( pTimeValue:Integer ) : Boolean;+CancelTimer : Boolean;