VFP 愛用者社區

[Ruey]

**VFP+SQL 自動更新程式
*本系統需要在 SQL端 建立一個表
print ''Create table Vers_cont''
go
--------------------版本控制vers_cont -------------------------
create table vers_cont(
version char(10) default ''3.01'',
exedatetime char(16),
exememo text
)
go
insert into vers_cont values(''3.01'','''','''')
go
print ''Create table Vers_cont OK!''
go
你的VFP主程序根據自己的version 和vers_cont 上的version
判斷是否需要更新
若vfp.version<sql.version程式終止，提示更新程式

*自動更新程式 update.prg
*測試遠端視圖，共用連接，更新
*2002.04.23
** 原型，自己擴沖吧 可以用了
Close all
Clea all
Clea
Set safe off
Set talk off
Set stat off
Set hour to 24
Set date to ansi
Set cent on
=sqld(0)
lcExename=''youexe.exe''
lcNewExename=''yournewexe.exe''
Create data getnew
Open data getnew
Create conn getnewjjyw datasource "youdatasource" userid "id" password "pass"
DBSetProp("getnewjjyw","CONNECTION" ,"DISPLOGIN" ,3) &&發任何時候都不彈出
*新建遠程視圖
Create SQL VIEW vers_remote_view remote CONNECTION getnewjjyw share ;
AS SELECT * FROM vers_cont
DBSetProp(''vers_remote_view'', ''View'', ''ShareConnection'', .T.)
DBSetProp("vers_remote_view.exedatetime", "Field", "KeyField", .T.)
DBSetProp("vers_remote_view.version", "Field", "Updatable", .T.)
DBSetProp("vers_remote_view.exememo", "Field", "Updatable", .T.)
DBSetProp("vers_remote_view", "View", "SendUpdates", .T.)
DBSetProp("vers_remote_view", "View", "WhereType", 3)
*設定更新衝突解決方案為“關鍵字和已更新欄位”
DBSetProp("vers_remote_view", "View", "UpdateType", 1)
Wait wind ''從sql 取數據....'' nowait noclear
Use vers_remote_view in 0
Sele vers_remote_view
CursorSetProp("Buffering", 3, "vers_remote_view")
*設定vers_remote_view的緩衝模式為“開放式行緩衝”。由於這時Visual FoxPro的默認設置，這一句可省略。
?CURSORGETPROP("ConnectHandle", "vers_remote_view")
*List stru
*Inkey(0)
Wait wind ''從sql 取回來的數據....'' nowait noclear
Brow
Wait wind ''更新,請稍候....'' nowait noclear
Repl exedatetime with dtos( fdate(lcExeName) )+ ftime(lcExeName) && ftime(''..\jjyw.exe'')
*****
i=filetostr(lcExeName)
Repl exememo with i
*****
wait wind ''還在本地的更新資料'' nowait
Brow
wait wind ''更新資料到sql'' nowait noclear
If tableupdate(0,.t.,''vers_remote_view'')
=messagebox("OK")
Else
=messagebox("error")
=tablerevert()
Endif
Wait wind ''從 sql 重新取回來的data'' nowait
Requery()
Brow
Wait wind ''從 sql 重新取回來的data ，並還原為新的程式'' nowait
Copy MEMO exememo TO &lcNewExename
*用下面的語句也可以
*i=exememo
*?strtofile(i,lcNewexename)
Dele view vers_remote_view
Dele conn getnewjjyw
Clos data
Dele data getnew
Set safe on
Set talk on
?sqld(0)

[ezpos]

這個不好...有檔案大小限制