02 2012 档案

摘要：下列语句部分是Mssql语句，不可以在access中使用。SQL分类： DDL—数据定义语言(Create，Alter，Drop，DECLARE) DML—数据操纵语言(Select，Delete，Update，Insert) DCL—数据控制语言(GRANT，REVOKE，COMMIT，ROLLBACK)首先,简要介绍基础语句：1、说明：创建数据库Create DATABASE database-name 2、说明：删除数据库drop database dbname3、说明：备份sql server--- 创建 备份数据的 deviceUSE masterEXEC sp_addumpdevi 阅读全文

摘要：关于窗体的释放:Close（）方法是将窗体隐藏，即form.hide; 释放窗体或是控件的标准用法是Form.Free，其实Free方法只是调用了Destroy（）方法，在窗体不为nil时进行资源的释放，但并不将窗体实例置为nil，只有窗体实例没有创始化之前值才为nil,否则你要显示的将窗体实例置为nil. 释放窗体的标准用法是： 1、对于模态窗体 Form1 := TForm.Create(Self); try your process Form1.ShowModal; finally Form1.Free; end;//可以确保资源的释放，而不会重复创建窗体实例。 2、对于非模态窗体 if 阅读全文

摘要：procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not (key in ['0'..'9','-',#8]) then key:= #0; if (key='0') and ((Edit1.Text='') or (Edit1.Text='-')) then key:= #0; if (key='-') and (Edit1.Text<>'') then key 阅读全文

摘要：uses DateUtils;添加引用用函数IncMiliSecond, IncMinute, IncDay, IncMonth, IncYear, IncWeek等实现当前日期时间加上指定日期时间如svalidate.Date:=incyear(date,3);表示在当前日期上加上3年 阅读全文

摘要：function StartOfTheYear(const AValue: TDateTime): TDateTime;function EndOfTheYear(const AValue: TDateTime): TDateTime;function StartOfAYear(const AYear: Word): TDateTime;function EndOfAYear(const AYear: Word): TDateTime;function StartOfTheMonth(const AValue: TDateTime): TDateTime;function EndOfTheMo 阅读全文