FiveTech Software tech support forums

Code: Select all | Expand

DEFINE WINDOW poWnd MDI                                                 ;
            FROM 0, 0 TO 38, 130                                             ;
            TITLE ...   ;
            MENUINFO 9 VSCROLL HSCROLL                                       ;
            BRUSH oBrush MENU ::Build_FW_Menu()

METHOD Build_FW_Menu() CLASS TWinCraneErp
LOCAL oMenu

          MENU oMenu FONT oFnt4 2013 ADJUST ;
                    NOBORDER ; ...

         MENUITEM "&W.視窗"
         MENU … ENDMENU
 

Code: Select all | Expand

#include "fivewin.ch"

function Main()

   local oWnd, oBar

   FW_SetUnicode( .t. )

   DEFINE WINDOW oWnd MDI TITLE "吊車管理系統-堃"
   DEFINE BUTTONBAR oBar OF oWnd SIZE 100,32 2007
   DEFINE BUTTON PROMPT "客戶" OF oBar ACTION Child1()
   DEFINE BUTTON PROMPT "廠商" OF oBar ACTION Child2()
   ACTIVATE WINDOW oWnd

return nil

static function Child1()

   local oWnd, oIco, cText := Space( 40 )

//   DEFINE ICON oIco FILE "c:\fwh\icons\books.ico"

   DEFINE WINDOW oWnd MDICHILD OF WndMain() ;
      TITLE "客戶資料" //ICON oIco

   @ 40,40 GET cText SIZE 200,24 PIXEL OF oWnd

   @ 90,40 BUTTON "確定(OK)" SIZE 100,30 PIXEL OF oWnd ;
      ACTION MsgInfo( cText )

//   oWnd:bPostEnd := { || oIco:End() }

   ACTIVATE WINDOW oWnd

return nil

static function Child2()

   local oWnd, oIco, cText := Space( 40 )

//   DEFINE ICON oIco FILE "c:\fwh\icons\books.ico"

   DEFINE WINDOW oWnd MDICHILD OF WndMain() ;
      TITLE "廠商資料" //ICON oIco

   @ 40,40 GET cText SIZE 200,24 PIXEL OF oWnd

   @ 90,40 BUTTON "確定(OK)" SIZE 100,30 PIXEL OF oWnd ;
      ACTION MsgInfo( cText )

//   oWnd:bPostEnd := { || oIco:End() }

   ACTIVATE WINDOW oWnd

return nil