procedure TForm1.Edit1Change(Sender: TObject);
var
t:Integer;
begin
t:=StrToInt(Edit1.Text);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
t:Integer;
begin
Query1.sql.Add('select * from ZD_PERSONNAL where GH:='''+Edit1.text+'''') ;
end;
end.
這是我設計的一個查詢程式,但是最后輸入工號顯示不了該工號的資訊
uj5u.com熱心網友回復:
A)請轉 Delphi 區B)什么資料庫?SQL 中應該不會有 := 比較符,應該是 =,難道沒有報錯?
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/145019.html
