本鲨写的个人收支管理小程序 带源码 http://www.delphifans.com/SoftView/SoftView_1822.html 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 看了下,有些地方还要注意或说改进1、命名:尽量避免 N3: TMenuItem; N5: TMenuItem; N6: TMenuItem; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; 这些丑陋的控件(对象)命名 SPB_Next, SPB_Prior, 这样的大小写加下划线混合命名能避免就避免2、排版缩进问题 if PayOutSource.DataSet.RecordCount >1 then SPB_Prior.Enabled := true; if Key = VK_RETURN then Perform(WM_NEXTDLGCTL, 0, 0);不一致,大多是2空格缩进,但部分存在1个空格,3个空格及4个空格的缩进还有些其他的小细节吧,呵呵!但整体说来,非常不错!!支持下!! 怎么BCB版把DELPHI版的东西置顶了白鲨你自己干的好事?! 提一个取数据的问题,在线等!!!!! TWebBrowser的焦点问题? DBGRID在修改时一直只能显示一条记录 delphi5如何把excel文件写入oracle数据库?还要取出保存成文件 这种双数据库结构怎么构架? 菜鸟问题,delphi5开发指南上101页的一个问题。 欢迎踊跃讨论!如何使得delphi编的exe或dll最小! 嵌入式框架中,用Dynamic定义方法,能否提升兼容性? 时钟问题 关于临界区的使用? 是IT人都应该看的(外包) 如何实现同一应用程序的不同实例间参数的传递?
N3: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
这些丑陋的控件(对象)命名
SPB_Next, SPB_Prior, 这样的大小写加下划线混合命名能避免就避免
2、排版缩进问题
if PayOutSource.DataSet.RecordCount >1 then
SPB_Prior.Enabled := true; if Key = VK_RETURN then
Perform(WM_NEXTDLGCTL, 0, 0);
不一致,大多是2空格缩进,但部分存在1个空格,3个空格及4个空格的缩进还有些其他的小细节吧,呵呵!但整体说来,非常不错!!
支持下!!
白鲨你自己干的好事?!