工作第二星期

星期一，在树（dxDBTreeView1）的应用中，在AstaClientDataSet2的AfterScroll事件中编写代码：
if dxDBTreeView1.Tag = 0 then exit;
AstaClientDataSet2.Close;
AstaClientDataSet2.SQL.Text :='SELECT * FROM TreeNode WHERE  

F_ID='''+DataSet.FieldByName('AutoID').asstring+'''';
AstaClientDataSet2.open;
可以实现点击树节点更新另一个表的效果，但是如果不在前面加上if dxDBTreeView1.Tag = 0 then

exit;，则在窗体显示的时，加载树结构的时候也会触发AfterScroll事件，造成加载很慢的效果，为了避

免这种结果，我们在窗体的FormShow事件中加上：
AstaClientDataSet1.Close;
AstaClientDataSet1.Open;
dxDBTreeView1.Tag := 1;
则，程序会首先加载树结构，然后将dxDBTreeView1.Tag设为1，在以后的点击树结果中再触发同步刷新效

果。
    星期二，在熟悉了单件模式和抽象工场模式，星期三，修改了在生成领料单里面添加一个型号规格的

任务。
星期四，今天共完成两个任务，一是个将成本单价字段修改为小数点后4位，一个是添加新字段，物资单

价，并将其显示出来。在做的过程中遇到了莫名其妙的错误，当添加新的字段时，原来的DATASET不认可

新的字段，即使认可了，原来老的字段又出现了不认可的现象，这可能是组件的错误。
修改字段：ALTER TABLE TJS190 ALTER COLUMN TJS1931 numeric(12,4)
新件字段：ALTER TABLE TJS19 ADD COLUMN TJS1943 numeric(12,4) NULL

星期五，今天上午看了下工场模式，感觉要看懂设计模式你必须有实在的项目经验才能体会的出来，像我

们这种没有写过多少行代码的人看起来很吃力的，还是下午好一点，我下午得到一个任务，让我修改车辆

报废审核流程，我用自己组织的SQL语句查询了某个窗口与那些角色有关联，并且对系统的用户结构有了

大致的了解，我要学习一下这个系统的用户和组和权限的组织结构，以便以后做其他系统的时候能模仿这

种结构，还有这个系统中窗体的调用也是通过数据库实现了，这个也是值得研究的。