inv_whaccessctrl.pas

一个MRPII系统源代码版本

unit Inv_WhAccessCtrl;

Interface

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

Type
  TFrm_Inv_WhAccessCtrl = Class(TFrm_Base_Outer)
    AdoQry_MainEmployeeCode: TStringField;
    AdoQry_MainEmployeeName: TStringField;
    AdoQry_MainwhCode: TStringField;
    AdoQry_MainwhName: TStringField;
  private
    { Private declarations }
  public
    function  SetDeleteSql:String;Override;
    procedure initform(AdOConnection:TAdOConnection;ReadOnly:boolean);Override;

    { Public declarations }
  end;

var
  Frm_Inv_WhAccessCtrl: TFrm_Inv_WhAccessCtrl;

implementation

uses Inv_WhAccessCtrl_D;

{$R *.DFM}

procedure TFrm_Inv_WhAccessCtrl.initform(AdOConnection:TAdOConnection;ReadOnly:boolean);
begin//SQL初始化
  inherited;
  SelectFromSQL:='Select whAccessCtrl.EmployeeCode,Vw_Operator.EmployeeName,whAccessCtrl.whCode,Warehouse.whName'+
                 ' from whAccessCtrl  left join Vw_Operator  on whAccessCtrl.EmployeeCode=Vw_Operator.EmployeeCode '+
                 '                     left join Warehouse  on whAccessCtrl.whCode=Warehouse.whCode ';

  //当前排序字段
  OrderByFields:='whCode,EmployeeCode';
  lbl_Order.Caption:='仓库代码,人员代码';
  GetData;
  //设置弹出窗体
  Frm_Sys_Detail:=TFrm_Inv_WhAccessCtrl_D.Create(Application);
end;

function TFrm_Inv_WhAccessCtrl.SetDeleteSql: String;
begin
  Result:='Delete whAccessCtrl Where EmployeeCode='''+AdoQry_Main.fieldbyname('EmployeeCode').AsString+''' and whCode='''+AdoQry_Main.fieldbyname('whCode').AsString+'''';
end;

end.