common.pas

来自「基于DELPHI+SQL的药品管理系统」· PAS 代码 · 共 18 行

unit Common;

interface

type
  UserInfo = record
       UserName: string;
       UserPassWord: string;
       UserPope: String;
  end ;

var
  gUserInfo: UserInfo;

implementation

end.