FiveTech Software tech support forums

Code: Select all

SET RESOURCES TO "WIFTSRN.DLL"

// Do some checking for error files (????.ERR) If any are found round
// them up and send them by email using blat.exe to programer
// It there are err files then delete all CDX files and logout any users
// Check EXE rights to run on this system (burnt HD serial and vol id to 
// the end of the exe after the rc script has added the icon)

  DEFINE ICON oFolderICO NAME "WIFTLOGO1
  DEFINE WINDOW oMainWin;
   TITLE "IFT for Windows";
   MDI MENU BuildMNU1();
   ICON oFolderICO
  ACTIVATE WINDOW oMainWin MAXIMIZED ON INIT (Main2(cLineCmd))
  lError := .F.
RETURN

Code: Select all

1 ICON .\RCS\FOLDER02.ICO

Code: Select all

BLINKER @$(LnkFile)
RC -k WIFT.RC WIFT.EXE
BURN WIFT.EXE NOVERBOSE

Code: Select all

//  DEFINE ICON oFolderICO NAME "WIFTLOGO1
  DEFINE WINDOW oMainWin;
   TITLE "IFT for Windows";
   MDI MENU BuildMNU1();
   ICON "WIFTLOGO1"

Code: Select all

SET RESOURCES TO "WIFTSRN.DLL"

  DEFINE ICON oFolderICO NAME "WIFTLOGO1
  DEFINE WINDOW oMainWin;
   TITLE "IFT for Windows";
   MDI MENU BuildMNU1();
//   ICON oFolderICO
  oMainWin:SetIcon (oFolderICO)  // <----
  ACTIVATE WINDOW oMainWin MAXIMIZED ON INIT (Main2(cLineCmd))
  lError := .F.
RETURN

Code: Select all

PROCEDURE Main(cLineCmd)

  LOCAL oFolderICO, oBrush, hFile1, cLgTxt, cLgFl, aFiles, nCounter1

  cLineCmd := If( cLineCmd == nil, "NORMAL", cLineCmd ) ;
  SetVarsUp()
  Settings()
  Set3DLook( Upper("ON") == "ON" )
  SetMultiple( Upper("OFF") == "ON" )

  SetWin95Look(.T.)
  RDDSETDEFAULT("SIXCDX")
  Sx_SetMemoBlock(16)

  IF !FILE(".\WIFTSRN.DLL")
    MSGStop(OemToAnsi("Ç âéâëéïèÞêç WIFTSRN.DLL äåí âñÝèéêå" + Chr(13)+Chr(10) + "Eîïäïò áðï ôï ðñüãñáììá."), OemToAnsi("Ðáñáêïëïõèçóç Åéóåñ÷ïìåíùí Öáêåëùí"))
    __Quit()
  ENDIF

  SetResources( "WIFTSRN.DLL" )

  IF !FILE("C:\IFT.LGT")
    hFile1:=FCREATE("C:\IFT.LGT")
    FWRITE(hFile1,"IFT ON LINE")
    FCLOSE(hFile1)
  ELSE
    cLgTxt := MEMOREAD("C:\IFT.LGT")
    cLgFl := SUBSTR(cLgtxt, AT("|", cLgTxt) + 1)
    cLgFl := SUBSTR(cLgFl, 1, AT("|", cLgFl) -1)
  ENDIF

  IF lIsDir(".\LOGS")
    lMkDir(".\LOGS")
  ENDIF

  IF LEN(DIRECTORY(".\*.ERR")) <> 0
    IF FILE(".\BLAT.EXE")
      IF !FILE(".\ERRSNT.TXT")

      ENDIF
    ENDIF
  ENDIF  

  IF FILE(".\ERRSNT.TXT")
    FERASE(".\ERRSNT.TXT")
    aFiles:=DIRECTORY(".\*.ERR")
    FOR nCounter1:=1 TO LEN(aFiles) STEP 1
      FERASE(".\"+aFiles[nCounter1,1])
    next
  ENDIF

  IF .F. // EXE security check here. Until final relese it is off
    MSGStop(OemToAnsi("Ï õðïëïãéóôÞò äåí åßíáé åîïõóéïäïôçìÝíïò ãéá íá åêôåëåß ôï wIFT." + Chr(13)+Chr(10) + "Ðáñáêáëþ åðéêïéíùíÞóôå ìå ôïí Ðïëõ÷ñüíç Ðïñöýñç" + Chr(13)+Chr(10) + "¸îïäïò áðü ôï ðñüãñáììá!"), OemToAnsi("Ðáñáêïëïýèçóç Åéóåñ÷üìåíùí ÖáêÝëùí Ðñïóâáóéìüôçôá"))
    __Quit()
  ELSE
    oFolderICO := TIcon():New( ,, "WIFTLOGO",, )
    oBrush := TBrush():New(, nRGB(   0,   79, 149 ),, )

    oMainWin := TMdiFrame():New(,,,, OemToAnsi("Ðáñáêïëïõèçóç Åéóåñ÷ïìåíùí Öáêåëùí"),, BuildMnu(), oBrush,,,,,,,,, )

      oMainWin:oMsgBar := TMsgBar():New( oMainWin, OemToAnsi("ÁñéèìçôéêÞ ðñïâïëÞ ìå âÜóç ôï ðëáúíü áñéèìü ôïõ öáêÝëïõ"), .F., .F., .F., .T.,,,,!.T. )

      oMainWin:SetFont(oMainFont)
      oMainWin:SetIcon(oFolderICO)
    oMainWin:Activate( Upper("MAXIMIZED"), oMainWin:bLClicked, oMainWin:bRClicked, oMainWin:bMoved, oMainWin:bResized, oMainWin:bPainted, oMainWin:bKeyDown, oMainWin:bInit := { | Self | (Main2(cLineCmd)) },,,,,,,,,,, oMainWin:bLButtonUp )
    lError:=.F.
  ENDIF
RETURN NIL

STATIC PROCEDURE Main2(cLineCmd)

  IF Int_logs("IFT",IIF(UPPER(cLineCmd)="LOG_MAKE",.T.,.F.),IIF(UPPER(cLineCmd)="LOG_RESET",.T.,.F.), cIFTPwd)
    aUsrData := LogIn(oMainWin)
    IF aUsrData[1] <> NIL
      hFile1:=FOPEN("C:\wIFT.LGT", 1)
      FSEEK(hFile1, 0, 2)
      FWRITE(hFile1,"|"+aUsrData[4,5]+"|")
      FCLOSE(hFile1)
      HLogMove(aUsrData, "Åéóïäïò óôï ðñïãñáììá")
      IF OpenDbfs()
        oMainWin:oMenu():aItems[1]:Enable()
        oMainWin:bValid := {|| (IIF(MsgYesNo(OemToAnsi("Åîïäïò áðï ôï ðñïãñáììá;"),OemToAnsi("Ðáñáêïëïõèçóç Åéóåñ÷ïìåíùí Öáêåëùí")), ( lMDIClose := .T.,.T.),.F.)) }
        IFTBrws()
      ELSE
        oMainWin:bValid := {||.T.}
        oMainWin:End()
      ENDIF
    ELSE 
      MSGStop(OemToAnsi("Ç ðñüóâáóç óôï ðñüãñáììá áðÝôõ÷å!"), OemToAnsi("Ðñïóâáóéìüôçôá"))
      oMainWin:bValid := {||.T.}
      oMainWin:End()
    ENDIF
  ELSE
    oMainWin:bValid := {||.T.}
    oMainWin:End()
  ENDIF
RETURN

STATIC PROCEDURE SetVarsUp()

  PUBLIC oMainWin, oBrwsWin, oMainFont, oLstBx1, lMDIClose, aUsrData, aFltLst1, lHreFlt:=.F., cIFTPwd, cVersion, oBrwsBar, oMsg1 := NIL, oMsg2 := NIL, oMsg3 := NIL, lError := .T., lPrgExit := .F.

  cVersion := "2,00,000"

  aFltLst1:=ARRAY(7,4)
  aUsrData:=ARRAY(1)
  aUsrData[1] := NIL

  oMainFont := TFont():New( "Arial Greek", 0, -12,,,,,,,,,,,,,, )

  lMDIClose := .F.
RETURN

EXIT PROCEDURE Exit_IFT()
  LOCAL hFile

  IF !lError
    FERASE("C:\wIFT.LGT")
  ENDIF
  IF aUsrData[1]<>NIL
    LogOut(aUsrData)
    MSGBeep()
  ENDIF
  IF lPrgExit
    MSGWait(OemToAnsi("Ôï ðñïããñáìå äéåêïøå ôçí ëåéôïõñãéá ôïõ."),OemToAnsi("Ðáñáêïëïýèçóç Åéóåñ÷üìåíùí ÖáêÝëùí Time lockdown system"),5)
  ENDIF

RETURN

PROCEDURE TimeChk()
  IF !((TIME() >= "06:59:59") .AND. (TIME() <= "14:00:00"))
    lPrgExit := .T.
    lError := .F.
    IF LEN(aUsrData) <> 1
      HLogMove(aUsrData, "Ôï ðñïããñáìå äéåêïøå ôçí ëåéôïõñãéá ôïõ. Time lockdown system")
    ENDIF
    __Quit()
  ENDIF

RETURN