摘要： type TForm1 = class(TForm) edt1: TEdit; btn1: TButton; procedure btn1Click(Sender: TObject); function getWeek:string; private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}function Tform1.getWeek:string;var date:SYSTEMTIME;begin GetLocalTime(da 阅读全文

摘要： 下列语句部分是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 阅读全文

摘要： 这里为读者提供一些实用的开发技巧和某些常见问题的解决途径。很多程序设计人员都有这样的体会，那就是往往自己冥思苦想某个问题的时候，旁人的一句点拨就可以拨云见日，灵感突现。因此下面以FAQ的形式列举了在开发过程中可能会遇到的问题，以飨读者。1.1 关于Delphi的BDEDelphi操作数据库主要是利用BDE来进行。BDE是基于32位Windows内核的数据库引擎和连接工具，支持现有的大多数数据库。它具有如下一些特点：1. 为多种数据库格式提供统一的应用程序接口，包括任何ODBC数据源。2. 适应C/S数据库应用的开发，程序设计人员可以访问所有本地和服务端的数据，并且很容易实现应用的向上兼容性。. 阅读全文

摘要： 李开复：算法的力量|万变不离其宗(软件技术)编程语言虽然该学，但是学习计算机算法和理论更重要，因为计算机算法和理论更重要，因为计算机语言和开发平台日新月异，但万变不离其宗的是那些算法和理论，例如数据结构、算法、编译原理、计算机体系结构、关系型数据库原理等等算法是计算机科学领域最重要的基石之一，但却受到了国内一些程序员的冷落。许多学生看到一些公司在招聘时要求的编程语言五花八门就产生了一种误解，认为学计算机就是学各种编程语言，或者认为，学习最新的语言、技术、标准就是最好的铺路方法。其实大家都被这些公司误导了。编程语言虽然该学，但是学习计算机算法和理论更重要，因为计算机算法和理论更重要，因为计算机语 阅读全文

摘要： Delphi中限制文本框(TEdit)只能输入数字(软件技术)procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char);varedt: TEdit;str, strL, strR: string;p: integer;begin // 获取当前文本内容, 注意要去掉选中部分(因为会被改写).edt := TEdit(Sender);str := edt.text;if Length(edt.SelText) <> 0 thenbegin strL := LeftStr(edt.text, edt.SelStart) 阅读全文

摘要： if MessageDlg('Welcome to my Delphi application. Exit now?', mtConfirmation, [mbYes, mbNo], 0) = mrYes thenbeginClose; end;MessageDlg用法对话框类型：mtwarning——含有感叹号的警告对话框mterror——含有红色叉符号的错误对话框mtinformation——含有蓝色i符号的信息对话框mtconfirmation——含有绿色问号的确认对话框mtcustom——不含图标的一般对话框，对话框的标题是程序的名称按钮组中的按钮：mbYes——mrY 阅读全文