untglobalvar.pas

简要说明:对医院幼儿心理情况做的一个调查,统计系统.

unit untGlobalVar;

interface

uses
  Graphics;

type
  TOperatorMode = (omNew, omModi, omDel, omBrowse);
  TFieldDataType = (dtString, dtNumeric, dtDateTime, dtBlob, dtUnknow);

  TUserRec =  record
    UserID:       Integer;
    Code:         string;    //用户编号
    Name:           string;    //用户编号(工号):对外显示或打印用
    Password:           string;    //用户姓名
  end;

  //匹配方式
  TLocateOption = (loAll, loPart, loLeft);
  //查找方向
  TLocateForward = (lfUp, lfDown);
  //查找设置
  TLocateSet = record
    FieldName:     string;
    LocateStr:     string;
    LocateOption:  TLocateOption;
    LocateForward: TLocateForward;
    CaseSensitive: Boolean;
    FirstLocate:   Boolean;
  end;

  TPatientInfo = record
    ID: Integer;
    Code: string;
    Name: string;
    Sex: string;
    Birth: TDateTime;
    Age: string;
    Mz: string;
    Land: string;
    Status: Integer;
    CreateDate: TDateTime;
    LastDate: TDateTime;
    DoctorID: Integer;
  end;

  TChildren = record
    iAutoID: Integer;
    Code: string;
    Name: string;
    Sex:  Integer;
    BirthYear: Integer;
    BirthMonth: Integer;
  end;

var
  SystemName: string;
  StartColor, EndColor, CaptionColor, ActiveColor: TColor;

  XLGood      : string;
  XLPre       : string;
  XLLast      : string;
  QZType      : string;
   //
  {节律性
趋避性
适应性
反应强度
心境

活动水平
}
  QZ1,QZ2,QZ3,QZ4,QZ5,XW: string;
implementation

end.