start.bak

自写的仓库管理系统,之前在工厂打工时写的

**
** C:\仓储管理\start.fxp
**
 SET TALK OFF
 SET ESCAPE OFF
 SET SAFETY OFF
 SET NOTIFY OFF
 SET DELETED ON
 SET CENTURY ON
 ON SHUTDOWN do shutdown
 PUBL isnoticealarm
 ccaption = "仓储管理 - 作者：李中武"
 DECL INTEGER FindWindow IN win32api STRING, STRING
 IF findwindow(0,ccaption)<>0
      _SCREEN.caption = ccaption
      = MESSAGEBOX("仓储管理程序已经运行，请查看任务栏！", 16, "系统资源省着点用哦！ ^_^ ")
      PUBL cinifile
      cinifile = GETENV('windir')+"\Storage.ini"
      RETU .F.
 ENDI
 _SCREEN.caption = ccaption
 SET CLASSLIB TO myclasslib ADDITIVE
 PUBL first_day, old_day, cur_pass, screen_pass, cwindir, ctempdir, cinifile, mfilelist(8, 2), nfiles
 PUBL nalarm, alarm_msg(1, 9), max_alarm, alarm_id, nalarmformleft, nalarmformtop, ngetalarmtime
 PUBL ocalendar, otodaydiary, oyesterdaydiary, oformatbar, ogz, ogetalarmmsg, oscreensave, ocase
 PUBL isformatbarrun, isini, isautosavediary, isshowstatus, isscreensave
 PUBL year_month, ndelaytime, nintervalsavediary, screensavetime, screensavelist(2), screentheme
 PUBL toolbarshow, cbackimage, cbackcolor, nwhichback
 PUBL screen_left, screen_top, screen_width, screen_height, screen_state
 PUBL cchuqintype
 PUBL owp_in, owp_out, owp_manage, owp_storage, owp_operate, owp_account, odfkc, cdfkc_path, guest_id, guest_mc, guest_fh
 PUBL report_date
 PUBL userlist, p_id
 p_id = 0
 userlist = ""
 cdfkc_path = ""
 DIME screensavelist(2)
 screensavelist(1) = "小彩球"
 screentheme = screensavelist(1)
 screensavetime = 60000
 ngetalarmtime = 60000
 alarm_id = 1
 max_alarm = 1
 ndelaytime = 0
 nintervalsavediary = 120000
 isautosavediary = .T.
 isshowstatus = .T.
 first_day = 1
 old_day = 31
 cwindir = GETENV('WinDir')
 ctempdir = GETENV('Temp')
 isnoticealarm = .T.
 _SCREEN.autocenter = .T.
 screen_left = _SCREEN.left
 screen_top = _SCREEN.top
 screen_width = _SCREEN.width
 screen_height = _SCREEN.height
 screen_state = _SCREEN.windowstate
 cbackimage = ""
 cbackcolor = RGB(255, 255, 255)
 nwhichback = 3
 report_date = DATE()
 DO prog_ini
 cinifile = GETENV('windir')+"\Storage.ini"
 if file('&cIniFile')
      restore from &cIniFile addi
      isini = .F.
 ELSE
      cur_pass = "lzw"
      screen_pass = "lzw"
      save to &cIniFile
      isini = .T.
 ENDI
 nalarmformleft = 0
 nalarmformtop = 0
 toolbarshow = ""
 DO CASE
      CASE nwhichback=1
           _SCREEN.backcolor = -1
           _SCREEN.picture = cbackimage
      CASE nwhichback=2
           _SCREEN.picture = ""
           _SCREEN.backcolor = cbackcolor
      CASE nwhichback=3
           _SCREEN.picture = ""
           _SCREEN.backcolor = -1
 ENDC
 DO menu.mpr
 *SET MARK OF BAR 1 OF 查看v isshowstatus
 IF isshowstatus=.F.
      SET STATUS BAR OFF
 ENDI
 DO FORM 开始画面
 SET MESSAGE TO "就绪"
 READ EVENTS
ENDFUNC
*