2005年2月12日

一 发现的问题：

    1 [用户]-[还碟登记]-[检查]总是出错，提示table5已关闭；(已解决）
        解决方法：table5.avcive:=ture;
    
    2 为什么源程序中的数据库功能在打开前总要关一次呢?
        如: mmdatamodule.ClientDataSet1.Active:=false;
            mmdatamodule.ClientDataSet1.Active:=true;

二 解决的问题：

    1 找到了mainform窗口状态栏有时间显示的原因：
        procedure TmmDataModule.Timer1Timer(Sender: TObject);
        begin
            mainform.StatusBar1.Panels[1].Text:=datetimetostr(now);
            gddlform.StatusBar1.Panels[1].Text:=datetimetostr(now);
        end;

    2 使用TQuery组件的一般格式:
        Query1.Close;                                //先关闭数据集
        Query1.SQL.Clear;                            //将SQL属性清空
        Query1.SQL.Add('SELECT * FROM 域名 WHERE 数据=“01”');  
                                                     //添加SQL语句
        Query1.Open;                                //打开数据集,即执行SQL语句

    3 Access数据库中两个日期,如(2000-1-1,2010-1-1),求之间的天数的方法:
        function DaysBetween(const ANow, AThen: TDateTime): Integer;

    4 了解了几个源程序中控件的用处:
        [统计]按钮的实现主要是利用了ClientDataSet控件的”Aggregate”字段来实现:
        控件之间的关系如下:
        [收入管理] - DBgrid3 - Datasource12
        clientdataset7 -> datasetprovider4