各位大大 小弟有以下問題要請教各位大大    1.以下是一個條件查尋,該如何成改條件1~條件2的範為內 (例如:消費1000塊~~~~5000塊的範為內)拜托謝謝!    Query1.SQL.ADD('WHERE BNENO IS NOT NULL '); IF(EDIT1.Text <> '') THEN Query1.SQL.ADD(' AND BNENO                         LIKE ''%'+EDIT1.Text+'%'' ');       2.如何審查DBEdit的輸入的資料如下    procedure TForm2.EditBNBTHExit(Sender: TObject); begin if EditBNBTH.Text=  如0000/01/31 0000/02/29 0000/03/32 0000/04/31 0000/05/32 (審核以上沒有的月日,不對ShowMessage) then begin ShowMessage('日期不正確'); EditBNBTH.SetFocus;    感謝@_@ 謝謝大大    

------
Xax

20052020您好    第一個問題 您可以用select * from table where not (BNENO is null) and cast(field1 as integer)>=100 and cast(field1 as integer)<=500 來限制條件範圍    第二個問題 可以在DataSet的欄位OnValidate事件裡,編寫檢查規則 或是在DBEdit.OnExit寫也是可以

procedure TForm1.Edit1Exit(Sender: TObject);
var
  s:string;
begin
  s:=Edit1.Text;
  if (trim(s)='2004/01/01') or
    (trim(s)='2005/03/03') then
    ShowMessage('日期對了')
end;

................... .楛耕傷稼,楛耘失歲. ...................

Pedro大大你好 我還有幾個問題想請教你    1.該如何把以下的2004改為變數 procedure TForm1.Edit1Exit(Sender: TObject); var   s:string; begin             (輸入=1999/01/20 ,show結果=日期對了')      s:=Edit1.Text;   if (trim(s)='2004/01/20') or     (trim(s)='1980/01/20') then     ShowMessage('日期對了') end;    2.當我輸入錯誤的日期後Delphi會出限錯誤Message,   我該如何寫才可以早一步擋掉Delphi的錯誤Message   show出我的Message    謝謝你

------
Xax

1.該如何把以下的2004改為變數

procedure TForm1.Edit1Exit(Sender: TObject);
var
  s:string;
  year:string;
begin             (輸入=1999/01/20 ,show結果=日期對了')      s:=Edit1.Text;
  year:='2004';
  if (trim(s)=year＋'/01/20') or
    (trim(s)=year＋'/03/20') then
    ShowMessage('日期對了')
end;

2.您可以用try ...exception end 先處理已知的錯誤

try
   a:=StrToInt('');
except
   ShowMessage('字串為空不能轉整數');
end;

................... .楛耕傷稼,楛耘失歲. ...................