檢查與訊息 |
|
尚未結案
|
|
nick899
一般會員   發表：16 回覆：22 積分：12 註冊：2002-12-09 發送簡訊給我 |
|
|
chih
版主  發表：48 回覆：1186 積分：639 註冊：2002-04-02 發送簡訊給我 |
1.在DBEdit1.exit and DBEdit2.exit的事件做檢查
if Query.stat=dsInsert then
begin
if (DBEdit1.Text<>'') and (DBEdit2.Text<>'') then
begin
CHKSQL.Close;//這裡你要用另外一個Query來做
CHKSQL.SQL.Clear;
CHKSQL.SQL.ADD(' SELECT COUNT(*) as count FROM XXX WHERE TYPE=' #39 DBEdit1.Text #39 ' AND No=' #39 DBEdit2.Text #39);
CHKSQL.Open;
if CHKSQL.FieldByNmae('count').Value>1 then
begin
SHOWMESSAGE('資料重覆!!!');//Message在這裡你可以自己改成你要的..
DBEdit1.setfocus;
CHKSQL.Close;
exit;
end
else
CHKSQL.Close;
end;
end;
PS:另外給你一點建議..像Type,No,Name這些文字在其他資料庫都是保留字(MSSQL.ORACLE)..盡量不要用..以免更換資料庫時程式就全部都要改了...
TRY TRY SEE..
引言: 大家好 使用paradox Field(Type,No...) Index Key值(Type No) 1.使用DBedit時如何在新增資料時當keyin 至No 可以去檢查type no DBedit1 DBedi2)是否重覆? 如資料重覆移動指標後後出現Message :key violation 可修改自給message Thank發表人 - chih 於 2003/02/14 10:22:06 發表人 - chih 於 2003/02/14 10:28:10 |
|
nick899
一般會員 發表：16 回覆：22 積分：12 註冊：2002-12-09 發送簡訊給我 |
引言: 1.在DBEdit1.exit and DBEdit2.exit的事件做檢查 if Query.stat=dsInsert then **[Error]:Undeclared identifier: 'stat' begin if (DBEdit1.Text<>'') and (DBEdit2.Text<>'') then begin CHKSQL.Close;//這裡你要用另外一個Query來做 **[Error] Undeclared identifier: 'CHKSQL' CHKSQL.SQL.Clear; **[Error] Missing operator or semicolon CHKSQL.SQL.ADD(' SELECT COUNT(*) as count FROM XXX WHERE TYPE=' #39 DBEdit1.Text #39 ' AND No=' #39 DBEdit2.Text #39); CHKSQL.Open; if CHKSQL.FieldByNmae('count').Value>1 then ** [Error]'THEN' expected but identifier 'FieldByNmae' found begin SHOWMESSAGE('資料重覆!!!');//Message在這裡你可以自己改成你要的.. DBEdit1.setfocus; CHKSQL.Close; exit; end else CHKSQL.Close; end; end; PS:另外給你一點建議..像Type,No,Name這些文字在其他資料庫都是保留字(MSSQL.ORACLE)..盡量不要用..以免更換資料庫時程式就全部都要改了... 謝謝 TRY TRY SEE..引言:出現上述錯誤謝謝 |
|
chih
版主 發表：48 回覆：1186 積分：639 註冊：2002-04-02 發送簡訊給我 |
|
|
懷舊的人
高階會員 發表：28 回覆：152 積分：141 註冊：2003-01-08 發送簡訊給我 |
|
|
nick899
一般會員 發表：16 回覆：22 積分：12 註冊：2002-12-09 發送簡訊給我 |
引言: 1. 既然你選用 Paradox 2. 你可用 if TTable.FindKey([DBEdit1.Text,DBEdit2.Text]) then showmessage('已存在') else .... 顯示內定 Message:key violation 無法顯示自定Message (/Thank/) 3. 你可用 if TTable.Locate('TYPE;NO',VarArrayOf([DBEdit1.Text,DBEdit2.Text],[]) then '已存在' else .... []請問理面放入? [Error] Too many actual parameters (/Thank/) 4. .... |
|
懷舊的人
高階會員 發表：28 回覆：152 積分：141 註冊：2003-01-08 發送簡訊給我 |
|
|
懷舊的人
高階會員 發表：28 回覆：152 積分：141 註冊：2003-01-08 發送簡訊給我 |
|
|
nick899
一般會員 發表：16 回覆：22 積分：12 註冊：2002-12-09 發送簡訊給我 |
|
|
懷舊的人
高階會員 發表：28 回覆：152 積分：141 註冊：2003-01-08 發送簡訊給我 |
|
|
nick899
一般會員 發表：16 回覆：22 積分：12 註冊：2002-12-09 發送簡訊給我 |
|
|
nick899
一般會員 發表：16 回覆：22 積分：12 註冊：2002-12-09 發送簡訊給我 |
|
|
longsanglin
初階會員 發表：10 回覆：57 積分：43 註冊：2002-04-23 發送簡訊給我 |
發表時間：2003-02-14 10:02:03
IP:61.228.xxx.xxx 未訂閱
系統時間：2024-06-28 19:17:14
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |