自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(7)
  • 收藏
  • 关注

转载 想象五年之后的你(很多人看了很受启迪!)

 一九七六年的冬天,当时我十九岁,在休斯顿太空总署的大空梭实验室里工作,同时也在总署旁边的休斯顿大学主修电脑。纵然忙于学校、睡眠与工作之间,这几乎占据了我一天二十四小时的全部时间,但只要有多余的一分钟,我总是会把所有的精力放在我的音乐创作上。我知道写歌词不是我的专长,所以在这段日子里,我处处寻找一位善写歌、词的搭档,与我一起合作创作。我认识了一位朋友,她的名字叫凡內芮(Valerie Johnso

2009-10-28 17:01:00 272

转载 究竟什么是“Access Violation”?如何在设计期避免它的出现?

Windows用户可能经常会看到类似于错误提示:“Error:Access violation at address 836556F8. Read of address 836556F8”。作为一个Delphi程序开发者,遇到这种错误的机会比其他用户更多(^_^)。   究竟什么是“Access Violation”?如何在设计期避免它的出现?   Access Violation(非法访问),G

2008-12-05 14:36:00 1237

原创 开发

计算 procedure Tfrom.Getnsumt;var sdfn:String;begin  sdfn:=ADOQuery.FieldByName(ORDH).AsString;  with ADOQuery do  begin    close;    sql.Clear;    sql.Add(select count(*) from 表名 where(ORDH=+sd

2008-01-24 11:32:00 7608

原创 导出excel的方法

procedure TfmSJGOrderMain.ActImportExecute(Sender: TObject);var j,k,col:integer;    sheet,exele:variant;begin  if not QDMain.Active then exit;  if QDMain.IsEmpty then  begin    Application.MessageBox(

2008-01-24 11:19:00 457

原创 Sql存储过程解密算法

  查看文章     可用于加密SQL存储过程或者触发器Sql存储过程加密 Sql存储过程加密和解密

2008-01-24 10:03:00 703

原创 彩色方式显示DBGrid

 Delphi中数据控制构件DBGrid是用来反映数据表的最重要、也是最常用的构件。在应用程序中,如果以彩色的方式来显示DBGrid,将会增加其可视性,尤其在显示一些重要的或者是需要警示的数据时,可以改变这些数据所在的行或列的前景和背景的颜色。         DBGrid属性DefaultDrawing是用来控制Cell(网格)的绘制。若DefaultDrawing的缺省设置为True,意思是D

2007-12-25 11:18:00 393

原创 Grid改变字体颜色

在Grid的onDrawColumnCell   事件中写     if QDetail.fieldbyname(SJGday).Value>6 then   begin    grDetail.Canvas.Font.Color:=clRed;    grDetail.DefaultDrawColumnCell(Rect,DataCol,Column, State);   end; 

2007-12-25 11:15:00 757

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除