- 博客(15)
- 资源 (38)
- 收藏
- 关注
原创 delphi设置程序日期格式
delphi设置程序日期格式//让Delphi程序不受Windows日期格式的影响procedure SetSysDateFormat;begin // 设置WINDOWS系统的短日期的格式 SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LO CALE_SSHORTDATE, 'yyyy-MM-dd'); Application.UpdateF
2013-11-21 17:15:33 3952
原创 Delphi获取系统特殊路径
unit DemoMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ShlObj, ComCtrls, StdCtrls, Registry;type TForm1 = class(TForm) ListView
2013-07-23 15:12:10 1779
原创 SQL Server 重置自增量
方式一:TRUNCATE TABLE TableName --这样不但将数据删除,而且可以重置identity属性的字段但是,TRUNCATE TABLE 对应的表主键如果是其他表的外键,那么它无法执行,这种状况就要采用方式二了方式二: delete from TableName dbcc checkident(TableName,reseed,
2013-07-23 14:53:05 865
转载 配置SQL Server 2005 以允许远程连接
转载于:http://blog.chinaunix.net/uid-9047380-id-14411.html配置SQL Server 2005 以允许远程连接 默认情况下, SQLServerExpressEdition 2005 和 SQL Server 2005 开发版不允许远程连接。 要允许远程连接SQL Server 2005 ,需要完成以下步骤:
2013-05-01 15:18:16 708
转载 SQL SERVER Data目录产生大量trc文件
转载于:http://blog.chinaunix.net/uid-9047380-id-14728.htmlSQL SERVER Data目录产生大量trc文件今天用服务器下载文件时,系统提示我硬盘分区空间不足了。点击查看硬盘分区是50GB,已经只剩下175MB了。而这个服务器应该没有什么大文件才对呀。 仔细查看,发现SQL Server 2005占用了差不多40G
2013-05-01 15:13:40 11115
原创 SQL Server创建备份设备
/* 创建备份设备 参数1:设备类型 参数2:设备名称 参数3;备份文件的物理路径 Test1.bak是备份之后的文件名*/EXEC sp_addumpdevice 'disk', 'Test1', 'c:\dump\Test1.bak'; /* 创建备份数据库存储过程*/---------------------------------USE [Test]G
2013-04-18 15:31:23 6856
原创 SQL Server中递归触发器中使用游标如何设置
在SQL Server递归触发器中使用游标如何设置1.开启触发器递归 数据库属性——选项——递归触发器已启用(recursive triggers) 设置为True2.默认游标设置 数据库属性——选项——游标——默认游标 设置为LOCAL默认游标LOCAL 如果指定了 LOCAL,而创建游标时没有将其定义为 GLOBAL,那么游
2013-04-18 15:10:09 1197
原创 Delphi Thread互斥量和事件
互斥量是系统内核对象,谁拥有就谁执行。它与临界区工作很类似。 不同处在于: 1、互斥量可以跨进程边界同步线程。 2、可以给互斥量取个名字,通过引用互斥量的名字来使用一个已知的互斥量对象。 使用互斥量之类的对象需要反复调用系统内核,期间需要进行进程上下文转换和控制级别转换,大概需要耗费400到600个时间周期。 又是图书馆的比喻,现在是搞一个锁,把钥匙(互斥
2013-03-19 14:07:37 1064
原创 mysql字符串索引优化
在Mysql中,使用字符串作为索引,速度比整型索引慢很多。但是可以把字符串转换为整型,然后以转换后的整型作为索引,可以优化查询速度示例SET FOREIGN_KEY_CHECKS=0;DROP TABLE IF EXISTS `seg_para_test_copy`;CREATE TABLE `seg_para_test_copy` (`DATETIME` da
2013-01-05 16:15:04 5910 2
原创 判断一个文件是否正在被使用
方法一:function IsFileInUse(FileName: string): Boolean;var H: THandle;begin Result := False; try H := FileOpen(FileName, fmShareExclusive); if H=INVALID_HANDLE_VALUE then Result
2012-12-27 15:27:54 1241
原创 Image拖动窗体效果演示,点击图片弹出菜单
1. Image效果1:拖动图片移动窗体procedure TFormMain.Image_BackgroundMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin //=== 窗体跟着图片移动 效果 === if (Button = mbLeft)
2012-11-08 22:47:11 718
原创 Delphi WebBrowser Ole 自动登录网站
1. 用WebBrowser控件Uses SHDocVw, MSHTML;procedure TForm1.btnLoginClick(Sender: TObject);var UserEdt, UserPwd, LogBtn: IHTMLELEMENT;begin WebBrowser.Navigate(edtUrl.Text); while WebBrowser.
2012-11-02 14:37:13 2235 1
原创 Delphi 开发控制面板程序
一、关于控制面板程序在Windows中提供了一个控制面板窗口,一个控制面板窗口就象Windows的控制中心。在窗口中有诸如 “系统”、“多媒体”图标,通过双击这些不同的图标,就可以打开不同的控制面板程序查看系统状况和对系统进行设置了。 如何在控制面板中添加自己的控制面板程序呢?首先来了解以下控制面板程序的原理。一个控制面板程序就是一个动态连接库(DLL)。在库文件中必须建立一个名称为
2012-10-18 21:44:57 1560
原创 Delphi应用程序日志写入系统日志
1、首先要写一个文本类型的消息文件,格式如下://==== 文件格式 SystemLog.mc=========LanguageNames=(English=0x409:LicenseServer_en)LanguageNames=(Chinese=0x411:LicenseServer_cn)MessageId=1000SymbolicName = EVMSG_INFORMA
2012-09-27 21:05:09 4472
原创 Delphi TList使用
关键代码: TUserStatus = (usOnline, usOffline, usBusy, usLeave); POnlineUser = ^TOnlineUser; TOnlineUser = record Name: string; IP: string; Status: TUserStatus; end; //=== TL
2012-08-21 22:17:04 1279
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人