create or replace procedure p_insert_caz_lims as v_sqlcode TLIMSERRORINFO.ERROR_CODE%type; v_msg TLIMSERRORINFO.error_msg%type;begininsert into ...
分类:
数据库 时间:
2014-08-01 15:53:51
阅读次数:
316
菜单的项目是否可用 TPopupMenu.OnPopup事件
把代码放在这里面判断 // ------------------------------------------------------------------------------
procedure Tfrm_Main.pm_Edi...
分类:
其他好文 时间:
2014-08-01 13:13:41
阅读次数:
202
如何知道 Treeview,的节点是根节点 procedure TForm1.TreeView1ContextPopup(Sender: TObject; MousePos: TPoint;var Handled: Boolean);beginif TreeView1.Selected.IsFirs...
分类:
其他好文 时间:
2014-08-01 12:58:31
阅读次数:
182
使用进度条查看浏览器状态 procedure TForm1.WebBrowser1ProgressChange(ASender: TObject; Progress,ProgressMax: Integer);beginProgressBar1.Max:=ProgressMax;if Progres...
分类:
其他好文 时间:
2014-08-01 12:57:31
阅读次数:
168
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
//修改Hint的字体和颜色public{ Public declarations }procedure Sshowhint(var hintstr:string;var canshow:Boolean;var HintInfo:THintInfo);procedure TForm1.FormCre...
分类:
其他好文 时间:
2014-08-01 12:47:51
阅读次数:
281
在 DragDrop 的时候,滚动 TreeView
当高度不够的时候
procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;State: TDragState; var Accept: Boolean);...
分类:
其他好文 时间:
2014-08-01 12:47:01
阅读次数:
225
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
//make the procedure into block//2014.7.23 OK//#include "CSocket.h"#define NTP_SERVER_IP "192.168.1.12" /*ntp service IP*/int sendpkt(int sockfd...
分类:
其他好文 时间:
2014-07-31 20:20:27
阅读次数:
287
一:存储过程实现分页 例子:查询楼盘列表 ALTER procedure [dbo].[BM_GetBlockList]@pageIndex int,-------页码数@PageSize int,---------展示的条数@cityId intasdeclare @sql nvarchar(m....
分类:
数据库 时间:
2014-07-31 20:05:27
阅读次数:
244