10 2013 档案

Delphi 给frxReport赋值《lcemeaning》
摘要：unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, frxClass, frxDesgn;type TForm1 = class(TForm) btn1: TButton; frxReport1: TfrxReport; edt1: TEdit; edt2: TEdit; ... 阅读全文
posted @ 2013-10-19 16:21 冰意 LceMeaning 阅读(1385) 评论(0) 推荐(0)
web.config《lcemeaning》
摘要： 阅读全文
posted @ 2013-10-18 10:36 冰意 LceMeaning 阅读(158) 评论(0) 推荐(0)
点击链接弹出框提示《转》
摘要：javascript:if(confirm('http://www.bankcomm.com/ \n\n文件并未依 Teleport Pro 取回，因为 它的域或路径超过开始网址中设置的范围。 \n\n你要从服务器上打开它吗？'))window.location='http://www.bankcomm.com/' 阅读全文
posted @ 2013-10-18 10:31 冰意 LceMeaning 阅读(210) 评论(0) 推荐(0)
MD5《转》
该文被密码保护。
posted @ 2013-10-15 10:15 冰意 LceMeaning 阅读(2) 评论(0) 推荐(0)
LceMeaning专用函数集《Lcemeaning》
摘要：{*******************************************************}{ }{ Lcemeaning专用函数库集 }{ }{ }{ 作者:lcemeani... 阅读全文
posted @ 2013-10-14 12:04 冰意 LceMeaning 阅读(243) 评论(0) 推荐(0)
Delphi获得与设置系统时间格式《转》
摘要：unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm1 = class(TForm) btn1: TButton; btn2: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; p... 阅读全文
posted @ 2013-10-14 11:30 冰意 LceMeaning 阅读(1548) 评论(0) 推荐(0)
Delphi 调用Excel《转》
摘要：(一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口：ExcelApp.Visible := True;2) 更改 Excel 标题栏：ExcelApp.Caption := '应用程序调用 Microsoft Excel';3) 添加新工作簿：ExcelApp.WorkBooks.Add;4) 打开已存在的工作簿：ExcelApp.WorkBooks.Open( 'C:/ 阅读全文
posted @ 2013-10-12 18:25 冰意 LceMeaning 阅读(392) 评论(0) 推荐(0)
调用外部程序并等待程序运行结束《Lcemeaning》
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Vcl.ExtCtrls,Clipbrd;type TForm1 = class(TForm) Button1: TButton; img1: TImage; procedure Button1Click(Sender: TObject); private { Private declarations } public ... 阅读全文
posted @ 2013-10-12 18:14 冰意 LceMeaning 阅读(236) 评论(0) 推荐(0)
如何获取Memo的行数与列数《转》
摘要：varHang,Lie,Num,CharsLine:longint;beginNum:=SendMessage(Memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);CharsLine:=SendMessage(Memo1.Handle,EM_LINEINDEX,Num,0);Hang:=Num+1;//当前行Label3.Caption :='行数= '+IntToStr(Hang) ;Lie:=(Memo1.SelStart-CharsLine)+1;//当前列Label4.Caption :='列数= '+IntTo 阅读全文
posted @ 2013-10-12 15:57 冰意 LceMeaning 阅读(356) 评论(0) 推荐(0)
delphi小写金额转大写的函数《转》
摘要：function NumToChar(const n: Real): string; //可以到万亿，并且可以随便扩大范围 const cNum: WideString = '零壹贰叁肆伍陆柒捌玖--万仟佰拾亿仟佰拾万仟佰拾元角分'; cCha:array[0..1, 0..12]of string = (( '零元','零拾','零佰','零仟','零万','零亿','亿万','零零零','零零','零万',' 阅读全文
posted @ 2013-10-12 15:49 冰意 LceMeaning 阅读(1850) 评论(0) 推荐(0)
delphi中的时间函数运算《转》
摘要：首先使用dateutils单元，即uses dateutils；// 有什么不明白的，去查看这个函数的声明，就明白了yearsbetween(开始时间,结束时间)-------------中间相差多少年 保留整数部分monthsbetween(开始时间,结束时间)-------------中间相差多少月 保留整数部分daysbetween(开始时间,结束时间)-------------中间相差多少天 保留整数部分hoursbetween(开始时间,结束时间)-------------中间相差多少小时 保留整数部分以此类推 分钟、秒yearspan(开始时间,结束时间)------------- 阅读全文
posted @ 2013-10-12 15:47 冰意 LceMeaning 阅读(1841) 评论(0) 推荐(0)
SQLServer数据库的备份和还原详解《转》
摘要：1. 基本概念： mdf文件:SqlServer数据库的主数据文件 ldf文件:SqlServer数据库的日志文件 SQL Server管理的每个数据库都对应一个mdf文件和一个ldf文件。当SQL Server服务处于开启时，这些文件是无法删除的。 用SQL Server 企业管理器,单击某个数据库,选择右键菜单中的“属性",从弹出对话框的“数据文件”和“事务日志”标签页中可以查看这个数据库对应的mdf文件路径和ldf文件路径。2. 用SQL Server 企业管理器备份和还原数据库： 例如，备份数据库到可移动存储介质，然后还原到另一台机器上，步骤如下： 备份： 单击要备份的数据库 阅读全文
posted @ 2013-10-07 11:36 冰意 LceMeaning 阅读(585) 评论(0) 推荐(0)