不好意思，小妹又要來跟大家問關於MEMO的問題了！
這次是從DB把資料讀出來後，放置於MEMO裡，
但，每次顯示的結果都是只有讀到第一筆，而且還不會換行呢！
可否請各位高手指點一下迷津，看小妹我到底那邊做錯了！
謝謝各位了呀！

這是顯示的結果，但是是錯的，
1、康瑞向銀行借貸高,資金較緊 2、康瑞以EPQ/SPOKE WIRE/螺絲線為主力產品,但此部份下游客戶之提貨信用風評不佳,不宜與康瑞接觸過密以降低風險 3、銷售量銳減

我希望可以像這樣的顯示結果耶！
1、康瑞向銀行借貸高,資金較緊
2、康瑞以EPQ/SPOKE WIRE/螺絲線為主力產品,但此部份下游客戶之提貨信用風評不佳,不宜與康瑞接觸過密以降低風險
3、銷售量銳減

[code delphi]
DM1.QSSM105D3.Close;
DM1.QSSM105D3.ParamByName('cust_no').AsString:=DM1.QSSM105M.FieldByName('cust_no').AsString;
DM1.QSSM105D3.ParamByName('visit_date').AsString:=DM1.QSSM105M.FieldByName('visit_date').AsString;
DM1.QSSM105D3.ParamByName('serial_no').AsString:=DM1.QSSM105M.FieldByName('serial_no').AsString;
DM1.QSSM105D3.Prepare;
DM1.QSSM105D3.Open;
Form1.Memo1.Lines.Clear;
DM1.QSSM105D3.First;
while not DM1.QSSM105D3.Eof do
begin
Form1.Memo1.Lines.Add(DM1.QSSM105D3.FieldByName('summary').AsString);
Form1.Memo1.Lines.Add(DM1.QSSM105D3.FieldByName('summary1').AsString);
DM1.QSSM105D3.Next;
end;
[/code]

Hi:
uses StrUtils;
var
ss:string
begin
...
ss:= AnsiReplaceStr(DM1.QSSM105D3['summary'],'2、',#13 #10 '2、');

memo1.lines.add(ss);
..
試試看
===================引 用 hsiuchih 文 章===================
不好意思，小妹又要來跟大家問關於MEMO的問題了！
這次是從DB把資料讀出來後，放置於MEMO裡，
但，每次顯示的結果都是只有讀到第一筆，而且還不會換行呢！
可否請各位高手指點一下迷津，看小妹我到底那邊做錯了！
謝謝各位了呀！

這是顯示的結果，但是是錯的，
1、康瑞向銀行借貸高,資金較緊 2、康瑞以EPQ/SPOKE WIRE/螺絲線為主力產品,但此部份下游客戶之提貨信用風評不佳,不宜與康瑞接觸過密以降低風險 3、銷售量銳減

我希望可以像這樣的顯示結果耶！
1、康瑞向銀行借貸高,資金較緊
2、康瑞以EPQ/SPOKE WIRE/螺絲線為主力產品,但此部份下游客戶之提貨信用風評不佳,不宜與康瑞接觸過密以降低風險
3、銷售量銳減

[code delphi]
DM1.QSSM105D3.Close;
DM1.QSSM105D3.ParamByName('cust_no').AsString:=DM1.QSSM105M.FieldByName('cust_no').AsString;
DM1.QSSM105D3.ParamByName('visit_date').AsString:=DM1.QSSM105M.FieldByName('visit_date').AsString;
DM1.QSSM105D3.ParamByName('serial_no').AsString:=DM1.QSSM105M.FieldByName('serial_no').AsString;
DM1.QSSM105D3.Prepare;
DM1.QSSM105D3.Open;
Form1.Memo1.Lines.Clear;
DM1.QSSM105D3.First;
while not DM1.QSSM105D3.Eof do
begin
Form1.Memo1.Lines.Add(DM1.QSSM105D3.FieldByName('summary').AsString);
Form1.Memo1.Lines.Add(DM1.QSSM105D3.FieldByName('summary1').AsString);
DM1.QSSM105D3.Next;
end;
[/code]

------
What do we live for if not to make life less difficult for each other?

斷列的問題 :
如果資料來源是您前一個問題的資料庫的話, 可以改前一個問題的程式
bStr:=bStr Memo1.Lines[ii];
改成
bStr:=bStr Memo1.Lines[ii] #13#10;
試試看

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

Hello...Dear st33chen：
感謝您再次解答了我的疑惑呀！
真的感激不盡喔！
不過，我還想再請教您一個問題耶！
就是如果USERS在這個MEMO修改的時候，
比如說針對某個ITEM又多了一行敘述，
就像這樣，第三點是以修改的方式補上去的：
01 市場資訊⇒(不知道這個分類是否也可以修改哩？)
1、市場詢單少,客戶觀望氣氛濃厚
2、市場詢單少, 價格亂, 希望我方能OFFER BEST PRICE
3、銷售量銳減⇒此點為修改補上的
該如何去做修改呢？


===================引 用 st33chen 文 章===================
斷列的問題 :
如果資料來源是您前一個問題的資料庫的話, 可以改前一個問題的程式
bStr:=bStr Memo1.Lines[ii];
改成
bStr:=bStr Memo1.Lines[ii] #13#10;
試試看

您的前一個問題是新增資料的程式
memo 的資料來源是 :
1. 提供一個combobo來讓使用者選標題放入memo
(但這種做法risk很高, 有可能使用者會改到標題, 這時存檔時會找不到標題)
2. memo 元件可以輸入多筆標題, 存檔時再一一切出標題後存資料庫
現在的問題是查改資料的程式
memo 的資料來源是
依某組 key 值將一筆資料從資料讀回後放入 memo 中讓使用者修改
這時和 combobox 無關, 重點是 key 值, 如果標題不是 key 值的組成欄位之一, 也可以改, 內容也可以增刪改
存檔時是用 update 方式, 標題是 memo 的第一列, 內容是第二列以後, 組合方式和新增時一樣.
希望有回答到您的問題
---------------------------------
剛剛仔細看了一下您的程式, 請問
'serial_no' 是存什麼 ?


===================引 用 hsiuchih 文 章===================
Hello...Dear st33chen：
感謝您再次解答了我的疑惑呀！
真的感激不盡喔！
不過，我還想再請教您一個問題耶！
就是如果USERS在這個MEMO修改的時候，
比如說針對某個ITEM又多了一行敘述，
就像這樣，第三點是以修改的方式補上去的：
01 市場資訊⇒(不知道這個分類是否也可以修改哩？)
1、市場詢單少,客戶觀望氣氛濃厚
2、市場詢單少, 價格亂, 希望我方能OFFER BEST PRICE
3、銷售量銳減⇒此點為修改補上的
該如何去做修改呢？


===================引 用 st33chen 文 章===================
斷列的問題 :
如果資料來源是您前一個問題的資料庫的話, 可以改前一個問題的程式
bStr:=bStr Memo1.Lines[ii];
改成
bStr:=bStr Memo1.Lines[ii] #13#10;
試試看

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

如果你希望要用Memo方式秀資料, 又要能異動, 那建議你直接使用dbgrid 來開啟資料庫
它可以一列列的顯示, 每列又是一個record , 即可新增, 又可異動, 為何執著於Memo?
===================引 用 hsiuchih 文 章===================
Hello...Dear st33chen：
感謝您再次解答了我的疑惑呀！
真的感激不盡喔！
不過，我還想再請教您一個問題耶！
就是如果USERS在這個MEMO修改的時候，
比如說針對某個ITEM又多了一行敘述，
就像這樣，第三點是以修改的方式補上去的：
01 市場資訊⇒(不知道這個分類是否也可以修改哩？)
1、市場詢單少,客戶觀望氣氛濃厚
2、市場詢單少, 價格亂, 希望我方能OFFER BEST PRICE
3、銷售量銳減⇒此點為修改補上的
該如何去做修改呢？


===================引 用 st33chen 文 章===================
斷列的問題 :
如果資料來源是您前一個問題的資料庫的話, 可以改前一個問題的程式
bStr:=bStr Memo1.Lines[ii];
改成
bStr:=bStr Memo1.Lines[ii] #13#10;
試試看

Dear st33chen您好：
附上我的程式畫面讓你參考參考一下，
新增的部分已經搞定了，但是現在又是修改出了問題了呢！
這個程式的主檔KEY值為cust_no(客戶編號) visit_date(客訪日期) serial_no(流水號)，
serial_no拿來用的原因是因為刪除資料，只是在資料庫做註記，但資料還在，
怕USERS刪除後又會新增同樣的資料，所以用一個serial_no



===================引 用 st33chen 文 章===================
您的前一個問題是新增資料的程式
memo 的資料來源是 :
1. 提供一個combobo來讓使用者選標題放入memo
(但這種做法risk很高, 有可能使用者會改到標題, 這時存檔時會找不到標題)
2. memo 元件可以輸入多筆標題, 存檔時再一一切出標題後存資料庫
現在的問題是查改資料的程式
memo 的資料來源是
依某組 key 值將一筆資料從資料讀回後放入 memo 中讓使用者修改
這時和 combobox 無關, 重點是 key 值, 如果標題不是 key 值的組成欄位之一, 也可以改, 內容也可以增刪改
存檔時是用 update 方式, 標題是 memo 的第一列, 內容是第二列以後, 組合方式和新增時一樣.
希望有回答到您的問題
---------------------------------
剛剛仔細看了一下您的程式, 請問
'serial_no' 是存什麼 ?


===================引 用 hsiuchih 文 章===================
Hello...Dear st33chen：
感謝您再次解答了我的疑惑呀！
真的感激不盡喔！
不過，我還想再請教您一個問題耶！
就是如果USERS在這個MEMO修改的時候，
比如說針對某個ITEM又多了一行敘述，
就像這樣，第三點是以修改的方式補上去的：
01 市場資訊⇒(不知道這個分類是否也可以修改哩？)
1、市場詢單少,客戶觀望氣氛濃厚
2、市場詢單少, 價格亂, 希望我方能OFFER BEST PRICE
3、銷售量銳減⇒此點為修改補上的
該如何去做修改呢？


===================引 用 st33chen 文 章===================
斷列的問題 :
如果資料來源是您前一個問題的資料庫的話, 可以改前一個問題的程式
bStr:=bStr Memo1.Lines[ii];
改成
bStr:=bStr Memo1.Lines[ii] #13#10;
試試看

P.D.版主您好呀！
我一開始也是用DBGRID讓USERS去KEY資料，
結果他們竟然要求在DBGRID要可以做到換行的功能，
根本就是很難做到，所以就採用MEMO給他們做了！
因此P.D.大大，您是說到我的痛處了啊！
一個看起來不怎樣的程式，卻快被MEMO給搞瘋了呢！



===================引 用 P.D. 文 章===================
如果你希望要用Memo方式秀資料, 又要能異動, 那建議你直接使用dbgrid 來開啟資料庫
它可以一列列的顯示, 每列又是一個record , 即可新增, 又可異動, 為何執著於Memo?
===================引 用 hsiuchih 文 章===================
Hello...Dear st33chen：
感謝您再次解答了我的疑惑呀！
真的感激不盡喔！
不過，我還想再請教您一個問題耶！
就是如果USERS在這個MEMO修改的時候，
比如說針對某個ITEM又多了一行敘述，
就像這樣，第三點是以修改的方式補上去的：
01 市場資訊⇒(不知道這個分類是否也可以修改哩？)
1、市場詢單少,客戶觀望氣氛濃厚
2、市場詢單少, 價格亂, 希望我方能OFFER BEST PRICE
3、銷售量銳減⇒此點為修改補上的
該如何去做修改呢？


===================引 用 st33chen 文 章===================
斷列的問題 :
如果資料來源是您前一個問題的資料庫的話, 可以改前一個問題的程式
bStr:=bStr Memo1.Lines[ii];
改成
bStr:=bStr Memo1.Lines[ii] #13#10;
試試看

如果能保證標題列不會出現'、' (中文頓號)
我想到的解法 和 insert 時類似:
i i : = 0;
w h i l e i i < m e m o 1 . l i n e s . c o u n t d o b e g i n
i f p o s ( ' 、 ' , m e m o 1 . l i n e s [ i i ] ) < = 0 t h e n b e g i n
a s t r : = m e m o 1 . l i n e s [ i i ] ; // for 分類大綱
b s t r : = ' ' ; // for 內容
i i : = i i 1 ;
w h i l e ( i i < m e m o 1 . l i n e s . c o u n t ) a n d ( p o s ( ' 、 ' , m e m o 1 . l i n e s [ i i ] ) > 0 ) ) d o b e g i n
b s t r : = b s t r m e m o 1 . l i n e s [ i i ] ;
i i : = i i 1 ;
e n d;
u p d a t e _ r e c o r d _ t o _ d a t a b a s e ;
e n d
e l s e b e g i n
i i : = i i 1;
e n d;
e n d;

這樣連標題列也可以改.
您看如何?

或者

想個辦法讓標題列有一個特殊字, 用來區分它是標題
想想看

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

給你我的經驗, 至少我的客戶是能夠接受的, 一樣的我有遇到你的問題, 所以顯示的部份還是用Memo來做
因為我們可以取得Memo的所在位置, 只要動一點小手腳, 把Memo所在位置同步指向你的來源資料庫相同的位置
但修改時, 我是以dbedit 方式提供給他們做單行的編修,
等編修完成, 我再重新去掃瞄重載Memo內容(現在pc速度都很快, 所以基本上不用擔心效能的問題)
===================引 用 hsiuchih 文 章===================
P.D.版主您好呀！
我一開始也是用DBGRID讓USERS去KEY資料，
結果他們竟然要求在DBGRID要可以做到換行的功能，
根本就是很難做到，所以就採用MEMO給他們做了！
因此P.D.大大，您是說到我的痛處了啊！
一個看起來不怎樣的程式，卻快被MEMO給搞瘋了呢！

Hello...Dear st33chen 大俠，您好啊！
我後來用了一個最爛的方式去解決修改的問題呢！
就是當USERS修改後，不管他們到底改了其中的哪一個項目，
我就是先用一個MEMO把他們打的資料暫存，
然後把所有的資料刪除，之後再把暫存在MEMO裡的資料寫回資料庫，
這樣就可以解決問題了！
這個方法真的很爛，但已經懶得再去想了，
因為DEADLINE已經到了呢！

st33chen真的謝謝你的大力幫助啊！
讓我的東西可以如期交差了事，
再次說聲謝謝了！
這個分數給你200分了啦！


===================引 用 st33chen 文 章===================
如果能保證標題列不會出現'、' (中文頓號)
我想到的解法 和 insert 時類似:
i i : = 0;
w h i l e i i < m e m o 1 . l i n e s . c o u n t d o b e g i n
i f p o s ( ' 、 ' , m e m o 1 . l i n e s [ i i ] ) < = 0 t h e n b e g i n
a s t r : = m e m o 1 . l i n e s [ i i ] ; // for 分類大綱
b s t r : = ' ' ; // for 內容
i i : = i i 1 ;
w h i l e ( i i < m e m o 1 . l i n e s . c o u n t ) a n d ( p o s ( ' 、 ' , m e m o 1 . l i n e s [ i i ] ) > 0 ) ) d o b e g i n
b s t r : = b s t r m e m o 1 . l i n e s [ i i ] ;
i i : = i i 1 ;
e n d;
u p d a t e _ r e c o r d _ t o _ d a t a b a s e ;
e n d
e l s e b e g i n
i i : = i i 1;
e n d;
e n d;

這樣連標題列也可以改.
您看如何?

或者

想個辦法讓標題列有一個特殊字, 用來區分它是標題
想想看

Hello...P.D版主大大：
小妹我不太懂你的意思耶！
雖然我的CASE已經交差了事了！
但是對於你所說的還是很有興趣，
也許下次會用到也不一定，
可不可以麻煩你再花點時間跟小妹我解釋解釋呢？
謝謝你啊！


===================引 用 P.D. 文 章===================
給你我的經驗, 至少我的客戶是能夠接受的, 一樣的我有遇到你的問題, 所以顯示的部份還是用Memo來做
因為我們可以取得Memo的所在位置, 只要動一點小手腳, 把Memo所在位置同步指向你的來源資料庫相同的位置
但修改時, 我是以dbedit 方式提供給他們做單行的編修,
等編修完成, 我再重新去掃瞄重載Memo內容(現在pc速度都很快, 所以基本上不用擔心效能的問題)
===================引 用 hsiuchih 文 章===================
P.D.版主您好呀！
我一開始也是用DBGRID讓USERS去KEY資料，
結果他們竟然要求在DBGRID要可以做到換行的功能，
根本就是很難做到，所以就採用MEMO給他們做了！
因此P.D.大大，您是說到我的痛處了啊！
一個看起來不怎樣的程式，卻快被MEMO給搞瘋了呢！

可否把您的方法 POST 上來參考一下
THANKS
===================引 用 hsiuchih 文 章===================
Hello...Dear st33chen 大俠，您好啊！
我後來用了一個最爛的方式去解決修改的問題呢！
就是當USERS修改後，不管他們到底改了其中的哪一個項目，
我就是先用一個MEMO把他們打的資料暫存，
然後把所有的資料刪除，之後再把暫存在MEMO裡的資料寫回資料庫，
這樣就可以解決問題了！
這個方法真的很爛，但已經懶得再去想了，
因為DEADLINE已經到了呢！

st33chen真的謝謝你的大力幫助啊！
讓我的東西可以如期交差了事，
再次說聲謝謝了！
這個分數給你200分了啦！


===================引 用 st33chen 文 章===================
如果能保證標題列不會出現'、' (中文頓號)
我想到的解法 和 insert 時類似:
i i : = 0;
w h i l e i i < m e m o 1 . l i n e s . c o u n t d o b e g i n
i f p o s ( ' 、 ' , m e m o 1 . l i n e s [ i i ] ) < = 0 t h e n b e g i n
a s t r : = m e m o 1 . l i n e s [ i i ] ; // for 分類大綱
b s t r : = ' ' ; // for 內容
i i : = i i 1 ;
w h i l e ( i i < m e m o 1 . l i n e s . c o u n t ) a n d ( p o s ( ' 、 ' , m e m o 1 . l i n e s [ i i ] ) > 0 ) ) d o b e g i n
b s t r : = b s t r m e m o 1 . l i n e s [ i i ] ;
i i : = i i 1 ;
e n d;
u p d a t e _ r e c o r d _ t o _ d a t a b a s e ;
e n d
e l s e b e g i n
i i : = i i 1;
e n d;
e n d;

這樣連標題列也可以改.
您看如何?

或者

想個辦法讓標題列有一個特殊字, 用來區分它是標題
想想看

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

Hello...Dear st33chen您好呀！
其實我只是多了幾行的程式碼，其他的就是你教我的部分囉！
這是寫在程式存檔時的動作唷！

Memo2.Lines:=Memo1.Lines;//先將資料放到MEMO2上
If DM1.QSSM105D3.FieldByName('cust_no').AsString <> '' Then
begin
DM1.QTMP.Close;
DM1.QTMP.SQL.Clear;
//將資料都刪除
DM1.QTMP.SQL.Text:=' delete from ssm105d3 d3 '
' where d3.cust_no = ''' DM1.QSSM105M.FieldByName('cust_no').AsString ''' '
' and to_char(d3.visit_date,''yyyy/mm/dd'') = ''' DM1.QSSM105M.FieldByName('visit_date').AsString ''' '
' and d3.serial_no = ''' DM1.QSSM105M.FieldByName('serial_no').AsString ''' ';
DM1.QTMP.ExecSQL;
end;

ii:=0;
while ii < Memo2.Lines.Count do
...................
下來這裡就是你教導的部分囉！
我的作法大概就是這樣子呀！
如果還有更好的作法的話，還是希望你可以指點指點喔！
再次感謝你了呀！




===================引 用 st33chen 文 章===================
可否把您的方法 POST 上來參考一下
THANKS
===================引 用 hsiuchih 文 章===================
Hello...Dear st33chen 大俠，您好啊！
我後來用了一個最爛的方式去解決修改的問題呢！
就是當USERS修改後，不管他們到底改了其中的哪一個項目，
我就是先用一個MEMO把他們打的資料暫存，
然後把所有的資料刪除，之後再把暫存在MEMO裡的資料寫回資料庫，
這樣就可以解決問題了！
這個方法真的很爛，但已經懶得再去想了，
因為DEADLINE已經到了呢！

st33chen真的謝謝你的大力幫助啊！
讓我的東西可以如期交差了事，
再次說聲謝謝了！
這個分數給你200分了啦！


===================引 用 st33chen 文 章===================
如果能保證標題列不會出現'、' (中文頓號)
我想到的解法 和 insert 時類似:
i i : = 0;
w h i l e i i < m e m o 1 . l i n e s . c o u n t d o b e g i n
i f p o s ( ' 、 ' , m e m o 1 . l i n e s [ i i ] ) < = 0 t h e n b e g i n
a s t r : = m e m o 1 . l i n e s [ i i ] ; // for 分類大綱
b s t r : = ' ' ; // for 內容
i i : = i i 1 ;
w h i l e ( i i < m e m o 1 . l i n e s . c o u n t ) a n d ( p o s ( ' 、 ' , m e m o 1 . l i n e s [ i i ] ) > 0 ) ) d o b e g i n
b s t r : = b s t r m e m o 1 . l i n e s [ i i ] ;
i i : = i i 1 ;
e n d;
u p d a t e _ r e c o r d _ t o _ d a t a b a s e ;
e n d
e l s e b e g i n
i i : = i i 1;
e n d;
e n d;

這樣連標題列也可以改.
您看如何?

或者

想個辦法讓標題列有一個特殊字, 用來區分它是標題
想想看