摘要：
对于每个类型拥有的值范围以及并且指定日期何时间值的有效格式的描述见7.3.6 日期和时间类型。这里是一个使用日期函数的例子。下面的查询选择了所有记录，其date_col的值是在最后30天以内：mysql> Select something FROM table Where TO_DAYS(NOW()) - TO_DAYS(date_col) select DAYOFWEEK('1998-02-03'); -> 3WEEKDAY(date) 返回date的星期索引(0=星期一，1=星期二, ……6= 星期天)。 mysql> select WEEKDAY( 阅读全文
摘要：
把一个文件从一个目录拷贝到另一个目录标 题: Re: 把一个文件从一个目录拷贝到另一个目录发信站: BBS 水木清华站 (Tue Mar 27 14:38:58 2001)我来贴个shellAPI解决这类问题的通用办法吧3.1 整个目录的复制、移动、删除实例说明Delphi的用户都知道,删除目录可用RemoveDir函数,但此函数只能删除空目录,如果目录中有子目录或其它文件,那么此函数就会失败;而删除文件可用DeleteFile函数,但此函数只能删除单个文件;而且,Delphi并没有提供与空目录或单个文件的复制或移动相关的函数,更不用说要对整个非空目录以及多个文件的复制、移动和删除了。但通过本 阅读全文
摘要：
SQL语句的添加、删除、修改虽然有如下很多种方法，但在使用过程中还是不够用，不知是否有高手把更多灵活的使用方法贡献出来？添加、删除、修改使用db.Execute(Sql)命令执行操作╔----------------╗☆ 数据记录筛选 ☆╚----------------╝注意：单双引号的用法可能有误(没有测式)Sql = "Select Distinct 字段名 From 数据表"Distinct函数，查询数据库存表内不重复的记录Sql = "Select Count(*) From 数据表 where 字段名1>#18:0:0# and 字段名1< 阅读全文
摘要：
1.建立两个工程Server及Client分别放TServerSocket及TClientSocket控件,Demo,Edit控件等。2.设置TServerSocket name为 SS, ServerType为stNonBlocking,TClientSocket name为cs,ClientType为ctNonBlocking表示异步读写信息。注意ClientType和ServerType要相一致.若为ctBlocking则表示同步读写信息。3.Socket传送文件的顺序图a)Client-->Server MP_QUERYb)Server-->Client MP_ACCEPT 阅读全文
摘要：
progressbar1.Max:=myzip.ZipSize; procedure TForm1.myzipFilePercentDone(Sender: TObject; Percent: Integer); begin progressbar1.Position:=percent; end; procedure TForm1.myzipTotalPercentDone(Sender: TObject; Percent: Integer); begin progressbar2.Position:=percent; end; 阅读全文
摘要：
function ZipFile(srcFile, dstFile: string):Boolean; //压缩单个文件 var VCLZip: TVCLZip; begin Result := False; VCLZip := TVCLZip.create(nil); if srcFile[Length(srcFile)] <> '\' then srcFile := srcFile + '\'; try with VCLZip do begin try ZipName := dstFile; RecreateDirs := True; Store 阅读全文
摘要：
SendMessage(Handle,WM_VSo,Line_donwn) 阅读全文
摘要：
笔者在工作中遇到对局域网中各工作站与服务器之间进行Socket通信的问题。现在将本人总结出来的TServerSocket和TClientSocket两个组件的基本用法写出来，希望与您分享。 ClientSocket组件为客户端组件。它是通信的请求方，也就是说，它是主动地与服务器端建立连接。 ServerSocket组件为服务器端组件。它是通信的响应方，也就是说，它的动作是监听以及被动接受客户端的连接请求，并对请求进行回复。 ServerSocket组件可以同时接受一个或多个ClientSocket组件的连接请求，并与每个ClientSocket组件建立单独的连接，进行单独的通信。因此，一个服务 阅读全文
摘要：
Delphi提供了一个TInifile类，使我们可以非常灵活的处理INI文件一．INI文件的结构[小节名]ini文件 关键字1＝值1 关键子2＝值2INI文件允许有多个小节，每个小节又允许有多个关键字，“=”后面是该关键字的值。值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用0表示。二、定义1、 在Interface的Uses节增加IniFiles；2、 在Var变量定义部分增加一行： myinifile:Tinifile;定义类的一个实例。然后，就可以对变量myinifile进行创建、打开、读取、写入等操作了三、打开INI文件my 阅读全文
摘要：
注意 :1.USES中间要加 SHELLAPI2.路径需要用 Pchar()转换一下, 例如: ShellExecute(Handle, 'open', 'notepad.exe', PChar(SelPath), nil, SW_SHOWNORMAL);WinAPI: ShellExecute - 打开外部程序或文件ShellExecute( hWnd: HWND; {指定父窗口句柄} Operation: PChar; {指定动作, 譬如: open、print} FileName: PChar; {指定要打开的文件或程序} Parameters: PCha 阅读全文