摘要：
2010年伊始，细数2009： 2009年 市中区36平米小户型一套2009年峨眉山46平米小户型一套 2009年 市中区西式快餐店部分股份 辛苦的2009，经过疯狂的消费，最后的结果是我一无所有。2010，我再次从零开始。 2010年，我满怀信心。我希望能完成新购的三套住房（另一套2008年购）顺利交房；希望协助父母完成90平米的小户型一套（部分出资）；希望再投资一家西式快餐店股份（较大股份）... 阅读全文
摘要：
RzStatusPane1.Caption :=FormatDateTime('现在是：YYYY年MM月DD日 HH时NN分SS秒 dddd',Now); 阅读全文
摘要：
想中国过去,玉米饼,白菜汤,老婆一个,孩子一帮.看中国当今:白米饭,王八汤,孩子一个,老婆一帮.现代人的悲哀: 一手好字被电脑废了, 一个好胃被酒废了. 一个好家被情人废了, 一个好官被人民币废了. 一个大盘被中国石油废了。没钱的,养猪 有钱的，养狗。 没钱的,在家里吃野菜 有钱的,在酒店吃野菜。 没钱的,在马路上骑自行车 有钱的，在客厅里骑自行车。 没钱... 阅读全文
摘要：
用Delphi从数据库中取得资料，然后导出到Excel中做成报表是个不错的选择，因为Excel强大的报表功能那可是没话说前提Delphi中要 uses comobj;var Excel:Variant;一、Excel操作1.创建Excel对象Excel := CreateOleObject( Excel.Application );2.显示ExcelExcel.Visible:=true;3.更改... 阅读全文
摘要：
delphi在执行双击事件的顺序是 OnMouseDown,OnMouseUp,Onclick,OnMouseDown,OnMouseUp,OnDleClick。所以，要在OnMouseDown中判断是否执行了双机事件，有点难度。 阅读全文
摘要：
一、四舍五入法四舍五入是一种应用非常广泛的近似计算方法，其有算术舍入法和银行家舍入法两种。所谓算术舍入法，就是我们通常意义上的四舍五入法。其规则是：当舍去位的数值大于等于5时，在舍去该位的同时向前位进一；当舍去位的数值小于5时，则直接舍去该位。所谓银行家舍入法，其实质是一种四舍六入五留双（又称四舍六入五奇偶）法。其规则是：当舍去位的数值小于5时，直接舍去该位；当舍去位的数值大于等于6时，在舍去该位... 阅读全文
摘要：
procedure TFrmMain.NSystBackupClick(Sender: TObject);var strFile:string;begin // 数据库备份 SaveDlgData.Filter:='All files (*.*)|*.*'; SaveDlgData.FileName:='DataBack'+DateToStr(now); if SaveDlgData.Execut... 阅读全文
摘要：
MessageBox用法消息框是个很常用的控件，属性比较多，本文列出了它的一些常用方法，及指出了它的一些应用场合。1.MessageBox("这是一个最简单的消息框！");2.MessageBox("这是一个有标题的消息框！","标题"); 3.MessageBox("这是一个确定 取消的消息框！","标题", MB_OKCANCEL ); 4.MessageBox("这是一个警告的消息框！","... 阅读全文
摘要：
//Delphi中打开Excel文件var ExcelApp: Variant; //Excel变量 ExcelFiles: string; //打开的Excel文件名begin inherited; //打开指定的文件 OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0)) + '.\data\'; OpenDialog1.Filter :=... 阅读全文
摘要：
//判断文件是否存在 if not FileExists(trim(RzButtonEdit1.Text)) then begin Application.MessageBox('指定的数据源文件不存在！', '请您注意', 48); exit; end; 阅读全文