摘要: 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 阅读(1543) 评论(0) 推荐(0)
摘要: (一) 使用动态创建的方法首先创建 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 阅读(384) 评论(0) 推荐(0)
摘要: 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 阅读(231) 评论(0) 推荐(0)
摘要: 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 阅读(348) 评论(0) 推荐(0)
摘要: function NumToChar(const n: Real): string; //可以到万亿,并且可以随便扩大范围 const cNum: WideString = '零壹贰叁肆伍陆柒捌玖--万仟佰拾亿仟佰拾万仟佰拾元角分'; cCha:array[0..1, 0..12]of string = (( '零元','零拾','零佰','零仟','零万','零亿','亿万','零零零','零零','零万',' 阅读全文
posted @ 2013-10-12 15:49 冰意 LceMeaning 阅读(1844) 评论(0) 推荐(0)
摘要: 首先使用dateutils单元,即uses dateutils;// 有什么不明白的,去查看这个函数的声明,就明白了yearsbetween(开始时间,结束时间)-------------中间相差多少年 保留整数部分monthsbetween(开始时间,结束时间)-------------中间相差多少月 保留整数部分daysbetween(开始时间,结束时间)-------------中间相差多少天 保留整数部分hoursbetween(开始时间,结束时间)-------------中间相差多少小时 保留整数部分以此类推 分钟、秒yearspan(开始时间,结束时间)------------- 阅读全文
posted @ 2013-10-12 15:47 冰意 LceMeaning 阅读(1831) 评论(0) 推荐(0)
摘要: 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 阅读(580) 评论(0) 推荐(0)
摘要: 程序需要禁止重复启动, 但需要保留新的、关闭旧的.=================================================从主窗口的类名下手吧; 写了一个函数, 在 OnCreate 中调用即可: 1 { 函数 } 2 procedure CloseSameClassNameWindow(ACurrentWindow: HWND; const AClassName: string); 3 var 4 h: HWND; 5 buf: array[0..255] of Char; 6 begin 7 h := ACurrentWindow; 8 while... 阅读全文
posted @ 2013-09-24 18:11 冰意 LceMeaning 阅读(196) 评论(0) 推荐(0)
摘要: 一、 简单查询简单的Transact-SQL查询只包括选择列表、FROM子句和WHERE子句。它们分别说明所查询列、查询的表或视图、以及搜索条件等。例如,下面的语句查询testtable表中姓名为“张三”的nickname字段和email字段。SELECT nickname,emailFROM testtableWHERE name='张三'(一) 选择列表选择列表(select_list)指出所查询列,它可以是一组列名列表、星号、表达式、变量(包括局部变量和全局变量)等构成。1、选择所有列例如,下面语句显示testtable表中所有列的数据:SELECT *FROM test 阅读全文
posted @ 2013-09-20 11:35 冰意 LceMeaning 阅读(244) 评论(0) 推荐(0)
摘要: 一.Select语句的完整语法为:Select[ALL|DISTINCT|DISTINCTROW|TOP]{*|talbe.*|[table.]field1[AS alias1][,[table.]field2[AS alias2][,…]]}FROM tableexpression[,…][IN externaldatabase][Where…][GROUP BY…][HAVING…][ORDER BY…][WITH OWNERACCESS OPTION] 说明: 用中括号([])括起来的部分表示是可选的,用大括号({})括起来的部分是表示必须从中选择其中的一个。1 FROM子句FROM子句 阅读全文
posted @ 2013-09-20 11:33 冰意 LceMeaning 阅读(272) 评论(0) 推荐(0)