?? svrf300.ec
字號:
#include "../incl/serverpub.h"
$include sqlca;
//#define PASSWD "88888888" //???
/*
* 功能：操作員管理
* 日期：2002/12/19
* 參數：
*/
/** 修改記錄
2003/01/16：客戶端不再發操作的操作員網點、編號
2003/01/18：聯社、信用社操作員號須唯一
2003/03/31: 增加ERRBANK錯誤碼
2003/04/03: 增加4200交易
*/
/*********************************************************
功能：取操作員權限
日期：2002/12/19
參數：
*********************************************************/
int GetRight(char *pcBankNo,char *pcOperNo,char *pcRetCode)
{
$char e_cBankNo1[11],e_cOperNo1[5],e_cLevel1[2];
$long e_lCount=0;
memset(e_cBankNo1,0,sizeof(e_cBankNo1));
memset(e_cOperNo1,0,sizeof(e_cOperNo1));
memcpy(e_cBankNo1,pcBankNo,10);
memcpy(e_cOperNo1,pcOperNo,4);
memset(e_cLevel1,0,sizeof(e_cLevel1));
$select level into :e_cLevel1 from operator where bank_no=:e_cBankNo1 and oper_no=:e_cOperNo1;
#ifdef QDCS
WriteTest("Level=%s,SQLCODE=%d\n",e_cLevel1,SQLCODE);
#endif
if(SQLCODE==100){memcpy(pcRetCode,NORIGHT,3);return -1;}
if(SQLCODE){memcpy(pcRetCode,DBOPERERR,3);return -1;}
//7 系統管理員
if(atoi(e_cLevel1)!=7){memcpy(pcRetCode,NORIGHT,3);return -1;}
return 0;
}
/*********************************************************
功能：取記錄數
日期：2002/12/19
參數：
*********************************************************/
//int GetCount(char *pcBankNo,char *pcOperNo,char *pcRetCode)
int GetCount(char *pcStr,char *pcRetCode)
{
$char e_cSql[500];
$long e_lCount=0;
memset(e_cSql,0,sizeof(e_cSql));
strcpy(e_cSql,"select count(*) from ");
strcat(e_cSql,pcStr);
#ifdef QDCS
WriteTest("Select Count=%s\n",e_cSql);
#endif
$prepare Nonid from :e_cSql;
$declare count_cur cursor for Nonid;
if(SQLCODE!=0){
memcpy(pcRetCode,DBOPERERR,3);
return -1;
}
$open count_cur;
if(SQLCODE!=0){
memcpy(pcRetCode,DBOPERERR,3);
return -1;
}
while(1){
$fetch count_cur into :e_lCount;
if(SQLCODE!=0)break;
}
$close count_cur;
$free count_cur;
#ifdef QDCS
WriteTest("Rows Count=%d\n",e_lCount);
#endif
return e_lCount;
/*
$char e_cBankNo[11],e_cOperNo[5];
$long e_lCount=0;
memset(e_cBankNo,0,sizeof(e_cBankNo));
memset(e_cOperNo,0,sizeof(e_cOperNo));
memcpy(e_cBankNo,pcBankNo,10);
memcpy(e_cOperNo,pcOperNo,4);
$select count(*) into :e_lCount from operator where bank_no=:e_cBankNo and oper_no=:e_cOperNo;
if(SQLCODE){
memcpy(pcRetCode,DBOPERERR,3);
#ifdef QDCS
WriteTest("bank_no=[%s],oper_no=[%s],err=[%d]\n",e_cBankNo,e_cOperNo,SQLCODE);
#endif
return -1;
}
return e_lCount;
*/
}
SvrF300(int argc,char *argv[])
{
$char e_cBankNo[11],e_cOperNo[5],e_cName[9],e_cLevel[2],e_cPassWd[9],e_cState[2];
$char e_cBankNo1[11],e_cOperNo1[5],e_cLevel1[2];
$long e_lCount=0;
int iAct=0,i=0,iRet=0;
char cRetCode[4],cSql[100];
$char e_cBankName[41];
if(argc<6) return 0;
iAct=atoi(argv[0]);
#ifdef QDCS
for(i=0;i<argc;i++)
WriteTest("argv[%d]:%s\n",i,argv[i]);
#endif
memset(e_cBankNo,0,sizeof(e_cBankNo));
memset(e_cOperNo,0,sizeof(e_cOperNo));
memset(e_cName,0,sizeof(e_cName));
memset(e_cLevel,0,sizeof(e_cLevel));
memset(e_cPassWd,0,sizeof(e_cPassWd));
memset(e_cState,0,sizeof(e_cState));
strcpy(e_cBankNo,argv[1]);
strcpy(e_cOperNo,argv[2]);
strcpy(e_cName,argv[3]);//修改口令，存放現口令
strcpy(e_cLevel,argv[4]);
memcpy(e_cPassWd,argv[5],8);
memset(e_cBankNo1,0,sizeof(e_cBankNo1));
FindKey("地區號");strcat(e_cBankNo1,sCurrent->cValue);
FindKey("儲蓄所號");strcat(e_cBankNo1,sCurrent->cValue);
memset(e_cOperNo1,0,sizeof(e_cOperNo1));
FindKey("操作員號");strcat(e_cOperNo1,sCurrent->cValue);
#if QDCS
WriteTest("Net=%s,Oper=%s\n",e_cBankNo1,e_cOperNo1);
#endif
/*
strcpy(e_cBankNo1,argv[6]);
strcpy(e_cOperNo1,argv[7]);
*/
memset(cRetCode,0,sizeof(cRetCode));
memset(cSql,0,sizeof(cSql));
switch(iAct){
case 0://取網點相關信息
sprintf(cSql,"operator where oper_no='%s'",e_cOperNo);
iRet=GetCount(cSql,cRetCode);
if(iRet==-1)break;
else if(iRet==0){memcpy(cRetCode,NORECORD,3);break;}
memset(e_cPassWd,0,sizeof(e_cPassWd));
memset(e_cState,0,sizeof(e_cState));
memset(e_cBankNo,0,sizeof(e_cBankNo));
$select passwd,state,bank_no into :e_cPassWd,:e_cState,:e_cBankNo from operator where oper_no=:e_cOperNo;
if(SQLCODE!=0&&SQLCODE!=100){memcpy(cRetCode,DBOPERERR,3);break;}
//if(atoi(e_cState)==1){memcpy(cRetCode,REREGISTER,3);break;}
if(strncmp(e_cPassWd,argv[5],8)!=0)
{
#ifdef QDCS
WriteTest("tabpasswd=[%s],inputpasswd=[%s]\n",e_cPassWd,argv[5]);
#endif
memcpy(cRetCode,PASSWDERR,3);
break;
}
CreateStruct("網點編號",e_cBankNo);
/* $update operator set state="1" where bank_no=:e_cBankNo and oper_no=:e_cOperNo;
if(SQLCODE){memcpy(cRetCode,DBOPERERR,3);break;}
*/
memset(e_cBankName,0,sizeof(e_cBankName));
$select name into :e_cBankName from banknet where bank_no=:e_cBankNo;
if(SQLCODE!=0&&SQLCODE!=100){memcpy(cRetCode,ERRBANK,3);break;}
CreateStruct("網點名稱",e_cBankName);
strcpy(cRetCode,"000");
break;
case 1://增加操作員
if(GetRight(e_cBankNo1,e_cOperNo1,cRetCode))break;
/*查找操作員號碼不包含網點*/
sprintf(cSql,"operator where oper_no='%s'",e_cOperNo);
iRet=GetCount(cSql,cRetCode);
if(iRet==-1)break;
else if(iRet>0){strcpy(cRetCode,EXIST);break;}
// memset(e_cPassWd,0,sizeof(e_cPassWd));
// strcpy(e_cPassWd,PASSWD);
$insert into operator(bank_no,oper_no,oper_name,level,passwd,state) values(:e_cBankNo,:e_cOperNo,:e_cName,:e_cLevel,:e_cPassWd,"0");
if(SQLCODE){strcpy(cRetCode,DBOPERERR);break;}
strcpy(cRetCode,"000");
break;
case 2://操作員初始化
if(GetRight(e_cBankNo1,e_cOperNo1,cRetCode))break;
sprintf(cSql,"operator where bank_no='%s' and oper_no='%s'",e_cBankNo,e_cOperNo);
iRet=GetCount(cSql,cRetCode);
if(iRet==-1)break;
else if(iRet==0){strcpy(cRetCode,NORECORD);break;}
// memset(e_cPassWd,0,sizeof(e_cPassWd));
// memcpy(e_cPassWd,PASSWD,8);
$update operator set passwd=:e_cPassWd where bank_no=:e_cBankNo and oper_no=:e_cOperNo;
if(SQLCODE){strcpy(cRetCode,DBOPERERR);break;}
strcpy(cRetCode,"000");
break;
case 3://刪除操作員
if(GetRight(e_cBankNo1,e_cOperNo1,cRetCode))break;
sprintf(cSql,"operator where bank_no='%s' and oper_no='%s'",e_cBankNo,e_cOperNo);
iRet=GetCount(cSql,cRetCode);
if(iRet==-1)break;
else if(iRet==0){memcpy(cRetCode,NORECORD,3);break;}
$delete from operator where bank_no=:e_cBankNo and oper_no=:e_cOperNo;
if(SQLCODE){strcpy(cRetCode,DBOPERERR);break;}
strcpy(cRetCode,"000");
break;
case 4://注冊操作員
sprintf(cSql,"operator where bank_no='%s' and oper_no='%s'",e_cBankNo,e_cOperNo);
#ifdef QDCS
//WriteTest("cSql=%s\n",cSql);
#endif
iRet=GetCount(cSql,cRetCode);
if(iRet==-1)break;
else if(iRet==0){memcpy(cRetCode,NORECORD,3);break;}
memset(e_cPassWd,0,sizeof(e_cPassWd));
memset(e_cState,0,sizeof(e_cState));
$select passwd,state into :e_cPassWd,:e_cState from operator where bank_no=:e_cBankNo and oper_no=:e_cOperNo;
if(SQLCODE!=0&&SQLCODE!=100){memcpy(cRetCode,DBOPERERR,3);break;}
if(atoi(e_cState)==1){memcpy(cRetCode,REREGISTER,3);break;}
if(strncmp(e_cPassWd,argv[5],8)!=0)
{
#ifdef QDCS
WriteTest("tabpasswd=[%s],inputpasswd=[%s]\n",e_cPassWd,argv[5]);
#endif
memcpy(cRetCode,PASSWDERR,3);
break;
}
$update operator set state="1" where bank_no=:e_cBankNo and oper_no=:e_cOperNo;
if(SQLCODE){memcpy(cRetCode,DBOPERERR,3);break;}
memset(e_cBankName,0,sizeof(e_cBankName));
$select name into :e_cBankName from banknet where bank_no=:e_cBankNo;
if(SQLCODE!=0&&SQLCODE!=100){memcpy(cRetCode,ERRBANK,3);break;}
CreateStruct("網點名稱",e_cBankName);
memset(e_cName,0,sizeof(e_cName));
memset(e_cLevel,0,sizeof(e_cLevel));
$select oper_name,level into :e_cName,:e_cLevel from operator where bank_no=:e_cBankNo and oper_no=:e_cOperNo;
if(SQLCODE!=0&&SQLCODE!=100){memcpy(cRetCode,DBOPERERR,3);break;}
CreateStruct("操作員姓名",e_cName);
CreateStruct("操作員級別",e_cLevel);
strcpy(cRetCode,"000");
break;
case 5://注銷操作員
sprintf(cSql,"operator where bank_no='%s' and oper_no='%s'",e_cBankNo,e_cOperNo);
iRet=GetCount(cSql,cRetCode);
if(iRet==-1)break;
else if(iRet==0){memcpy(cRetCode,NORECORD,3);break;}
$update operator set state="0" where bank_no=:e_cBankNo and oper_no=:e_cOperNo;
if(SQLCODE){memcpy(cRetCode,DBOPERERR,3);break;}
strcpy(cRetCode,"000");
break;
case 6://修改口令
memset(e_cPassWd,0,sizeof(e_cPassWd));
memcpy(e_cPassWd,argv[5],8);
$select count(*) into :e_lCount from operator where bank_no=:e_cBankNo and oper_no=:e_cOperNo and passwd=:e_cPassWd;
if(SQLCODE){memcpy(cRetCode,DBOPERERR,3);break;}
if(e_lCount==0){memcpy(cRetCode,PASSWDERR,3);break;}
memset(e_cPassWd,0,sizeof(e_cPassWd));
memcpy(e_cPassWd,argv[3],8);
$update operator set passwd=:e_cPassWd where bank_no=:e_cBankNo and oper_no=:e_cOperNo;
if(SQLCODE){memcpy(cRetCode,DBOPERERR,3);break;}
strcpy(cRetCode,"000");
break;
case 7://查詢
if(GetRight(e_cBankNo1,e_cOperNo1,cRetCode))break;
sprintf(cSql,"operator where bank_no='%s' and oper_no='%s'",e_cBankNo,e_cOperNo);
iRet=GetCount(cSql,cRetCode);
if(iRet==-1)break;
else if(iRet==0){memcpy(cRetCode,NORECORD,3);break;}
memset(e_cBankName,0,sizeof(e_cBankName));
$select name into :e_cBankName from banknet where bank_no=:e_cBankNo;
#ifdef QDCS
WriteTest("SQLCODE=%d,RetCode=%s,BankName=%s\n",SQLCODE,cRetCode,e_cBankName);
#endif
if(SQLCODE!=0 && SQLCODE!=100){memcpy(cRetCode,ERRBANK,3);break;}
CreateStruct("網點名稱",e_cBankName);
memset(e_cName,0,sizeof(e_cName));
memset(e_cLevel,0,sizeof(e_cLevel));
$select oper_name,level into :e_cName,:e_cLevel from operator where bank_no=:e_cBankNo and oper_no=:e_cOperNo;
if(SQLCODE){memcpy(cRetCode,DBOPERERR,3);break;}
CreateStruct("操作員姓名",e_cName);
CreateStruct("操作員級別",e_cLevel);
strcpy(cRetCode,"000");
break;
case 8://修改操作員信息 2002/12/23
if(GetRight(e_cBankNo1,e_cOperNo1,cRetCode))break;
sprintf(cSql,"operator where bank_no='%s' and oper_no='%s'",e_cBankNo,e_cOperNo);
iRet=GetCount(cSql,cRetCode);
if(iRet==-1)break;
else if(iRet!=1){strcpy(cRetCode,NORECORD);break;}
$update operator set(oper_name,level)=(:e_cName,:e_cLevel) where bank_no=:e_cBankNo and oper_no=:e_cOperNo;
if(SQLCODE){strcpy(cRetCode,DBOPERERR);break;}
strcpy(cRetCode,"000");
break;
case 9://恢復操作員狀態
memset(e_cPassWd,0,sizeof(e_cPassWd));
memcpy(e_cPassWd,argv[5],8);
$select count(*) into :e_lCount from operator where bank_no=:e_cBankNo and oper_no=:e_cOperNo and passwd=:e_cPassWd;
if(SQLCODE){memcpy(cRetCode,DBOPERERR,3);break;}
if(e_lCount==0){memcpy(cRetCode,PASSWDERR,3);break;}
$update operator set state="0" where bank_no=:e_cBankNo and oper_no=:e_cOperNo;
if(SQLCODE){memcpy(cRetCode,DBOPERERR,3);break;}
strcpy(cRetCode,"000");
break;
}
CreateStruct("返回碼",cRetCode);
return 0;
}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -