- 博客(14)
- 资源 (5)
- 收藏
- 关注
原创 清理数据库中对应某个字段的所有非法数据的一种解决方案 SQL语句
背景:数据库StudentDB中,字段StudentNo存在多个表中,但是由于非正常操作导致插入一批非法的卡号信息到数据库中(正确的卡号由6位数字构成)。现需将这批非法卡号的相关信息删除。解决方案:USE [StudentDB] GODECLARE @TableName varchar(100)--申明一个表名游标DECLARE Table_curs
2014-01-02 19:26:21
1328
原创 SysErrorMessage函数获取系统错误信息
procedure TFormMain.btnTestClick(Sender: TObject);var v_Index: Integer; v_ErrMsg: string;begin for v_Index := 0 to 15301 do begin v_ErrMsg := SysErrorMessage(v_Index); if v_ErrMsg <>
2013-09-02 17:50:07
1569
原创 查询当前表可用序号的 一种方案
create table Test(SerialNo int) --建表Insert Test (SerialNo) values (0) --插入0Insert Test (SerialNo) values (1) --插入1Insert Test (SerialNo) values (3) --插入3Insert Test (SerialNo) values (5) --
2013-06-05 17:08:22
982
原创 根据输入数字串,返回连续的数字组合,比如输入“1,2,3,5,6,9”返回“1-3;5-6;9” Delphi6实现(方法2)
这个方法跟上一个方法相比会消耗一些效率,还需要起始数和结束数,但不受其他字符、重复、顺序干扰。具体如下:{------------------------------------------------------------------------------- 过程名: TSerialNumberDemo.OutputSearialNum 方法二 作者: Admi
2013-06-04 10:16:10
1215
原创 根据输入数字串,返回连续的数字组合,比如输入“1,2,3,5,6,9”返回“1-3;5-6;9” Delphi6实现
最近项目中需要如题这样一个方法,在网上搜了下没发现类似的,索性写了一个,还不是很完善。function SerialStr(Astr: string): string;var v_TmpList: TStringList; v_Index: Integer; v_ResultList: TStringList;begin if Trim(Astr) = EmptyStr t
2013-06-01 14:08:34
1494
原创 delphi学习点滴(五)
1.TStringList分解字符串在编程中我们经常需要分解某个字符串,比如“abc,123,334,akl”,把上述字符串根据逗号分解成4个字符串。procedure TForm1.btnTestClick(Sender: TObject);var v_TestList: TStringList; v_Index: Integer;begin v_TestLis
2013-05-09 18:58:41
1196
原创 delphi学习点滴(四)
1.SetValue方法妙用 系统默认生成的代码如下,但我们可以在这里增添更多的东西,比如针对Value判断执行一些相关操作,或者触发一些事件等。procedure TForm1.SetTestPro(const Value: string);begin FTestPro := Value;end;2.Image问题 图片在窗体最大化时不能铺满界
2013-04-18 18:53:44
1025
转载 再次写给我们这些浮躁的程序员
原文链接:http://blog.youkuaiyun.com/yzsind/article/details/6168854 2010年初写过一篇博客(我们是一群和平年代充满浮躁与抱怨的程序员),一年过去了,社会好像更浮躁,也有网友问我这方面的问题,于是有了下面这篇文章,再次写给我们这些刚入行浮躁的程序员,如何成长,以下是列出了一些成长的心得,我们不必每条都去实践,但是优秀的程序员成长过程中总
2013-01-04 16:29:11
535
转载 从程序制作到构架制作(转)
从技术层面上来看,优秀程序员和一般的程序员相比,其中一个重要区别就是重心从程序制作转变到构架制作。绝大部分程序员关心的是如何将各种各样的需求通过计算机语言进行编程实现。因此他们有三个方面的重点:需求、编程、需求到编程那个过程。所以他们的主要精力在用于需求是什么?需求怎么变成功能设计?如何实现功能的程序编写?他们的出发点是需求,终点是程序。随着我们编写程序的数量增多,我们慢慢地会发现有两条主线同
2012-12-20 20:48:38
590
转载 程序员的上升空间在哪里(转)
我见证过许多的程序员的成长,他们很多人在进入成熟期之后,技术上相对较高,一般项目开发起来比较自信,没有什么太大的困难,有的职位上也有所提升,成了项目经理、设计师,有的甚至是到了管理者的位置。又经过很长时间,这些程序员却在也没有什么变化和发展,工作稳定、情绪稳定,好像一切都在按部就班地进行着。有的程序员满足于现在的收入和职位,安于现状;有的程序员却在安于现状的同时,苦苦思索,却找不到自己的上升空间。
2012-12-20 20:43:47
716
转载 程序员成熟的标志(转)
程序员在经历了若干年编程工作之后, 很想知道自己水平到底如何? 自己是否已经成为成熟的程序员? 虽然程序员会对自己有一个自我评价, 但是, 自己的评价和社会的评价、专业的评价会有差异, 所以程序员自己并不能肯定这个评价。现实中, 除了各种证书之外, 很少有人会专门给出一个程序员的成熟度的评价。 人们往往是偶发性地就事论事地对程序员的工作作出好与不好, 行与不行的评论。 因此, 程序员对此感
2012-12-20 20:38:27
647
转载 C# WindowsForm之创建窗体(转)
原文地址:点击打开链接 在平常写WinForm程序时,都是使用Visual Studio 的向导功能,选中项目类型为Windows Form Application,IDE就会为我们生成好代码框架。这无疑使非常方便的,但是却不利于我这样的新手了解程序的运行机理。下面我试着,抛弃IDE生成的代码框架,从一个空的项目来创建一个Windows From的应用程序。一 . 创建窗
2012-12-19 18:25:42
1607
原创 delphi学习点滴(三)
1.virtual、dynamic、abstract关键字 virtual 表示是虚拟方法; dynamic 表示是动态方法, 这两类方法的共同点是都可以被覆盖(override)。 在代码中调用一个指定的虚拟方法时编译器并不知道它的地址,编译器通过建立虚拟方法表(VMT)来查找在运行时的函数地址。所有的虚拟方法在运行时通过VMT来调度,一个对象的VMT表中
2012-12-19 13:37:55
788
原创 delphi学习点滴(二)
1.PostMessage,SendMessage 1>PostMessage函数是将一个消息放入到与指定窗口创建的线程相联系的消息队列里,不等待线程处理消息就返回。函数原型为function PostMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL;其中参数: hW
2012-12-10 20:34:52
1434
C#多年积累的类库
2014-12-03
ace-admin1.3.2 后台模板
2014-12-03
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人