怎么样记录历史操作？？急用。。。

[languageqq]

我希望程序能记录历史操作，比如谁登录了，做了什么操作，我都能查得到，期限在一周内的，一周以上的自动替代，怎么做呀，思路是什么呀，代码怎么写呀？？？举个例子先，多谢？？

[Billy_Chen28]

其实就是做个日制文件，你的数据库是ACCESS的话，可以用TXT来代替，如果是其它大型数据库，可以用一个单独的日制数据库。

[GaoLun]

我给你一段 BCB 存入 ini的 文件

和从 INI 读取的程序 你看看

AnsiString AppCfg=ChangeFileExt(Application->ExeName,".ini");
TStringList *ss=new TStringList();

ss->LoadFromFile(AppCfg);
Caption=ss->Values["MainFormCaption"];
Top=ss->Values["MainFormTop"].ToIntDef(0);
Left=ss->Values["MainFormLeft"].ToIntDef(0);
Width=ss->Values["MainFormWidth"].ToIntDef(Screen->WorkAreaWidth);
Height=ss->Values["MainFormHeight"].ToIntDef(Screen->WorkAreaHeight);
}

delete ss; ss=NULL;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
//保存配置
AnsiString AppCfg=ChangeFileExt(Application->ExeName,".ini");
TStringList *ss=new TStringList();

ss->Add("MainFormCaption="+Caption);
ss->Add("MainFormTop="+AnsiString(Top));
ss->Add("MainFormLeft="+AnsiString(Left));
ss->Add("MainFormWidth="+AnsiString(Width));
ss->Add("MainFormHeight="+AnsiString(Height));
ss->SaveToFile(AppCfg);

[languageqq]

上面的代码都写在哪里呀，我是初学者，能不能说的再明白一点呀，多谢了！！

[languageqq]

那我想看时怎么办呀，

[smilelhh]

写数据库然后删除一周前的