| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
fulltime
註冊時間: 2010-12-07
文章: 19
第 1 樓
|
 發表於: 星期三 十二月 22, 2010 7:30 pm 文章主題: 關於修改、刪除、查詢的問題... |
 |
|
想請教各位前輩，今天小弟我做了四個讓USER輸入的值，分別為
編號( )
姓名( )
電話( )
電子郵件( )
把這四個值在表單中做新增、修改、刪除、查詢四個動作
新增是OK的，但修改和刪除需要一開始只能輸入＂編號＂讓它對table做搜尋
，然後姓名、電話、電子郵件才出現值來做"修改"或"刪除"，這邊小弟想請教
各位前輩要如何讓表單可以做到這樣呢?
查詢要有一個grid，但這個grid要等做完查詢的動作後才能出現查詢的結果，
這個小弟也還在研究，目前這三個功能小弟只能做到在表單中有個table的grid
去做修改、刪除、查詢的動作。
先謝謝各位前輩的回答! |
|
| 回頂端 |
|
 |
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 2 樓
|
| 發表於: 星期三 十二月 22, 2010 8:41 pm 文章主題: |
|
|
先找些範例看看.
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
LiuRambo
註冊時間: 2007-11-27
文章: 481
第 3 樓
|
| 發表於: 星期三 十二月 22, 2010 10:09 pm 文章主題: |
|
|
建議一下 新增 修改 刪除 其實可以放同一個
新增跟修改功能上其實只差一點點
主要的是要有一個GRID可以讓使用者看到你新增完後的資料
修改的話讓他去GRID找到他要改的那筆再做修改
刪除也是讓使用者一筆一筆去找到再刪 除非使用者會要求要大量刪除
查詢的話其實就非常多樣化了
不見得要搭配GRID 用LIST也可以 |
|
| 回頂端 |
|
|
fulltime
註冊時間: 2010-12-07
文章: 19
第 4 樓
|
| 發表於: 星期四 十二月 23, 2010 8:39 am 文章主題: |
|
|
TO:Liu前輩..新增、修改、刪除、查詢都是在同一個FORM了!修改和刪除的話就是不行讓USER去GRID操作，所以才要(修改和刪除需要一開始只能輸入＂編號＂讓它對table做搜尋，姓名、電話、電子郵件後面才出現值來做"修改"或"刪除")。感謝您的回答^^
TO:syntech前輩..在尋找中!!^^感謝您的回答! |
|
| 回頂端 |
|
|
ptiger
註冊時間: 2004-02-26
文章: 38
第 5 樓
|
| 發表於: 星期四 十二月 23, 2010 1:58 pm 文章主題: |
|
|
你可用 ENABLED=.T. .F.
來作業 |
|
| 回頂端 |
|
|
fulltime
註冊時間: 2010-12-07
文章: 19
第 6 樓
|
| 發表於: 星期四 十二月 23, 2010 2:30 pm 文章主題: |
|
|
目前小弟我不知道如何將文字輸入方塊的值抓取到字串中，
例如:編號( )當USER輸入編號"HK001"時，HK001這個
字串想要讓它變成HK001=NU，之後再用
Locate For NU1=NU
IF Found()
........
去判斷，可是我目前找不到什麼命令或函數可以用....
想請教一下各位前輩..^^ |
|
| 回頂端 |
|
|
ptiger
註冊時間: 2004-02-26
文章: 38
第 7 樓
|
| 發表於: 星期四 十二月 23, 2010 2:37 pm 文章主題: |
|
|
先去買一些書來看,較快
繁簡體都行
比如 你有做文字輸入方塊 text
你就可將變數的內容等同你輸入的文字
TEMP=THISFORM.TEXT1.VALUE
你再去 搜尋 即可
SEEK TEMP |
|
| 回頂端 |
|
|
fulltime
註冊時間: 2010-12-07
文章: 19
第 8 樓
|
| 發表於: 星期四 十二月 23, 2010 5:20 pm 文章主題: |
|
|
TO:ptiger前輩...我有書，但目前看到一半。而且是比較基本的，對於我目前要寫的東西幫助較小...
目前我已經找到抓字串的方法了!
Locate For alltrim(thisform.number1.value)=alltrim(table1.number)
跟大家分享一下，但...編號是抓到了、可是姓名 電話 電子郵件的值跑不出來><
我之後的寫法是
If Found()
Thisform.number1.enabled = .f.
Thisform.name1.enabled = .T.
Thisform.phone1.enabled = .T.
Thisform.mail1.enabled = .T.
else
=messagebox(XXX)
endif
想請教各位前輩..要加什麼命令或函數才可以讓它們顯示出來^^ |
|
| 回頂端 |
|
|
pilipala
註冊時間: 2009-05-13
文章: 75
第 9 樓
|
| 發表於: 星期四 十二月 23, 2010 5:47 pm 文章主題: |
|
|
| 找到資料後下 Thisform.Refresh 試試看吧 ~~ |
|
| 回頂端 |
|
|
LiuRambo
註冊時間: 2007-11-27
文章: 481
第 10 樓
|
| 發表於: 星期四 十二月 23, 2010 10:45 pm 文章主題: |
|
|
想請問你的GRID和FORM裡面的TEXTBOX如何"互動"
也就是想知道當GRID的指標移動時 你的TEXTBOX的值如何更新
一般來說 只要指標移動之後
最好如樓上說的加一道thisform.refresh
另外
控制FORM各物件之間的"狀態"可以將它寫成獨立一個"事件" 方便你自己控制
比如說絕大部分的TEXTBOX當新增跟修改時都是"可編輯狀態"，查詢跟刪除或是GRID移動時都應該是"不可編輯狀態"
而按了編輯或新增之後 查詢跟刪除應該要立刻關閉(其實應該是進入編輯狀態後唯一能按的是儲存跟取消) |
|
| 回頂端 |
|
|
fulltime
註冊時間: 2010-12-07
文章: 19
第 11 樓
|
| 發表於: 星期五 十二月 24, 2010 11:05 am 文章主題: |
|
|
TO:pilipala、Liu二位前輩..感謝您們的回答!目前我已經解決了TEXTBOX的問題，
寫法如下:
thisform.name1.Value=table1.name
thisform.phone1.Value=table1.phone
thisform.mail1.Value=table1.mail
這樣TEXTBOX的資料就可以顯示出來了!但...修改和刪除出了小問題
修改的儲存BUTTON是這樣寫
USE table1
SELECT table1
FLUSH in table1 && flush沒有辦法儲存改變後的資料
THISFORM.Refresh
還是只能用EDIT開"編輯"視窗，但我不想開這個!!
刪除BUTTON的寫法是
tempstr=MESSAGEBOX("確定要刪除當前記錄嗎",4+32+256,"刪除記錄")
IF tempstr=6
SET EXCLUSIVE ON
DELETE
PACK
SET EXCLUSIVE OFF
ENDIF
thisform.Refresh
刪除第一次時很順利，但要刪第二次就出現了 "檔案必需要用(專用)模式開啟"
可是看TABLE它還是被刪掉了，第三次刪就又不會出現錯誤訊息了!有點怪..~"~
請各位前輩再幫小弟解惑一下...感謝! |
|
| 回頂端 |
|
|
fulltime
註冊時間: 2010-12-07
文章: 19
第 12 樓
|
| 發表於: 星期五 十二月 24, 2010 12:03 pm 文章主題: |
|
|
修改和刪除都已解決^^
寫法如下:
修改
tempstr=MESSAGEBOX("確定要儲存當前記錄嗎",4+32+256,"儲存記錄")
IF tempstr=6
RLOCK('TABLE1') &&鎖定table1資料表格
REPLACE name WITH ALLTRIM(THISFORM.NAME1.Value)
REPLACE phone WITH ALLTRIM(THISFORM.PHONE1.Value)
REPLACE mail WITH ALLTRIM(THISFORM.MAIL1.Value)
UNLOCK IN TABLE1 &&釋放table1資料表格
ENDIF
THISFORM.Refresh
刪除
tempstr=MESSAGEBOX("確定要刪除當前記錄嗎",4+32+256,"刪除記錄")
IF tempstr=6
SET EXCLUSIVE ON
DELETE
PACK
ENDIF
thisform.Refresh
但是..查詢目前還是無解啊!!!在網路上看到有人是用以下寫法
Thisform.Grid1.RecordSource="Select jsbh, xm, xb, csrq, zc From jsqk, xb ;
Where jsqk.xbbh=xb.xbbh And Allt(xbmc)=Allt(Thisform.Combo1.Value) ;
Into Cursor Grid1"
Thisform.Refresh
jsbh,xm,xb,csrq,zc分別為table的欄位，jsqk,xb分別為資料表
和我想要的有點類似，因為他也有要取FORM上Cmbo1的值去跟欄位做比較，我的
查詢表單上也是有LIST BOX和TEXT BOX的值要去做比較然後再從GRID顯示出來，
不知各位前輩有沒有遇到相類似的問題可以幫小弟指點一下^^
先感謝各位前輩^^ |
|
| 回頂端 |
|
|
fulltime
註冊時間: 2010-12-07
文章: 19
第 13 樓
|
| 發表於: 星期五 十二月 24, 2010 12:09 pm 文章主題: |
|
|
忘了說....我有修改過上面的寫法，但還是一樣不行!再加上表單事件為INIT事件，
沒有用下面寫法的話
thisform.grid1.RecordSource =''
thisform.grid1.RecordSource ='table1'
我的GRID就會是空白的，但寫了又會把整個"table1"的資料顯示出來
有點矛盾，但如果一開始空白，之後又能顯示出我要查詢的資料就好的
寫法是最完美，但目前小弟還找不到，希望各位前輩能指點一下小弟..
先感謝各位前輩^^ |
|
| 回頂端 |
|
|
LiuRambo
註冊時間: 2007-11-27
文章: 481
第 14 樓
|
| 發表於: 星期五 十二月 24, 2010 3:53 pm 文章主題: |
|
|
這就是我在另一篇給你的建議
pack不用常常做 因為要pack需要用專用模式開啟
通常是delete就可以了
你一旦要開啟專用模式 那不就等於限制你的程式非得單機使用了嗎
我自己的程式一旦需要做這種pack動作時
一定會先提醒使用者要全部離線後才能做資料庫維護
誰教的說delete之後一定得pack??? |
|
| 回頂端 |
|
|
fulltime
註冊時間: 2010-12-07
文章: 19
第 15 樓
|
| 發表於: 星期五 十二月 24, 2010 4:44 pm 文章主題: |
|
|
TO:Liu前輩..您的建議我都有看也有收到，之後我也是要讓使用者全部離線再去做資料庫維護的動作，
但我目前遇到的問題在FORM為INIT的事件中，GRID都是空白的，目前我所知道的解法就是
thisform.grid1.RecordSource =''
thisform.grid1.RecordSource ='table1'
寫在INIT中就不會空白，但它會顯示所有TABLE的資料，現在小弟我只是想用
COMBO BOX和TEXT BOX做查詢的動作，而COMBO BOX是有四個選項分別為
編號( )
姓名( )
電話( )
電子郵件( )
然後TEXT BOX為任意輸入要讓這二個BOX在TABLE中做查詢的動作，然後顯示在
GRID中。我之前是做到可以查詢，但是出現一張新的TABLE顯示，而不是在GRID
中。
Liu前輩說的cursor的用法，我目前的真的沒有用過..所以還請您多指點一下!!
感謝您的回答^^ |
|
| 回頂端 |
|
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
