log.cpp

速达开源ERP系统

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Log.h"
#include "Log_Sub.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#define ParaSaveDate  "10111"
#define ParaWriteMode "10112"
TfrmLog *frmLog;
//---------------------------------------------------------------------------
__fastcall TfrmLog::TfrmLog(TComponent* Owner)
        : TStdBaseForm(Owner)
{
 Initiate();
}
//---------------------------------------------------------------------------
void __fastcall TfrmLog::Initiate()
{
 TComResultSet *RsLog;
 AnsiString sSql;
 AnsiString tmp1,tmp2;
 //变量初始化
 pv_SaveDate=7;
 pv_WriteMode="1";
 pv_LogType=0;
 tmp1=ParaSaveDate;
 tmp2=ParaWriteMode;
 RsLog=NewResultSet();
 sSql =" select ParameterCode,ParameterValue from sdParameter where Parametercode = '"+tmp1+"'";
 sSql+=" or ParameterCode = '"+tmp2+"'";
 RsLog->Open(sSql,"");
 while(RsLog->Eof == 0)
 {
   if(RsLog->FieldByName("ParameterCode")==ParaSaveDate)
    pv_SaveDate=StrToIntDef(RsLog->FieldByName("ParameterValue"),7);
   if(RsLog->FieldByName("ParameterCode")==ParaWriteMode)
    pv_WriteMode=RsLog->FieldByName("ParameterValue");
   RsLog->MoveNext();
 }
 RsLog->Close();
 delete RsLog;
 if(pv_WriteMode=="1")
 {
  N9->Checked=true;
  N10->Checked=false;
 }
 else
 {
  N9->Checked=false;
  N10->Checked=true;
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrmLog::GetSystemLog()
{
 TComResultSet *RsLog;
 AnsiString sSql,sTemp;
 TListItem  *ListItem;

 RsLog=NewResultSet();
 sSql =" select LogDate,LogTime,FormCaption,LogType,LogUser from sdLog,sdForm ";
 sSql+=" where LogFrom=FormName ";
 switch(pv_LogType)
 {
  case 0:
   sTemp="";
   break;
  case 1:
   sTemp=" and LogType=1 ";
   break;
  case 2:
   sTemp=" and LogType=2 ";
   break;
  case 3:
   sTemp=" and LogType=3 ";
   break;
  default:
   sTemp="";
 }
 sSql+=sTemp;
 sSql+=" order by LogDate desc,LogTime Desc ";
 RsLog->Open(sSql,"");
 lvwLog->Items->Clear();
 while(RsLog->Eof == 0)
 {
   ListItem = lvwLog->Items->Add();
   ListItem->Caption = RsLog->FieldByName("LogDate");
   ListItem->SubItems->Add(RsLog->FieldByName("LogTime"));
   ListItem->SubItems->Add(RsLog->FieldByName("FormCaption"));
   ListItem->SubItems->Add(DataConvert("LogType",RsLog->FieldByName("LogType")));
   ListItem->SubItems->Add(RsLog->FieldByName("LogUser"));
   if(RsLog->FieldByName("LogType")=="1")
    ListItem->ImageIndex=1;
   if(RsLog->FieldByName("LogType")=="2")
    ListItem->ImageIndex=2;
   if(RsLog->FieldByName("LogType")=="3")
    ListItem->ImageIndex=3;
   RsLog->MoveNext();
 }
 RsLog->Close();
 delete RsLog;
}
//---------------------------------------------------------------------------
void __fastcall TfrmLog::ClearSystemLog()
{
 TComResultSet *RsLog;
 AnsiString sSql;

 RsLog=NewResultSet();
 sSql =" delete from sdLog ";
 RsLog->Execute(sSql);
 lvwLog->Items->Clear();
 RsLog->Close();
 delete RsLog;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmLog::DataConvert(AnsiString sFieldName,AnsiString sFieldValue)
{
 sFieldName=UpperCase(sFieldName);
 if(sFieldName=="LOGTYPE") //日志类型数值转换
 {
  if(sFieldValue=="1")
   return("信息");
  if(sFieldValue=="2")
   return("警告");
  if(sFieldValue=="3")
   return("错误");
 }

 return("");
}
//---------------------------------------------------------------------------
void __fastcall TfrmLog::N5Click(TObject *Sender)
{
 if(Application->MessageBox("确定要清除所有系统日志吗？",
                            "系统提示",MB_YESNO) == IDYES)
   ClearSystemLog();
}
//---------------------------------------------------------------------------

void __fastcall TfrmLog::FormClose(TObject *Sender, TCloseAction &Action)
{
  g_ClientComm->DelMsgForm(this->Name);
  Action=caFree;
}
//---------------------------------------------------------------------------

void __fastcall TfrmLog::N7Click(TObject *Sender)
{
 TComResultSet *RsLog;
 AnsiString sSql;
 AnsiString tmp,InputString,tmp3;
 int tmp2;

 tmp=IntToStr(pv_SaveDate);
 InputString = InputBox("参数设置", "日志保存天数", tmp.c_str());
 tmp2=StrToIntDef(Trim(InputString),-1);
 if(tmp2<=0)
  return;    //输入无效整数
 if(pv_SaveDate==tmp2)
  return;    //参数没有改变
 tmp3=ParaSaveDate;
 RsLog=NewResultSet();
 sSql =" update sdParameter set ParameterValue="+IntToStr(tmp2);
 sSql+=" where ParameterCode='"+tmp3+"'";
 RsLog->Execute(sSql);
 RsLog->Close();
 delete RsLog;
 pv_SaveDate=tmp2;
}
//---------------------------------------------------------------------------

void __fastcall TfrmLog::N9Click(TObject *Sender)
{
 TComResultSet *RsLog;
 AnsiString sSql;
 AnsiString tmp,tmp2;
 if(((TMenuItem *)Sender)->Checked)
  return;
 ((TMenuItem *)Sender)->Checked=true;
 if(N9->Checked)
 {
  tmp="1";
 }
 else
 {
  tmp="2";
 }
 if(pv_WriteMode==tmp)
  return;
 tmp2=ParaWriteMode;
 RsLog=NewResultSet();
 sSql =" update sdParameter set ParameterValue='"+tmp+"'";
 sSql+=" where ParameterCode='"+tmp2+"'";
 RsLog->Execute(sSql);
 RsLog->Close();
 delete RsLog;
 pv_WriteMode=tmp;
}
//---------------------------------------------------------------------------

void __fastcall TfrmLog::lvwLogDblClick(TObject *Sender)
{
 TComResultSet *RsLog;
 AnsiString sSql,sDate,sTime;
 TListItem  *ListItem;
 TfrmLog_Sub *p;
 if(lvwLog->Selected==NULL)
  return;
 sDate=lvwLog->Selected->Caption;
 sTime=lvwLog->Selected->SubItems->Strings[0];
 RsLog=NewResultSet();
 sSql =" select LogDate,LogTime,FormCaption,LogType,LogUser,LogComputerName,LogIP,LogDesc from sdLog,sdForm ";
 sSql+=" where LogFrom=FormName and ";
 sSql+=" LogDate='"+sDate+"' and LogTime='"+sTime+"'";
 RsLog->Open(sSql,"");
 if(RsLog->Eof == 0)
 {
  try
  {
   p=new TfrmLog_Sub(this);
   p->lblLogDate->Caption = RsLog->FieldByName("LogDate");
   p->lblLogTime->Caption = RsLog->FieldByName("LogTime");
   p->lblLogFrom->Caption = RsLog->FieldByName("FormCaption");
   p->lblLogType->Caption = DataConvert("LogType",RsLog->FieldByName("LogType"));
   p->lblLogUser->Caption = RsLog->FieldByName("LogUser");
   p->lblLogComputerName->Caption = RsLog->FieldByName("LogComputerName");
   p->lblLogIP->Caption = RsLog->FieldByName("LogIP");
   p->memLogDesc->Text = RsLog->FieldByName("LogDesc");
   p->ShowModal();
  }
  __finally
  {
   delete p;
  }
 }
 RsLog->Close();
 delete RsLog;
}
//---------------------------------------------------------------------------

void __fastcall TfrmLog::lvwLogColumnClick(TObject *Sender,
      TListColumn *Column)
{
 lvwLog->AlphaSort();
}
//---------------------------------------------------------------------------

void __fastcall TfrmLog::N11Click(TObject *Sender)
{
 pv_LogType=1;
 GetSystemLog();
}
//---------------------------------------------------------------------------

void __fastcall TfrmLog::N12Click(TObject *Sender)
{
 pv_LogType=2;
 GetSystemLog();
}
//---------------------------------------------------------------------------

void __fastcall TfrmLog::N13Click(TObject *Sender)
{
 pv_LogType=3;
 GetSystemLog();
}
//---------------------------------------------------------------------------

void __fastcall TfrmLog::N14Click(TObject *Sender)
{
 pv_LogType=0;
 GetSystemLog();
}
//---------------------------------------------------------------------------