摘要：环境:os:windows 2003 server enterprise edition 32bit(sp2)sqlserver:我这里是比较老的SQL Server2000 （SP4）发现了一个奇怪的问题,我获取了一个SQLServer2000数据库的备份文件(这个备份文件从哪里来的,无需追究,反正就是有一个SQL Server2000数据库的备份文件),没有任何关于这个备份文件的描述.1.如何获取数据库名称restore headeronly from disk='d:\publish\DBNAME.bak'2.如何获取数据库文件逻辑名称以及物理名称restore file 阅读全文

摘要：uses CnCommon;// 目录尾加'\'修正function MakePath(const Dir: string): string;// 路径尾去掉 '\'function MakeDir(const Path: string): string;// 取系统目录function GetSystemDir: string;// 取Program Files目录function GetProgramFilesDir: string;// 取Windows目录function GetWindowsDir: string;// 应用程序路径function A 阅读全文

摘要：取程序路径 function GetAppPath: String;begin Result := ExtractFilePath(Application.ExeName);end;取计算机名1 Function GetPcName:String;2 Var3 buffer:array[0..254]of char;4 Size:Dword;5 begin6 Size:=SizeOf(Buffer);7 GetComputerName(buffer,Size);8 result:=String(Buffer);9 end;输入对话框function InputQuery(... 阅读全文

摘要：━━━━━━━━━━━━━━━━━━━━━ 首部 function DupeString(const AText: string; ACount: Integer): string; $[StrUtils.pas 功能 返回字符串AText的ACount个复本 说明 当ACount为0时返回 ' ' 参考 function System.SetLength 例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value); ━━━━━━━━━━━━━━━━... 阅读全文

摘要：添加树的结点procedure AddNode;var Pnode,bnode:TTreeNode;begin RzCheckTree1.Items.Clear; Pnode:=RzCheckTree1.Items.Add(nil,'第1个'); bnode:=RzCheckTree1.Items.AddChild(Pnode,'第11个'); bnode:=RzCheckTree1.Items.AddChild(Pnode,'第12个'); bnode:=RzCheckTree1.Items.AddChild(Pnode,'第13个&# 阅读全文

摘要：图片保存到库中 1 procedure TForm1.Savebmp; 2 var 3 MyStm:TMemoryStream; 4 Jpg:TjpegImage; 5 begin 6 MyStm:=TMemoryStream.Create; 7 jpg:=TJPEGImage.Create; 8 Jpg.Assign(cxImage1.Picture.Graphic); 9 Jpg.SaveToStream(MyStm);10 MyStm.Position:=0;11 ADOQuery1.Edit;12 TBlobField(ADOQuery1.Field... 阅读全文

摘要：下面是一个支持任意表的 SQL SERVER2000分页存储过程 1 下面是一个支持任意表的 SQL SERVER2000分页存储过程 2 //-----下面是一个支持任意表的 SQL SERVER2000分页存储过程 3 4 //----分页存储过程开始创建----------------------------------------------------------------------------------------------------------- 5 IF EXISTS (SELECT name FROM sysobjects WHERE name = 'P.. 阅读全文

摘要：1 procedure SetDateTimeFormat; 2 var p: DWORD; //TFormatSettings ; 3 begin 4 SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, pchar('yyyy-MM-dd')); //设置短日期格式 5 SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_STIMEFORMAT, pchar('H:mm:ss')); 6 //设置时间格式，24小时制 7 SendMes... 阅读全文