大人是這樣的:

我有一個table1 有兩個欄位 欄位一是物品編號,欄位二是物品群組
其中物品編號第三碼至第四碼 02代表電腦用品 05代表雜項物品


欄位一 欄位二
(物品編號) (物品群組)
- - - - - - - - - -- - -
abb02*** 電腦用品
abb02*** 電腦用品
abb02*** 電腦用品
abb05*** 雜項物品
abb05*** 雜項物品


而我現在想用query 來表欄位資料放入combobox裡的item

如下,
02 | 辦公室用品
05 | 雜項物品
當點擊以上的item後,item的前兩碼就會傳到 傳到edit.text中 請問各位大大有辦法嗎????

http://delphi.ktop.com.tw/board.php?cid=30&fid=100&tid=55130


我已用這樣的方式把item加入,但是 sql語句我總是調不出來我要的
感激不盡

編輯記錄

1. http://delphi.ktop.com.tw/board.php?cid=30&fid=100&tid=55130 前案未結案，請先結案，以便釐清案情。
2. 可否請您將現行程式碼貼出，或將模擬程式上傳以供參考。
3. 選comobox傳至edit如下:
   procedure TForm1.ComboBox1Change(Sender: TObject);
   var s : string;
   begin
   s :=ComboBox1.Items[ComboBox1.itemindex];
   edit1.Text := copy(s,0,2)
   end;

------
努力會更接近成功

編輯記錄

可是那個人不是我阿 

procedure TForm1.ComboBox1Change(Sender: TObject);

begin
Query1.Close;
Query1.DisableControls;
ComboBox1.Clear;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT DISTINCT 物品名稱,物品編號 FROM table1 like ' '''' edit2.text '''' '%');
Query1.Open;
while not Query1.Eof do
begin
ComboBox1.Items.Add(Query1.FieldByName('ID').AsString);
Query1.Next;
end;
ComboBox1.ItemIndex := 0;
Query1.Close;
Query1.EnableControls;
end;

編輯記錄

設一人個私域變數
ttStr: TStringList;

加入ComboBox時
先
ttStr := TStringList.Create;
之後
ComboBox -->加入名稱
ttStr.item.add(加入編號)

最後
Edit1.Text := Copy(ttStr.String[ComboBox.itemIndex],1,2)

------
程式沒有這麼難
只是還沒打通其中要絕

大人 我不是很了解
因為 其實最主要的是

combobox裡列出不同的物品群組,再由隔壁的字串點及此物品代表的編號 裡面的02就是電腦用品 ０５就是雜項物品
abb02*** 電腦用品
abb02*** 電腦用品
abb02*** 電腦用品
abb05*** 雜項物品
abb05*** 雜項物品


我就是希望 點選電腦用品時,edit2.text 便會出現得到此項物品的代表編號
但是若我用這個 select 子句的話
'SELECT DISTINCT 物品名稱,物品編號 FROM table1 like ' '''' edit2.text '''' '%'
把結果加入combobox裡,combobox出現結果會變成
０２｜電腦用品
０２｜電腦用品
０２｜電腦用品
０５｜雜項物品
０５|雜項物品


但我想要的結果是:

02 | 辦公室用品
05 | 雜項物品
當點擊以上的item後,item的前兩碼就會傳到 傳到edit.text中 請問各位大大有辦法嗎????

步驟1. 產生combobox裡的item 
oracle : select distinct substr(物品編號,4,2) || '|' || 物品群組 as itemname from table1
access : select distinct substr(物品編號,4,2) & '|' & 物品群組 as itemname from table1
然後把值一一放入 combobox 中.

步驟2. 點選 combobox 的 item 把前兩碼放入 edit1
combobox 的 onclick 事件 中寫入
edit1.text := copy(combobox1.Items[combobox1.itemindex],1,2);

不知是否為您所想要的, 謝謝

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

抱歉，誤會您了.
不知是否是您要的，如果能更了解您的意思就好了。



'SELECT DISTINCT 物品名稱,物品編號 FROM table1 where 物品編號 like ' '"' edit2.text '%' '"'
);
AdoQuery1.Open;
while not AdoQuery1.Eof do
begin
//
// edit1 依 combobox選取 顯示 05
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
edit1.Text := copy(combobox1.Items[combobox1.itemindex],1,2);
end;

// 您的問題是 輸入 abb02 or abb05 (您用Like)
procedure TForm1.FormCreate(Sender: TObject);
begin
edit2.Text := 'abb0';
end;

附一個Demo給你
http://delphi.ktop.com.tw/download.php?download=upload/47bbd589545a0_test.zip

------
努力會更接近成功

編輯記錄

小弟比較笨 想法比簡單
希望大哥們多多指教
目前看到很多大哥的寫法 應該都是使用者要的 而使用者為什麼還會有問題小弟就在想就在想會不會沒有搞清楚使用者真的想要什麼
而改一個程式時小弟會先了解到發問者到底想要什麼功能才會動手去修改程式

看題目來說使用者想要說的是 當選擇COMBOBOX的內容時要 將代碼 帶到EDIT內
而TABLE 只有二個欄位要這麼做

如果是常態要用的欄位為什麼不直接 建一個新的就好了 ..要讓程式每次都去抓呢
所以小弟做法會是
產品名稱 物品群組 群組代碼
abb02*** 電腦用品 02
abb02*** 電腦用品 02
abb02*** 電腦用品 02
abb05*** 雜項物品 05
abb05*** 雜項物品 05

一開就先將資料全都抓到COMBOBOX內
ADOQuery1.Close;
ADOQuery1.SQL.Text:='Select 群組代碼,物品群組 From 產品資料 WHERE 群組代碼 IS NOT NULL GROUP BY 群組代碼 ORDER BY 群組代碼 ASC';
ADOQuery1.Open;
while Not ADOQuery1.Eof do
begin
ComboBox11.Items.Add(ADOQuery1.FieldByName('群組代碼').AsString ':' ADOQuery1.FieldByName('群組名稱').AsString);
ADOQuery1.Next;
end;

這樣你的資料只會有
02:電腦用品
05:雜項物品

在來
當你在改變COMBOBOX時
IF COMBOBOX.TEXT='02:電腦用品' THEN EDIT.TEXT='02'
IF COMBOBOX.TEXT='05:雜項物品' THEN EDIT.TEXT='05'

以上是小弟的一些想法 還請大哥們多多指教..^^

st33chen大人

編輯記錄

Query1.SQL.Add('SELECT DISTINCT 物品名稱,SUBSGTRING(物品編號,4,2) 物品編號 FROM table1 like ' '''' edit2.text '''' '%');