摘要： 本人今天把自已以前的一些delphi编程经验进行个小总结，总结完后突有一个 这样的想法：如果我把这些总结发给网上的delphi朋友，而他们如果也有些自已 的delphi编程小结，也发给我(如果愿意的话),这样大家的进步肯定是很快的。 本人email：yesterday97@hotmail.com (1).按下ctrl和其它键之后发生一事件。 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin... 阅读全文

摘要： 我们可以直接通过SQLPLUS的客户端进行修改，也可以在linux下，但是命令都是一样的。下面我们以linux下的介绍为主：su -Oraclesqlplus /nologconnect/ as sysdbaalter system set processes = value scope = spfile ;(一般数据库都是开的，所以要先关闭，再重启数据库)Shutdown immediate;Startup;(结束了！)--------------------------------------------------------1. 查询最大连接数：Show parameter proce 阅读全文

摘要： 用过Oracle的应该都熟悉如何查看和设置Oracle数据库的最大连接数。这里就再啰嗦一遍。查看当前的连接数，可以用select count(*) from v$process;设置的最大连接数（默认值为150）select value from v$parameter where name = ‘processes’;修改最大连接数alter system set processes = 300 scope = spfile;都知道，当数据库最大连接数不够时会出现客户端连接间歇性失败，报错ORA-12519。设置大点一般就可以了。但是做大型项目的时候还是会遇到一些不正常的问题，比如：设置最大 阅读全文

摘要： show parameter processes;然后更改系统连接数alter system set processes=1000 scope=spfile;下面是具体的操作步骤与说明问题描述：客户端连接数据库报错ORA-12516: TNS: 监听程序无法找到匹配协议栈的可用句柄解决过程：1。查看当前会话数、processes和sessions值，发现session数和2个参数的值已经非常逼近SQL*Plus: Release 10.2.0.1.0 - Production on 星期一 10月 9 15:50:21 2006Copyright (c) 1982, 2005, Oracle. 阅读全文

摘要： Delphi 动态调整打印机纸张大小信息管理系统中经常要提供各种打印功能，例如报表打印、凭证打印以及发票打印。在这些打印过程中所需要纸张的大小往往是不一致的，例如，打印报表有可能使用A4 纸或A3 纸，打印凭证或发票可能需要将打印纸张设置成自定义大小。如果在同一台打印机上打印这些内容，那么就应该针对不同的打印内容设置不同的纸张尺寸。显然如果用手动的方法来设置打印机的纸张尺寸是件很麻烦的事，最好的方法是让程序动态地修改打印机的纸张尺寸。 解决问题的思路 通过查阅API 函数技术文档可知，每个打印机都拥有唯一的一个叫做DevMode 的结构，与打印机相关的各项参数被存放在这个结构中。通过对... 阅读全文

摘要： 这个控件非常好，非常的简捷，尤其是Range对象操作使用起来非常方便，值得推荐。 代码片断如下：procedure TForm1.Button1Click(Sender: TObject); Var Book: IXLSWorkbook; //申明工作薄 ws: IXLSWorksheet; //申明工作表 i, j: integer; begin //Create workbook 创建工作薄 Book := TXLSWorkbook.Create; //Add new sheet 在工作薄中加一个新的工作表 ws := Book.Sheets.Add; ws.Name :=... 阅读全文

摘要： Delphi编程保存数据到Excel文件(3)：使用XLSReadWriteII控件 今天采用XLSReadWriteII控件来完成10×10的乘法表，发现它很灵活，实现的功能比较多，基本能满足所以的需求。 代码片断如下：procedure TForm1.Button1Click(Sender: TObject); Var i,j:Integer; begin XLS.Sheets[0].Name:= 'Ten times table(乘法表)'; //给工作表命名 //General settings 常规的格式设置 With XLS.Sheet[0].Range. 阅读全文

摘要： function Tdm.GetHzPy(const AHzStr: string): string;const ChinaCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077), (2078, 2273), (2274, 2301), (2302, 2432), (2433, 2593), (2594, 2786), (9999, 0000), (2787, 3105), (3106, 3211), (3212, 3471), (3472, 3634), (3635, 3722), (37 阅读全文

摘要： 由于系统使用导出的格式是csv，但是如果数字的长度太长的话，用excle打开会用科学技术法自动截断了。所以开发了一个转换程序。 [java] view plaincopyprint?unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ExtCtrls,ComCtrls,ComObj,StrUtils,WinSkinData,WinSkinStore,Gauges,ShellApi,ClipBrd;typeTForm1=class(TF 阅读全文

摘要： 声明部分 procedure DataToExcelCSV(SaveFileName:string;DataSet:TDataSet;ShowCompleteBoX:Boolean=True;GroupCount:integer=1);......{------------------------------------------------------}{检测findStr是否in mainStr,如果存在则返回True,否则False}{------------------------------------------------------}function TFun.IsStrIn 阅读全文