主程序.prg

一个简单的零售系统,功能不是太强大,一般适合便利店自用还可以,本人没有实际应用测试过,你们用用再看看吧.

SET    SAFETY    OFF
_screen.Visible=.f.
titletmp=SPACE(20)+CHR(0)
name1=SPACE(20)+CHR(0)
tel=SPACE(20)+CHR(0)
db=SPACE(20)+CHR(0)
IF FILE(CURDIR()+"system.ini",1)=.f.
     filename=FCREATE(CURDIR()+"system.ini")
     FCLOSE(filename)
     DECLARE INTEGER WritePrivateProfileString IN Win32API AS WritePrivStr ;
     String cSection, String cKey, String cValue, String cINIFile
     =WritePrivStr("systeminfo","title","广天电脑零售系统",CURDIR()+"system.ini")
     =WritePrivStr("systeminfo","name","作者：张锋",CURDIR()+"system.ini")
     =WritePrivStr("systeminfo","tel","电话：[phone]",CURDIR()+"system.ini")
     =WritePrivStr("systeminfo","db","",CURDIR()+"system.ini")
ENDIF
      titletmp=SPACE(20)+CHR(0)
      DECLARE INTEGER GetPrivateProfileString IN Win32API  AS GetPrivStr ;
      String cSection, String cKey, String cDefault, String @cBuffer, ;
      Integer nBufferSize, String cINIFile
      =GetPrivStr("SYSTEMINFO","TITLE","",@titletmp,LEN(titletmp),CURDIR()+"system.ini")
      =GetPrivStr("SYSTEMINFO","name","",@name1,LEN(name1),CURDIR()+"system.ini")
      =GetPrivStr("SYSTEMINFO","tel","",@tel,LEN(tel),CURDIR()+"system.ini")
      =GetPrivStr("SYSTEMINFO","db","",@db,LEN(db),CURDIR()+"system.ini")
      
      
      
      titletmp=ALLTRIM(titletmp)
      name1=ALLTRIM(name1)
      tel=ALLTRIM(tel)
      db=ALLTRIM(db)
_screen.Caption=titletmp+name1+tel+db
SET MESSAGE TO name1
DO FORM 登陆
systmp=NEWOBJECT("SysTray","SysTray.vcx")
systmp.IconFile = "icon.ico"
systmp.TipText 	= titletmp
systmp.MenuText = "Systry.mpr"
systmp.MenuTextIsMPR = .T.
systmp.AddIconToSystray()
systmp.showballoontip("欢迎您,请登陆!",titletmp,1,1)
ON SHUTDOWN do sysexit.prg

READ EVENTS