PC Toledo

Código: Selecionar todos

#include "windows.ch"
#include "guilib.ch"
 
*---------------------------------------------------------------------------------------
Function Main
*---------------------------------------------------------------------------------------
Local oFontBtn
Local oFont := Nil
Private Form_Main

REQUEST DBFCDX
RDDSETDEFAULT( "DBFCDX" )
DBSETDRIVER( "DBFCDX" )

SET DELETE ON
SET DATE BRIT
SET CENT ON


   INIT WINDOW Form_Main MAIN MDI TITLE "CADASTRO DE CLIENTES" ;
             SIZE GetDesktopWidth(), GetDesktopHeight() // FONT oFontBtn

   AbreArquivos()
	
   MENU OF Form_Main
      MENU TITLE "&Arquivos"
         MENUITEM "&Empresas" ID 301 ACTION Empr()
         SEPARATOR
         MENUITEM "S&air" ACTION {||dbCloseAll(), EndWindow()}
      ENDMENU                                                                                            

   ENDMENU

   ACTIVATE WINDOW Form_Main ON activate {|o| Form_Main:center()}

return nil



*---------------------------------------------------------------------------------------
Function Empr()
*---------------------------------------------------------------------------------------

   @ 000, 03 button '&Inclusao'  OF Form_Main  size 200,50 on click {|| incluiempr() }
   @ 200, 03 button '&Alteracao' OF Form_Main  size 200,50 on click {|| alteraempr() }
   @ 400, 03 button '&Exclusao'  OF Form_Main  size 200,50 on click {|| excluiempr() }
   @ 600, 03 button '&Consulta'  OF Form_Main  size 200,50 on click {|| consultaempr() }
// @ 03, 400 button '&Sair' size 100,25 on click {|| oDlg:close() }

return nil


*---------------------------------------------------------------------------------------
Function IncluiEmpr()
*---------------------------------------------------------------------------------------
*
Private vCodi, vEmpr, vEnde, vInscr
Public oDlg

       INIT WINDOW oDlg MDICHILD TITLE "Inclusao de Clientes"  STYLE ;
       WS_VISIBLE + WS_OVERLAPPEDWINDOW AT 0,0 SIZE 718,376 ;     // FONT oFont;
           ON SIZE {||MsgInfo("Opção não Disponivel")}

   PREPARE FONT oFontBtn NAME "Arial" WIDTH 0 HEIGHT -12

   INIT DIALOG IncEmpresa CLIPPER NOEXIT TITLE Titulo SIZE 630, 320 Font oFontBtn


       @  25, 90 SAY Lbl_codigo     CAPTION "Codigo        " SIZE 120, 18
       @  25,120 SAY Lbl_razsoc     CAPTION "Razão Social"   SIZE 120, 18
       @  25,150 SAY Lbl_Endereco   CAPTION "Endereco"  SIZE 120, 18

       ACTIVATE DIALOG IncEmpresa ON activate {|o| IncEmpresa:center()}

return nil


func alteraempr
alert('alteracao')
return
func excluiempr
alert('exclusao')
return
func consultaempr
alert('consulta')
return



*---------------------------------------------------------------------------------------
Function AbreArquivos()
*---------------------------------------------------------------------------------------

If ! File('EMPRESA.DBF')
    dbcreate( 'EMPRESA.DBF',{;
    { "Codigo", "C", 3, 0 }, ;
    { "RazaoSocia","C",60, 0 }, ;
    { "Endereco","C",60, 0 }, ;
    { "Inscr","C",18, 0 } } )
EndIf

IF!FILE("Empresa.cdx")
    Use Empresa
    INDEX ON Codigo     TAG  Codigo TO Empresa.CDX
    INDEX ON RazaoSocia TAG  Razao  TO Empresa.CDX
    USE
ENDIF

USE Empresa Alias Empr  SHARED NEW
SET ORDER TO TAG Codigo
GO TOP

Return Nil