sys_qry_userconnectiontime.pas

一个MRPII系统源代码版本

unit Sys_Qry_UserConnectionTime;
//
Interface

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

Type
  TFrm_Sys_Qry_UserConnectionTime = Class(TFrm_Base_Qry)
    AdoQry_MainEmployeeCode: TStringField;
    AdoQry_MainEmployeeB: TStringField;
    AdoQry_MainStarttime: TDateTimeField;
    AdoQry_Mainendtime: TDateTimeField;
    AdoQry_MainDifftime: TDateTimeField;
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;    
  end;

var
  Frm_Sys_Qry_UserConnectionTime: TFrm_Sys_Qry_UserConnectionTime;

implementation

{$R *.DFM}

{ TFrm_Sys_Qry_UserConnectionTime }

procedure TFrm_Sys_Qry_UserConnectionTime.InitForm(
  AdOConnection: TAdOConnection; ReadOnly: Boolean);
begin
  inherited;
  SelectFromSql:=' select UserConnectionTime.EmployeeCode,'+
                 ' UserConnectionTime.EmployeeCode+'' ''+Employee.EmployeeName as EmployeeB,'+
                 ' UserConnectionTime.Starttime,'+
                 ' UserConnectionTime.endtime,'+
                 ' UserConnectionTime.Difftime'+
          ' from UserConnectionTime'+
          ' join Employee on UserConnectionTime.EmployeeCode=Employee.EmployeeCode';
  OrderByFields:='Starttime DESC';
  Getdata;
end;

procedure TFrm_Sys_Qry_UserConnectionTime.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Sys_Qry_UserConnectionTime:=nil;
end;

end.