請問一下大大如何將Query的值丟到陣列理呢!! |
|
尚未結案
|
|
suzukiyamaru
一般會員   發表：18 回覆：8 積分：5 註冊：2003-06-09 發送簡訊給我 |
請問一下大大:
當我想把query的值取出時我要怎麼把每一筆資料用陣列存取呢
我目前的程式碼:
procedure TForm1.Button2Click(Sender: TObject);
var x:string;
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select 廠商名稱 from 平織生產指示單 where 訂單編號='"edit1.text'"');
query1.Open; query1.First;
while not Query1.eof do begin
x:=query1.Fields[0].AsString;
label1.Caption:=(label1.Caption x);//我只會把曲出來的值全都放在Label中!
query1.Next; 要如何才能把我每一筆的資料分別存在陣列中呢!! 還有一個問題就是當我query所選出來的值例如
query2.Close;
query2.SQL.Clear;
query2.SQL.Add('select 織廠,染廠,包裝廠 from 針織生產指示單 where 訂單編號='"edit1.text'"');
query2.Open; 我該如何把那些一行中的織廠 染廠 包裝廠中的值先判斷是否為空 假如不是空值變丟到陣列中存放 那我應該如何作此程式呢!!謝謝大大 發表人 - suzukiyamaru 於 2003/11/20 00:35:15
|
|
huangeider
高階會員  發表：288 回覆：492 積分：231 註冊：2003-02-26 發送簡訊給我 |
|
|
ccchen
版主 發表：61 回覆：940 積分：1394 註冊：2002-04-15 發送簡訊給我 |
其實我覺得除非你刻意要保持程式很小的話, 只要USES MIDASLIB, 使用ClientDataSet, 可以很容易達成, 而且Data存在ClientDataSet中還可以locate, filter很方便處理, 直接SaveToFile還可output成Text或XML等等. 只須要
with TDataSetProvider.create(nil) do begin dataset:=Query1; ClientDataSet1.data:=data; //將資料抄到ClientDataSet上 free; end;畢竟Data的處理在DataSet中還是比在Array中方便的多 |
|
suzukiyamaru
一般會員 發表：18 回覆：8 積分：5 註冊：2003-06-09 發送簡訊給我 |
|
|
LPH
一般會員 發表：53 回覆：43 積分：19 註冊：2003-04-02 發送簡訊給我 |
我是這麼做
定義 Array 變數
MyArray : Array[0..n] of String;
把 Array Var 指定給 TLable or TEdit
for i := 0 to n do
begin
MyArray[i] := TEdit(FindComponent(TEditName IntToStr(i)));
.
.
end;
select Table or Query Data Into DBGRID
I := MyQuery.Recordcount;
for J := 0 to I do
Begin
TEdit[J].Text := DBGRID.Columns.Grid.Fields[n].AsString;
End; 我程式是如此在執行的.....
|
發表時間：2003-11-20 00:33:47
IP:218.160.xxx.xxx 未訂閱
系統時間：2024-07-01 7:44:18
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |