bas_dept.pas

一个MRPII系统源代码版本

unit Bas_Dept;

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_Bas_Dept = Class(TFrm_Base_Outer)
    AdoQry_MainDeptCode: TStringField;
    AdoQry_MainDeptName: TStringField;
    AdoQry_MainDeptREMArK: TStringField;
    AdoQry_MainDep_DeptCode: TStringField;
    AdoQry_MainPDeptName: TStringField;
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
   procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
   function SetDeleteSql:String;Override;
  end;

var
  Frm_Bas_Dept: TFrm_Bas_Dept;

implementation

uses Bas_Dept_D;

{$R *.DFM}

procedure TFrm_Bas_Dept.InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);
begin
  inherited;
  SelectFromSQL:=
     'Select D.*,P.DeptName as PDeptName From Dept D '+
        ' left join Dept P On '+
             ' D.Dep_DeptCode=P.DeptCode ';
  OrderByFields:='Dep_DeptCode,DeptCode';
  Lbl_Order.Caption:='上级部门代码,部门代码';
  GetData;
  Frm_Sys_Detail:=TFrm_Bas_Dept_D.Create(Application);
end;

function TFrm_Bas_Dept.SetDeleteSql:string;
begin
  Result:='Delete Dept Where DeptCode='''+
           AdoQry_Main.fieldbyname('DeptCode').asstring+'''';
end;

procedure TFrm_Bas_Dept.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Bas_Dept:=Nil;
end;

end.