1、Delphi中的存儲過程 參數(shù) 數(shù)據(jù)類型Delphi7中的使用存儲過程的話，加入要獲取輸入?yún)?shù)的話，一般都是通過這樣的方式：

with spDelRights do

begin

if Active then Close;

Parameters.Clear;

Parameters.Refresh;

Parameters.ParamByName('username').Value:= edtUserName.Text; //當(dāng)前界面的輸入框

Parameters.ParamByName('menuid').Value:= DelRight.menu_id;

prepared:=true;

execProc;

MessageDlg('取消授權(quán)成功！',mtInformation,[mbOK],1);

end;

不知道為什么對于以下string類型的或發(fā)現(xiàn)參數(shù)值錯誤（在sql環(huán)境下直接執(zhí)行sql腳本是沒有任何問題的）；不知道什么原因（注：上面的代碼是正確的執(zhí)行的，這里只是表示以下，因為錯誤的已經(jīng)被我刪除了，但是忘了對比），不過有一種這種執(zhí)行存儲過程的執(zhí)行方式：直接使用查詢用的插件，然后將sql語句寫為：call 存儲過程名稱（參數(shù)列表）
2、在數(shù)據(jù)輸入時校驗數(shù)據(jù)的合法性（一般第一種）：設(shè)計思路：凡是擁護(hù)輸入非法數(shù)據(jù)的方式有兩種方式：? ? 1、禁止用戶輸入輸入非法數(shù)據(jù)，即屏蔽掉鍵盤上的一些鍵；
? ? 2、在用戶輸入非法數(shù)據(jù)后，顯示提醒信息，并清空數(shù)據(jù)；
實現(xiàn)：通過實現(xiàn)鍵盤按鍵的監(jiān)聽方法

procedure TfrmEditInfo.edtIDKeyPress(Sender: TObject; var Key: Char);

begin

if not (((key >= #48) and (key <= #57)) or (Key = '.')or (key = #8)) then

Key := #0;

//以上判斷條件是：非 數(shù)字 小數(shù)點

//中文句號是缺陷 --已解決，只要正常的'.'判斷即可！無需想太多

end;

監(jiān)聽鍵值的方式:? ? 1、ASCII碼與key值對比；
? ? 2、如果是個別的還或者有中英文區(qū)別的就可以使用：

if key ='?' then //直接對字符對比，因為key的數(shù)據(jù)類型是char

? ??



來自為知筆記(Wiz)

轉(zhuǎn)載于:https://www.cnblogs.com/ufindme/p/4477758.html

總結(jié)

以上是生活随笔為你收集整理的20150504-日报的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。