wea1978-CSDN博客

转载收藏一个SQL,获取sqlsever中一个数据库里所有存储过程或者函数的名字

SELECT DISTINCT TOP 100 PERCENT o.xtype, CASE o.xtype WHEN X THEN N扩展存储过程 WHEN TR THEN N触发器 WHEN PK THEN N主键 WHEN F THEN N外键 WHEN C THEN N约束 WHEN V THEN N视图 WHEN FN THEN N

2007-12-28 11:20:00 920

原创读取Excel内容到MSHFlexgrid

Public Sub ExcelToMshfgrd(FileName As String, ByRef RowCount As Integer, ByRef ColCount As Integer, mshg As MSHFlexGrid) 直接导入Excel内容到MshFlexGrid If InStr(FileN

2007-10-10 17:49:00 1129

转载不要textbox令MshflexGrid有编辑功能

MshflexGrid 取名 Grid1.Private Sub Form_Load()Grid1.Rows = 10Grid1.Cols = 7End SubPrivate Sub Grid1_KeyDown(KeyCode As Integer, Shift As Integer)Dim X As LongDim Y As LongDim L As LongDim Tmp As

2007-06-27 11:21:00 897

原创按条件指定MSHFlexGrid单元格字体颜色

Sub loaddata(sqlselstr As String) 根据传递的sql,加载数据到MSHFlexGrid,并按要求显示所要的颜色 dim i as long,irow as longdim rst as new adodb.recordsetWith MSHFlexGrid Screen.MousePointer = 11 rst.Open sqlsel

2007-04-25 14:30:00 3889 1

转载 2个生成验证码的PHP代码

贴2个生成验证码的php代码，用以学习...第1个//生成验证码图片 Header("Content-type: image/PNG"); srand((double)microtime()*1000000);//播下一个生成随机数字的种子，以方便下面随机数生成的使用session_start();//将随机数存入session中$_SESSION[@#authnum@#]="";$

2007-03-08 15:21:00 654

ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))if ComeUrl="" then response.write "对不起，为了系统安全，不允许直接输入地址访问本系统的后台管理页面。" response.endelse cUrl=trim("http://" & Request.ServerVariables("SERVER

2007-03-08 13:41:00 961

转载 VB6 保存和读取图片到数据库

dim stm as ADODB.Streamdim rs as ADODB.Recordsetsub SavePictureToDB(cn As ADODB.Connection) 将图片存入数据库 On Error GoTo EH Set stm = New ADODB.Stream

2007-01-26 15:56:00 4003

转载 vb CommonDialog printer 的flags设置

语法 object.Flags [= value] Flags 属性语法有下列部分：部分描述 object 对象表达式，其值是“应用于”列表中的对象。 value 如“设置值”中所描述，为“打印”对话框指定选项的常数或值。设置值 value 的设置值

2007-01-18 21:11:00 1922

转载 SQL触发器的工作过程

DELETE触发器的工作过程　　当触发DELETE触发器后，从受影响的表中删除的行将被放置到一个特殊的deleted表中。deleted表是一个逻辑表，它保留已被删除数据行的一个副本。deleted表还允许引用由初始化DELETE语句产生的日志数据。　　使用DELETE触发器时，需要考虑以下的事项和原则：　　·当某行被添加到deleted表中时，它就不再存在于数据库表中；因此，deleted

2007-01-17 15:38:00 1176