我這樣的寫法怎會造成不管輸入什麼資料都會出現編號已存在了
我是在dbedit 的onexit事件下寫的
請各位大大幫我這個新手看看，謝謝
Query1.Close;
query1.sql.Clear;
Query1.SQL.Text := 'Select * From prod Where Prodno = "' DBEditNO.Text '"';
Query1.Open;
if Query1.IsEmpty then begin
ShowMessage(DBEditNO.Text ' 編號已存在');
DBEditNO.clear;
end;

Query1.SQL.Text := 'Select * From prod Where Prodno = "'+ DBEditNO.Text+'"';
改為
Query1.SQL.Add('Select * From prod Where Prodno = "' DBEditNO.Text '"');
if Query1.RecordCount>0 then begin

ShowMessage(DBEditNO.Text ' 編號已存在');

DBEditNO.clear;

end;

------
結案=動力
高手等等我 .... 追隨高手永不懈怠!!

大大還是一樣的結果耶，不過輸入啥資料，都是會出現編號已存在的對話框

問一下你showmessage的結果
DBEditNO.Text 是不是都是一樣的?
你可以設定中斷點檢查一下你的DBEditNO.Text值,是否都一樣沒變過?

------
結案=動力
高手等等我 .... 追隨高手永不懈怠!!

===================引 用 文 章===================
我這樣的寫法怎會造成不管輸入什麼資料都會出現編號已存在了
我是在dbedit 的onexit事件下寫的
請各位大大幫我這個新手看看，謝謝
Query1.Close;
query1.sql.Clear;
Query1.SQL.Text := 'Select * From prod Where Prodno = "' DBEditNO.Text '"';
Query1.Open;
if Query1.IsEmpty then begin
ShowMessage(DBEditNO.Text ' 編號已存在');
DBEditNO.clear;
end;

是否是 if not query1.isEMpty then

showmessage .............
????????????
Stone.

大大我不太懂你的意思耶，而我最主要的目的就是防止user輸入重覆的代號到資料庫裡的

依你的作法做了一個,試試吧!
Query1為DBEDIT的資料來源,Query2用來做搜尋用
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, StdCtrls, Mask, DBCtrls, ADODB;
type
TForm1 = class(TForm)
Query1: TADOQuery;
DBEdit1: TDBEdit;
DataSource1: TDataSource;
DBEdit2: TDBEdit;
Query2: TADOQuery;
procedure DBEdit1Exit(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.DBEdit1Exit(Sender: TObject);
begin
Query2.Close;
query2.sql.Clear;
Query2.SQL.Add('Select * From Job Where Job_no = ''' DBEdit1.Text '''');
Query2.Open;
if Query2.RecordCount>0 then begin
ShowMessage(DBEdit1.Text ' 編號已存在');
DBEdit1.clear;
end;
end;
end.
我的作法通常不會直接將Edit欄位直接連上資料庫,也就是不使用DBEDIT避免資料鎖定
建議你將所有欄位改為Edit方式.當要新增.修改.刪除時使用SQL語法Insert into ,Update or Delete...

------
結案=動力
高手等等我 .... 追隨高手永不懈怠!!

謝謝大大您幫我解決這個問題!!!