 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 1 樓
|
 發表於: 星期四 二月 06, 2025 11:00 pm 文章主題: 原來 DEEPSEEK 也懂 VFP |
 |
|
問題:
你是一個 VISUAL FOXPRO 的程式設計師,請撰寫一段程式.功能為開啟 A.dbf,搜尋到欄位ITM_NAME為'電子材料'的記錄,然後將該記錄的欄位S_PRICE修改為35.15
| 代碼: |
filename = 'A.dbf'
field_name = 'ITM_NAME'
search_value = '电子材料'
result_name = 'S_PRICE'
value = 35.15
SELECT * FROM A.dbF WHERE field_name = '电子材料' ORDER BY result_name LIMIT 1
window = 200, 600, 0, 0
output = window
prompt = '电子材料的SP pricing is: '
message = 'The SP price for the material is: $35.15'
|
这个程序的功能如下：
1.打开数据库文件 A.dbf。
2.执行查询操作，查找记录中 field_name 为 '电子材料' 的记录。
3.将结果中的 result_name（即 S_PRICE）修改为 35.15。
4.输出结果到窗口，并显示提示信息。
-------
能不能正確執行,那就別人測看看.
看起來還有模有樣的,
又哪裡怪怪的.
本地部署,非deepseek官網
ollama + deepseek-r1:1.5b
查詢介面: chatbox
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
 |
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 2 樓
|
| 發表於: 星期四 二月 06, 2025 11:06 pm 文章主題: |
|
|
M$ copilot 是這樣回覆的:
| 代碼: |
* 使用資料庫
USE A.dbf ALIAS A IN 0 SHARED
* 切換檔案別名
SELECT A
* 搜尋欄位ITM_NAME為'電子材料'的記錄
LOCATE FOR ITM_NAME = '電子材料'
* 如果找到記錄，修改S_PRICE欄位
IF FOUND()
REPLACE S_PRICE WITH 35.15
? "記錄已修改。"
ELSE
? "未找到符合條件的記錄。"
ENDIF
* 關閉資料庫
USE
|
這段程式碼會開啟名為 A.dbf 的資料表，然後查找 ITM_NAME 欄位為 '電子材料' 的記錄。如果找到匹配的記錄，會將該記錄的 S_PRICE 欄位修改為 35.15，並顯示相應的訊息。
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 3 樓
|
| 發表於: 星期五 二月 07, 2025 10:15 am 文章主題: |
|
|
DEEPSEEK 線上版:
| 代碼: |
* 使用 A.dbf 資料表
USE A.dbf
* 搜尋 ITM_NAME 為 '電子材料' 的記錄
LOCATE FOR ITM_NAME = '電子材料'
* 檢查是否找到記錄
IF FOUND()
* 將 S_PRICE 欄位修改為 35.15
REPLACE S_PRICE WITH 35.15
* 顯示成功訊息
MESSAGEBOX("記錄已成功更新！", 64, "成功")
ELSE
* 顯示未找到記錄的訊息
MESSAGEBOX("未找到 ITM_NAME 為 '電子材料' 的記錄！", 48, "錯誤")
ENDIF
* 關閉資料表
USE
|
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 4 樓
|
| 發表於: 星期五 二月 07, 2025 10:17 am 文章主題: |
|
|
chatGPT 線上版:
| 代碼: |
* 使用 A.dbf 資料表
USE A.dbf IN 0
* 尋找 ITM_NAME 為 '電子材料' 的記錄
SELEC 0
SCAN
IF ITM_NAME = "電子材料"
* 修改該記錄的 S_PRICE 欄位為 35.15
REPLACE S_PRICE WITH 35.15
ENDIF
ENDSCAN
* 儲存並關閉資料表
USE
|
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 5 樓
|
| 發表於: 星期五 二月 07, 2025 10:24 am 文章主題: |
|
|
等等 再用 本地配置的 deepseek-r1:7b 試看看
或是用 千問(Qwen2.5-Coder)
目前的情況,
有錢人用的線上版,收集的資料量大管飽,
相對可以得到比較正確的答案
小量體的本地配置,
出現 "幻影答案" 的機會比較高
其實,
原先我是覺得AI亂寫的機會比較大,
畢竟VFP應該是被視為過期的工具,
資料收集時會有多少,
真的難說
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 6 樓
|
| 發表於: 星期五 二月 07, 2025 12:23 pm 文章主題: |
|
|
deepseek-r1:7b 答案更離譜:
| 代碼: |
OPEN "A.dbf" AS #1
? VQUERY [#1] "ITM_NAME=LOWERCASE('電子材料')", COUNT, ITM_NAME, S_PRICE
VPUTR [#1] "ITM_NAME=LOWERCASE('電子材料')", 35.15
? VPUT [#1] "成功修改了" COUNT, COUNT
|
千問 (qwen2.5-coder:7b) 感覺正常一點:
| 代碼: |
* 使用 A.dbf 文件
USE A
* 搜尋 ITM_NAME 為 '電子材料' 的記錄
SELECT * FROM A WHERE ITM_NAME = '電子材料'
* 如果找到該記錄，則將 S_PRICE 修改為 35.15
IF FOUND()
REPLACE S_PRICE WITH 35.15
ENDIF
* 關閉 A.dbf 文件
USE
|
我用不同的AI 輔助(google gemini,codeium)測試Python範例時,
google gemini 也比codeium表現差
這表示不同ai不同量體,實際上差異很大.
老牌的 openAI(chatGPT) 可以當作基準,
但不同領域可能有其他AI更適合
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
