mypqx-CSDN博客

原创 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 3880

原创 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 1733

原创 SQL Server 重置自增量

方式一：TRUNCATE TABLE TableName --这样不但将数据删除，而且可以重置identity属性的字段但是，TRUNCATE TABLE 对应的表主键如果是其他表的外键，那么它无法执行，这种状况就要采用方式二了方式二： delete from TableName dbcc checkident(TableName,reseed,

2013-07-23 14:53:05 846

转载配置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 693

转载 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 10444

原创 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 6585

原创 SQL Server中递归触发器中使用游标如何设置

在SQL Server递归触发器中使用游标如何设置1.开启触发器递归数据库属性——选项——递归触发器已启用（recursive triggers）设置为True2.默认游标设置数据库属性——选项——游标——默认游标设置为LOCAL默认游标LOCAL 如果指定了 LOCAL，而创建游标时没有将其定义为 GLOBAL，那么游

2013-04-18 15:10:09 1170

原创 Delphi Thread互斥量和事件

互斥量是系统内核对象，谁拥有就谁执行。它与临界区工作很类似。不同处在于： 1、互斥量可以跨进程边界同步线程。 2、可以给互斥量取个名字，通过引用互斥量的名字来使用一个已知的互斥量对象。使用互斥量之类的对象需要反复调用系统内核，期间需要进行进程上下文转换和控制级别转换，大概需要耗费400到600个时间周期。又是图书馆的比喻，现在是搞一个锁，把钥匙（互斥

2013-03-19 14:07:37 1048

原创 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 5866 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 1187

原创 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 690

原创 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 2201 1

原创 Delphi 开发控制面板程序

一、关于控制面板程序在Windows中提供了一个控制面板窗口，一个控制面板窗口就象Windows的控制中心。在窗口中有诸如 “系统”、“多媒体”图标，通过双击这些不同的图标，就可以打开不同的控制面板程序查看系统状况和对系统进行设置了。　　如何在控制面板中添加自己的控制面板程序呢？首先来了解以下控制面板程序的原理。一个控制面板程序就是一个动态连接库（DLL）。在库文件中必须建立一个名称为

2012-10-18 21:44:57 1527

原创 Delphi应用程序日志写入系统日志

１、首先要写一个文本类型的消息文件，格式如下：//==== 文件格式 SystemLog.mc=========LanguageNames=(English=0x409:LicenseServer_en)LanguageNames=(Chinese=0x411:LicenseServer_cn)MessageId=1000SymbolicName = EVMSG_INFORMA

2012-09-27 21:05:09 4388

原创 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 1252