摘要：
一、 只复制一个表结构，不复制数据
select top 0 * into [t1] from [t2]
二、 获取数据库中某个对象的创建脚本
1、 先用下面的脚本创建一个函数
if exists(select 1 from sysobjects where id=object_id('fgetscript') and objectproperty(id,'IsInlineFunction')=0)
drop function fgetscript
go 阅读全文
摘要：
CREATE TABLE [t] (
[id] [int] IDENTITY (1, 1) NOT NULL ,
[GUID] [uniqueidentifier] NULL
) ON [PRIMARY]
GO 阅读全文
摘要：
程序员是一种技术工作，在IT的发展中有相当重要的地位，从底层硬件通讯协议的建立，到数据传输层的处理，到操作系统的建设，到数据库平台的建设，一直到应用层上各种数据营销平台的搭建，程序员在里面都扮演着举足轻重的角色并为IT事业的发展做出了巨大的贡献。
阅读全文
摘要：
//判断是否包含字符串
sl := TStringList.Create;
sl.LoadFromFile(Path + Rec.Name);
for ii:=0 to sl.Count-1 do
begin
if Pos(trim(ed3.text), sl.Strings[ii]) > 0 then
begin
mmo1.Lines.Add(Path + Rec.Name);
//mmo1.Lines.Add(Copy(sl.Strings[ii], Pos(trim(ed3.text), sl.Strings[ii]), 5));
BREAK;
end;
end;
阅读全文
摘要：
tray2.cbSize:=sizeof(tray2);
tray2.Wnd:=form1.Handle;
tray2.uID:=0;
tray2.uFlags:=NIF_ICON or NIF_TIP or NIF_MESSAGE;
tray2.uCallbackMessage:=ghy_tray;
tray2.hIcon:=ico2.Handle;
tray2.szTip:='我的托盘程序';
阅读全文
摘要：
SQL.Add('BACKUP LOG '+Trim(qry09.FieldByName('name').AsString)+' WITH truncate_only');
SQL.Add('DBCC shrinkdatabase ('+qry09.FieldByName('name').AsString+')'); 阅读全文
摘要：
随着数据量的逐步增大，软件执行效率问题慢慢浮现，程序执行速度越来越慢，
甚至出现白屏、死机等。这种问题最常体现在我们关键的批处理和报表上面。比如
存货系统中的月结程序，进耗存统计表等。生产模块中的批次需求计划、物料需求
计划等。 阅读全文
摘要：
运用ActiveX控件cdonts.dll
首先在delphi里加入cdonts.dll
然后拖动到Form上，并命名为：mNewMail，配置好相关属性，相关代码如下：
阅读全文
摘要：
postmessage.FromAddress :=edit6.Text ;
postmessage.FromName :=edit7.Text ;
postmessage.Subject :=edit5.Text ;
postmessage.ToAddress.Add(edit4.Text );
postmessage.Body.Assign(memo1.Lines); 阅读全文
摘要：
原理很简单，找出汉字表中拼音首字符分别为“A”至“Z”的汉字内码范围，这样，对于要检索的汉字只需要检查它的内码位于哪一个首字符 阅读全文
摘要：
Borland出品的Delphi，有着闪电般的编译速度，但是在界面控件使用较多、工程项目较大的时候，编译一个工程仍需要一段时间，打开庞大的Delphi IDE，也需要时间。其实，在一个工程开发结束，调试完成之后的Release编译，完全可以用命令行来执行，因为Delphi的编译器参数不像C++编译器那样复杂。 阅读全文
摘要：
for i := 1 to Long do
begin
Temp := pchar(copy(AStrPass, i, 1));
c := Temp^;
if c in ['A'..'Z'] then
c := chr(ord(c) + 32);
Pass := Pass + (ord(c) xor long) + (ord(c) and long);
end; 阅读全文
摘要：
描述:取得本机的IP地址函数
阅读全文
摘要：
描述:取得计算机的名称函数
TODO:取得计算机的名称函数 阅读全文
摘要：
一.打开 Delphi 5.0 程序
二.关闭所有单元
三.单击“File”在菜单下的“New”子菜单，弹出“New Item”对话框，选择“ActiveX”下的“ActiveX Library”，单击“OK”。（此操作，创建一个“库工程”） 阅读全文
摘要：
Ctrl+PageUp 将光标移至本屏的第一行，屏幕不滚动。
Ctrl+PageDown 将光标移至本屏的最后一行，屏幕不滚动。
Ctrl+↓ 向下滚动屏幕，光标跟随滚动不出本屏。
Ctrl+↑ 向上滚动屏幕，光标跟随滚动不出本屏。
Ctrl+Shift+NUM 在光标行设置最多九个临时标志号，对临时切换非常有用。
阅读全文
摘要：
一) 使用动态创建的方法
首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) 显示当前窗口：
ExcelApp.Visible := True; 阅读全文
摘要：
Abort 函数 引起放弃的意外处理
Abs 函数 绝对值函数
AddExitProc 函数 将一过程添加到运行时库的结束过程表中
Addr 函数 返回指定对象的地址 阅读全文
摘要：
procedure ExportDBGridToExcel(Grid: TDBGrid; DisableScreenUpdating: Boolean;
ReportCaption,ReportMemo,ReportTtl :string);
const
CLASS_ExcelApplication: TGUID = '{00024500-0000-0000-C000-000000000046}'; 阅读全文
摘要：
如果想将数据库表格转换为以逗号分割的文本文件（CSV格式），可以使用如下的过程代码： 阅读全文