VFP 愛用者社區

zfgg · 註冊時間: 2004-05-31 文章: 179 來自: 中国 第 1 樓

以下是一个增加一条数据的写法，在单用户的情况下，能加入一个记录，如果同时有许多用户（例如有20个终端）都要加入一条记录，custid的值会不会有重复的，（用游标表的数据号＋1，来更新源数据表的）请问老师，这个写法是否可以？
cx=select * from uptosofi
sqlexec(handle,cx,'zs')
selec zs
count to to_tal
for i=1 to to_tal

locate for custid=alltri(str(i))
if found()
if i=>to_tal
_custid=alltri(str(to_tal+1))
endif
else
_custid=alltri(str(i))
exit
endif
endfor

cr="INSERT INTO uptosofi VALUES('&_custid', '&_unitname', '&_projectnam', '&_custname', '&_suliang', '&_danwei', &_danja, &_yinso, &_siso, '&_designer','&_markchar', '&_recordt', '&_sofitime','&_sofier', '&_anzhun','&_maker','&_relater')"
sqlsetprop(handle,'transaction',2)
ireturn=sqlexec(handle,cr)
if ireturn >-1
sqlcommit(handle)
wait window "登记成功! 结帐登记号是："+_custid + " 号，按任意键继续！"
thisform.pageframe1.page1.text1.value=''
else
sqlrollback(handle)
=messagebox("登记不成功，请重新核对登记的数据是否准确！然后再试！" ,48,"登记失败")
endif
sqlsetprop(handle,'transaction',1)
sqldisconnect(handle)

syntech · 發表於: 星期一五月 31, 2004 6:12 pm 文章主題:

程式還算是對的,
但是取 _custid 的重複率真大(您可以自己想看看為什麼?),
不過執行時有可能不發生錯誤,
也有可能會發生錯誤,
基本上是一個有瑕疵的演算法.

這種作法的關鍵在於"何時會insert失敗?"
預期的想法是"重複時insert會失敗",
可是"資料重複"的定義是 I?D?X 重複叫重複,
所以,如果 I?D?X 是建成 U????E 或是P?????????? 時,資料將不能重複,
這樣就算演算法有點瑕疵,結果應該還是對的,
不會有重複資料
(但是會有一堆人一直出現"登記不成功",要存好幾次才行)

如果建成 ??????? 索引則資料能重複,
所以每次insert 都會成功,
自然就不滿足要求了

這種作法是我四年前用到現在的作法,
除了insert法,還有 update 法,也是類似,
用超長亂數_custid 也不錯,
m$常常用在COM物件登錄上

zfgg · 註冊時間: 2004-05-31 文章: 179 來自: 中国 第 3 樓

我已经试过了，用一台终端和服务器同时登录，结果出现二个相同的custid号，问题在于网络的速度快慢，先一个读的custid号，因网络的速度慢，还没有插入到源表中去，结果服务器上的速度快，又读一个相同的custid号，很快插入到源表中去了。造成二个相同的custid号。
我想解决的问题方法有以下几种：一是锁住源表的这个custid号，二是插入到源表前再判断有无相同的custid号。
请问老师，还有没有其它的办法？我对锁住SQL源表的这个custid号的方法还不会，请直接给我写一段代码，能行吗？谢谢！

elleryq · 註冊時間: 2007-06-21 文章: 768 第 4 樓

syntech 兄已經有提出方法了
請仔細看他的回覆~~

syntech · 發表於: 星期二六月 01, 2004 10:10 am 文章主題:

" 程式基本上對的 ",
所以沒有重新給程式的必要,
問題就出在"適用條件"上.

這就是取用別人程式的缺點,
因為沒有自己動手作,
所以不知道別人在寫這段程式時到底還有多少隱藏條件,

遠在公司十幾年前用Clipper開發時就有像zfqq兄的程式同樣概念的唯一單號取得方式,
後來的程式員就直接copy到VFP來用,
然後就開始出現單據號碼重複的情況,
歷年來每個程式員都想不清楚為什麼,
都覺得不是Clipper用的好好的,為什麼VFP就不行,一定是VFP有瑕疵.

可是當我拿Clipper的程式來看時,
就發現那是運氣好的關係,
因為當時的NOVELL NETWARE Server 不能當client 用,
不像Windows Server能當client用,
一旦當client用,情況就像zfqq兄一樣.

一個有瑕疵的演算法,移轉到另一個工具上,
還是一個有瑕疵的演算法,
只是有可能因為環境的影響,所以讓瑕疵出現機率不一樣.
一般的 xBASE 工程師很容易忽略一點,
基本上 xBASE 的每個命令都像一個巨集(macro)一樣,
內部還是由一堆小指令所組成,
如果以組合語言(assembly language)來想就會很明顯,
因為指令不是"不可分割"的,
所以就必須小心思考每行命令的執行時間,
再加上 multiprocessing 的影響,network 的影響,
有可能把不明顯的瑕疵給放大了.

要思考一個無瑕疵演算法很困難,
但是要思考一個有限瑕疵演算法就容易多了,
重點就在於演算法的邊界條件(boundary condition),
控制程式的執行條件,
阻止或限制瑕疵的發生,
那也能算是一種"無瑕疵".

所以呢,我已經說明了boundary condition,
其餘部分就靠自己思考吧!

zfgg · 發表於: 星期二六月 01, 2004 5:42 pm 文章主題:

Syntech老师:
你讲了很多，我还是解决不了问题。我对VFP操作ＳＱＬ数据表的命令，知道的很少，例如，我想判断ＳＱＬ的表是不是有同一个号，如没有就插入，若有就用一个新号。不知这个方法行不行，而且也不知道代码的写法，请直接帮助我写个程序代码解决。谢谢！

an1060 · 發表於: 星期三六月 02, 2004 10:32 am 文章主題:

用游标表的数据号＋1
如果有刪除資料的功能,那從使用刪除的那一刻起,就無法再新增資料了
應改為取最大值的方法,但取最大值的法,也是會出現問題,所以要再加上
當取最大值時,資料又重覆時之處理.

Syntech 的意思是如果給你程式碼,那也只是這個問題的處理部份,但當其他
部分造成此部分出問題時,又該如何?如果問題是來自整體架構呢?

syntech · 發表於: 星期三六月 02, 2004 11:19 am 文章主題:

zfgg · 註冊時間: 2004-05-31 文章: 179 來自: 中国 第 9 樓

写代码我是能懂的，这个问题关键在于先读取原表的总数加１或表内有无缺数，当多个用户插入时，因机器的速度不一，先读的没有插入，后读的先插入了，故可能有重复的，而且我试过了，也是如此，请问有没有方法把SQL的源表的记录锁住，只要有一个先插入时，不成功就不能进行第二个插入了。

syntech · 發表於: 星期三六月 02, 2004 4:40 pm 文章主題:

alensap · 註冊時間: 2003-10-23 文章: 8 第 11 樓

設定primary Key, 且配合stored procdure去產生PK值或許可以減少重複可能性。