| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3267889
建立时间:2005年6月6日 |
| |
|
 [delpih编程]goalwaysshowedit这个属性有点可恨
软件技术
吕向阳 发表于 2009/9/11 20:54:27 |
advstringgrid是个很好用的替代stringgrid的控件，但今天做表单时出现一个很
奇怪的现象，输入数据后用上下箭头或者回车键离开当前单元格时，输入内容消
失。
原因在于我不仅将 option中的goediting 设为true了，也将goalwaysshowedit设
为了true.
设为false后正常了，但是此时不能够常编辑状态。
|
|
|
[delpih编程]无法为更新定位行。一些值可能已在最后一次读取后已更改。(delphi错误解决)
软件技术
吕向阳 发表于 2009/9/9 13:51:42 |
无法为更新定位行。一些值可能已在最后一次读取后已更改。
导读：
提示：在使用TADOTable 进行更新操作的时候也会出现类似的问题。
原因：
Access 2000 (9.0.2812)
在access里做了一个测试表
表名test1
字段分别是
myid 文本
myname 文本
sumtotal 货币
remark 文本
在BCB里用ado连接,连接字符串：
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\data\bbg.mdb;Persist
Security Info=False
程序加入一个ADOQuery，写入SQL：select * from test1
测试程序启动我做了以下几个工作：
(1)
|
|
|
[delpih编程]delphi编的程序打包后不能别的电脑上正常使用
软件技术
吕向阳 发表于 2009/9/8 22:02:41 |
今天一个程序编完了，打包放到另一台没装delphi的电脑上进行测试。
出现的问题是：双击程序图标没有任何反应。
弄了近一二个小时，最后确定问题在数据库的路径出错，程序是用access作数据
库，在编程中使用了绝对路径，主要是为了调试程序方便，尽管在CREATE事件中对
路径采用了相对的路径进行调整，但在程序执行中首先要载入那个绝对的路径，再
来采用后一个相对路径的。在载入绝对路径时在另一台电脑上的存放位置不同，故
出现错误。
将绝对路径删除，问题排除了。
|
|
|
[delpih编程]关于delphi操作热敏打印机
软件技术
吕向阳 发表于 2009/9/8 19:58:53 |
使用如下代码可以直接打印
procedure TForm1.Button1Click(Sender: TObject);
var
PText:TextFile;
i:integer;
begin
Printer.Canvas.Font.Charset:=GB2312_CHARSET;
AssignPRN(PText);
Rewrite(PText);
Printer.Canvas.Font.Name:='黑体'; //控制字体
Printer.Canvas.Font.Size:=15; // 控制字号
writeln(Ptext,'卡号:210008888888');
Printer.Canvas.Font.Size:=10;
writeln(Ptext,'');
writeln(Ptext,'密码:111111');
writeln(Ptext,'');
Printer.Canvas.Font.Size:=8;
writeln(Ptext,'开卡时间'+datetime |
|
|
[delpih编程]delphi日期函数
软件技术
吕向阳 发表于 2009/9/7 20:21:30 |
delphi日期函数
Day 开头的函数
●
Unit
DateUtils
function DateOf(const Avalue: TDateTime): TDateTime;
描述
使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个
只带有日期的 TDateTime 类型变量。
例如：
showmessage(DateTimetostr(dateof(now())));
你得到的是 2003/03/19
而 showmessage(DateTimetostr((now())));
得到的是 2003/03/19 10:50:49
●function DateTimeToStr(DateTime: TDateTime): string;
描述
DateTimeToString 函数将 TDateTime 类型的参数 DateTime 转换成一个
字符串，使用给定的全局变量 ShortD |
|
|
[delpih编程]查询本天本周本月本年的记录
软件技术
吕向阳 发表于 2009/9/7 19:52:32 |
Select * from student Where DateDiff(dd,rx_datetime,GetDate())
=0--本日
Select * from student Where DateDiff(wk,rx_datetime,GetDate
())=0--本周
Select * from student Where DateDiff(mm,rx_datetime,GetDate
())=0--本月
Select * from student Where DateDiff(yy,rx_datetime,GetDate
())=0--本年
|
|
|