猎人行动

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

摘要： procedure TMainForm.edtListViewIndexKeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['0'..'9', #8]) then Key := #0; end;在ONKEYPRESS里写下procedure Tform1.Edit1KeyPress(Sender: TObject; var... 阅读全文