討論區快速選單
知識庫快速選單
討論區最近新進100則主題 政府補助!學嵌入式+物聯網 想要資料分析就學Python
[ 回上頁 ] [ 討論區發言規則 ]
Delphi 兩個Query不同登入者的驗證,與基本元件用法
更改我的閱讀文章字型大小
作者 : toyota362(toyota362)
[ 貼文 1 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2011/8/13 下午 03:20:08
請問大大們,我現在要驗證 登入者是否與該 課長V02AEMPID或 稽核者PA_MAIN_AUDITOR 才可以登入 否則show出不能登入等訊息
以下是我的程式碼 不知道是否能這樣寫 與Query元件等用法
我在button內寫了驗證等訊息,如果是 稽核者可以打開qryTemp1做存取 如果是課長可以打開qryTemp2做存取,否則show出非該主辦稽核員或課長不可修改 ,我不知道我語法是否有錯 大大們能幫我看一下嗎
begin
    if qryTemp1.PA_MAIN_AUDITOR = '' + Paramstr(1) + '' then
     begin
     with qryTemp1, SQL do
     begin
     Close;
     Clear;
     Open;
    else if qryTemp2.V02AEMPID = '' + Paramstr(1) + '' then
     begin
     with qryTemp2, SQL do
     begin
     Close;
     Clear;
     Open;
    else
     begin
     Close;
     ShowMessage('此案件已核定完成,非該主辦稽核員或課長不可修改!');
     Abort;
     end;
     end;
     end;
end;

在兩個Query元件內SQL語法分別寫了,我的想法是有先下語法選擇連到資料庫的Table才能做上面那段程式的判別
SELECT 'X' '+
     ' FROM PA_AUDIT_D A, PA_AUDIT_M B '+
     ' WHERE B.PA_MAIN_AUDITOR = '' + Paramstr(1) + '' '+ //登入使用者
     ' AND A.RESERVE_NO = B.PA_RESERVE_NO ';
SELECT 'X' '+
     ' FROM V02A_VIEW_PA '+
     ' WHERE V02AEMPID = '' + Paramstr(1) + '' ' + //登入使用者
     ' AND V02AEPTN = '課長' '+
     ' AND V02ASORGIN = '稽核組' ' ;
 板主 : 郭祈良 , 葉雨心
 > Delphi - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Delphi - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Delphi
1 hagar 8170 
2 心若浮雲 2140 
3 葉雨心 1350 
4 狼鷹 1240 
5 foxelf 730 
6 Allen 680 
7 貓老大 510 
8 xriz8989 440 
9 ㄚ松 410 
10 Falcon 320 
Delphi
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
0.03125