common.~pas

基于DELPHI+SQL的药品管理系统

unit Common;

interface

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

var
  gUserInfo: UserInfo;

implementation

end.