請問一下要怎麼對dbedit中下判斷的指令 |
尚未結案
|
suzukiyamaru
一般會員 發表:18 回覆:8 積分:5 註冊:2003-06-09 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
在 TDBEdit 的 OnExit 事件中,
procedure TForm1.DBEdit1Exit(Sender: TObject); begin Query1.Close; Query1.SQL.Text := 'Select ID From Table1 Where ID = ' DBEdit1.Text; Query1.Open; if not Query1.IsEmpty then begin ShowMessage(DBEdit1.Text ' 編號已存在'); DBEdit1.SetFocus; end; end;--- 歡迎光臨 KTop 研究院 |
fangwy
中階會員 發表:99 回覆:139 積分:62 註冊:2003-09-10 發送簡訊給我 |
procedure TPLU4115F.quT10MPRDPrd_IdValidate(Sender: TField);
begin
with TQuery.Create(nil)do
begin
DataBaseName:='jxcdb';
SQL.Add('select prd_id,scn_id from t10mprd where prd_id=:prd_id or scn_id=:prd_id');
ParamByName('prd_id').AsString:=Trim(quT10MPRDPrd_Id.Value);
Open;
if RecordCount>0 then
raise Exception.Create('商品编码重复!')
else
begin
quT10MPRDScn_Id.Value:=quT10MPRDPrd_Id.Value;
end;
end;
end;
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |