 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
foreman
註冊時間: 2004-02-28
文章: 14
第 1 樓
|
 發表於: 星期三 三月 03, 2004 8:22 am 文章主題: 關於append blank |
 |
|
請問高手:
弟試著自己寫新增record的程式, 可是一直有問題, 請高手幫忙看一下, 程式如下:
thisform.txt客戶編號_a.enabled = .t.
thisform.txt客戶姓名.enabled = .t.
thisform.txt客戶住址.enabled = .t.
thisform.txt客戶電話.enabled = .t.
thisform.txt出生日期.enabled = .t.
thisform.txt就診編號.enabled = .t.
thisform.edt病歷記錄.enabled = .t.
thisform.edt療後情況.enabled = .t.
thisform.chk舊客.enabled = .t.
thisform.grid1.enabled = .t.
local SN, cSN, SN2, cSN2
select 客戶資料
set order to tag
goto bottom
if not eof()
SN = val(substr(客戶資料.客戶編號, 2)) + 1
cSN = "A" + padl(ltrim(str(SN)), 4, "0")
else
cSN = "A0001"
endif
append blank in 客戶資料
*thisform.setall("Enabled", ".t.", "textbox")
thisform.setall("Value", "", "TextBox")
thisform.txt客戶編號_a.value = cSN
thisform.txt客戶編號_a.setfocus
select 就診資料
set order to tag
goto bottom
if not eof()
SN2 = val(substr(就診資料.就診編號, 2)) + 1
cSN2 = "B" + padl(ltrim(str(SN)), 4, "0")
else
cSN2 = "B0001"
endif
append blank in 就診資料
thisform.txt就診編號.value = cSN2
select 病歷資料
set order to tag
append blank in 病歷資料
thisform.refresh
程式在 append blank in 客戶資料
就會出現索引 客戶編號 獨一性被破壞 請問該如何解決呢?
碼頭
www.dotgive.com |
|
| 回頂端 |
|
 |
elleryq
註冊時間: 2007-06-21
文章: 768
第 2 樓
|
| 發表於: 星期三 三月 03, 2004 9:09 am 文章主題: |
|
|
1.資料表裡面有空白資料吧~~
找到該筆
然後殺掉
接著再試試
2.索引設定問題
記得在 index 的條件欄加上 not deleted()
然後再試試 |
|
| 回頂端 |
|
|
foreman
註冊時間: 2004-02-28
文章: 14
第 3 樓
|
| 發表於: 星期三 三月 03, 2004 5:54 pm 文章主題: |
|
|
| elleryq 寫到: | 1.資料表裡面有空白資料吧~~
找到該筆
然後殺掉
接著再試試
2.索引設定問題
記得在 index 的條件欄加上 not deleted()
然後再試試 |
可是我在按新增記錄鈕時，有先把客戶資料表先zap過，客戶資料表應是都無記錄才對啊，如果是索引問題，請問ｅｌｌｅｒｙｑ高手為何要如此設定呢？
碼頭
www.dotgive.com |
|
| 回頂端 |
|
|
Ruey
註冊時間: 2003-03-12
文章: 1698
來自: tunglo
第 4 樓
|
| 發表於: 星期三 三月 03, 2004 9:42 pm 文章主題: |
|
|
"客戶資料" "就診資料 "
嘗試將編號取得都在append blank之前
_________________
#############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
| 回頂端 |
|
|
elleryq
註冊時間: 2007-06-21
文章: 768
第 5 樓
|
| 發表於: 星期四 三月 04, 2004 9:16 am 文章主題: |
|
|
空白資料跟 zap 沒什麼關係
zap 只是把標記為 delete 的紀錄除去而已~~
索引這樣設,是因為會有含括已經標記為 delete 的紀錄一起索引的情況~ |
|
| 回頂端 |
|
|
foreman
註冊時間: 2004-02-28
文章: 14
第 6 樓
|
| 發表於: 星期四 三月 04, 2004 1:32 pm 文章主題: |
|
|
| elleryq 寫到: | 空白資料跟 zap 沒什麼關係
zap 只是把標記為 delete 的紀錄除去而已~~
索引這樣設,是因為會有含括已經標記為 delete 的紀錄一起索引的情況~ |
可是我記得沒錯的話，ｚａｐ等於先delete all再做ｐａｃｋ啊，所以資料表經ｚａｐ後應是會變成空資料表啊，難道我記錯了？
碼頭
www.dotgive.com |
|
| 回頂端 |
|
|
foreman
註冊時間: 2004-02-28
文章: 14
第 7 樓
|
| 發表於: 星期四 三月 04, 2004 1:34 pm 文章主題: |
|
|
| Ruey 寫到: | "客戶資料" "就診資料 "
嘗試將編號取得都在append blank之前 |
您說得很簡要，弟看得不是很懂，可以請您說得清楚一些嗎？
碼頭
www.dotgive.com |
|
| 回頂端 |
|
|
小桑•無痕
註冊時間: 2003-07-08
文章: 304
來自: Tainan, Taiwan
第 8 樓
|
| 發表於: 星期四 三月 04, 2004 2:05 pm 文章主題: |
|
|
哈囉....foreman....
ZAP是等於「 Delete All 再做 Pack 」沒錯，我昨天也差點跟 elleryq ，一時勿認為 Zap 沒做 Pack 動作，Post到一半時才突然想到。
不過，會出現「索引 客戶編號 獨一性被破壞 」這表示 1.您使用「獨一索引」或「候選主鍵值」，2.資料一定有鍵值重複(客戶編號)。
建議可以在 「append blank in 客戶資料」前先看看「客戶資料」，可以使用 MESSAGEBOX(RECCOUNT("客戶資料")) <----檢查「客戶資料」有幾筆記錄 及 BROW <---檢查「客戶資料」的資料，看看 Key 是否有重複。
另外，您在其他的 Table 是否有用到 「客戶編號」 做索引，如果有最好一併檢查。
PS:1.elleryq 大大...呵呵...我們昨天都犯一樣的錯。 
2.「可是我在按新增記錄鈕時，有先把客戶資料表先zap過.....」這裡我一直無法理解為什麼要把客戶資料表先zap過，這樣不就把上次新增的 資料刪除了嗎？
_________________
用力 Try 一下...可以發現很多好玩的事.... |
|
| 回頂端 |
|
|
foreman
註冊時間: 2004-02-28
文章: 14
第 9 樓
|
| 發表於: 星期四 三月 04, 2004 2:43 pm 文章主題: |
|
|
| 小桑•無痕 寫到: | 哈囉....foreman....
ZAP是等於「 Delete All 再做 Pack 」沒錯，我昨天也差點跟 elleryq ，一時勿認為 Zap 沒做 Pack 動作，Post到一半時才突然想到。
不過，會出現「索引 客戶編號 獨一性被破壞 」這表示 1.您使用「獨一索引」或「候選主鍵值」，2.資料一定有鍵值重複(客戶編號)。
建議可以在 「append blank in 客戶資料」前先看看「客戶資料」，可以使用 MESSAGEBOX(RECCOUNT("客戶資料")) <----檢查「客戶資料」有幾筆記錄 及 BROW <---檢查「客戶資料」的資料，看看 Key 是否有重複。
另外，您在其他的 Table 是否有用到 「客戶編號」 做索引，如果有最好一併檢查。
PS:1.elleryq 大大...呵呵...我們昨天都犯一樣的錯。
2.「可是我在按新增記錄鈕時，有先把客戶資料表先zap過.....」這裡我一直無法理解為什麼要把客戶資料表先zap過，這樣不就把上次新增的 資料刪除了嗎？ |
小桑高手您好:
您說的reccount()是個很好的建議, 我回家後會試試看, 您的ps第二點，弟說明一下，要先zap客戶資料表的原因是，弟想要模擬客戶第一次從完全沒有任何資料時的情況，弟連add record的功能都寫不太出來實在是有點灰心．．．各位大大可以給一點指引嗎？
弟說說自己的情況好了，弟有三個資料表客戶資料表 病歷資料表 就診資料表
三個表內都有一個客戶編號欄位作為彼此關聯之用，弟一開始用一對多表單精靈做了一個表單，想說要同時用這個表單對客戶和病歷資料表作新增資料用，可是它的新增鈕弟不知要如何自訂（會自動問我要對父表或子表或兩表同時新增資料），所以弟就自己弄了個命令鈕，可是卻不知裏面的程式碼要如何著手，我知一些append blank和replace...with等命令，也知textbox可以利用controlsource屬性和資料欄結合顥示，可就很奇怪，如果用自己的命令鈕來新增，並設好controlsource屬性，按下新增鈕後，所有的textbox卻全都是disabled的狀態，可我確定每個textbox的enabled屬性都為true，弄得弟一點信心都沒有，以上是弟學foxpro以來的狀況．．．不知各位高手可以給些建議嗎？
碼頭
www.dotgive.com |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 10 樓
|
| 發表於: 星期四 三月 04, 2004 5:25 pm 文章主題: |
|
|
| 引言回覆: |
用一對多表單精靈做了一個表單....
可是它的新增鈕弟不知要如何自訂（會自動問我要對父表或子表或兩表同時新增資料），所以弟就自己弄了個命令鈕，....
按下新增鈕後，所有的textbox卻全都是disabled的狀態，可我確定每個textbox的enabled屬性都為true
|
試猜一下,
看起來仍然是受精靈的控制,
經查證 精靈 作的form ,
會作以下動作
| 代碼: |
FOR i = 1 TO m.nCtrlCount
DO CASE
CASE ATC("Pageframe",m.oControlParent.BaseClass)#0
THIS.SetAllProp(m.oControlParent.Pages[m.i])
CASE ATC(m.oControlParent.BaseClass,"Optiongroup,Commandgroup")#0 AND ;
THIS.UserControlMode
m.oControlParent.Buttons[m.i].Enabled = THIS.EditMode
CASE ATC(m.oControlParent.Controls[m.i].BaseClass,"Optiongroup,Commandgroup")#0 ;
AND THIS.UserControlMode
THIS.SetAllProp(m.oControlParent.Controls[m.i])
CASE ATC("Container",m.oControlParent.Controls[m.i].BaseClass) # 0 OR;
ATC("Page",m.oControlParent.Controls[m.i].BaseClass) # 0
THIS.SetAllProp(m.oControlParent.Controls[m.i])
CASE ATC(m.oControlParent.Controls[m.i].BaseClass,"ListBox,ComboBox,Spinner") # 0 AND;
THIS.UserControlMode
m.oControlParent.Controls[m.i].Enabled = THIS.EditMode
CASE ATC(m.oControlParent.Controls[m.i].BaseClass,"OleBoundControl") # 0
m.oControlParent.Controls[m.i].Enabled = THIS.EditMode
CASE ATC(m.oControlParent.Controls[m.i].BaseClass,"CheckBox,TextBox,EditBox") # 0
m.oControlParent.Controls[m.i].ReadOnly = !THIS.EditMode
CASE ATC(m.oControlParent.Controls[m.i].BaseClass,"Grid") # 0
m.oControlParent.Controls[m.i].ReadOnly = !THIS.EditMode
m.oControlParent.Controls[m.i].DeleteMark = THIS.EditMode
ENDCASE
ENDFOR
|
而精靈的 新增按鈕 是
| 代碼: |
IF THIS.Parent.EditMode
THIS.Parent.UpdateRows()
ELSE
IF !THIS.Parent.AddRec()
RETURN
ENDIF
ENDIF
THIS.Parent.EditMode = !THIS.Parent.EditMode <- 屬性變更了
THIS.Parent.AddMode = THIS.Parent.EditMode
THIS.Parent.TopFile = .F.
THIS.Parent.ButtonRefresh()
THIS.Parent.NavRefresh()
|
應該要在 新增鈕 中,手動把textbox的enabled屬性都設為true,
或者是 要先以整套的 navigator 開始做起,
繼承了標準 新增 按鈕 ,才不會有怪異的行為
要先了解精靈,才能用精靈,所以我討厭vfp的 navigator
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
小桑•無痕
註冊時間: 2003-07-08
文章: 304
來自: Tainan, Taiwan
第 11 樓
|
| 發表於: 星期四 三月 04, 2004 7:11 pm 文章主題: |
|
|
我也不喜歡VFP的精靈，因為不曾用心去研究它的功用，用起來覺得怪怪的，因此習慣使用自己做好的Class。又因為是由Clipper轉VFP，所以寫程式的方式算是比較老古板型的。
_________________
用力 Try 一下...可以發現很多好玩的事.... |
|
| 回頂端 |
|
|
foreman
註冊時間: 2004-02-28
文章: 14
第 12 樓
|
| 發表於: 星期四 三月 04, 2004 8:08 pm 文章主題: |
|
|
| syntech 寫到: |
試猜一下,
看起來仍然是受精靈的控制,
經查證 精靈 作的form ,
會作以下動作
而精靈的 新增按鈕 是
．．．
略
．．．
應該要在 新增鈕 中,手動把textbox的enabled屬性都設為true,
或者是 要先以整套的 navigator 開始做起,
繼承了標準 新增 按鈕 ,才不會有怪異的行為
要先了解精靈,才能用精靈,所以我討厭vfp的 navigator |
嗯．．了解．．感謝各位大大的解答．．
再請教syntech高手應如何以整套的navigator做起，也就是如何以navigator（好像叫txtbtns class)為base class來作繼承, 然後又可以把不要的功能override掉,可是又有部分的功能要保留, 如之前弟說到的新增鈕會雞婆地問你要對父表或子表或同時兩表作新增的動作, 因為我希望把父表和子表放在同一表單, 理所當然是要同時對兩表作新增啊, 可弟不會在vfp中作繼承和override的動作, 希望高手能指點一下, 感恩啦!
碼頭
www.dotgive.com |
|
| 回頂端 |
|
|
elleryq
註冊時間: 2007-06-21
文章: 768
第 13 樓
|
| 發表於: 星期五 三月 05, 2004 9:18 am 文章主題: |
|
|
果然昏頭了~~
@_@ |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 14 樓
|
| 發表於: 星期五 三月 05, 2004 11:31 am 文章主題: |
|
|
不想作所繼承的事件, 就在該事件 作 NODEFAULT,
想做就 DODEFAULT()
例如在 cmdADD:Click()
先
| 代碼: |
NoDefault && <- 抑制 原有事件
. && <- TODO: Add your source code here
.
.
=DoDefault() && <- 執行原有事件
|
其他細節是您自己應努力的部分,
別人其實是幫不了忙的
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
foreman
註冊時間: 2004-02-28
文章: 14
第 15 樓
|
| 發表於: 星期六 三月 06, 2004 10:33 am 文章主題: |
|
|
| syntech 寫到: | 不想作所繼承的事件, 就在該事件 作 NODEFAULT,
想做就 DODEFAULT()
例如在 cmdADD:Click()
先
| 代碼: |
NoDefault && <- 抑制 原有事件
. && <- TODO: Add your source code here
.
.
=DoDefault() && <- 執行原有事件
|
其他細節是您自己應努力的部分,
別人其實是幫不了忙的 |
那再請教高手，如果弟只是想把精靈的新增鈕一開始會問要添入父表和子表或同時兩表都新增的這一部分ｃｏｄｅ拿掉，但是其他的功能我還是要通通保留，請問高手可以作到這樣的功能嗎？弟對OOP（在ｃ＋＋的部分）的觀念非常清楚，但在vfp中的語法和作法就不是很清楚，還請高手能熱心指教一番，感謝！
碼頭
C++入門文件請參考
www.dotgive.com |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
