如何判定有相同的圖檔? |
答題得分者是:cashxin2002
|
huangeider
高階會員 發表:288 回覆:492 積分:231 註冊:2003-02-26 發送簡訊給我 |
小弟在資料庫中編輯中在儲存前欲判定有無相同圖檔以下是我的方法
qIMAGE 是TQUERY型態;
QIMAGE.Close;
QIMAGE.SQL.Clear;
QIMAGE.SQL.ADD('SELECT * FROM IMAGE1 WHERE B003=' DBIMAGE1.xxx);
QIMAGE.OPEN;
IF QIMAGE.RecordCount>0 THEN
APPLICATION,MessageBox('已有相同的圖片','錯誤視窗',MB_OK);
TQUERY語法中的xxx與TDBIMAGE是相關連的(DBIMAGE1是要儲存前的圖);
請問在XXX中要如何做 「堅持」從洗馬桶做起
Aric
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好﹗ 小弟沒有直接用DBImage來做﹐相同的部分是選擇用DBEdit配合Image來做的﹐請見如下﹕
begin if OpenPictureDialog1.Execute then DBEdit1.Text := OpenPictureDialog1.FileName; Image1.Picture.LoadFromFile(DBEdit1.Text); end; //以DBEdit來記錄圖檔的路徑名稱﹐再以Image來顯示﹒ //在查詢是否重覆的時候﹐就可利用DBEdit1的Text來判斷﹐如下﹕ begin QImage.Close; QImage.SQL.Clear; QImage.SQL.Add('Select * From Image1 Where B003=''' DBEdit1.Text ''''); QImage.Open; if QImage.RecordCount>0 then Application.MessageBox('已有相同的圖片','錯誤視窗',MB_OK); ...參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟
------
忻晟 |
huangeider
高階會員 發表:288 回覆:492 積分:231 註冊:2003-02-26 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |