LceMeaning

摘要： 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... 阅读全文

摘要： (一) 使用动态创建的方法首先创建 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:/ 阅读全文

摘要： 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 ... 阅读全文

摘要： 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 阅读全文

摘要： function NumToChar(const n: Real): string; //可以到万亿，并且可以随便扩大范围 const cNum: WideString = '零壹贰叁肆伍陆柒捌玖--万仟佰拾亿仟佰拾万仟佰拾元角分'; cCha:array[0..1, 0..12]of string = (( '零元','零拾','零佰','零仟','零万','零亿','亿万','零零零','零零','零万',' 阅读全文

摘要： 首先使用dateutils单元，即uses dateutils；// 有什么不明白的，去查看这个函数的声明，就明白了yearsbetween(开始时间,结束时间)-------------中间相差多少年 保留整数部分monthsbetween(开始时间,结束时间)-------------中间相差多少月 保留整数部分daysbetween(开始时间,结束时间)-------------中间相差多少天 保留整数部分hoursbetween(开始时间,结束时间)-------------中间相差多少小时 保留整数部分以此类推 分钟、秒yearspan(开始时间,结束时间)------------- 阅读全文

摘要： 1. 基本概念： mdf文件:SqlServer数据库的主数据文件 ldf文件:SqlServer数据库的日志文件 SQL Server管理的每个数据库都对应一个mdf文件和一个ldf文件。当SQL Server服务处于开启时，这些文件是无法删除的。 用SQL Server 企业管理器,单击某个数据库,选择右键菜单中的“属性",从弹出对话框的“数据文件”和“事务日志”标签页中可以查看这个数据库对应的mdf文件路径和ldf文件路径。2. 用SQL Server 企业管理器备份和还原数据库： 例如，备份数据库到可移动存储介质，然后还原到另一台机器上，步骤如下： 备份： 单击要备份的数据库 阅读全文

摘要： 程序需要禁止重复启动, 但需要保留新的、关闭旧的.=================================================从主窗口的类名下手吧; 写了一个函数, 在 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... 阅读全文

摘要： 一、 简单查询简单的Transact-SQL查询只包括选择列表、FROM子句和WHERE子句。它们分别说明所查询列、查询的表或视图、以及搜索条件等。例如，下面的语句查询testtable表中姓名为“张三”的nickname字段和email字段。SELECT nickname,emailFROM testtableWHERE name='张三'(一) 选择列表选择列表(select_list)指出所查询列，它可以是一组列名列表、星号、表达式、变量(包括局部变量和全局变量)等构成。1、选择所有列例如，下面语句显示testtable表中所有列的数据：SELECT *FROM test 阅读全文

摘要： 一.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子句 阅读全文