摘要： 因一个项目的原因，需要远程备份一个SQL SERVER2000的库，VPN连接，现在有的，只是一个SQL SERVER2000的连接账号，远程服务器的电脑无法共享目录，SQL SERVER相关的安全做的也挺好，一般的master..xp_cmdShell，OACreate之类的东西也没有什么作用。怎么办？没想到SQL SERVER本身就有相当强悍的功能，两步就完成了。1、连接到该远程库之后，右键，任务，生成脚本，即把该库所有的表、触发器、存储过程、函数等东东，全部都生成了一个大脚本文件，经测试，OK可用；2、选中库，右键，导出（或者在备份数据用的服务器上用导入）数据即可。因为网络环境不太给力， 阅读全文

摘要： 首先感谢万一老师，在您的博文中收益匪浅。首先用万一老师的示例，来自（http://www.cnblogs.com/del/archive/2011/11/08/2241746.html）uses Winapi.GDIPAPI, Winapi.GDIPOBJ{, Winapi.GDIPUTIL};procedure TForm1.FormPaint(Sender: TObject);var graphics: TGPGraphics; pen: TGPPen;begin graphics := TGPGraphics.Create(Canvas.Handle); pen := TGPPe... 阅读全文

摘要： 1 uses　RegularExpressions;　//相关单元 2 3 const 4 pattern　=　'[A-Z]+d+'; //测试用的表达式 5 txt　=　'AAA1　BBB2　AA11　BB22　A111　B222　AAAA';　//测试用的目标文本 6 7 {是否匹配成功} 8 procedure　TForm1.Button1Click(Sender:　TObject); 9 begin 10 if　TRegEx.IsMatch(txt,　pattern)　then 11 ... 阅读全文

摘要： 废话不说，上代码，简单之极。注意红色代码就可以了。unit Unit4;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, RegularExpressions;type TForm4 = class(TForm) edtIP: TEdit; btn1: TButton; lbl1: TLabel; ... 阅读全文

摘要： 1、先在Project--> Operation ---> Application ---> Appearance，把所有的皮肤都勾选了。2、Uses Vcl.Themes 单元；3、填写代码var li_Count: Integer;begin Randomize; li_Count := High(TStyleManager.StyleNames); TStyleManager.SetStyle(TStyleManager.StyleNames[Random(li_Count)]);end; 阅读全文