摘要: 由Rose建模(TABLE),接着由开发工具自动在数据库中创建表,并且生成关联的视图,还有一个包。插入、修改、删除记录都是由这个包里面的存储过程来实现实现,而不是由客户端直接使用insert,update,delete来实现。DECLARE info_ VARCHAR2(200); objid_ VARCHAR2(200); objversion_ VARCHAR2(200); attr_ VARCHAR2(2000); action_ VARCHAR2(200);BEGIN -- insert recode client_sys.Clear_Attr(attr_) ; client_sys. 阅读全文
posted @ 2011-05-27 17:24 abenz 阅读(394) 评论(0) 推荐(0) 编辑
摘要: Dim InParmType() As StringDim OutParmType() As StringDim InParm() As StringDim OutParm() As StringPublic Dbhandle As New DbProcDim strSql As StringDim rs01 As ADODB.RecordsetDim rs02 As ADODB.RecordsetPrivate Sub CommandButton1_Click() Dim I As Integer Dim Version As String Dim SubVersion As String 阅读全文
posted @ 2011-05-27 16:38 abenz 阅读(234) 评论(0) 推荐(0) 编辑
摘要: vi /etc/squid/squid.conf只需配置两个地方 acl 和http_accessacl 变量名1 arp MAC列表 #00:1e:90:b1:d8:7facl 变量名2 src IP地址列表 #192.168.1.2acl 变量名3 dstdomain 可访问的网页列表 # .163.comacl 变量名4 url_regex -i 可访问的网页列表 # http://www.163.com/http_access allow [变量名1 | 变量名2]#表示可访问所有页面http_access allow [变量名1 | 变量名2] [变量名3 | 变量名4] #只可访问 阅读全文
posted @ 2011-05-27 12:57 abenz 阅读(314) 评论(0) 推荐(0) 编辑
摘要: 类似C# 的委托与事件//zhang //中间类unit ClientSys;interfaceuses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus, StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns, ActnList, ToolWin, ImgList, DB, DBClient, ADODB, DBActns, AppEvnts ,typinfo ;type TClientEventHandle = procedure (Con 阅读全文
posted @ 2011-05-27 10:19 abenz 阅读(238) 评论(0) 推荐(0) 编辑
摘要: 不是原创,参照好多人的写法,在他人的基础上修改增加的。oracleclients类,framework 4 开始,虽然也可以使用,但已经有过期的提示了。微软不再提供了。比较狠的一招。试用了一下 devart的dotnetfor oracle。的oracledatatable 。挺好用,可惜只能试用1个月。留念一下using System;using System.Collections.Generic;using System.Text;using System.Collections;using System.Collections.Specialized;using System.Runt 阅读全文
posted @ 2011-05-27 10:12 abenz 阅读(361) 评论(0) 推荐(0) 编辑
摘要: oracleCREATE OR REPLACE PACKAGE N_SUPPLIER_TYPE_APR IS TYPE DataTable IS REF CURSOR ; PROCEDURE Get_View( dt OUT DataTable );END N_SUPPLIER_TYPE_APR ;CREATE OR REPLACE PACKAGE BODY N_SUPPLIER_TYPE_APR ISPROCEDURE Get_View( dt OUT DataTable )ISBEGIN OPEN dt FOR SELECT * FROM n_supplier_type;END Get_V 阅读全文
posted @ 2011-05-27 09:59 abenz 阅读(1019) 评论(0) 推荐(0) 编辑