医药管理系统.prg

这是一个医药管理系统。 这是一个医药管理系统。 这是一个医药管理系统。 这是一个医药管理系统。 这是一个医药管理系统。 这是一个医药管理系统。 这是一个医药管理系统。

set talk off 
set escape off
set exact on
set exclusive on
set console on 
set date to long
set score off
set safety off
set status bar off 
set century on 
set deleted on 
set sysmenu off
set notify off
_screen.maxbutton=.f.
_screen.maxwidth=780
_screen.maxheight=600
_screen.caption="医药管理系统"
_screen.picture='医药管理系统\hr'
_screen.autocenter=.t.

public a
public username usertype
do mymenu.mpr 
do form[登录.scx]
read events
procedure onquit
clear events
close all
quit 
endproc