martian6125 - 博客园

2009年11月2日

摘要： 1、procedure TForm1.WMInit(var msg: TWMInitMenuPOPUP);begin inherited; EnableMenuItem(msg.MenuPopup ,sc_Close,MF_BYCOMMAND or MF_GRAY... 阅读全文

posted @ 2009-11-02 16:57 martian6125 阅读(368) 评论(0) 推荐(0) 编辑

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ... 阅读全文

posted @ 2009-11-02 16:56 martian6125 阅读(411) 评论(0) 推荐(0) 编辑

摘要： procedure TForm1.CreateParams(var Params: TCreateParams) ;begin BorderStyle := bsNone; inherited; Params.ExStyle := Params.ExStyle ... 阅读全文

posted @ 2009-11-02 16:55 martian6125 阅读(381) 评论(0) 推荐(0) 编辑

摘要： type TForm1 = class(TForm)... private procedure GetMinMaxInfo(var Msg: TWMGETMINMAXINFO) ; message WM_GETMINMAXINFO;...impleme... 阅读全文

posted @ 2009-11-02 16:54 martian6125 阅读(138) 评论(0) 推荐(0) 编辑

摘要： type TCustomCaptionForm = class(TForm) private procedure WMNCPaint(var Msg: TWMNCPaint) ; message WM_NCPAINT; procedure WM... 阅读全文

posted @ 2009-11-02 16:53 martian6125 阅读(283) 评论(0) 推荐(0) 编辑

摘要：先设置BorderStyle和BorderIconstype THelpForm = class(TForm) private procedure WMNCLBUTTONDOWN(var Msg: TWMNCLButtonDown) ; message... 阅读全文

posted @ 2009-11-02 16:53 martian6125 阅读(131) 评论(0) 推荐(0) 编辑

2009年8月22日

摘要：问题名称: 无法查询部门收支分析表问题现象: 在总帐系统里面查询部门收支分析表时提示：系统正在处理别的用户查询分析请稍后处理。实际并没有用户查询.清除单据锁定和异常任务后，还是不能解决问题。原因分析: 问题主要原因可能是不正常操作导致软件出现异常任... 阅读全文

posted @ 2009-08-22 17:25 martian6125 阅读(177) 评论(0) 推荐(0) 编辑

2009年8月10日

摘要： 1、执子之手，方知子丑，泪流满面，子不走我走。 2、西游记告诉我们：凡是有后台的妖怪都被接走了，凡是没后台的都被一棒子打死了。 3、你有什么不开心的事？说出来让大家开心一下。 4、我那么喜欢你，你喜欢我一下会死啊。 5、我又不是... 阅读全文

posted @ 2009-08-10 18:20 martian6125 阅读(119) 评论(0) 推荐(0) 编辑

摘要： /*调拨单等单据定位功能没有过滤条件 ufdata_001_2009为有问题账套，ufdata_002_2009为新建账套*/TRUNCATE TABLE ufdata_001_2009.dbo.rpt_fltdefTRUNCATE TABLE ufdata_001... 阅读全文

posted @ 2009-08-10 17:48 martian6125 阅读(162) 评论(0) 推荐(0) 编辑

摘要： /*功能：去除存货的批次步骤：在账套数据库里执行下列语句后进入软件整理现存量即可 */--清除收发存记录的批次记录（批次设置为空）update rdrecords set cbatch=null--清除调拨记录的批次记录（批次设置为空）update TransVou... 阅读全文

posted @ 2009-08-10 11:03 martian6125 阅读(112) 评论(0) 推荐(0) 编辑