这段代码什么意思啊?
生活随笔
收集整理的這篇文章主要介紹了
这段代码什么意思啊?
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
這段代碼什么意思啊? Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061217214802252.html
procedure ? TForm3.RadioButton3Click(Sender: ? TObject); ?
? begin ?
? ADOTable1.refresh; ?
? with ? ADOTable1 ? do ?
? try ?
? ? ? disablecontrols; ?
? ? ? filtered:=false; ?
? ? ? memo1.Text:=memo1.Text+''''+edit1.Text+''''; ?
? ? ? filter:=memo1.text; ?
? ? ? filtered:=true; ?
? finally ?
? ? ? enablecontrols; ?
? if ? ADOTable1.recordcount=0 ? then ? begin ?
? messagebeep(1); ?
? showmessage('沒有符合的,請確認條件或放棄查詢!'); ?
? if ? messageDlg('是否繼續查詢?只有結束查詢才能作其它操作!',mtinformation,[mbYes,mbNo],0)=mrno ? then ? begin ?
? ? ? filtered:=false; ?
? ADOTable1.close; ?
? ? ADOTable1.open; ?
? end; ?
? end ? else ? begin ?
? ? if ? messageDlg('是否繼續查詢?,只有結束查詢才能作其它操作!',mtinformation,[mbYes,mbNo],0)=mrno ? then ? begin ?
? ? ? filtered:=false; ?
? ADOTable1.close; ?
? ADOTable1.open; ?
? end; ?
? end; ?
? end ?
? ?
? 是個查詢按扭的操作,用ADO連接的ACESS數據庫.可是能不能具體的說一下每句的意思啊.挺多看不懂的.. ?
? 謝謝..
http://www.delphi2007.net/DelphiDB/html/delphi_20061217214802252.html
procedure ? TForm3.RadioButton3Click(Sender: ? TObject); ?
? begin ?
? ADOTable1.refresh; ?
? with ? ADOTable1 ? do ?
? try ?
? ? ? disablecontrols; ?
? ? ? filtered:=false; ?
? ? ? memo1.Text:=memo1.Text+''''+edit1.Text+''''; ?
? ? ? filter:=memo1.text; ?
? ? ? filtered:=true; ?
? finally ?
? ? ? enablecontrols; ?
? if ? ADOTable1.recordcount=0 ? then ? begin ?
? messagebeep(1); ?
? showmessage('沒有符合的,請確認條件或放棄查詢!'); ?
? if ? messageDlg('是否繼續查詢?只有結束查詢才能作其它操作!',mtinformation,[mbYes,mbNo],0)=mrno ? then ? begin ?
? ? ? filtered:=false; ?
? ADOTable1.close; ?
? ? ADOTable1.open; ?
? end; ?
? end ? else ? begin ?
? ? if ? messageDlg('是否繼續查詢?,只有結束查詢才能作其它操作!',mtinformation,[mbYes,mbNo],0)=mrno ? then ? begin ?
? ? ? filtered:=false; ?
? ADOTable1.close; ?
? ADOTable1.open; ?
? end; ?
? end; ?
? end ?
? ?
? 是個查詢按扭的操作,用ADO連接的ACESS數據庫.可是能不能具體的說一下每句的意思啊.挺多看不懂的.. ?
? 謝謝..
這個就是通過選擇條件讓ADOTable用過濾器來查找數據的
filter:=''是過濾條件 ?
? filtered是過濾的方法,用法類似locate
謝謝..
總結
以上是生活随笔為你收集整理的这段代码什么意思啊?的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: kali linux 升级命令_作为高级
- 下一篇: html 将两个标签绑在一起,基本标签2