sys_operator.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 59 行

unit Sys_Operator;

Interface

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

Type
  TFrm_Sys_Operator = Class(TFrm_Base_Outer)
  private
    { Private declarations }
  public
    { Public declarations }
     procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
     function SetDeleteSql:String;Override;
  end;

var
  Frm_Sys_Operator: TFrm_Sys_Operator;

implementation
uses Sys_Operator_D;
{$R *.DFM}

{ TFrm_Sys_Operator }

function TFrm_Sys_Operator.SetDeleteSql: String;
begin
  Result:='delete from Operator '+
            ' where EmployeeCode='''+AdoQry_Main.fieldbyname('EmployeeCode').asstring+'''';
end;

procedure TFrm_Sys_Operator.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
   SelectFromSQL:='select Operator.*,Employee.EmployeeName '+
                    ' from Operator '+
                    ' join Employee ON '+
                        ' Operator.EmployeeCode=Employee.EmployeeCode ';
   OrderByFields:='EmployeeCode';
   ConditionUserDefine:='Operator.EmployeeCode<>''System''';
   AdoQry_Main.Connection:=AdOConnection;
   GetData;
   Frm_Sys_Detail:=TFrm_Sys_Operator_D.Create(Application);
   with AdoQry_Main do
   begin
     fieldbyname('EmployeeCode').Origin:='operator';
     fieldbyname('EmployeeName').Origin:='Employee';
     fieldbyname('OperatorUsable').Origin:='operator';
     fieldbyname('OperatorCreateDate').Origin:='operator';
     fieldbyname('OperatorDisableDate').Origin:='operator';
   end;
end;

end.