Notes

Attraverso la funzione PutParametri che preleva i dati dalla connessione cnLocal

‘fwEsegui ?? impostato dalla form di presentazione
Private Sub MDIForm_Activate()

Select Case fwEsegui
Case Is = 1
‘mnu_NuovoPortafoglio_Click
Case Is = 2
PutParametri “LastFile”, dhd_MDIForm1.CommonDialog1.Filename

AppFileSaveAs
PutParametri “LastFile”, dbPath_ProjectData

Private Sub AppFileOpen()
MyDir = GetParametri(”LastFile”)

Recupera le informazioni dal file ini (Form dhd_Presentazione)

Private Function ActiveDbStock() As Boolean
dbPath_DB = getvar(”Path”, “DB”)

Path”, “DB”
DB=C:\Project\Source 009 Hydra\Source\
Srv=app.path\000srv.dat

Informazioni registrate sulla tabella ZsetProgram del data base dbLocal

Private Sub DBLocalize()

‘Versione 1.0 dati dal mdb
rsLocal.CursorLocation = adUseClient
rsLocal.Open “SELECT * FROM ZSetProgram “, cnLocal, adOpenDynamic, adLockOptimistic
If rsLocal.RecordCount > 0 Then
If Not IsNull(rsLocal!Attivato) And rsLocal!Attivato = “OK” Then
lblPathDB.Caption = rsLocal!PathDB & “”
lblPathDBsrv.Caption = rsLocal!PathDBSrv & “”
‘lblPathAllocazioni.Caption = rsLocal!PathAllocazioni & “”
ESDBrowser1.Text = rsLocal!PathDocPas & “”
End If
End If

lblPathDB.Caption = C:\Project\Source 009 Hydra\Source\Hydra.mdb
rsLocal!PathDocPas = C:\Project\Source 009 Hydra\Source\Srv.dat

l’apertura del db avviene nella routine :
Private Sub OpenDataFile(PathLastFile As String)
della : dhd_MDIForm1

LastFile=app.path\Hydra.mdb