2004年12月_qiubolecn

12月 08月

原创 singleton之我见

先和大家说说什么是singleton模式的，它中文意应该为单一模式，但好别扭，也不知道是谁翻译的 29796428(qiubole) 12:26:46它属于创建模式的一种 29796428(qiubole) 12:27:00主要的作用就是确实一个类有且只有唯一的一个实例 29796428(qiubole) 12:27:10这在实际当中，其实还是有一些用处的 29796428(qiubole) 12

2004-12-30 13:18:00 1003

原创得到一个表名参数的第一个字段的值

如果你在写存储过程的时候，想得到select dvalue from + @Tablename的值，怎么办呢就用它ALTER procedure sp_getvalue @sqlstr varchar(2000), @output varchar(50) output, @output1 int output, @type int as/********************

2004-12-30 13:15:00 1167

原创查看表内容

你在用ISQLW的时候，想看一个表的内容怎么办呢？最好的办法就是在‘工具’-》‘自定义’里面增加一个快捷键，比如在Ctrl+0处增加sp_select然后在数据库中增加一个这样的存储过程这样你就可以在查询分析器里，选择你要查看的表名，然后按Ctrl + 0键。本blog里面的其它内容也是通过此方法操作的create procedure sp_select @a varchar(100)a

2004-12-30 13:14:00 1132

原创如何提升自己的表为系统表，防止误操作对其进行修改

create table test1(did int)sp_configure allow updates, 1RECONFIGURE WITH OVERRIDEupdate sysobjects set xtype = S,info = 4 where id = object_id(test1)sp_configure allow updates, 0RECONFIGURE

2004-12-30 13:13:00 1107

原创在查询分析器中,通过SQLDMO来得到脚本

--用以下脚本,可以得到任意对象的创建时的脚本,网上好像也流传有,但属于自己的东西用着还是感觉舒坦.--增加快捷键后,然后在查询分析器中按相应的快捷键就能显示对象的脚本.SET QUOTED_IDENTIFIER ON GOSET ANSI_NULLS ON GO ALTER procedure sp_script @objectname varchar(50)a

2004-12-30 13:08:00 1290

原创 delphi中宏小用.

用DELPHI的宏可以做一些非常简便的工作, 它是记录键盘的动作,如果我们将一些有规律的动作,用宏来进行操作,就可以达到事半功倍的效果,前提是编写的代码风格比较整洁.宏是以Ctrl + Shift + R开始, 也以Ctrl + Shift + R结束, 以Ctrl + Shift + P来播放.开始录制宏后,可以在状态栏看到 Recording字样.以下以Assign为例,来进行举例如下,我

2004-12-30 10:41:00 1335 3

原创如何判断一个机器的MSSQL是否启动

//判断一个机器的MSSQL是否启动,通过SQL DMO是可以的,但对于没有装MSSQL的客户端来说就没办法,此处用的是连接MSSQL的1433端口,如果端口号不同,可以通过传递端口.unit Judge_U;interfaceuses SysUtils, Classes, IdBaseComponent, IdComponent, IdTCPConnection, IdIcmpClient

2004-12-30 08:45:00 2966 2

原创一个简单的,适应多种数据库之间存取操作的数据库访问层

//大家在进行数据库访问的时候,经常会将自己常用的一些写成函数的形式, 但如果是不同类型的数据库,或者想转换数据库类型,就比较麻烦了,此处提供了三个对象.TDataAccess为基类.TServerAccess为ADO类型的,TClientAccess为BDE类型的, 这几个都有点不太舒服的地方,就是没有提供初始化委托函数,而是用一个INITALL来进行初始化,大家可以自己改进,这只是我们应用的一

2004-12-30 08:29:00 1174

原创我对DELPHI写的几个基类型

//用惯JAVA或C#的人可能对DELPHI非常生气,连基本的类型都没有,我平时工作中,经常会曾试着把一些函数集合在一起,也经常做一些属于自己的基础类型的函数,此处把它们弄出来,有不当之处,请大家点评.unit BaseClass;interfaceuses SysUtils, Classes, StrUtils, IdGlobal, Math;type TCharSet = se

2004-12-30 08:20:00 1159 2

原创双对象列表，双字符串列表

//在平时的应用中,经常会碰到一些,对象集TAs中每个A对象都对应每个B对象,对象TBs中每个对象B都对应一个A对象. 如果在A和B中各放一个Tobject属性来进行互相引用,也是非常不错的,但那样依赖关系太强了.//同样,我们经常会碰到一些这样的情况,有一串的编号和一串的名称进行对应,我们经常要从编号找名称,或从名称找编号. //所以,此处提取出来了两个对象TDoubleObjList和TDo

2004-12-30 08:17:00 1037 1

原创生成表中的数据的脚本。

在A服务器中有表 table1 ，想把该表的内容导到 B服务器中，这两个数据库没联网，怎么办？导成外部文件，再用导入导出。。。。这太笨了吧，如果对方服务器是INTERNET上的，只能执行服本怎么办，晕死了吧，用这个存储过程来帮你。ALTER proc sp_GetTableData @objname nvarchar(776)as-- set @objname=s_cod

2004-12-29 23:25:00 973

原创在查询分析器中，用快捷键取得字段的列表。

ALTER procedure sp_getfields @tablename varchar(100) as declare tmpCursor cursor for select name from syscolumns where id = Object_ID(@tablename) open tmpCursor declare @fieldna

2004-12-29 23:01:00 997

原创查询分析器中，用快捷键取字段的描述

ALTER procedure sp_columnscript @tablename varchar(50), @columnname varchar(50) = nullas/***************************** 修改日期：2003-04-09 修改人：wu 备注：取得某个表的备注：*****************************/ declare

2004-12-29 22:59:00 838

原创 MSSQL中取得计算机名

ALTER FUNCTION S_GetComputerName()RETURNS varchar(50)AS BEGIN declare @returnvalue varchar(50) select @returnvalue = hostname from master..sysprocesses where spid = @@spid Return(Rtr

2004-12-29 22:55:00 1135

原创 mssql中十进制转换成十六进制字符串

ALTER function IntToHex(@i int)returns varchar(20)asbegindeclare @tmpint intset @tmpint = @ideclare @result varchar(20)set @result = while @i begin set @tmpint = @i % 16 set @i = @i / 16 s

2004-12-29 22:54:00 1996

原创接口小用

很多人总是问我，接口怎么用，什么时候用它。猛地被他们一问，只能讲讲以前的应用，发现都不是非常容易理解，今天发现有一个实例，还是非常好讲解的。我们有一个对数据进行快速下载的函数。procedure TDataSwitch.DownTable(ASQLStr, ATableName: string);var tmpDataSet: TDataSet; tmpDestDataSet: TDataSe

2004-12-29 22:29:00 827

原创对象的关系

今天趁着第一个阶段编码的结束，花了点时间将几个关键对象重构了一次，现在看看，代码还是流畅多了，看来用测试驱动开发，还是比较好的，虽然看起来时间花上去了，但心里有了底，而且也给测试减少了一些工作，重构的时候不再是那么胆小了。用DUNIT很不习惯的一点就是，不像其它的自动化测试工具那样，能够对界面进行处理，虽然写的代码与界面关系已经不大了，但有时还是免不了漏掉些事情。把今天的流水账记一下吧1、写代码时

2004-12-29 22:17:00 891

原创渴望走出困境

一直都没有办法摆脱目前所面临的处境，由于力量不是非常的平衡，在经过多次的磨合之后，都让人感觉很不成功。现在摆在目前的任务有好几个1、新项目的开发：按照我的预期目标，新的项目应该是由三个左右的人一起进行调研，整理分析的，可因为最近的事特别多，只能由一个刚进公司半年的一个分析员来进行，说真的，感觉一个字，糟透了，每天都必须要我花上两个来小时的时候与他一起讨论，然后让他根据这些进行总结，归纳，但他却总也

2004-12-29 21:57:00 832