umcategory.pas

成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp

unit uMCategory;

interface

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

type
  TfmMCategory = class(Tfmpub1)
    dxDBTreeView1: TdxDBTreeView;
    DataSource1: TDataSource;
    DBGrid1CategoryID: TdxDBGridMaskColumn;
    DBGrid1CategoryName: TdxDBGridMaskColumn;
    DBGrid1ParentID: TdxDBGridMaskColumn;
    DBGrid1Remark: TdxDBGridMaskColumn;
    DBGrid1Creater: TdxDBGridMaskColumn;
    DBGrid1CreateDate: TdxDBGridDateColumn;
    DBGrid1Updater: TdxDBGridMaskColumn;
    DBGrid1UpdateDate: TdxDBGridDateColumn;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    procedure AAddExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMCategory: TfmMCategory;

implementation

uses udmbase, udata;

{$R *.dfm}

procedure TfmMCategory.AAddExecute(Sender: TObject);
var father:Variant;
begin
  father:=DMBase.CMCategory['CategoryID'];
  inherited;
  DMBase.CMCategory['ParentID']:=father;
end;

end.