資料如何重新顯示 |
|
尚未結案
|
|
yx_huang77
一般會員   發表：46 回覆：64 積分：22 註冊：2004-03-19 發送簡訊給我 |
我寫了一個可隨使用者所選的條件篩選資料，如下：
可是發現不管下那個條件顯示的資料都是依樣
資料如何重新顯示最後的結果呢我有用dbgrid
麻煩大家解救小弟 procedure TfmM010.RG1Click(Sender: TObject);
begin
inherited;
if RG1.ItemIndex = 0 then
begin
qyMaster.DisableControls;
qyMaster.Close;
SQLText := OldSQLText ' AND S.STATUS <> :STATUS';
OrderBySQL := 'S.CASE_NO'; //預設的排序欄位
qyMaster.SQL.Text := SQLText;
with qyMaster do
begin
ParamByName('JOB_NO').AsString := SubStr(sUserID,1,3);
ParamByName('STATUS').AsString := '0';
end;
qyMaster.Close;
qyMaster.Open;
qyMaster.EnableControls;
end
else;
if RG1.ItemIndex = 1 then
begin
qyMaster.DisableControls;
qyMaster.Close;
SQLText := OldSQLText ' AND S.STATUS = :STATUS';
OrderBySQL := 'S.CASE_NO'; //預設的排序欄位
qyMaster.SQL.Text := SQLText;
with qyMaster do
begin
ParamByName('JOB_NO').AsString := SubStr(sUserID,1,3);
ParamByName('STATUS').AsString := '0';
end;
qyMaster.Close;
qyMaster.Open;
qyMaster.EnableControls;
end
else;
begin
qyMaster.DisableControls;
with qyMaster do
begin
ParamByName('JOB_NO').AsString := SubStr(sUserID,1,3);
end;
qyMaster.Close;
SQLText := OldSQLText;
OrderBySQL := 'S.CASE_NO'; //預設的排序欄位
qyMaster.SQL.Text := SQLText;
qyMaster.Open;
qyMaster.EnableControls;
end;
end;
|
|
Fishman
尊榮會員   發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
|
|
deity
尊榮會員 發表：90 回覆：876 積分：678 註冊：2003-05-09 發送簡訊給我 |
你好：
不知道有没有会错你的意思，看下面这种写法能不能实现你的要求
procedure TfmM010.RG1Click(Sender: TObject);
begin
inherited;
qyMaster.DisableControls;
qyMaster.Close;
qyMaster.sql.clear; if RG1.ItemIndex = 0 then
begin
SQLText := OldSQLText + ' AND S.STATUS <> :STATUS';
OrderBySQL := 'S.CASE_NO'; //預設的排序欄位
这句话不知用意如何，如果是进行排序，不是写成这样的吗？
SQLText：=SQLText 'Order by S.CASE_NO';
然后将上句去掉
qyMaster.SQL.Text := SQLText;
qyMaster.ParamByName('JOB_NO').AsString := SubStr(sUserID,1,3);
qyMaster.ParamByName('STATUS').AsString := '0';
end
else
if RG1.ItemIndex = 1 then
begin
SQLText := OldSQLText ' AND S.STATUS = :STATUS';
OrderBySQL := 'S.CASE_NO'; //預設的排序欄位
qyMaster.SQL.Text := SQLText;
qyMaster.ParamByName('JOB_NO').AsString := SubStr(sUserID,1,3);
qyMaster.ParamByName('STATUS').AsString := '0';
end
else
begin
qyMaster.SQL.Text :=OldSQLText;
OrderBySQL := 'S.CASE_NO'; //預設的排序欄位
qyMaster.ParamByName('JOB_NO').AsString := SubStr(sUserID,1,3);
end;
qyMaster.Open;
qyMaster.EnableControls;
end;
……
小弟愚见，参考看看
|
發表時間：2004-03-22 18:36:59
IP:220.142.xxx.xxx 未訂閱
系統時間：2024-06-28 17:42:39
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |