wstypes.pas

这是一个正式的项目工程

unit wsTypes;

interface
uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs,StdCtrls,DB, DBTables,
  ComCtrls, Grids, DBGrids, ExtCtrls,DBCtrls, Mask,
  Buttons,ToolWin,WinTypes, WinProcs, Menus,DBCGrids,
  iniFiles; //resMain;

Const
  NewLine=chr(10)+chr(13);  //回车换行
  MaxCommandCount=20;
  MaxDayCount=720;
  MaxOperationCount=20;
  MaxExtensionCount=60;
  MaxParameterCount=10;
  MaxGroupCount=60;
  MaxLineCount=1000;
  MaxErrorCount=20;
Type

  PUserInfo=^TUserInfo;
  TUserInfo=Record
     UserID          :String[32];
     UserName        :String[32];
     UserDescription :String[50];
     Password        :String[32];
     UserLevel       :word;
     Date            :String[10];
     Time            :String[12];
     Next            :PUserInfo;
  end;

  TDBInfo=Record
     DBFileName       :String[250];
     DBAName          :String[32];
     DBADescription   :String[50];
     DBAPassword      :String[32];

  end;

  TAppInfo=record
     ImeName       :TImeName;
     ImeMode       :TImeMode;
     Path          :String[250];
     Title         :String[50];
     CompanyName   :String[50];
     INIFileName   :String[250];
     IDFileName    :String[250];
     BMPFileName   :String[250];
     isBMPChanged  :Boolean;
     ToolStatus    :String[10];
     //1111111111; 状态初值；
     //1--状态栏；
     //2--快捷栏；
     //3--是否需要喇叭发声；
     SerialNum     :String[20];
     RegisterCode  :String[20];
  end;

  TCodeInfo=record
     strFilter     :String[32];      //代码名
     strCaption    :String[250];      //代码窗口标题
     CodeDes       :Array[0..9] of integer;
       //codeDes[9]:CodeLength;
       //CodeDes[0]:Code 层次；
       //Codedes[1..8]:Code 层次length;
    Top,Left:integer;
  end;
  TResultCode=record
     ACode        :String[15];
     CodeMeaning  :String[50];
  end;
  TQueryInfo=record
     DataBaseName       :String[32];
     TableName          :String[32];
     SQL                :String[250];
  end;
  TBDEParams=Record
     Path                :String[250];
     PathWithItialic     :String[250];
  end;
  TPrintType=(ptPrint,ptPreview);

  TDataPacket=Record
    ExtensionID :String[3];
    Name        :String[30];
    Gravity     :Real;
    HeightDiff  :Real;
    State       :Byte;
  end;
  TData=Record
    ExtensionID :String[3];
    Gravity     :Real;
    Height      :Integer;
    HorizonDiff :Real;
    State       :String[2];
  end;
  TSystemState=(ssNormal,ssAscend,ssDescend,ssStop,ssDownLoad,ssReverse,ssSample,ssAscPrepare,ssDesPrepare,ssNullAsc,ssNullDes,ssInitialize);
  TExtensionFlag=Record
    GroupID     :String[3];
    ExtensionID :String[3];
    OverCount   :Byte;
    Gravity     :Real;
    Height      :Real;
    HorizonDiff :Real;
    Flag        :Byte;
    Status      :TSystemState;
    CommErr     :Boolean;
    Adjusting   :Boolean;
    FirstComm   :Boolean;
  end;
  TGroupFlag=Record
    GroupID    :String[3];
    ExtensionCount :Integer;
    AverageG   :Real;
    AverageH   :Real;
    Flag       :String[3];
  end;
  TAllExtension=Array[0..MaxExtensionCount-1] of TExtensionFlag;
  TAllGroup=Array[0..MaxGroupCount-1] of TGroupFlag;
  TExtensionState=Array[0..MaxExtensionCount-1] of TData;
  TRawDataPacket=Record
    Byte1       :Byte;
    Byte2       :Byte;
    Byte3       :Byte;
    Byte4       :Byte;
    Byte5       :Byte;
    Byte6       :Byte;
    Byte7       :Byte;
  end;
  TSendData=Record
    Byte1       :Byte;
    Byte2       :Byte;
    Byte3       :Byte;
  end;
  TSendPacket=Array of Byte;
  //TMultiSendPacket=array of Byte;
  TRawCommand=Record
    ExtensionID :String;
    CommandID   :String[3];
    Data        :String[3];
    //MultiExtesionID:string;
  end;
  TProject=Record
    ProjectName:String[50];
    ProjectID:String[20];
    HourseName:String[50];
    HourseID:String[20];
  end;
  TCommandID=Array[0..MaxCommandCount-1] of String[3];
  TLogInfo=Record
    UserName  : String[20];
    Operation : String[20];
    DDate     : TDate;
    DTime     : TTime;
    Remark    : String[40];
  end;
  TControlParameter=Array[0..MaxParameterCount-1] of String;
  TStandardGrivaty=Record
    ExtensionID:String[3];
    Value :Real;
  end;
  TStandardG=Array[0..MaxExtensionCount-1] of TStandardGrivaty;
  TByteData=Array[0..6] of Byte;
  TCurrentOperationExtension=Array[0..MaxExtensionCount+2] of Byte;
  TStateInfo=Record
    SystemState:TSystemState;
    MaxValue:Integer;
    MaxExtensionCount:Integer;
    Height:Integer;
    MaxHeight:Integer;
    UpperLimit13,UpperLimit16,LowLimit07,LowLimit04 :Real;
    CurrentExtensionCount,CurrentGroupCount :Integer;
    CurrentOperateExtension:TCurrentOperationExtension;
    HeightAcc:integer;{0:加    1减}
  end;
  TMaxMinExtension=Record
     HorizonDiff    :Real;
     MaxExtensionID :String;
     MinExtensionID :String;
  end;
  TErrorInfo=Record
     ECode    :Integer;
     EMessage :String;
  end;
  TReceiveString=Record
     Str1:String[2];
     Str2:String[2];
     Str3:String[2];
     Str4:String[2];
     Str5:String[2];
     Str6:String[2];
     Str7:String[2];
  end;
var
  AppInfo      :TAppInfo;
  DBInfo       :TDBInfo;
  PDBInfo      :^TDBInfo;
  UserInfo     :TUserInfo;
  PrintType    :TPrintType;
  BDEParams    :TBDEParams;
  GProjectInfo  :TProject;
  DataPacket   :TDataPacket;
  RawDataPacket:TRawDataPacket;
//  SendData:TSendData;
  RawCommand    :TRawCommand;
  SendPacket    :TSendPacket;
  CommandID     :TCommandID;
  LogInfo       :TLogInfo;
  OperationType :Array[0..MaxOperationCount-1] of String;
  ExtensionState1,ExtensionState2,ExtensionState8 :TExtensionState;
  ControlParameter    :TControlParameter;
  StandardG           :TStandardG;
  ByteData            :TByteData;
  AllExtension        :TAllExtension;
  AllGroup            :TAllGroup;
  StateInfo           :TStateInfo;
  ErrorInfo           :Array[0..MaxErrorCount-1] of TErrorInfo;
  RWSyn               :TMultiReadExclusiveWriteSynchronizer;
  ReceiveString       :TReceiveString;
  bSampling           :Boolean;
  ReceiveCount        :integer;
implementation


end.