---------------事务---当执行到commit时 事务才算是完成，不然 会执行rollback操作。
declare
v_money acount.money%type:=1223;
ex exception;
begin
update acount set money=money-v_money where id=1;
raise ex;
update acount ...
分类：
数据库 时间：
2014-08-01 13:39:21
阅读次数：
222
procedure TForm1.FormCreate(Sender: TObject);
begin Application.HintPause:=0;//立即显示 Application.hinthidepause:=100000;//if not leave then 显示100秒end;
来...
分类：
其他好文 时间：
2014-08-01 12:55:11
阅读次数：
180
//获取网页源代码
var s: string;
begin s := WebBrowser1.OleObject.document.body.innerHTML; //body内的所有代码 s := WebBrowser1.OleObject.document.body.outerHTML; //...
分类：
Web程序 时间：
2014-08-01 12:53:01
阅读次数：
298
//在选中的节点中上添加1个节点
procedureTForm1.Button1Click(Sender:TObject); begin withTreeView1do begin Items.AddChild(Selected,'aaa'); end; end; //添加节点
procedureT...
分类：
其他好文 时间：
2014-08-01 12:47:41
阅读次数：
226
DELIMITER $$CREATE PROCEDURE `delRepeatCA`() BEGIN DECLARE tally INT DEFAULT 0; SELECT COUNT(rs.c_CA) INTO tally FROM --------赋值 (SELECT CO...
分类：
数据库 时间：
2014-08-01 10:40:31
阅读次数：
225
procedure TPopupMenu.Popup(X, Y: Integer); 这个点是相对桌面的而不是窗体的 GetCursorPos是鼠标的位置 鼠标动这个点就不一样 var p:TPoint;
begin GetCursorPos(p); PopupMenu1.Popup(p.x,p.Y...
分类：
其他好文 时间：
2014-08-01 10:28:41
阅读次数：
430
#!/bin/bash### BEGIN INIT INFO# Provides: xiyoulib# Required-Start: $all# Required-Stop: $all# Default-Start: 2 3 4 5# Default-Stop: 0 1 6# Sh...
分类：
系统相关 时间：
2014-07-31 20:40:57
阅读次数：
274
实例一：无参的存储过程 $conn = mysql_connect(‘localhost‘,‘root‘,‘root‘) or die ("数据连接错误!!!"); mysql_select_db(‘test‘,$conn); $sql = " create procedure myproce() begin INSERT INTO user (id, u...
分类：
数据库 时间：
2014-07-31 13:47:36
阅读次数：
365
--商品筛选时判断品牌ID是否存在--select dbo.isValite(94,94)create function isValite(@brandId int,@bId int)returns intas begin Declare @rNumber int if @brandId = @b....
分类：
数据库 时间：
2014-07-30 23:36:55
阅读次数：
443
编辑模式 浏览模式 设置焦点
//在使用前需要Webbrowser已经浏览过一个网页 否则错误 uses MSHTML;
///获取Webbrowser编辑模式里面的内容procedure EditMode();begin(Form1.WebBrowser1.Document as IHTMLDoc...
分类：
其他好文 时间：
2014-07-29 21:47:12
阅读次数：
312
