sys_accesslogqry.pas

一个MRPII系统源代码版本

unit Sys_AccessLogQry;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Qry, Menus, ExtPrintReport, Db, ActnList, AdODB, Grids, DBGridEh,
  StdCtrls, ExtCtrls, ComCtrls, ToolWin,DBCtrls;

Type
  TFrm_Sys_AccessLogQry = Class(TFrm_Base_Qry)
    Label1: TLabel;
    DBText1: TDBText;
    procedure FormShow(Sender: TObject);
    procedure Act_FilterExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
  end;

var
  Frm_Sys_AccessLogQry: TFrm_Sys_AccessLogQry;

implementation
 uses Sys_SortOrder;
{$R *.DFM}

procedure TFrm_Sys_AccessLogQry.InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);
var
  i:integer;
begin
  inherited;
  Frm_Sys_SortOrder:=TFrm_Sys_SortOrder.Create(self);
  OrderByFields:='acttime';

  SelectFromSQL:='select SysMenuAccesslog.action,SysMenuAccesslog.acttime,SysMenuAccesslog.Ctrl_EmployeeCode,SysMenu.SysmoduleName+'+'''-'''+'+SysMenu.SysMenuName as SysMenuName,SysMenuAccesslog.EmployeeCode+'+''' '''+'+Employee.EmployeeName as EmployeeCode '+
                 'from SysMenuAccesslog  left join (select a.*,b.SysmoduleName from SysMenu a join Sysmodule b on a.SysModuleCode=b.SysModuleCode) SysMenu on SysMenuAccesslog.SysMenuid =SysMenu.SysMenuid '+
                 ' left join Employee on SysMenuAccesslog.EmployeeCode=Employee.EmployeeCode';
  AdoQry_Main.DisableControls ;
  AdoQry_Main.Active :=True;
  for i:=0 to dbgrideh.Columns.Count-1 do
  begin
    if dbgrideh.Columns[i].FieldName='EmployeeName' then
      dbgrideh.Columns[i].Field.Origin:='Employee'
    else if dbgrideh.Columns[i].FieldName='SysMenuName' then
      dbgrideh.Columns[i].Field.Origin:='SysMenu'
    else
      dbgrideh.Columns[i].Field.Origin:='SysMenuAccesslog'
  end;
//  Act_Filter.Execute;
//  if Frm_Sys_Condition.ModalResult<>idOK then
//  AdoQry_Main.Active :=False;
  AdoQry_Main.EnableControls ;
end;

procedure TFrm_Sys_AccessLogQry.FormShow(Sender: TObject);
begin
  inherited;
  TlBtn_Look.Enabled :=False;
  TlBtn_Look.Visible :=False;

end;

procedure TFrm_Sys_AccessLogQry.Act_FilterExecute(Sender: TObject);
var
  i:integer;
begin


  for i:=0 to dbgrideh.Columns.Count-1 do
  begin
    if dbgrideh.Columns[i].FieldName='EmployeeName' then
      dbgrideh.Columns[i].Field.Origin:='Employee'
    else if dbgrideh.Columns[i].FieldName='SysMenuName' then
      dbgrideh.Columns[i].Field.Origin:='SysMenu'
    else
      dbgrideh.Columns[i].Field.Origin:='SysMenuAccesslog'
  end;

  inherited;


end;

end.