usermgt.pas

采用Delphi7+Oracle. 该软件是由交警人员对各个路口闯红灯违法照片进行有效保存

end;

function TfrmUserManager.RedConfig:Boolean;  //读取配置文件信息
var
   IniFile:TInifile;
begin
  try
    CurDir:=ExtractFilePath(Application.ExeName);
    IniFile:=TInifile.Create(CurDir+'config.ini');
    with IniFile do
    begin
      fileModeStart:=ReadInteger('文件命名参数设置','fileModeStart',1);
      fileModeCount:=ReadInteger('文件命名参数设置','fileModeCount',1);
      fileEquipmentStart:=ReadInteger('文件命名参数设置','fileEquipmentStart',2);
      fileEquipmentCount:=ReadInteger('文件命名参数设置','fileEquipmentCount',3);
      fileYearStart:=ReadInteger('文件命名参数设置','fileYearStart',5);
      fileYearCount:=ReadInteger('文件命名参数设置','fileYearCount',4);
      fileMonthStart:=ReadInteger('文件命名参数设置','fileMonthStart',9);
      fileMonthCount:=ReadInteger('文件命名参数设置','fileMonthCount',2);
      fileDayStart:=ReadInteger('文件命名参数设置','fileDayStart',11);
      fileDayCount:=ReadInteger('文件命名参数设置','fileDayCount',2);
      fileHourStart:=ReadInteger('文件命名参数设置','fileHourStart',13);
      fileHourCount:=ReadInteger('文件命名参数设置','fileHourCount',2);
      fileMinuteStart:=ReadInteger('文件命名参数设置','fileMinuteStart',15);
      fileMinuteCount:=ReadInteger('文件命名参数设置','fileMinuteCount',2);
      fileSecondStart:=ReadInteger('文件命名参数设置','fileSecondStart',17);
      fileSecondCount:=ReadInteger('文件命名参数设置','fileSecondCount',2);
      fileRedLightStart:=ReadInteger('文件命名参数设置','fileRedLightStart',19);
      fileRedLightCount:=ReadInteger('文件命名参数设置','fileRedLightCount',3);
      fileRunDirStart:=ReadInteger('文件命名参数设置','fileRunDirStart',22);
      fileRunDirCount:=ReadInteger('文件命名参数设置','fileRunDirCount',2);
      filePicSeqStart:=ReadInteger('文件命名参数设置','filePicSeqStart',24);
      filePicSeqCount:=ReadInteger('文件命名参数设置','filePicSeqCount',2);
      fileMemoBitStart:=ReadInteger('文件命名参数设置','fileMemoBitStart',26);
      fileMemoBitCount:=ReadInteger('文件命名参数设置','fileMemoBitCount',3);

      //应该不用添加判断，因为都有默认数值
      if (IntToStr(fileModeStart)='') or (IntToStr(fileModeCount)='') or (IntToStr(fileEquipmentStart)='') or (IntToStr(fileEquipmentCount)='') or
        (IntToStr(fileYearStart)='') or (IntToStr(fileYearCount)='') or   (IntToStr(fileMonthStart)='') or (IntToStr(fileMonthCount)='') or
        (IntToStr(fileDayStart)='') or (IntToStr(fileDayCount)='') or  (IntToStr(fileHourStart)='') or (IntToStr(fileHourCount)='') or
        (IntToStr(fileMinuteStart)='') or (IntToStr(fileMinuteCount)='') or (IntToStr(fileSecondStart)='') or (IntToStr(fileSecondCount)='') or
        (IntToStr(fileRedLightStart)='') or (IntToStr(fileRedLightCount)='') or (IntToStr(fileRunDirStart)='') or (IntToStr(fileRunDirCount)='') or
        (IntToStr(filePicSeqStart)='') or (IntToStr(filePicSeqCount)='') or  (IntToStr(fileMemoBitStart)='') or (IntToStr(fileMemoBitCount)='') then
        begin
            result:=false;
        end;
        result:=true;
    end;
  except
      Inifile.Free ;
      result:=false;
  end;

end;

procedure TfrmUserManager.N502Click(Sender: TObject);
begin
    Application.CreateForm(TfrmCrossParam,frmCrossParam);
    CurrentOperateItem:='路口信息';
    dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
    frmCrossParam.Show;
end;

procedure TfrmUserManager.N501Click(Sender: TObject);
begin
    Application.CreateForm(TfrmFilesParam,frmFilesParam);
    CurrentOperateItem:='文件命名参数设置';
    dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
    frmFilesParam.Show ;
end;

procedure TfrmUserManager.N503Click(Sender: TObject);
begin
   Application.CreateForm(TfrmVehKind,frmVehKind);
   CurrentOperateItem:='车牌种类设置';
   dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
   frmVehKind.Show ;
end;

procedure TfrmUserManager.N504Click(Sender: TObject);
begin
  Application.CreateForm(TfrmVehHead,frmVehHead);
  CurrentOperateItem:='文件头信息设置';
  dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
  frmVehHead.Show ;
end;

procedure TfrmUserManager.N201Click(Sender: TObject);
begin
  Application.CreateForm(TfrmSaveListSearch,frmSaveListSearch);
  CurrentOperateItem:='保护名单信息查询';
  dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
  frmSaveListSearch.Show ;
end;

procedure TfrmUserManager.N202Click(Sender: TObject);
begin
    Application.CreateForm(TfrmSaveListMaintenance,frmSaveListMaintenance);
    CurrentOperateItem:='保护名单信息维护';
    dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
    frmSaveListMaintenance.Show ;
end;

procedure TfrmUserManager.N505Click(Sender: TObject);
begin
   Application.CreateForm(TfrmOperateLog,frmOperateLog);
   CurrentOperateItem:='操作日志管理';
   dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
   frmOperateLog.Show ;  
end;

procedure TfrmUserManager.N101Click(Sender: TObject);
begin
    Application.CreateForm(TfrmPicEnter,frmPicEnter);
    CurrentOperateItem:='图片导入';
    dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
    frmPicEnter.Show ;  
end;

procedure TfrmUserManager.N301Click(Sender: TObject);
begin
    Application.CreateForm(TfrmPlateCompare,frmPlateCompare);
    CurrentOperateItem:='号牌业务操作';
    dbConn.SaveOperateLog(frmLogin.spLog,CurrentUserID,CurrentUser,now,CurrentOperateItem);
    frmPlateCompare.Show;
end;

procedure TfrmUserManager.N302Click(Sender: TObject);
begin
    Application.CreateForm(TfrmPlateCompareQery,frmPlateCompareQery);
    CurrentOperateItem:='号牌比对查询';
    dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
    frmPlateCompareQery.Show;
end;

procedure TfrmUserManager.N303Click(Sender: TObject);
begin
    Application.CreateForm(TfrmPlateCompareDelete,frmPlateCompareDelete);
    CurrentOperateItem:='号牌比对全部功能(包含对比、删除、作废)';
    dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
    frmPlateCompareDelete.Show;
end;

procedure TfrmUserManager.ActN101Execute(Sender: TObject);
begin
    //图片导入
    Application.CreateForm(TfrmPicEnter,frmPicEnter);
    CurrentOperateItem:='图片导入';
    dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
    frmPicEnter.Show ;  
end;

procedure TfrmUserManager.ActN201Execute(Sender: TObject);
begin
  Application.CreateForm(TfrmSaveListSearch,frmSaveListSearch);
  CurrentOperateItem:='保护名单信息查询';
  dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
  frmSaveListSearch.Show ;
end;

procedure TfrmUserManager.ActN202Execute(Sender: TObject);
begin
    Application.CreateForm(TfrmSaveListMaintenance,frmSaveListMaintenance);
    CurrentOperateItem:='保护名单信息维护';
    dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
    frmSaveListMaintenance.Show ;
end;

procedure TfrmUserManager.TBN301Click(Sender: TObject);
begin
    Application.CreateForm(TfrmPlateCompare,frmPlateCompare);
    CurrentOperateItem:='号牌业务操作';
    dbConn.SaveOperateLog(frmLogin.spLog,CurrentUserID,CurrentUser,now,CurrentOperateItem);
    frmPlateCompare.Show;
   // frmPlateCompare.ShowModal ;
end;

procedure TfrmUserManager.ActN302Execute(Sender: TObject);
begin
  Application.CreateForm(TfrmPlateCompareQery,frmPlateCompareQery);
    CurrentOperateItem:='号牌比对查询';
    dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
    frmPlateCompareQery.Show;
end;

procedure TfrmUserManager.ActN303Execute(Sender: TObject);
begin
  Application.CreateForm(TfrmPlateCompareDelete,frmPlateCompareDelete);
    CurrentOperateItem:='号牌比对全部功能(包含对比、删除、作废)';
    dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
    frmPlateCompareDelete.Show;
end;

procedure TfrmUserManager.TBN401Click(Sender: TObject);
begin
  //change pwd
    Application.CreateForm(TfrmChangePwd,frmChangePwd);
    CurrentOperateItem:='更改用户密码';
    dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
    frmChangePwd.Show ;
end;

procedure TfrmUserManager.ActN402Execute(Sender: TObject);
begin
    //重新登陆
    Application.CreateForm(TfrmLogin, frmLogin);
    FirstLogin:=false;
    CurrentOperateItem:='重新登陆';
    dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
    frmLogin.Show ;
end;

procedure TfrmUserManager.ActN403Execute(Sender: TObject);
begin
  Application.CreateForm(TfrmManagerUser,frmManagerUser);
    CurrentOperateItem:='进入用户管理项';
    dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
    frmManagerUser.Show;
end;

procedure TfrmUserManager.ActN501Execute(Sender: TObject);
begin
    Application.CreateForm(TfrmFilesParam,frmFilesParam);
    CurrentOperateItem:='文件命名参数设置';
    dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
    frmFilesParam.Show ;
end;

procedure TfrmUserManager.ActN502Execute(Sender: TObject);
begin
    Application.CreateForm(TfrmCrossParam,frmCrossParam);
    CurrentOperateItem:='路口信息';
    dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
    frmCrossParam.Show;
end;

procedure TfrmUserManager.ActN503Execute(Sender: TObject);
begin
   Application.CreateForm(TfrmVehKind,frmVehKind);
   CurrentOperateItem:='车牌种类设置';
   dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
   frmVehKind.Show ;
end;

procedure TfrmUserManager.ActN504Execute(Sender: TObject);
begin
  Application.CreateForm(TfrmVehHead,frmVehHead);
  CurrentOperateItem:='文件头信息设置';
  dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
  frmVehHead.Show ;
end;

procedure TfrmUserManager.ActN505Execute(Sender: TObject);
begin
   Application.CreateForm(TfrmOperateLog,frmOperateLog);
   CurrentOperateItem:='操作日志管理';
   dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
   frmOperateLog.Show ;
end;

procedure TfrmUserManager.ActN301Execute(Sender: TObject);
begin
    Application.CreateForm(TfrmPlateCompare,frmPlateCompare);
    CurrentOperateItem:='号牌业务操作';
    dbConn.SaveOperateLog(frmLogin.spLog,CurrentUserID,CurrentUser,now,CurrentOperateItem);
    frmPlateCompare.Show;
end;

procedure TfrmUserManager.ActN401Execute(Sender: TObject);
begin
  //change pwd
    Application.CreateForm(TfrmChangePwd,frmChangePwd);
    CurrentOperateItem:='更改用户密码';
    dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
    frmChangePwd.Show ;
end;

end.