Search  
Friday, May 25, 2012 ..:: Forum ::.. Register  Login
 Forum Minimize
Pentru a putea posta mesaje trebuie să vă înregistraţi.
Notă: Mesajele cu conţinut jignitor sau ilegal (inclusiv cereri de soft piratat) nu sunt acceptate şi vor fi şterse imediat .

Pentru a primi raspunsuri rapide si corecte, scrieti in mesaj ce intentionati sa faceti, ce mesaj de eroare primiti, in ce context si in urma caror actiuni. De asemenea, mentionati versiunea de FoxPro in care lucrati!
Dacă nu specificați versiunea, se consideră VFP 9.0 SP2.
SearchForum Home
  Visual FoxPro  Clase - VCX si PRG  Cum transform a...
 Cum transform asta intr-o clasa ?
 
 8/31/2006 3:31:41 PM
User is offlineAlin Berce
371 posts
3rd




Cum transform asta intr-o clasa ?
 (Romania) Modified By Alin Berce on 8/31/2006 3:47:40 PM)
As avea nevoie iar de ajutorul vostru. Am urmatoarea secventa de program (care imi face
exportul in excel al unei tabele/cursor) pe care as vrea sa o
transform intr-o clasa careia sa ii transmit parametrii si sa iasa rezultatul final.
Parametrii in cazul meu ar fi: fiserul_meu, numele pe care vreau sa il dau la sheet, titlul.
Nu stiu cum sa pun toata treaba asta intr-o clasa. In ce tip de clasa ar trebui sa o pun, in custom ?
Cum fac sa ii transmit parametrii astia ?
Orice sfat e binevenit. Mersi



#Define xlLastCell 11
#Define xlMaximized -4137
#Define xlRangeAutoformatClassic2 2
#Define xlPortrait 1
#Define nTOPBLANKROWS 0
#Define rowindex 1
#Define xlCenter -4108
#Define xlBottom -4107

If FILE("c:\fisierul_meu.xls")
Delete FILE "c:\fisierul_meu.xls"
Endif

Select * FROM tabela_deschisa_anterior INTO CURSOR xl

cFileName = "c:\fisierul_meu"
Copy TO (cFileName) TYPE XLS

oExcel = CREATEOBJECT("Excel.Application")
If VARTYPE(oExcel) != "O"
Messagebox('Nu aveti instalat Microsoft Excel!',0+32,'Atentie!')
Return .F.
Endif

oExcel.SheetsInNewWorkBook = 1
oWorkbook = oExcel.Workbooks.OPEN(cFileName)

oActiveSheet = oExcel.ActiveSheet
oActiveSheet.NAME = "Numele care vreau sa il dau la sheet"

oExcelApp = oExcel.APPLICATION
oExcelApp.WINDOWSTATE = xlMaximized
lcLastCell = oExcel.ActiveCell.SpecialCells(xlLastCell).Address()


lnMarker1 = AT("$",lcLastCell,1) && i.e. 1 when lcLastCell = "$AF$105"
lnMarker2 = AT("$",lcLastCell,2) && i.e. 4 when lcLastCell = "$AF$105"
lnStartPos = lnMarker1
lnStrLen = lnMarker2 - lnStartPos
oExcel.COLUMNS("A:" + SUBSTR ;
(lcLastCell,lnStartPos,lnStrLen)).EntireColumn.AutoFit

oExcel.RANGE("A" + ALLTRIM(STR(nTOPBLANKROWS+1)) + ":" + lcLastCell).SELECT
oExcel.SELECTION.AutoFormat(xlRangeAutoformatClassic2,.T.,.F.,.T.,.T.,.F.,.F.)
oExcelApp.ROWS("1:1").SELECT
oExcel.ROWS(rowindex).INSERT
oExcelApp.ActiveCell.FormulaR1C1 = "Titlul meu"
oExcelApp.SELECTION.FONT.Bold = 1
oExcel.VISIBLE = .T.
Return
VFP, C#, SQL Server 2005/2008
"Proud to be a ProFox member".
 8/31/2006 4:39:16 PM
User is offlineGrigore Dolghin
3590 posts
www.class-software.eu
1st






Re: Cum transform asta intr-o clasa ?
 (N/A)

Custom e bine. Parametrii nu sunt parametri, ci valori in proprietati. Cam asa:

oFormatExcel = CreateObject("myWonderfulClass")
oFormatExcel.NumeFisier = "nume fisier"
oFormatExcel.TitluFoaieExcel = "titlu foaie"
oFormatExcel.DoTheDamnJob()

 

Grigore Dolghin
Visual FoxPro MVP 2006 - 2010
Class Software
My blog
 Page 1 of 1
NextPreviousNo Rating
  Visual FoxPro  Clase - VCX si PRG  Cum transform a...
Search  Forum Home         

 Google Ads Minimize
    

Copyright 2002-2010 Profox   Terms Of Use  Privacy Statement