lasterliu 重新編輯於 2008-12-15 15:59:26， 註解 無‧

lasterliu 重新編輯於 2008-12-15 16:01:13， 註解 無‧

ADOQuery1.SQL.Add('Select creater, Creater as 創立者 from test'); // 多選一個欄位

抓取此欄位的原來名稱（Creater）來進行條件判斷
adoquery1.fieldbyname('creater').asstring

不知是否切題

===================引 用 lasterliu 文 章===================
各位大大：
小弟碰到一個問題，就是如何抓取欄位名稱？

ADOQuery1.SQL.Add('Select Creater as 創立者 from test');

小弟想抓取此欄位的原來名稱（Creater）來進行條件判斷，但卻不知該如何寫。
PS 小弟是要抓取Creater這原來的名稱，而不是創立者這中文名稱喔!!謝謝。

st33chen 重新編輯於 2008-12-15 23:06:51， 註解 無‧

我對您的問題的理解是 :

1、將程式名稱與查詢的條件式寫至DB中。
DB 的某個 TABLE 存
PROG_NAME SQL_TEXT
-------------------- --------------------------------------------------------------------
PROGA Select Name as 姓名,Age as 年紀 from employees <---- 您的例子
PROGB SELECT NAME AS 品名, QTY AS 數量 FROM PRODUCTS <---- 我加的例子
...

2、程式一開始會依USER選擇的程式名稱，去抓取DB中查詢條件式欄位的內容並進行執行。
使用者選擇 PROGA, 您會抓到 Select Name as 姓名,Age as 年紀 from employees, 假設放在 SSTR;
把他放入SQL並執行 :
ADOQUERY1.SQL.TEXT := SSTR;
ADOQUERY1.OPEN;

3、將欄位名稱全部傳至第二個FORM的ComboBox中。（這裡因為要顯示中文好讓USER容易選擇，所以在DB的查詢條件式中，都會將各個欄位別名）
您的意思是 (3-1) :
FORM2.COMBOBOX.CLEAR;
FOR II := 0 TO ADOQUERY1.FIELDS[II].COUNT-1 DO BEGIN
FORM2.COMBOBOX.ITEMS.ADD(ADOQUERY1.FIELDS[II].FIELDNAME);
END;
所以 FORM2.COMBOBOX 的內容
姓名
年紀
還是 (3-2) :
FORM2.COMBOBOX.CLEAR;
WHILE NOT ADOQUERY1.EOF DO BEGIN
FORM2.COMBOBOX.ITEMS.ADD(ADOQUERY1.FIELDS[0].ASSTRING ' ' ADOQUERY1.FIELDS[1].ASSTRING);
QUERY1.NEXT;
END;
所以 FORM2.COMBOBOX 的內容
陳誰扁 20
馬應久 21
謝常停 19
...

4、讓USER自己選取欲下的條件式與排序進行查詢（ADOQuery1.Field[ComboBox1.ItemIndex].AsString）。

如果是 3-1,
假設 使用者 選 姓名, 您用一個 EDIT1 讓使用者輸入他要查什麼姓名, 然後建構查詢 SQL :
ADOQUERY1.SQL.TEXT := 'SELECT * FROM ... WHERE 姓名=''' EDIT1.TEXT '''';
您希望改成
ADOQUERY1.SQL.TEXT := 'SELECT * FROM ... WHERE NAME=''' EDIT1.TEXT '''';
如果是 3-2
假設 使用者選到 ABC 30
您要結構另一個 SQL 去做另一個查詢
II := POS(' ', COMBOBOX.TEXT);
ADOQUERY2.SQL.TEXT := 'SELECT * FROM ... WHERE 姓名=''' COPY(COMBOBOX.TEXT,1,II-1) ''' AND 年紀=''' COPY(COMBOBOX.TEXT,II 1,100) '''';
您希望改成
ADOQUERY2.SQL.TEXT := 'SELECT * FROM ... WHERE NAME=''' COPY(COMBOBOX.TEXT,1,II-1) ''' AND AGE=''' COPY(COMBOBOX.TEXT,II 1,100) '''';

如果不是, 請依這個例子的樣子, 虛擬個例子具体說明您的問題
說不定您可以用 DBLOOKUPCOMBOBOX 來做, 不必自己處理呢.
===================引 用 lasterliu 文 章===================
st33chen大大您好：
小弟不太明白您的意思，當我將條件式寫在DB中（如：Select Name as 姓名,Age as 年紀 from employees），
當存放至ComboBox時，裡面的資料會是中文（姓名與年紀。小弟只會用這語法ADOQuery1.Field[ComboBox1.ItemIndex].AsString），
而大大說可再傳送另一英文資料（Name與Age）至StringList中，小弟不明白這裏要怎麼做到，因為小弟會的語法只能傳送中文。
還是說大大的意思是叫小弟另外寫同樣的一段條件式，但這段條件式不給予別名，再將欄位資料傳至StringList中。
若有說錯的地方，敬請見諒，謝謝大大撥空幫忙。

我對您的問題的理解是 :

?

1、將程式名稱與查詢的條件式寫至DB中。
DB 的某個 TABLE 存
PROG_NAME SQL_TEXT
-------------------- --------------------------------------------------------------------
PROGA Select Name as 姓名,Age as 年紀 from employees <---- 您的例子
PROGB SELECT NAME AS 品名, QTY AS 數量 FROM PRODUCTS <---- 我加的例子
...

2、程式一開始會依USER選擇的程式名稱，去抓取DB中查詢條件式欄位的內容並進行執行。
使用者選擇 PROGA, 您會抓到 Select Name as 姓名,Age as 年紀 from employees, 假設放在 SSTR;
把他放入SQL並執行 :
ADOQUERY1.SQL.TEXT := SSTR;
ADOQUERY1.OPEN;

3、將欄位名稱全部傳至第二個FORM的ComboBox中。（這裡因為要顯示中文好讓USER容易選擇，所以在DB的查詢條件式中，都會將各個欄位別名）
您的意思是 (3-1) :
FORM2.COMBOBOX.CLEAR;
FOR II := 0 TO ADOQUERY1.FIELDS[II].COUNT-1 DO BEGIN
FORM2.COMBOBOX.ITEMS.ADD(ADOQUERY1.FIELDS[II].FIELDNAME);
END;
所以 FORM2.COMBOBOX 的內容
姓名
年紀
還是 (3-2) :
FORM2.COMBOBOX.CLEAR;
WHILE NOT ADOQUERY1.EOF DO BEGIN
FORM2.COMBOBOX.ITEMS.ADD(ADOQUERY1.FIELDS[0].ASSTRING ' ' ADOQUERY1.FIELDS[1].ASSTRING);
QUERY1.NEXT;
END;
所以 FORM2.COMBOBOX 的內容
陳誰扁 20
馬應久 21
謝常停 19
...

4、讓USER自己選取欲下的條件式與排序進行查詢（ADOQuery1.Field[ComboBox1.ItemIndex].AsString）。

?

如果是 3-1,
假設 使用者 選 姓名, 您用一個 EDIT1 讓使用者輸入他要查什麼姓名, 然後建構查詢 SQL :
ADOQUERY1.SQL.TEXT := 'SELECT * FROM ... WHERE 姓名=''' EDIT1.TEXT '''';
您希望改成
ADOQUERY1.SQL.TEXT := 'SELECT * FROM ... WHERE NAME=''' EDIT1.TEXT '''';
如果是 3-2
假設 使用者選到 ABC 30
您要結構另一個 SQL 去做另一個查詢
II := POS(' ', COMBOBOX.TEXT);
ADOQUERY2.SQL.TEXT := 'SELECT * FROM ... WHERE 姓名=''' COPY(COMBOBOX.TEXT,1,II-1) ''' AND 年紀=''' COPY(COMBOBOX.TEXT,II 1,100) '''';
您希望改成
ADOQUERY2.SQL.TEXT := 'SELECT * FROM ... WHERE NAME=''' COPY(COMBOBOX.TEXT,1,II-1) ''' AND AGE=''' COPY(COMBOBOX.TEXT,II 1,100) '''';

如果不是, 請依這個例子的樣子, 虛擬個例子具体說明您的問題
說不定您可以用 DBLOOKUPCOMBOBOX 來做, 不必自己處理呢.
===================引 用 lasterliu 文 章===================
st33chen大大您好：
小弟不太明白您的意思，當我將條件式寫在DB中（如：Select Name as 姓名,Age as 年紀 from employees），
當存放至ComboBox時，裡面的資料會是中文（姓名與年紀。小弟只會用這語法ADOQuery1.Field[ComboBox1.ItemIndex].AsString），
而大大說可再傳送另一英文資料（Name與Age）至StringList中，小弟不明白這裏要怎麼做到，因為小弟會的語法只能傳送中文。
還是說大大的意思是叫小弟另外寫同樣的一段條件式，但這段條件式不給予別名，再將欄位資料傳至StringList中。
若有說錯的地方，敬請見諒，謝謝大大撥空幫忙。

假設 使用者 選 姓名, 您用一個 EDIT1 讓使用者輸入他要查什麼姓名, 然後建構查詢 SQL :
ADOQUERY1.SQL.TEXT := 'SELECT * FROM ... WHERE ' combobox2.items[combobox1.itemindex] ' =''' EDIT1.TEXT '''';
也可以 combobox 的 o n c h a n g e 事件加
combobox2.itemindex := combobox.itemindex;
那就
ADOQUERY1.SQL.TEXT := 'SELECT * FROM ... WHERE ' combobox2.text ' =''' EDIT1.TEXT '''';

以上是我憑想像寫的, 沒有實測. 參考一下.
不過我想問您,
kadee 大 的解法很好啊, 您為什麼不用呢?
引伸 kadee 大的做法
1. 的部份和上述一樣
3. 的部份, 未加處理, 所以 FORM2.COMBOBOX 的內容
姓名_name
年紀_age
4. 的部份
ii := pos('_', combobox.text);
ADOQUERY1.SQL.TEXT := 'SELECT * FROM ... WHERE ' copy(combobox.text,ii 1,100) ' =''' EDIT1.TEXT '''';
差別就只在使用者看到 combobox 的內容不一樣而已.

看來, kadee 大比較早理解您的問題所在哦.
=======================================================================
等一下, 我想到了
TQUERY 的 TSTRINGFIELD 有個 ORIGIN 屬性好像可以用哦.
如果可以, 那就不必寫這麼多廢話了, 您也試一下吧.
=======================================================================
origin 應該可以用, 如下, 不過好像(寫程式的功夫)差別不大
1. 的部份不用改, 就用您原本的
3. 的部份
用 var mylist : tstringlist; 或是新增一個 combobox2, 但 visible 設為 false, 讓使用者看不到.(這裡用後法)
FORM2.COMBOBOX.CLEAR;
FORM2.COMBOBOX2.CLEAR;
FOR II := 0 TO ADOQUERY1.FIELDS[II].COUNT-1 DO BEGIN
FORM2.COMBOBOX.ITEMS.ADD(ADOQUERY1.FIELDS[II].FIELDNAME);
ASTR := ADOQUERY1.FIELDS[II].ORIGIN; // ASTR, JJ 為新增變數
JJ := POS('.', ASTR);
FORM2.COMBOBOX2.ITEMS.ADD(COPY(ASTR,JJ 1,100));
END;
所以 FORM2.COMBOBOX 的內容
姓名
年紀
FORM2.COMBOBOX2 的內容
name
age
4. 的部份, 同上述.
============================================
再多癈話一段, 如果您的 1.
DB 的某個 TABLE 存
PROG_NAME SQL_TEXT
-------------------- --------------------------------------------------------------------
改成
PROG_NAME TABLENAME FLDNAME FLDNAMEC
---------------------- -------------------- --------------- -----------------
PROGA EMPLOYEE NAME 姓名
PROGA EMPLOYEE AGE 年紀
.....
這種結構, 那可能就可以用 DBLOOKUPCOMBOBOX 來處理, 好像可以簡化程式.
參考一下

st33chen 重新編輯於 2008-12-16 16:19:49， 註解 無‧
st33chen 重新編輯於 2008-12-16 18:00:50， 註解 無‧
st33chen 重新編輯於 2008-12-18 08:38:17， 註解 無‧
st33chen 重新編輯於 2008-12-18 08:41:43， 註解 無‧

假設 使用者 選 姓名, 您用一個 EDIT1 讓使用者輸入他要查什麼姓名, 然後建構查詢 SQL :
ADOQUERY1.SQL.TEXT := 'SELECT * FROM ... WHERE ' combobox2.items[combobox1.itemindex] ' =''' EDIT1.TEXT '''';
也可以 combobox 的 o n c h a n g e 事件加
combobox2.itemindex := combobox.itemindex;
那就
ADOQUERY1.SQL.TEXT := 'SELECT * FROM ... WHERE ' combobox2.text ' =''' EDIT1.TEXT '''';

以上是我憑想像寫的, 沒有實測. 參考一下.
不過我想問您,
kadee 大 的解法很好啊, 您為什麼不用呢?
引伸 kadee 大的做法
1. 的部份和上述一樣
3. 的部份, 未加處理, 所以 FORM2.COMBOBOX 的內容
姓名_name
年紀_age
4. 的部份
ii := pos('_', combobox.text);
ADOQUERY1.SQL.TEXT := 'SELECT * FROM ... WHERE ' copy(combobox.text,ii 1,100) ' =''' EDIT1.TEXT '''';
差別就只在使用者看到 combobox 的內容不一樣而已.

看來, kadee 大比較早理解您的問題所在哦.
.....