HMGforum.com

Code: Select all

**manmastbl.prg** (topmost pieces)

#include "hmg.ch"
#include "i_color_nvo.ch"

//--Open dbf method-set
#Define D_SHARED        .F.
#Define D_EXCLUSIVE     .T.
#Define D_WAIT           1
#Define D_READWRITE     .T.
#Define D_READONLY      .F.

SET CENTURY ON
SET DELETED OFF
SET DATE TO BRITISH

#Define COMP_KEY_COL     1
#Define COMP_KEY_LEN     2
#Define UNIT_KEY_COL     1
#Define UNIT_KEY_LEN     2
#Define DEPT_KEY_COL     1
#Define DEPT_KEY_LEN     4

********************************
* Edit Master Tables (Company, Unit, Department)
********************************
Function ManEditMasterTables()
        PRIVATE aCompHeaders
	PRIVATE aCompRecords
	PRIVATE aCompWidths
	PRIVATE aCompControls
	
	PRIVATE aUnitHeaders
	PRIVATE aUnitRecords
	PRIVATE aUnitWidths
	PRIVATE aUnitControls
	
	PRIVATE aDeptHeaders
	PRIVATE aDeptRecords
	PRIVATE aDeptWidths
	PRIVATE aDeptControls
	
	Private nMainWidth := getdesktopwidth()*0.90
	Private nMainHeight:= getdesktopheight()*0.50
	Private bBackcolor, bFontcolor
	Private isCompanyActive, isUnitActive, isDeptActive
	
	//--initial startup set active to Company Table Grid
	isCompanyActive := .T.
	isUnitActive    := .F.
	isDeptActive    := .F.
	
	//--Grid get-settings
	aCompHeaders  := Mangetcomphead()
	aCompRecords  := Mangetcomprecord( "ALL" )
	aCompwidths   := MangetcompWidth()
	aCompControls := MangetcompControl()

	aUnitHeaders  := MangetUnithead()
	aUnitRecords  := MangetUnitrecord( "ALL" )
	aUnitwidths   := MangetUnitWidth()
	aUnitControls := MangetUnitControl()

	aDeptHeaders  := MangetDepthead()
	aDeptRecords  := MangetDeptrecord( "ALL" )
	aDeptwidths   := MangetDeptWidth()
	aDeptControls := MangetDeptControl()
	
	
    bBackColor := { || if ( This.CellRowIndex/2 == int(This.CellRowIndex/2) , {128,128,128} , {192,192,192} ) }
    bFontColor := { || if ( This.CellRowIndex/2 == int(This.CellRowIndex/2) , BLUE , RED ) }

    CellNavigationColor (_SELECTEDCELL_FORECOLOR, BROWN)
    CellNavigationColor (_SELECTEDCELL_BACKCOLOR, YELLOW)
    CellNavigationColor (_SELECTEDCELL_DISPLAYCOLOR, .T.)

    CellNavigationColor (_SELECTEDROW_FORECOLOR, YELLOW)
    CellNavigationColor (_SELECTEDROW_BACKCOLOR, MAROON)
    CellNavigationColor (_SELECTEDROW_DISPLAYCOLOR, .T.)

        //--start main window
 	DEFINE WINDOW Form_Master ;
               AT 0,0                ;
               WIDTH    nMainWidth   ;
                HEIGHT   nMainHeight     ;
                TITLE    'Master Tables' ;
                CHILD                    ;
                ON INIT  ManEditMasterInit()   ;
                FONT    'Arial' SIZE 10 

		DEFINE STATUSBAR
			STATUSITEM 'HMG Power Ready' 
		END STATUSBAR

	     DEFINE MAIN MENU 
                      POPUP 'Client-Server'
                              ITEM 'Test Client to Server NETIO' ACTION ServerConnect()
                      END POPUP
		      POPUP '&Help'
			     ITEM 'Master Table Company status'  ACTION Msginfo ( "Company Table is " + iif(isCompanyActive, "Active", "Not Active"))
			     ITEM 'Master Table Unit status'          ACTION Msginfo ( "Unit Table is " + iif(isUnitActive, "Active", "Not Active"))
			     ITEM 'Master Table Department status'    ACTION Msginfo ( "Department Table is " + iif(isDeptActive, "Active", "Not Active"))
			     ITEM 'Help Page'	                     ACTION MsgInfo ("not available yet") 
		       END POPUP
		END MENU

		DEFINE SPLITBOX 

                COMBOBOX Combo_Master ;
                        ITEMS        {'Company Table','Unit Table','Department Table'} ;
                        VALUE        1 ;
                        TOOLTIP      'Choose a Master Table of records to add, edit, delete' ;
                        ON CHANGE    ManSelectMaster() ;
                        GRIPPERTEXT "Master Table To Edit: " 

                 DEFINE TOOLBAR ToolBar_Comp BUTTONSIZE 85,85 FLAT 

			BUTTON        Button_AddCompany      ;
				   CAPTION   '&Add'          ;
				   PICTURE   'Add-64'        ;
				   ACTION    ManAddCompany() ;
                                   TOOLTIP   'Add new record to Company'
				
			BUTTON Button_UpdateCompany ;
				    CAPTION   '&Update' ;
				    PICTURE   'Update-64' ;
				    ACTION     iif( Form_Master.Grid_Company.Itemcount=0, MsgInfo("No record to update" ), ManEditCompany()) ;
                                    TOOLTIP   'Update existing record of Company'
				
			BUTTON Button_DeleteCompany ;
				    CAPTION   '&Delete' ;
				    PICTURE   'Remove-64' ;
				    ACTION    iif( Form_Master.Grid_Company.Itemcount=0, MsgInfo("No record to delete" ), ManDeleteCompany()) ;
                                    TOOLTIP   'Delete existing record of Company'
			
 			END TOOLBAR
			  
		DEFINE TOOLBAR ToolBar_Unit BUTTONSIZE 85,85 FLAT 
                         BUTTON        Button_AddUnit      ;
				    CAPTION   '&Add'          ;
				    PICTURE   'Add-64'        ;
				    ACTION    ManAddUnit() ;
                                    TOOLTIP   'Add new record to Unit of Company'
				
			  BUTTON Button_UpdateUnit ;
				    CAPTION   '&Update' ;
				    PICTURE   'Update-64' ;
				    ACTION     iif( Form_Master.Grid_Unit.Itemcount=0, MsgInfo("No record to update" ), ManEditUnit() ) ;
                                   TOOLTIP   'Update existing record of Unit of Company'
				
			  BUTTON Button_DeleteUnit ;
				     CAPTION   '&Delete' ;
				     PICTURE   'Remove-64' ;
				     ACTION    iif( Form_Master.Grid_Unit.Itemcount=0, MsgInfo("No record to delete" ), ManDeleteUnit() ) ;
                                     TOOLTIP   'Delete existing record of Unit of Company'
 		END TOOLBAR
			  
                DEFINE TOOLBAR ToolBar_Dept BUTTONSIZE 85,85 FLAT 
			  BUTTON        Button_AddDept      ;
				    CAPTION   '&Add'          ;
				    PICTURE   'Add-64'        ;
				    ACTION    ManAddDept() ;
                                   TOOLTIP   'Add new record to Department'
				
			  BUTTON Button_UpdateDept ;
				    CAPTION   '&Update' ;
				    PICTURE   'Update-64' ;
				    ACTION     iif( Form_Master.Grid_Dept.Itemcount=0, MsgInfo("No record to update" ), ManEditDept() ) ;
                                   TOOLTIP   'Update existing record of Department'
						 	
		          BUTTON Button_DeleteDept ;
				    CAPTION   '&Delete' ;
				    PICTURE   'Remove-64' ;
				    ACTION    iif( Form_Master.Grid_Dept.Itemcount=0, MsgInfo("No record to delete" ), ManDeleteDept()) ;
                                   TOOLTIP   'Delete existing record of Department'
                END TOOLBAR
			
		DEFINE TOOLBAR ToolBar_Network BUTTONSIZE 85,85 FLAT
			   BUTTON Button_Network ;
				    CAPTION   'Net&work' ;
				    PICTURE   'network-64' ;
				    ACTION    ( Msginfo("You are going to run NETIO Server."), Servermain() );
                                    TOOLTIP   'Network Transmission, Server Application'
			   BUTTON Button_Server ;
				    CAPTION   '&NETIO' ;
				    PICTURE   'NETIO-64' ;
				    ACTION    ( Msginfo("You are going to connect NETIO Server as Client."), ServerConnect() );
                                   TOOLTIP   'Connect to Server NETIO, Client application'
		END TOOLBAR
			
		DEFINE TOOLBAR ToolBar_Exit BUTTONSIZE 85,85 FLAT
			   BUTTON Button_Exit3 ;
				    CAPTION   '&Exit' ;
				    PICTURE   'exit-64' ;
				    ACTION    ( Form_Master.release ) ;
                                   TOOLTIP   'Back to Main Menu'
		END TOOLBAR

                //-*- Grid Value (row post) return in array (row, col) because option CELLNAVIGATION is used
                DEFINE GRID Grid_Company 
                        WIDTH        400 
                        HEIGHT       200 
                        FONTNAME     'ARIAL'
                        FONTSIZE     9
                        FONTBOLD     .T.
                        TOOLTIP      NIL
                        ONGOTFOCUS   ( ManCompEnableUpdate(.T.) , ManCompEnableDelete(.T.) )
                        ONLOSTFOCUS  ( ManCompEnableUpdate(.F.) , ManCompEnableDelete(.F.) )
                        ITEMS        aCompRecords
                        HEADERS      aCompHeaders 
                        WIDTHS       aCompWidths  
                         VALUE        1
                         BACKCOLOR    SpringGreen 
                         FONTCOLOR    MediumBlue
			 DYNAMICBACKCOLOR bBackColor 
                         DYNAMICFORECOLOR bFontColor 						
                         COLUMNCONTROLS NIL
                         CELLNAVIGATION .T.
                         LOCKCOLUMNS  2
                 END GRID
				
                 Form_Master.Grid_Company.ColumnHEADER (1) := aCompHeaders[1]
	
                 DEFINE GRID Grid_Unit
                         WIDTH        400 
                        HEIGHT       200 
                        FONTNAME     'ARIAL'
                        FONTSIZE     9
                        FONTBOLD     .T.
                       TOOLTIP      NIL
                       ONGOTFOCUS   ( ManUnitEnableUpdate(.T.) , ManUnitEnableDelete(.T.) )
                       ONLOSTFOCUS  ( ManUnitEnableUpdate(.F.) , ManUnitEnableDelete(.F.) )
                       ITEMS        aUnitRecords
                       HEADERS      aUnitHeaders 
                       WIDTHS       aUnitWidths  
                       VALUE        1
                        BACKCOLOR    Seashell
                        FONTCOLOR    MediumBlue		                                                              
                        DYNAMICBACKCOLOR bBackColor  
                        DYNAMICFORECOLOR bFontColor  						
                        COLUMNCONTROLS NIL
                        CELLNAVIGATION .T.
                        LOCKCOLUMNS  2
                END GRID
			
                Form_Master.Grid_Unit.ColumnHEADER (1) := aUnitHeaders[1]
			
                DEFINE GRID Grid_Dept
                          WIDTH        400 
                          HEIGHT       200 
                          FONTNAME     'ARIAL'
                          FONTSIZE     9
                          FONTBOLD     .T.
                          TOOLTIP      NIL
                          ONGOTFOCUS   ( ManDeptEnableUpdate(.T.) , ManDeptEnableDelete(.T.) )
                          ONLOSTFOCUS  ( ManDeptEnableUpdate(.F.) , ManDeptEnableDelete(.F.) )
                          ITEMS        aDeptRecords
                          HEADERS      aDeptHeaders 
                          WIDTHS       aDeptWidths  
                          VALUE        1
                           BACKCOLOR    PowderBlue
                           FONTCOLOR    MediumBlue
                           DYNAMICBACKCOLOR bBackColor 
                           DYNAMICFORECOLOR bFontColor  						
                           COLUMNCONTROLS NIL
                           CELLNAVIGATION .T.
                           LOCKCOLUMNS  2
                END GRID
				
                Form_Master.Grid_Dept.ColumnHEADER (1) := aDeptHeaders[1]
			
            END SPLITBOX

       END WINDOW

       CENTER WINDOW Form_Master
       ACTIVATE WINDOW Form_Master
Return
*
*