自定义博客皮肤VIP专享

*博客头图：

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

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

博客底图：

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

栏目图：

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

主标题颜色：

RGB颜色，例如：#AFAFAF

Hover：

RGB颜色，例如：#AFAFAF

副标题颜色：

RGB颜色，例如：#AFAFAF

预览 取消 提交

自定义博客皮肤

-+
上一步保存

点点滴滴的天空

-------------不是技术的技术，不是资料的资料，只是一点收集而已

  • 博客(23)
  • 资源 (16)
  • 收藏
  • 关注
排序：
按最后发布时间
按访问量
RSS订阅

原创 对字符串进行简单的加密和解密处理

//加密字符串function encryptstr(const s:string; skey:string):string;var    i,j: integer;    hexS,hexskey,midS,tmpstr:string;    a,b,c:b

2011-09-09 18:16:19 900

原创 程序在结束后删除自身的实现

//程序在结束后删除自身的实现procedure Deleteme;var f:textfile; begin   assignfile(f,'.\delme.bat');  rewrite(f);  writeln(f,'@echo off');

2011-09-09 18:14:31 1010

原创 Delphi7中群发电子邮件的实现

这段时间需要对所有参加考试的考生将考生信息及考试信息通过电子邮件群发，经过多次调试，算是成功了，发来我的博客给大家参考一下：总的思路是：1、安装局域网版的邮件服务器，并通过设置DNS使得给服务器能给网外用户发送电邮，这方面的软件比较多，例如WinWebMail就不错，可以

2011-09-09 18:08:17 847

转载 动态生成控件方法的应用

一、Delphi中生成控件的两种方法　---- 1、 Form(表单)设计中生成控件 ---- 在进行Form设计时，直接在控件工具箱选择所需控件，再设置其属性与响应事件，这种方法比较常见。 ---- 2、 程序中动态生成控件 ---- 有时候，我们需要在程序

2011-09-09 18:07:17 394

原创 DELPHI:获得子串在主串出现的次数

获得子串在主串出现的次数function StrSubCount(const Source, Sub: string): integer;var  Buf : string;  i : integer;  Len : integer;begin  Re

2011-09-11 23:00:31 1408

原创 输入字符串和需要变换到的长度,函数自动补充空格达到规定长度

输入字符串和需要变换到的长度,函数自动补充空格达到规定长度，这种情况是做数据库软件经常遇到的情况之一，我这里抛砖引玉，给大家提供一种简单的思路而已。function SetLength(OldStr:string;amount:integer):string;begin

2011-09-11 22:59:37 708

原创 获得随机编码值

//获得随机编码值，用于在数据库中设为唯一识别其它记录function GetRandom():String;var IdString:string;begin  DateTimeToString(IdString,'yyyymmddhhnnsstt',now);

2011-09-09 18:17:35 399

原创 获得子串在主串出现的次数

//获得子串在主串出现的次数function StrSubCount(const Source, Sub: string): integer;var  Buf : string;  i : integer;  Len : integer;begin

2011-09-09 18:15:23 425

原创 TDBF控件使用心得

近期需要用到delphi对DBF文件进行操纵，下载了一个TDBF控件，顺便把心得放在这里。 //打开并设置相关DBF数据表，返回值1为正常，0为失败function TFormSjtj.setDBFFileData(DBFFileName:string;DBFinde

2011-09-09 18:10:32 1622

原创 阿拉伯数字转换成中文大写数字

function UpGB(InData:real):string;var a1,a2,a3,a4,a5,a6,a7:real;begin  a1 := int(InData/10000);  a2 := int((InData-a1*10000)/1000);

2011-09-09 18:09:11 5810

转载 delphi的运算符列表

分类运算符操作操作数结果类型范例算术运算符+加整数，实数整数，实数X + Y-减整数，实数整数，实数Result - 1*乘整数，实数整数，实数P * InterestRate/实数除整数，实数实数X / 2div整数除整数整数Total

2009-04-24 00:36:00 1345

原创 利用Delphi编写Socket通信程序

一、Delphi与Socket　　计算机网络是由一系列网络通信协议组成的，其中的核心协议是传输层的TCP/IP和UDP协议。TCP是面向连接的，通信双方保持一条通路，好比目前的电话线，使用telnet登陆BBS，用的就是TCP协议；UDP是无连接的，通信双方都不保持对方的状态，浏览器访问Internet时使用的HTTP协议就是基于UDP协议的。TCP和UDP协议都非常复杂，尤其是TCP协议，为了保

2007-11-22 22:54:00 1254 2

原创 加密Access数据库

下面的过程不会提示不认识数据库,只是会提示密码错误,任何读取密码的软件都不能读出正确的密码{----------------------------------------------------------------------------- Procedure: LockupFile Author:    ysai Date:      2003-6-25 Arguments: FileNa

2007-10-29 22:26:00 542

原创 根据条件,DBGrid不同行显示不同的颜色

procedure TForm1.FormCreate(Sender: TObject);beginTable1.Open;end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);beginTable1.Close;end;procedure TForm1.DBGrid1DrawColumnCell(Sen

2007-10-29 22:24:00 730

原创 动态创建与压缩Access数据库

一、通过OLE方式创建   相信各位都用通过OLE方式访问Word、Excel文件的经历，具体我不说太多，直接把具体代码写出来就完了   在引用部分加入：   uses ComObj;   实现部分：   procedure TFormOffice.BitBtn1Click(Sender: TObject);   var     CreateAccess:OleVariant;   begin  

2007-10-22 23:07:00 600

转载 SQL的锁机制

一. 为什么要引入锁多个用户同时对数据库的并发操作时会带来以下数据不一致的问题:丢失更新A,B两个用户读同一数据并进行修改,其中一个用户的修改结果破坏了另一个修改的结果,比如订票系统A用户修改了数据,随后B用户又读出该数据,但A用户因为某些原因取消了对数据的修改,数据恢复原值,此时B得到的数据就与数据库内的数据产生了不一致不可重复读A用户读取数据,随后B用户读出该数据并修改,此时A用户再读

2007-10-22 22:50:00 743

转载 QucikReport自定义纸张大小

我今天刚解决这个问题.如下.新加一个打印机:qs_little,首先你要在打印服务器中设置一张你定义的张如qs_littlepaper .然所把打印机默认纸张设为这:procedure find_xp_qs_little;//nt2000中小纸打印机varhandle:hwnd;hPrinter: thandle; pForm : PFormInfo1; For

2007-10-22 22:48:00 851

原创 Delphi中随机函数Random应用两则

1. 自动随机出题 　　你也许有这样的经历：孩子刚上学，数学老师要你每天给出10或者20道算术题，作为你孩子的家庭作业，你是否有点烦？别着急，电脑可帮你忙！ 在Delphi中，有一随机函数，是这样定义的：function Random [ ( Range: Integer) ];其中，参数Range为一整数，该函数返回值也为整数，其范围为：0< =Random(

2007-10-22 22:46:00 4987

转载 Delphi与SQL Server存储过程编程详解

经常有很多初学者问到在delphi中如何调用SQL Server的存储过程？问题其实很好解决，下面我将用实例进行说明，从在SQL Server中创建存储过程到调用的完整实例。 首先,打开sql server管理器,在pubs数据库中建一个测试表,表名为test,字段有id,name,和desc,全部为字符型,如果你不知道建表,那么打开sql查询分析器,贴上以下的代码,然后按执行,就

2007-10-17 23:20:00 643

原创 Delphi程序的时限和加密

本例中TRegistry是关键类，Delphi 有可能不能自行加入，需在uses部分手工加入“registry”，通过其方法“ReadString”和“WriteString”来读出和写入字符，亦可通过其方法“ReadDate”和“WriteDate”来读出和写入日期。 程序第一次运行就写入其运行时间，应用期限为30天，超过30天就不再运行。全局变量NoRegistry、SpareDays

2007-10-17 23:18:00 1430 1

原创 ACCESS编程技巧

问题dq(地区)  xm（姓名）A         张三A         李四B         王五B         王六B         王七C         王九想做一个视图转换成dq           xmA           张三，李四B           王五，王六，王七C           王九解决在ACCESS模块里写函数基本程序如下Public Function

2007-10-15 13:28:00 495

原创 DELPHI存取JPG图片文件至SQL Server服务器中

做一个小型的管理系统时，需要用到ADO控件存取SQL Server数据库图片，查看资料发现基本都是针对BMP文件进行操作(巨增数据库大小)，但发现了★eagletian★高手翻译的ADO英文技术文档，里面涉及到了数据库存取JPEG文件的关键技术，测试通过，运行良好，现于源码公开如下：unit Unit1;interfaceusesWindows, Messages, SysUtils, Class

2007-10-15 00:14:00 2606

原创 使用DELPHI对ACCESS和SQL数据库存取图片

一个在数据库存取图片的演示代码，包含ACCESS数据库和SQL数据库两种方式。1、 小高端用户ADO+SQL20002、 在小高端用户使用的数据库中SQL是最为普遍的。首先先要用上流(Stream)程序如下：procedure TForm1.DBGrid1DblClick(Sender: TObject); //双击DBGrid栏显示图片VarM

2007-10-15 00:07:00 1922

成功GTD管理软件 V5.6
非常好的一款GTD日程管理软件，拿来即用！强烈推荐。有了它，基本上你的工作、学习、娱乐等都会呈现一个非常良好的有序性。

2012-09-12

DCPcrypt 加密解密 算法 源码
DCPcrypt 加密解密 算法 源码 还是不错的，可以直接使用哦！

2012-09-12

加密和解密基础
加密和解密基础，以前手机的，以基础知识为主，还行。

2012-09-12

Dundas Chart FOR ASP.NET1.5 特别版
Dundas Chart FOR ASP.NET1.5企业破解版，可以使用。需要在VS2010上使用时请注意官网的安装说明

2012-09-07

计算机常用端口大全
计算机常用端口大全,以前从网上整理的，现在发布出来。

2012-09-07

DELPHI控件InforPower4000
DELPHI控件InforPower4000，DELPHI下最为经典的数据库操纵控件，使得笨笨的DELPHI自带控件再无用武之地。内含安装码。

2012-09-05

DELPHI控件1st4000
DELPHI控件1st4000，非常不错的界面控件，内含安装码。

2012-09-05

图标仓库 一个包含有近千个图标的小软件
图标仓库 一个包含有近千个图标的小软件，可以进行任意格式图标的转换，是软件开发的必备工具之一。

2012-08-29

delphi 下经典的数据导入控件，支持多个版本
TQImport3XLS Import data from XLS files TQImport3DBF Import data from DBF files TQImport3XML Import data from XML files TQImport3ASCII Import data from CSV and TXT files TADO_QImport3Access Import data from MS Access database TQImport3HTML Intended for importing tables from HTML pages TQImport3XMLDoc Import data from generic XML files using XPath and DataLocation (tlAttributes, tlSubNodes) TQImport3XLSx Intended for importing the MS Excel 2007 sheets TQImport3Docx Import data from MS Word 2007 tables TQImport3ODS Import data from OpenDocument Spreadsheet files (Open Document Format) TQImport3ODT Import data from the tables of OpenDocument Text files (Open Document Format) TQImport3DataSet Import data from a TDataSet component. TQImport3Wizard Define all the import settings within a dialog window TADO_QImport3Wizard Provides the same functionality as TQImport3Wizard component, including Access import.

2012-08-29

delphi下经典的文件格式导出控件，支持多个版本
The Set of Native Delphi Components for Borland Delphi versions 5, 6, 7, 2005(9), 2006(10), Borland C++ Builder 5 & 6,CodeGear Delphi 2007, CodeGear C++ Builder 2007 and CodeGear Delphi 2009 to export data to most popular formats.

2012-08-29

delphi下的另类压缩软件，可自定义很多压缩参数！
delphi下的另类压缩软件，生成的压缩包不能被zip/rar等解压缩软件打开和使用，只能使用自己的函数（可自编解压缩程序）来打卡，并可自定义很多压缩参数！这下子，俺们做的东东又多一个“密盒”了！

2012-08-29

TDBF delphi7 控件
TDBF delphi7 控件，找个蛮久，总算这个是可以使用的，我在自己的博客上有一篇案例文章，可以供大家参考。

2011-09-09

SQL Server精华 (CHM)
SQL Server精华 (CHM)，很早从大富翁下的一份SQL Server语言的工具，里面有一些稀奇古怪的问题以及回答，在做具体编程时可以有一定的帮助！

2011-09-09

SQL必知必会(第三版)
SQL必知必会(第三版),英文版，这个东东用起来非常方便，有较多的案例和操作方法，在SQL语言方面也解释得比较清楚。有英文基础的人不妨一试！

2011-09-09

BussinessSkinForm 皮肤170个
BussinessSkinForm 皮肤170个，这可是我多年收集起来的咕~~(╯﹏╰)b

2009-04-24

BussinessSkinForm v6.11
BussinessSkinForm是Almdev公司出品的一套皮肤控件，可以方便地美化程序界面，支持随时更新界面及自定义界面，现已有超过170套的皮肤可用(在另一个压缩包中)。并且可以利用自带的皮肤编辑器生产自定义的皮肤。

2009-04-24

空空如也

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

TA关注的人

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