- 博客(6)
- 资源 (4)
- 收藏
- 关注
原创 让DBGRID支持鼠标滚轮
先在窗全上添加ApplictionEvents控件,在ADDITIONAL页中。然后在ADDITIONAL的onmessage事件中添加如下代码:if (Carrier_db.Focused) And (Msg.message = WM_MOUSEWHEEL) then begin if Msg.wParam > 0 then SendMessage(Carr
2006-04-25 14:36:00 858
原创 点关闭按钮,提示是否确认退出
TForm1.FormCloseQuery是自身有的属性。procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin try if Application.MessageBox(确定退出本软件吗?,询问,MB_OKCANCEL+MB_ICONQUESTION)=IDOK then
2006-04-24 15:09:00 2680
原创 一个简单的程序,点最小化按钮,程序最小化为一个图标最任务栏右边
unit Unit1;interfaceuses Windows, Messages,.......................const WM_BARICON=WM_USER+200; //加这个typeprivate procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMA
2006-04-24 15:04:00 2801
转载 最近开发一个SQL server大数据量统计系统的经验总结
项目介绍 政府一个业务系统, 使用范围全国 数据是区域还存储,最大地方,主业务表,一年有600万,工作流表,1年有几千万,迄今为至系统已经运行三年。 其它全国还有46个地点,数据也比较多 新开发系统主要功能,对业务系统的数据进行分析统计. 所以对性能要求比较高。 我们的简要方案。 建立中间表,通过DTS调度每天共步数据。 中间表设计原则 记录数同原表一样,减少多表连接,保存运算好的值,如
2006-04-22 11:05:00 885
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人