udepartment.pas

来自「成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 20」· PAS 代码 · 共 100 行

unit udepartment;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, upub1, Menus, ImgList, DB, jpeg, StdCtrls,
  ExtCtrls, ComCtrls, Buttons, dxtree, dxdbtree, DBCtrls,
  dxdbtrel, Mask, DBClient, dxCntner, dxTL, dxDBCtrl, dxDBGrid, ActnList,
  dxExEdtr,ToolWin, dxDBTLCl, dxGrClms;

type
  Tfmdepartment = class(Tfmpub1)                       
    dxDBTreeView1: TdxDBTreeView;
    Splitter1: TSplitter;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    dxDBLookupTreeView1: TdxDBLookupTreeView;
    DBMemo1: TDBMemo;
    DataSource2: TDataSource;
    DBGrid1DeptID: TdxDBGridMaskColumn;
    DBGrid1DeptName: TdxDBGridMaskColumn;
    DBGrid1ParentID: TdxDBGridMaskColumn;
    DBGrid1IsWork: TdxDBGridCheckColumn;
    DBGrid1Remark: TdxDBGridMaskColumn;
    DBGrid1Creater: TdxDBGridMaskColumn;
    DBGrid1CreateDate: TdxDBGridDateColumn;
    DBGrid1Updater: TdxDBGridMaskColumn;
    DBGrid1updateDate: TdxDBGridDateColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure spddelClick(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure spdsaveClick(Sender: TObject);
    procedure AAddExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmdepartment: Tfmdepartment;

implementation

uses SherryLib, udmbase, udata;

{$R *.dfm}

procedure Tfmdepartment.FormCreate(Sender: TObject);
begin
  if DSMain.DataSet=nil then
  DSMain.DataSet:=DMBase.Cdepartment;
  OpenData(DataSource2);
  inherited;
  dxDBTreeView1.FullExpand;
end;

procedure Tfmdepartment.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  CloseData(DataSource2);
end;

procedure Tfmdepartment.spddelClick(Sender: TObject);
begin
  if dxDBTreeView1.Selected.HasChildren then
  begin
    Warn('要删除该部门请先删除该部门下的所有子部门！  ');
  end
  else inherited;
end;

procedure Tfmdepartment.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
//  if not (key in [#8,'0'..'9','A'..'Z']) then key:=#0;
end;

procedure Tfmdepartment.spdsaveClick(Sender: TObject);
begin
  inherited;
  DMBase.Cdept.Refresh;
end;

procedure Tfmdepartment.AAddExecute(Sender: TObject);
var Parent:Variant;
begin
  Parent:=DMBase.CDepartment['DeptID'];
  inherited;
  DMBase.CDepartment['ParentID']:=Parent;
end;

end.