![VFP 愛用者社區 首頁](templates/subSilver/images/vfps.jpg) |
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
kmkna1103
註冊時間: 2008-05-08 文章: 119 來自: 台灣
第 1 樓
|
發表於: 星期一 十二月 22, 2014 11:49 am 文章主題: 使用中也可更新程式的方法 |
|
|
很多人同時使用的時候就無法更新軟體,如果用這個方式是可以直接更新後通知客戶退出在進入就可以了,在sql的模式是沒問題,但是使用dbf的方式是無法更新結構,請問還有其他方式做嗎?
代碼: |
PARAMETERS PAR_EXE
IF TYPE("PAR_EXE")="C" &&有帶入參數時
PRIVATE _RETGS1,_OLDERR1,_DELFILE
_RETGS1=.F.
_DELFILE=''
DECLARE AFILE[1,5]
ADIR(AFILE,"AUTO*.EXE")
mFILETOT = INT(ALEN(AFILE)/5)
FOR _K2=1 TO mFILETOT
_RETGS1=.F.
_OLDERR1=ON("ERROR")
ON ERROR CHK_EXT()
_DELFILE=AFILE[_K2,1]
Delete FILE &_DELFILE
ON ERROR &_OLDERR1
IF _RETGS1
****不成功訊息
ENDIF
NEXT
LOCAL _DEFEXE,_AUTOEXE,_COMPUTER_USER
_DEFEXE=ALLTRIM(PAR_EXE)+'.EXE'
_AUTOEXE='AUTO'+SYS(2015)+'.EXE'
_COMPUTER_USER=''
IF AT(',',PAR_EXE)>0
_DEFEXE=SUBSTR(ALLTRIM(PAR_EXE),1,AT(',',ALLTRIM(PAR_EXE))-1)+'.EXE'
_COMPUTER_USER=SUBSTR(ALLTRIM(PAR_EXE),AT(',',ALLTRIM(PAR_EXE))+1,LEN(ALLTRIM(PAR_EXE))-AT(',',ALLTRIM(PAR_EXE)))
ELSE
_DEFEXE=ALLTRIM(PAR_EXE)+'.EXE'
ENDIF
IF FILE('&_DEFEXE')
COPY FILE &_DEFEXE TO &_AUTOEXE
RUN /N &_AUTOEXE &_COMPUTER_USER
ENDIF
ENDIF
|
|
|
回頂端 |
|
![](templates/subSilver/images/spacer.gif) |
bx1166
註冊時間: 2011-12-06 文章: 273
第 2 樓
|
發表於: 星期三 十二月 24, 2014 4:40 pm 文章主題: |
|
|
我很好奇,樓上提到的,多人同時使用時就無法更新軟體,軟體更新怎麼會扯到使用者的多寡?
對於更新程式,我是覺得常發生,尤其在剛上線的時候。
批次檔就可以處理的, example.bat, 新程式newpro.exe, 取代realprog.exe
If not exist \path\newporg.exe goto start
Copy \path\newprog.exe \progpath\realprog.exe/v
Del \path\newpoog.exe
:start
Cd\progpath
Realprog
把這個bat當成program捷徑,更新的新程式ㄧ律放到 path\newprog.exe
就是更新了。 |
|
回頂端 |
|
![](templates/subSilver/images/spacer.gif) |
syntech
註冊時間: 2003-05-16 文章: 4215 來自: Taipei,Taiwan
第 3 樓
|
發表於: 星期四 十二月 25, 2014 10:25 am 文章主題: |
|
|
樓主看起來是把程式放在 BLOB 欄位中,再COPY出來執行.
但是不知道樓主整個結構是怎麼放的.
SQL 可以,DBF 不行,
有點像產生CURSOR時,
SQL CURSOR 是可以修改的,DBF CURSOR 是不能修改的.
如果是這樣,
就是再用 USE DBF('CURSOR_NAME') 開啟真實的CURSOR 檔案 試看看.
或是直接 USE DBF,不要搞成 DBF_CURSOR .
以上皆是亂猜的. _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
![](templates/subSilver/images/spacer.gif) |
kmkna1103
註冊時間: 2008-05-08 文章: 119 來自: 台灣
第 4 樓
|
發表於: 星期四 十二月 25, 2014 10:31 am 文章主題: |
|
|
回bx1166 有時候5、6個使用者在使用門市pos結帳,但是出問題有可能只是會計模組的部份,營業時間無法請他們停下來,我就只能用這個方式做,這樣可能讓使用會計模組的人更新程式也不會影響門市結帳 |
|
回頂端 |
|
![](templates/subSilver/images/spacer.gif) |
kmkna1103
註冊時間: 2008-05-08 文章: 119 來自: 台灣
第 5 樓
|
發表於: 星期四 十二月 25, 2014 10:40 am 文章主題: |
|
|
回syntech
dbf結構重整做法是把原dbf rename成另外一個檔案 在重新建立新的dbf把資料倒回去,這中間如果有人使用就無法變更了 |
|
回頂端 |
|
![](templates/subSilver/images/spacer.gif) |
garfield Site Admin
![](images/avatars/1721266997466e2d116a266.jpg)
註冊時間: 2003-01-30 文章: 2158
第 6 樓
|
發表於: 星期四 十二月 25, 2014 11:04 am 文章主題: |
|
|
如果更新程式及資料結構這麼重要, 那就該要求使用者馬上結束程式讓你變更程式才對.
不然你就得一直測試到可更新資料結構時才去更新. _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
![](templates/subSilver/images/spacer.gif) |
syntech
註冊時間: 2003-05-16 文章: 4215 來自: Taipei,Taiwan
第 7 樓
|
發表於: 星期四 十二月 25, 2014 11:27 am 文章主題: |
|
|
kmkna1103 寫到: | 回syntech
dbf結構重整做法是把原dbf rename成另外一個檔案 在重新建立新的dbf把資料倒回去,這中間如果有人使用就無法變更了 |
跟你引那一段程式,有什麼關係? _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
![](templates/subSilver/images/spacer.gif) |
kmkna1103
註冊時間: 2008-05-08 文章: 119 來自: 台灣
第 8 樓
|
發表於: 星期四 十二月 25, 2014 11:29 am 文章主題: |
|
|
也許是做法的問題,客戶的資料量很龐大每年都要清一次,到了年底重整一次結構建立索引都要跑半小時以上
所以只能在非營夜業時間去做這個動作 |
|
回頂端 |
|
![](templates/subSilver/images/spacer.gif) |
bx1166
註冊時間: 2011-12-06 文章: 273
第 9 樓
|
發表於: 星期四 十二月 25, 2014 11:39 am 文章主題: |
|
|
程式更新與其他電腦沒關係啊,除非要修改dbf資料結構。
就算是pos繼續進行,會計部門的程式更新也不會影響pos程式啊,每個工作站執行各自的程式,
只要伺服企業繼續服務,工作站的程式更新是照樣可以進行的。
如何想ㄧ邊更改程式,ㄧ邊更改資料結構,那全部都暫停才比較容易避免ㄧ些資料的流失,
我的作法是把更改資料結構的程式,預先寫好,執行時可以判斷該資料有無人使用的空檔,
鎖定,更改,關閉,花不了多少時間。有時候,工作站跟本沒查覺。 |
|
回頂端 |
|
![](templates/subSilver/images/spacer.gif) |
bx1166
註冊時間: 2011-12-06 文章: 273
第 10 樓
|
發表於: 星期四 十二月 25, 2014 1:38 pm 文章主題: |
|
|
資料龐大是自找麻煩,我有一客戶,踢到伺服器,辛苦打了半個鐘頭的資料,當下就毀了,
資料檔大,備份,建索引都慢,ㄧ但出狀,恢復也困難。 |
|
回頂端 |
|
![](templates/subSilver/images/spacer.gif) |
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|