MYSQL网页编程之一个经由过程Oracle8i存储历程,前往纪录集的...

客户还是可以使用DBaaS系统所能提供的所有能力。数据库云服务消除了组织对专职人员、本地数据库存储设备的需要。他们不必安装、配置和维护任何软硬件。oracle|程序|存储历程|纪录集
提醒:在Oracle8i中,假如必要经由过程存储历程前往了局集,必要利用游标!

CREATEORREPLACEPACKAGEBODY"SMS_PAY"."SMSMAINT"
IS

--功效形貌：查询代办署理银行买卖流水信息writer:wanghaibo2004-08-24
PROCEDUREGetAgtBankFlow(AreaCodeinvarchar2,KeyWordinvarchar2,startTradeDateinvarchar2,endTradeDateinvarchar2,Re_CURSOROUTT_CURSOR,retoutnumber)
is

IsExistsnumber;

strSQLVARCHAR2(2048);


Begin

--反省一时表是不是已存在，假如不存在，则创立，不然拔出数据start
SelectCount(*)IntoIsExistsfromall_tablesWhereTable_Name=TEMPAGTBANKFLOW;


IFIsExists=0Then

strSQL:=CREATEGLOBALTEMPORARYTABLESMS_PAY.TEMPAgtBankFlow
(AGTIDVARCHAR2(13),BANK_GLIDENumber(12),TradeTypeVARCHAR2(20),Trade_MoneyNumber(14,2),
TRADEDATEVARCHAR2(10),TRADETIMEVARCHAR2(8),BankNAMEVARCHAR2(30),
AreaCodeVarchar2(30),AreaNameVARCHAR2(30),StateVARCHAR2(30),CheckFlagNumber(1),
StatusFlagNumber(1),SuccFlagNumber(1))oncommitpreserverows;

--把一时表的创立选项由oncommitdeleterows改成oncommitpreserverows;
--不然在挪用的时分，回呈现ORA-08103:objectnolongerexists

ExecuteImmediatestrSQL;

Else

ExecuteimmediateTruncatetableSms_pay.TEMPAGTBANKFLOW;

EndIF;
--反省一时表是不是已存在，假如不存在，则创立，不然拔出数据end

---功效：把满意前提的一级代办署理商转帐信息导进数据库Start

/*strSQL:=InsertIntoTEMPAgtBankFlow
SelectA.Agent_Mobile,A.Bank_Glide,
Decode(A.OPTCode,100,交款买卖,101,交款冲正,900,抹帐买卖,范例不明)asTradeType,A.Trade_Money,
TO_Char(To_Date(A.Trade_Date,YYYYMMDD),YYYY-MM-DD)asTradeDate,
TO_Char(To_Date(A.Trade_Time,hh24miss),hh24:mi:ss)asTradeTime,B.BankName,C.AreaCode,C.AreaName,
(CaseWhenCheckFlag=-1Then/Images/state_rollback.gifWhenSuccFlag=-1Then/Images/state_cancel.gifWhenStatusFlag=-1Then/Images/state_unnormal.gifElse/Images/state_normal.gifEnd)asState
FromBank_Stream_AccountA,BankInfoConfigB,AreaConfigC,FstAgtAccountD
WhereA.Bank_ID=B.BankCodeAndTrim(A.Agent_Mobile)=D.AgtIDAndC.CityCode=D.CityCode;

IFAreaCode!=0Then--前提1：选择一切区域的信息
strSQL:=strSQL||AndTrim(C.AreaCode)=||AreaCode||;
EndIF;

IFTradeDate!=Then--前提2：选择一切区域的信息,选择一切买卖日期的信息

strSQL:=strSQL||AndTO_Char(To_Date(A.Trade_Date,YYYYMMDD),YYYY-MM-DD)=||TradeDate||;

EndIf;

IFKeyWord!=Then--前提3：选择一切区域的信息,选择一切买卖日期的信息,选择和查询关头字婚配的信息

strSQL:=strSQL||And(D.AgtIDLike%||KeyWord||%OrTO_Char(A.BANK_GLIDE)Like%||KeyWord||%OrB.BankNameLike%||KeyWord||%);

EndIf;

ExecuteImmediatestrSQL;

---功效：把满意前提的一级代办署理商转帐信息导进数据库End
*/

---功效：把满意前提的二级代办署理商转帐信息导进数据库Start
strSQL:=InsertIntoTEMPAgtBankFlow
SelectA.Agent_Mobile,A.Bank_Glide,
Decode(A.OPTCode,100,交款买卖,101,交款冲正,900,抹帐买卖,范例不明)asTradeType,A.Trade_Money,
TO_Char(To_Date(A.Trade_Date,YYYYMMDD),YYYY-MM-DD)asTradeDate,
TO_Char(To_Date(A.Trade_Time,hh24miss),hh24:mi:ss)asTradeTime,B.BankName,C.AreaCode,C.AreaName,
(CaseWhenCheckFlag=-1Then/Images/state_rollback.gifWhenSuccFlag=-1Then/Images/state_cancel.gifWhenStatusFlag=-1Then/Images/state_unnormal.gifElse/Images/state_normal.gifEnd)asState,
A.CheckFlag,A.StatusFlag,A.SuccFlag
FromBank_Stream_AccountA,BankInfoConfigB,AreaConfigC,SecAgtAccountD,FstAgtAccountE
WhereA.Bank_ID=B.BankCodeAndTrim(A.Agent_Mobile)=D.AgtIDAndD.BossAgtID=E.AgtIDAndC.CityCode=E.CityCode;

IFAreaCode!=0Then--前提1：选择一切区域的信息

strSQL:=strSQL||AndTrim(C.AreaCode)=||AreaCode||;

EndIF;

IFstartTradeDate!=Then--前提2：选择一切区域的信息,选择一切买卖入手下手日期的信息

strSQL:=strSQL||AndTO_Char(To_Date(A.Trade_Date,YYYYMMDD),YYYY-MM-DD)>=||startTradeDate||;

EndIf;

IFendTradeDate!=Then--前提2：选择一切区域的信息,选择一切买卖停止日期的信息

strSQL:=strSQL||AndTO_Char(To_Date(A.Trade_Date,YYYYMMDD),YYYY-MM-DD)<=||endTradeDate||;

EndIf;

IFKeyWord!=Then--前提3：选择一切区域的信息,选择一切买卖日期的信息,选择和查询关头字婚配的信息

strSQL:=strSQL||And(D.AgtIDLike%||KeyWord||%OrTO_Char(A.BANK_GLIDE)Like%||KeyWord||%OrB.BankNameLike%||KeyWord||%);

EndIf;


ExecuteImmediatestrSQL;
---功效：把满意前提的二级代办署理商转帐信息导进数据库End

OpenRe_CURSORForSelect*FromSms_pay.TEMPAgtBankFlowOrderbyAgtID;--天生前往了局集的Curso

ret:=0;
return;

Exception

whenothersthen
DBMS_OUTPUT.PUT_LINE(SQLERRM);
ret:=999;
return;
EndGetAgtBankFlow;





--功效形貌：查询代办署理商钱包余额信息writer:wanghaibo2004-08-24
PROCEDUREGetAgtBalance(AreaCodeinvarchar2,KeyWordinvarchar2,Re_CURSOROUTT_CURSOR,retoutnumber)
is
pFSTAGTIDVARCHAR2(13);
pSECAgtIDVARCHAR2(13);
pAgtBalanceNUMBER(10,2);
pAgtProfitNUMBER(10,2);
pAreaCodeVARCHAR2(10);
pAreaNameVARCHAR2(30);
pAgtCountNUMBER(10);

IsExistsnumber;
subAgtNumbernumber;

typec_GetBalanceisrefcursor;

FstCursorc_GetBalance;

strSQLVARCHAR2(1024);


Begin

--翻开游标，依据SQL语句猎取1级代办署理商材料，然后依据1级代办署理商的材料猎取2级代办署理的信息

IFAreaCode!=0AndKeyWord=Then

strSQL:=SelectA.AgtID,,A.Agtcredit,A.AgtProfit,
B.AreaCode,B.AreaName,0FromSms_Pay.FstAgtAccountA,Sms_Pay.AreaConfigB
WhereA.IsActive=1AndA.CityCode=B.CityCodeAndB.AreaCode=||AreaCode||;


ElsIf(Trim(AreaCode)!=0AndKeyWord!=)Then
strSQL:=SelectA.AgtID,,A.Agtcredit,A.AgtProfit,
B.AreaCode,B.AreaName,0FromSms_Pay.FstAgtAccountA,Sms_Pay.AreaConfigB
WhereA.IsActive=1AndA.CityCode=B.CityCodeAndB.AreaCode=||AreaCode||
And(B.AreaNameLike%||Trim(KeyWord)||%OrA.AgtIDLike%||Trim(KeyWord)||%);

ElsIf(Trim(AreaCode)=0AndKeyWord=)Then

strSQL:=SelectA.AgtID,,A.Agtcredit,A.AgtProfit,
B.AreaCode,B.AreaName,0FromSms_Pay.FstAgtAccountA,Sms_Pay.AreaConfigB
WhereA.IsActive=1AndA.CityCode=B.CityCode;

Else
strSQL:=SelectA.AgtID,,A.Agtcredit,A.AgtProfit,
B.AreaCode,B.AreaName,0FromSms_Pay.FstAgtAccountA,Sms_Pay.AreaConfigB
WhereA.IsActive=1AndA.CityCode=B.CityCode
And(B.AreaNameLike%||KeyWord||%OrA.AgtIDLike%||KeyWord||%);

EndIf;


OpenFstCursorForstrSQL;

--反省一时表是不是已存在，假如不存在，则创立，不然拔出数据start
SelectCount(*)IntoIsExistsfromall_tablesWhereTrim(Table_Name)=TEMPAGTBALANCE;

IFIsExists=0Then
strSQL:=CREATEGLOBALTEMPORARYTABLESMS_PAY.TEMPAgtBalance
(FSTAGTIDVARCHAR2(13),SECAgtIDVARCHAR2(13),ParentIDVARCHAR2(13),
AgtBalanceNUMBER(10,2),AgtProfitNUMBER(10,2),AreaCodeVARCHAR2(10),
AreaNameVARCHAR2(30),AgtCountNUMBER(10))oncommitpreserverows;

--把一时表的创立选项由oncommitdeleterows改成oncommitpreserverows;
--不然在挪用的时分，回呈现ORA-08103:objectnolongerexists
--DBMS_OUTPUT.PUT_LINE(strSQL);
ExecuteImmediatestrSQL;
Else
executeimmediateTruncatetableSms_pay.TEMPAgtBalance;
EndIF;
--反省一时表是不是已存在，假如不存在，则创立，不然拔出数据end

Loop

FetchFstCursorintopFSTAGTID,pSECAgtID,pAgtBalance,pAgtProfit,pAreaCode,pAreaName,pAgtCount;

ExitwhenFstCursor%NOTFOUND;

--1:写1级代办署理商查询信息
strSQL:=InsertintoTEMPAgtBalance(FSTAGTID,SECAgtID,ParentID,AgtBalance,AgtProfit,AreaCode,AreaName,AgtCount)
Values(||pFSTAGTID||,null,null,||pAgtBalance||,||pAgtProfit||,||pAreaCode||,
||pAreaName||,||pAgtCount||);

ExecuteImmediatestrSQL;

--2:写2级代办署理商查询信息
strSQL:=InsertintoTEMPAgtBalanceSelectnull,AGTID,||pFSTAGTID||,AGTCREDIT,AGTPROFIT,||pAreaCode||,||pAreaName||,0FromSecAgtAccountWhereTrim(BOSSAGTID)=||pFSTAGTID||;

ExecuteImmediatestrSQL;

--3:更新1级代办署理的上级别代办署理商数目
strSQL:=SelectCount(*)FromTEMPAgtBalanceWhereSECAgtIDisnotnullAndParentID=||pFSTAGTID||;
--DBMS_OUTPUT.PUT_LINE(strSQL);
ExecuteImmediatestrSQLIntosubAgtNumber;
--SelectCount(*)IntosubAgtNumberFromTEMPAgtBalanceWhereSECAgtIDisnotnullAndParentID=pFSTAGTID;

DBMS_OUTPUT.PUT_LINE(subAgtNumber);

strSQL:=UpdateTEMPAgtBalanceSetAgtCount=||subAgtNumber||WhereSECAgtIDisnullAndFSTAGTID=||pFSTAGTID||;
ExecuteImmediatestrSQL;

--DBMS_OUTPUT.PUT_LINE(strSQL);
--UpdateTEMPAgtBalanceSetAgtCount=subAgtNumberWhereSECAgtIDisnullAndFSTAGTID=pFSTAGTID;

Endloop;


CloseFstCursor;

OpenRe_CURSORForSelect*FromSms_pay.TEMPAgtBalance;

ret:=0;
return;

Exception

whenothersthen
DBMS_OUTPUT.PUT_LINE(SQLERRM);
ret:=999;
return;
EndGetAgtBalance;



End;


只需每年花费2000到5000美元。无论你是自掏腰包来创建一个新兴公司，还是得到了风险投资商的赞助，使用MySQL都可以降低你所需要的人力成本。

仓酷云

另一个是把SQL语句写到服务器端,就是所谓的SP(存储过程);

一个是把SQL语句写到客户端,可以使用DataSet进行加工;

外键的级联更能扩展可能大部分的同行在设计OLTP系统的时候都不愿意建立外键，都是通过程序来控制父子数据的完整性。

多加的系统视图和实时系统信息这些东西对DBA挑优非常有帮助，但是感觉粒度还是不太细。

分区表是个亮点！从分区表也能看出微软要做大作强SQLServer的信心。资料很多，这里不详细说。但是重点了解的是：现在的SQLServer2005的表，都是默认为分区表的。因为它要支持滑动窗口的这个特性。这种特性对历史数据和实时数据的处理是很有帮助的。

作了些试验，发现使用CLR的存储过程或函数在达到一定的阀值的时候，系统性能会呈指数级下滑！这是非常危险的！只使用几个可能没有问题，当一旦大规模使用会造成严重的系统性能问题！

始终遗憾SQLServer的登陆无法分配CPU/内存占用等指标数。如果你的SQLServer给别人分配了一个只可以读几个表的权限，而这个家伙疯狂的死循环进行连接查询，会给你的系统带来很大的负担。

代替了原来VB式的错误判断。比Oracle高级不少。