ADOTAble中進行查詢刪除操作

2021-05-27 04:41:44 字數 1354 閱讀 8079

procedure tform1.button1click(sender: tobject);   

var

newstring:string;

begin

inputquery('輸入查詢條件','姓名為',newstring);

adotable1.locate('sname',newstring,[locaseinsensitive]) //精確查詢

end;

procedure tform1.button2click(sender: tobject);

var

newstring:string;

begin

inputquery('輸入查詢條件','姓名為',newstring);

adotable1.locate('sname',newstring,[lopartialkey]) //模糊查詢

end;

procedure tform1.button3click(sender: tobject);

var

newstring:string;

begin

inputquery('輸入查詢條件','姓名為',newstring);

adotable1.filter:='sname='+''''+newstring+'''';

adotable1.filtered:=true;

end;

procedure tform1.button4click(sender: tobject);

var

newstring:string;

begin

inputquery('輸入查詢條件','姓名為',newstring);

adotable1.filter:='sname like ' + ''''+'%'+newstring+'%'+'''';

adotable1.filtered:=true;

end;

procedure tform1.button5click(sender: tobject);

begin

adotable1.disablecontrols;

if messagedlg('確實要刪除這條記錄嗎?',mtinformation,[mbok,mbcancel],0)=mrok then

adotable1.delete;

adotable1.enablecontrols;

end;

VIM中進行查詢與替換操作

其實很多東西都需要在不斷地嘗試中才能夠感受到其優點,比如編輯器vim。我曾經不止一次跟別人討論編輯器的選擇問題,當談到vim的時候我通常會說 在我現在的體驗中,vim最多只是乙個比記事本多了乙個語法顯示而已,總體的操作上並沒有什麼快捷的體驗。我個人的編碼通常是在windows進行,而之前的公司提供了...

Grafana中進行MySQL查詢 時區問題

我們的mysql庫中,createtime存的美國時間。美區時間比北京時間晚13個小時,正常按照createtime查詢的話,需要把北京時間減去13個小時查詢,才是美區時間。現在需要用grafana查詢,需要用北京時間查詢,顯示出北京時間。我的思路 1.用grafana的 unixepochfrom...

Makefile中進行巨集定義

實際上是gcc命令支援 d巨集定義,相當於c中的全域性 define gcc d name gcc d name definition makefile中可以定義變數 和巨集很像 但是是給make直譯器用的,對所編譯的檔案完全沒有作用。mstar 巨集定義方式 字串定義方式和值定義方式 cc tvo...