星期一，在樹（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語句查詢了某個窗口與那些角色有關聯，並且對系統的用戶結構有了
大致的瞭解，我要學習一下這個系統的用戶和組和權限的組織結構，以便以後做其他系統的時候能模仿這
種結構，還有這個系統中窗體的調用也是通過數據庫實現了，這個也是值得研究的。
